forked from overtone/emacs-live
-
Notifications
You must be signed in to change notification settings - Fork 1
/
init.el
34 lines (28 loc) · 1.15 KB
/
init.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
(setenv "CLOJURESCRIPT_HOME" (expand-file-name "~/lib/clojurescript"))
;; load live-lib
(add-to-list 'command-switch-alist
(cons "--live-safe-mode"
(lambda (switch)
nil)))
;;;
;; Store live base dirs
(setq live-root-dir user-emacs-directory)
(setq
live-tmp-dir (file-name-as-directory (concat live-root-dir "tmp"))
live-etc-dir (file-name-as-directory (concat live-root-dir "etc"))
live-lib-dir (file-name-as-directory (concat live-root-dir "lib"))
live-packs-dir (file-name-as-directory (concat live-root-dir "packs"))
live-autosaves-dir(file-name-as-directory (concat live-tmp-dir "autosaves"))
live-backups-dir (file-name-as-directory (concat live-tmp-dir "backups"))
live-load-pack-dir nil)
(load-file (concat live-lib-dir "live-core.el"))
;; create tmp dirs if necessary
(make-directory live-etc-dir t)
(make-directory live-tmp-dir t)
(make-directory live-autosaves-dir t)
(make-directory live-backups-dir t)
;;default packs
(setq live-packs (directory-files "~/.emacs.d/packs" nil "[a-zA-Z]"))
(mapcar (lambda (pack-dir)
(live-load-pack pack-dir))
(live-pack-dirs))