-
Notifications
You must be signed in to change notification settings - Fork 15
/
SEMI-ELS
43 lines (34 loc) · 1012 Bytes
/
SEMI-ELS
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
;;; -*-Emacs-Lisp-*-
;; SEMI-ELS: list of SEMI modules to install
;;; Code:
(setq semi-modules-to-compile
'(signature
mime-pgp mime-tnef
semi-def mime-view mime-play mime-partial
mime-edit mime-signature
semi-setup mail-mime-setup))
(setq semi-modules-not-to-compile nil)
(mapcar (function
(lambda (cell)
(let ((c-module (car cell))
(i-modules (cdr cell))
)
(if (module-installed-p c-module)
(setq semi-modules-to-compile
(nconc semi-modules-to-compile i-modules))
(setq semi-modules-not-to-compile
(nconc semi-modules-not-to-compile i-modules))
)
)))
'((w3 mime-w3)
(bbdb-vcard-vcard21 mime-vcard)
(shr mime-shr)
))
(setq semi-modules-to-compile
(nconc semi-modules-to-compile '(mime-image)))
(when (eq system-type 'darwin)
(setq semi-modules-to-compile
(nconc semi-modules-to-compile '(mime-mac))))
(setq semi-modules (append semi-modules-to-compile
semi-modules-not-to-compile))
;;; SEMI-ELS ends here