forked from demyanrogozhin/elhome
/
elhome-install.el
38 lines (28 loc) · 1.16 KB
/
elhome-install.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
(let ((debug-on-error t))
(switch-to-buffer "*Messages*")
(message "*\n*\n* Patience please; ELHOME is installing...\n* \n*")
(setq el-get-byte-compile nil)
(unless (require 'el-get nil t)
(with-current-buffer (url-retrieve-synchronously "https://raw.github.com/dimitri/el-get/master/el-get-install.el") (end-of-buffer) (eval-print-last-sexp))) (el-get 'sync)
(unless (require 'el-get nil t)
(with-current-buffer
(url-retrieve-synchronously
"https://github.com/dimitri/el-get/raw/master/el-get-install.el")
(end-of-buffer)
(eval-print-last-sexp)))
(switch-to-buffer "*Messages*")
(add-hook 'el-get-post-install-hooks 'el-get-init)
(eval-after-load 'elhome
'(with-current-buffer
(find-file-noselect
(concat (el-get-package-directory "elhome") "README.markdown"))
(elhome-init)
(goto-char (point-max))
(search-backward "## Congratulations")
(switch-to-buffer (current-buffer))
(recenter 'top)))
(let ((el-get-sources
'((:name elhome
:depends (initsplit byte-code-cache)))))
(el-get nil '(elhome)))
(message "Thank you for installing elhome!"))