blob: 70093d292f13e054caf0efb3065757965ecdd55a (
plain)
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
|
;;; init.el --- bootstrap main Emacs config from USB drive.
;;; Commentary:
;; This package enables bootstrapping a full `.emacs.d/' configuration
;; residing on a removable drive. It is copied over from
;; init-bootstrap.el to init.el, at a location the OS expects to find
;; that file. Then, every time Emacs is started, it will scan the top
;; level of all typical mount points in an effort to detect an
;; existing `.emacs.d/'.
;;; Code:
;; SET BACKUPS AND SAVE BEHAVIOURS HERE
(org-babel-load-file "~/.emacs.d/blendoit/blendoit-init.org")
(setq my/literate-config (concat user-emacs-directory "blendoit/blendoit-init.org"))
(setq my/literate-config-compiled (concat user-emacs-directory "blendoit/blendoit-init.elc"))
;; (defun my/load-config-linux ()
;; "Bootstrap a full `.emacs.d/' configuration for GNU/Linux."
;; (setq user-emacs-directory "/run/media/blendux/1924-4A2F/dotemacs/")
;; (setq my/literate-config (concat user-emacs-directory "blendoit/blendoit-init.org"))
;; (setq my/literate-config-compiled (concat user-emacs-directory "blendoit/blendoit-init.elc"))
;; (load-file my/literate-config-compiled)
;; (message "It worked. Take a break."))
;; (defun my/load-config-windows ()
;; "Bootstrap a full `.emacs.d/' configuration for MS Windows."
;; (setq alphabet (mapcar 'string "ABCDEFFGHIJKLMNOPQRSTUVWXYZ"))
;; (setq drives (mapcar '(lambda (drive) (concat drive ":")) alphabet))
;; (setq user-emacs-directory (substring (locate-file "dotemacs/init.el" drives) 0 12))
;; (setq my/literate-config (concat user-emacs-directory "blendoit/blendoit-init.org"))
;; (setq my/literate-config-compiled (concat user-emacs-directory "blendoit/blendoit-init.elc"))
;; (load-file my/literate-config-compiled)
;; (message "It worked. Take a break."))
;; ;; Perform the configuration bootstrap, per the running OS.
;; (cond ((string-equal system-type "gnu/linux") (my/load-config-linux))
;; ((string-equal system-type "windows-nt") (my/load-config-windows))
;; (t (message "You're running neither GNU/Linux nor MS Windows.")))
(provide 'init)
;;; init.el ends here
|
