-
Notifications
You must be signed in to change notification settings - Fork 0
/
init-elpa.el
114 lines (91 loc) · 3.16 KB
/
init-elpa.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
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
(require 'package)
(setq package-check-signature nil)
;; initialize package mangement sysystem
(setq elpa-default
(quote
(("gnu" . "https://elpa.gnu.org/packages/")
("melpa" . "https://melpa.org/packages/")
("org" . "https://orgmode.org/elpa/"))))
(setq elpa-tuna
(quote
(("gnu" . "http://mirrors.tuna.tsinghua.edu.cn/elpa/gnu/")
("melpa" . "http://mirrors.tuna.tsinghua.edu.cn/elpa/melpa/")
("org" . "http://mirrors.tuna.tsinghua.edu.cn/elpa/org/"))))
(setq elpa-ustc
(quote
(("gnu" . "https://mirrors.ustc.edu.cn/elpa/gnu/")
("melpa" . "https://mirrors.ustc.edu.cn/elpa/melpa/")
("org" . "https://mirrors.ustc.edu.cn/elpa/org/"))))
(setq elpa-china
(quote
(("gnu" . "http://1.15.88.122/gnu/")
("melpa" . "http://1.15.88.122/melpa/")
("org" . "http://1.15.88.122/org/"))))
(setq elpa-local
(quote
(("gnu" . "file:///mnt/ssd2/elpa/gnu/")
("melpa" . "file:///mnt/ssd2/elpa/melpa/")
("org" . "file:///mnt/ssd2/elpa/org/"))))
(setq package-archives elpa-china)
;;(add-to-list 'package-archives '("melpa" . "https://melpa.org/packages/") t)
;;(when (< emacs-major-version 24)
;; For important compatibility libraries like cl-lib
;; (add-to-list 'package-archives '("gnu" . "https://elpa.gnu.org/packages/"))
;;)
;;(add-to-list 'package-archives '("marmalade" . "https://marmalade-repo.org/packages/"))
;;(add-to-list 'package-archives '("melpa" . "https://melpa.org/packages/"))
;;(add-to-list 'package-archives '("org" . "http://orgmode.org/elpa/") t) ; Org-mode's repository
;;(add-to-list 'package-archives '("popkit" . "http://elpa.popkit.org/packages/"))
(package-initialize)
(unless package-archive-contents (package-refresh-contents nil))
(defun file-content (filePath)
"Return filePath's file content."
(with-temp-buffer
(insert-file-contents filePath)
(buffer-string)))
(defun write-content (file-path content)
"write content to file-path"
(with-temp-file file-path
(insert
(with-output-to-string
(princ content)
))))
(defun installed-package-names ()
(mapcar 'car package-alist))
(defun available-package-names ()
(mapcar 'car package-archive-contents))
(defun tt-elisp-format (f)
(let (elisp-format-column 10)
(elisp-format-file f)
)
)
(defun tt-store-package-names()
" store current installed packages into configure file ~/.emacs.d/pkgnames"
(interactive)
(with-temp-file "~/.emacs.d/pkgnames"
(insert (with-output-to-string
(princ (sort (installed-package-names) 'string<))))
(lisp-mode)
(let ((elisp-format-column 10))
(elisp-format-buffer))
)
)
(defun tt-read-package-names()
(car (read-from-string (file-content "~/.emacs.d/pkgnames")))
)
(defun tt-ensure-packages-installed ()
"ensure packages installed, if not, install them "
(interactive)
(setq pkgns (tt-read-package-names))
(setq pkgns-avail (available-package-names))
(dolist (pkgn pkgns)
(unless (package-installed-p pkgn)
(if (member pkgn pkgns-avail)
(progn
(print (format "Installing %s" pkgn))
(package-install pkgn)
)
(print (format "Not finding %s" pkgn))
)
)))
(tt-ensure-packages-installed)