forked from redguardtoo/emacs.d
-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathinit-site-lisp.el
94 lines (72 loc) · 3.73 KB
/
init-site-lisp.el
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
;;----------------------------------------------------------------------------
;; Set load path
;;----------------------------------------------------------------------------
(if (fboundp 'normal-top-level-add-to-load-path)
(let* ((my-lisp-dir "~/.emacs.d/site-lisp/")
(default-directory my-lisp-dir))
(progn
(setq load-path
(append
(loop for dir in (directory-files my-lisp-dir)
unless (string-match "^\\." dir)
collecting (expand-file-name dir))
load-path)))))
;;----------------------------------------------------------------------------
;; Utilities for grabbing upstream libs
;;----------------------------------------------------------------------------
(defun site-lisp-dir-for (name)
(expand-file-name (format "~/.emacs.d/site-lisp/%s" name)))
(defun site-lisp-library-el-path (name)
(expand-file-name (format "%s.el" name) (site-lisp-dir-for name)))
(defun download-site-lisp-module (name url)
(let ((dir (site-lisp-dir-for name)))
(message "Downloading %s from %s" name url)
(unless (file-directory-p dir)
(make-directory dir)
(add-to-list 'load-path dir))
(url-copy-file url (site-lisp-library-el-path name) t nil)))
(defun ensure-lib-from-url (name url)
(unless (site-lisp-library-loadable-p name)
(download-site-lisp-module name url)))
(defun site-lisp-library-loadable-p (name)
"Return whether or not the library `name' can be loaded from a
source file under ~/.emacs.d/site-lisp/name/"
(let ((f (locate-library (symbol-name name))))
(and f (string-prefix-p (file-name-as-directory (site-lisp-dir-for name)) f))))
(defun ensure-lib-from-svn (name url)
(let ((dir (site-lisp-dir-for name)))
(unless (site-lisp-library-loadable-p name)
(message "Checking out %s from svn" name)
(save-excursion
(shell-command (format "svn co %s %s" url dir) "*site-lisp-svn*"))
(add-to-list 'load-path dir))))
;;----------------------------------------------------------------------------
;; Fix up some load paths for libs from git submodules
;;----------------------------------------------------------------------------
(unless (file-directory-p (expand-file-name "~/.emacs.d/site-lisp/html5-el/relaxng"))
(error "Please run 'make relaxng' in site-lisp/html5-el"))
(add-to-list 'load-path (expand-file-name "~/.emacs.d/site-lisp/session/lisp"))
(add-to-list 'load-path (expand-file-name "~/.emacs.d/site-lisp/org-mode/lisp"))
(add-to-list 'load-path (expand-file-name "~/.emacs.d/site-lisp/org-mode/contrib/lisp"))
(defun refresh-site-lisp-submodules ()
(interactive)
(message "Updating site-lisp git submodules")
(shell-command "cd ~/.emacs.d && git submodule foreach 'git pull' &" "*site-lisp-submodules*"))
;;----------------------------------------------------------------------------
;; Download these upstream libs
;;----------------------------------------------------------------------------
(defun remove-site-lisp-libs ()
(shell-command "cd ~/.emacs.d && grep -e '^site-lisp/' .gitignore|xargs rm -rf"))
(defun ensure-site-lisp-libs ()
(unless (> emacs-major-version 23)
(ensure-lib-from-url 'package "http://repo.or.cz/w/emacs.git/blob_plain/1a0a666f941c99882093d7bd08ced15033bc3f0c:/lisp/emacs-lisp/package.el"))
(ensure-lib-from-url 'todochiku "http://www.emacswiki.org/emacs/download/todochiku.el")
(ensure-lib-from-url 'edit-server "http://github.com/stsquad/emacs_chrome/raw/master/servers/edit-server.el")
(ensure-lib-from-svn 'rdebug "http://ruby-debug.rubyforge.org/svn/trunk/emacs/"))
(defun refresh-site-lisp ()
(interactive)
(refresh-site-lisp-submodules)
(remove-site-lisp-libs)
(ensure-site-lisp-libs))
(ensure-site-lisp-libs)
(provide 'init-site-lisp)