gitback/el-get
1
0
Fork 0
mirror of https://github.com/dimitri/el-get.git synced 2024-09-29 04:58:53 +08:00
Code Issues Packages Projects Releases Wiki Activity

Add symlinks to /usr/share/emacs/site-lisp/<package> for apt-get support in el-get.

Browse Source
This commit is contained in:
Dimitri Fontaine 2010-06-29 13:35:32 +02:00
parent 076c88ae89
commit c953868c87
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
el-get.el
View File

@ -198,11 +198,18 @@ given package directory."
(concat (when sudo-pass (concat "echo " sudo-pass " | "))
"sudo -S " command))))
(defun el-get-apt-get-symlink (package)
"ln -s /usr/share/emacs/site-lisp/package ~/.emacs.d/el-get/package"
(let ((debdir (concat "/usr/share/emacs/site-lisp/" package)))
(shell-command
(concat "cd " el-get-dir " && ln -s " debdir " " package))))
(defun el-get-apt-get-install (package &optional url)
"apt-get install package, url is there for API compliance"
;; this can be somewhat chatty but I guess you want to know about it
(message "%S" (el-get-sudo-shell-command-to-string
(concat el-get-apt-get " install " package)))
(el-get-apt-get-symlink package)
(run-hooks 'el-get-apt-get-install-hook)
nil)