Portable Emacs is too slow via USB key.

3 files changed, 41 insertions, 35 deletions

diff --git a/blendoit/blendoit-init.org b/blendoit/blendoit-init.org
index 19b2755..1e7c65d 100644
--- a/blendoit/blendoit-init.org
+++ b/blendoit/blendoit-init.org
@@ -258,13 +258,17 @@ configuration file.
     (eval-when-compile (require 'use-package)))
   (setq use-package-always-ensure t)
 (require 'use-package)
-(use-package bind-key)
+(require 'bind-key)
 #+END_SRC
 
 ** TODO Convenient package update
 
 One-function rollup of upgradeable package tagging, download and lazy install.
 
+#+BEGIN_SRC 
+
+#+END_SRC
+
 ** ~ivy~
 
 Auto completion.
@@ -736,19 +740,17 @@ Save cursor location in visited buffer after closing it or Emacs.
 Saving any file in ~user-emacs-directory~ (by default on Emacs, =~/emacs.d=)
 shall byte-recompile the entire =.emacs/= directory, for increased speed.
 
-This is pretty neat, not gonna lie.
-
 #+BEGIN_SRC emacs-lisp
-  (defun my/byte-compile-user-config ()
-    "Byte-compile dotfiles if current file is in `user-emacs-directory'.
-    Also tangles `my-literate-config'."
-    (interactive)
-    (if (string-equal buffer-file-name my/literate-config)
-        (org-babel-tangle))
-    (if (string-prefix-p user-emacs-directory default-directory)
-        (byte-recompile-directory user-emacs-directory 0)))
+  ;; (defun my/byte-compile-user-config ()
+  ;;   "Byte-compile dotfiles if current file is in `user-emacs-directory'.
+  ;;   Also tangles `my-literate-config'."
+  ;;   (interactive)
+  ;;   (if (string-equal buffer-file-name my/literate-config)
+  ;;       (org-babel-tangle))
+  ;;   (if (string-prefix-p user-emacs-directory default-directory)
+  ;;       (byte-recompile-directory (concat user-emacs-directory "blendoit/") 0)))
 
-  (add-hook 'after-save-hook my/byte-compile-user-config)
+  ;; (add-hook 'after-save-hook my/byte-compile-user-config)
 #+END_SRC
 
 ** Clean up menus
diff --git a/init-custom.el b/init-custom.el
index 5ec258b..4e72696 100644
--- a/init-custom.el
+++ b/init-custom.el
@@ -43,8 +43,7 @@
  '(nrepl-message-colors
    '("#CC9393" "#DFAF8F" "#F0DFAF" "#7F9F7F" "#BFEBBF" "#93E0E3" "#94BFF3" "#DC8CC3"))
  '(org-agenda-diary-file "~/org/PERSONAL/diary/diary.org")
- '(org-agenda-files
-   '("~/org/WORK/Safran/programs/MA700/timeline/MA700-timeline.org" "~/org/PERSONAL/diary/diary.org"))
+ '(org-agenda-files '("~/org/PERSONAL/diary/diary.org"))
  '(org-agenda-include-diary t)
  '(org-agenda-insert-diary-strategy 'date-tree-last)
  '(org-agenda-skip-scheduled-if-deadline-is-shown 'not-today)
@@ -93,7 +92,6 @@
  '(org-latex-toc-command "\\tableofcontents\\clearpage")
  '(org-log-done 'time)
  '(org-startup-align-all-tables t)
- '(org-tags-column -57)
  '(package-selected-packages
    '(org-sticky-header awesome-tab tabbar-ruler tabbar-mode linum-relative dumb-jump csv-mode rainbow-mode org-mouse projectile minimap gnuplot ledger-mode company-mode wombat-theme wombar-theme which-key srefactor-lisp srefactor all-the-icons flycheck ibuffer-sidebar pdf-tools magit rainbow-delimiters smartparens mixed-pitch org-bullets use-package tabbar powerline ivy-hydra flatui-theme evil counsel company benchmark-init))
  '(pdf-view-midnight-colors '("#DCDCCC" . "#383838"))
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)