From f9a851e93658d59b94ac15c1c0bef6ee72942cb7 Mon Sep 17 00:00:00 2001 From: Blendoit Date: Wed, 26 Aug 2020 18:36:08 -0700 Subject: Portable Emacs is too slow via USB key. --- init.el | 46 ++++++++++++++++++++++++++-------------------- 1 file changed, 26 insertions(+), 20 deletions(-) (limited to 'init.el') 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) -- cgit v1.2.3