diff options
Diffstat (limited to 'init.el')
-rw-r--r-- | init.el | 46 |
1 files changed, 26 insertions, 20 deletions
@@ -9,30 +9,36 @@ ;; existing `.emacs.d/'. ;;; Code: -(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")) - -(defun my/load-config-linux () - "Bootstrap a full `.emacs.d/' configuration for GNU/Linux." - (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." -(let* 'alphabet (mapcar 'string "ABCDEFFGHIJKLMNOPQRSTUVWXYZ") - 'drives (mapcar '(lambda (drive) - "Construct list of drives." - (concat drive ":")) alphabet)) +;; SET BACKUPS AND SAVE BEHAVIOURS HERE +(org-babel-load-file "~/.emacs.d/blendoit/blendoit-init.org") - (setq user-emacs-directory config-location) -) +(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")) -;; 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-window)) - (t (message "You're running neither GNU/Linux nor MS Windows."))) +;; (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) |