Portable Emacs is too slow via USB key.

1 files changed, 26 insertions, 20 deletions

diff --git a/init.el b/init.el
index 950628b..70093d2 100644
--- a/init.el
+++ b/init.el
@@ -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)