[Emacs Lisp] Personal ~/.emacs.d/ configuration folder.

Portable Emacs is too slow via USB key.

Commit
f9a851e93658d59b94ac15c1c0bef6ee72942cb7
Author
Blendoit <blendoit@gmail.com>
Author date
Committer
Blendoit <blendoit@gmail.com>
Committer date
Changed files
blendoit/blendoit-init.org
index 19b2755a..1e7c65d2 100644..100644
@@ -258,13 +258,17 @@
258 258 (eval-when-compile (require 'use-package)))
259 259 (setq use-package-always-ensure t)
260 260 (require 'use-package)
261 Removed: (use-package bind-key)
261 Added: (require 'bind-key)
262 262 #+END_SRC
263 263
264 264 ** TODO Convenient package update
265 265
266 266 One-function rollup of upgradeable package tagging, download and lazy install.
267 267
268 Added: #+BEGIN_SRC
269 Added:
270 Added: #+END_SRC
271 Added:
268 272 ** ~ivy~
269 273
270 274 Auto completion.
@@ -736,19 +740,17 @@
736 740 Saving any file in ~user-emacs-directory~ (by default on Emacs, =~/emacs.d=)
737 741 shall byte-recompile the entire =.emacs/= directory, for increased speed.
738 742
739 Removed: This is pretty neat, not gonna lie.
740 Removed:
741 743 #+BEGIN_SRC emacs-lisp
742 Removed: (defun my/byte-compile-user-config ()
743 Removed: "Byte-compile dotfiles if current file is in `user-emacs-directory'.
744 Removed: Also tangles `my-literate-config'."
745 Removed: (interactive)
746 Removed: (if (string-equal buffer-file-name my/literate-config)
747 Removed: (org-babel-tangle))
748 Removed: (if (string-prefix-p user-emacs-directory default-directory)
749 Removed: (byte-recompile-directory user-emacs-directory 0)))
744 Added: ;; (defun my/byte-compile-user-config ()
745 Added: ;; "Byte-compile dotfiles if current file is in `user-emacs-directory'.
746 Added: ;; Also tangles `my-literate-config'."
747 Added: ;; (interactive)
748 Added: ;; (if (string-equal buffer-file-name my/literate-config)
749 Added: ;; (org-babel-tangle))
750 Added: ;; (if (string-prefix-p user-emacs-directory default-directory)
751 Added: ;; (byte-recompile-directory (concat user-emacs-directory "blendoit/") 0)))
750 752
751 Removed: (add-hook 'after-save-hook my/byte-compile-user-config)
753 Added: ;; (add-hook 'after-save-hook my/byte-compile-user-config)
752 754 #+END_SRC
753 755
754 756 ** Clean up menus
init-custom.el
index 5ec258b5..4e726968 100644..100644
@@ -43,8 +43,7 @@
43 43 '(nrepl-message-colors
44 44 '("#CC9393" "#DFAF8F" "#F0DFAF" "#7F9F7F" "#BFEBBF" "#93E0E3" "#94BFF3" "#DC8CC3"))
45 45 '(org-agenda-diary-file "~/org/PERSONAL/diary/diary.org")
46 Removed: '(org-agenda-files
47 Removed: '("~/org/WORK/Safran/programs/MA700/timeline/MA700-timeline.org" "~/org/PERSONAL/diary/diary.org"))
46 Added: '(org-agenda-files '("~/org/PERSONAL/diary/diary.org"))
48 47 '(org-agenda-include-diary t)
49 48 '(org-agenda-insert-diary-strategy 'date-tree-last)
50 49 '(org-agenda-skip-scheduled-if-deadline-is-shown 'not-today)
@@ -93,7 +92,6 @@
93 92 '(org-latex-toc-command "\\tableofcontents\\clearpage")
94 93 '(org-log-done 'time)
95 94 '(org-startup-align-all-tables t)
96 Removed: '(org-tags-column -57)
97 95 '(package-selected-packages
98 96 '(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))
99 97 '(pdf-view-midnight-colors '("#DCDCCC" . "#383838"))
init.el
index 950628b5..70093d29 100644..100644
@@ -9,30 +9,36 @@
9 9 ;; existing `.emacs.d/'.
10 10
11 11 ;;; Code:
12 Removed: (setq user-emacs-directory "/run/media/blendux/1924-4A2F/dotemacs/")
13 Removed: (setq my/literate-config (concat user-emacs-directory "blendoit/blendoit-init.org"))
14 Removed: (setq my/literate-config-compiled (concat user-emacs-directory "blendoit/blendoit-init.elc"))
15 12
16 Removed: (defun my/load-config-linux ()
17 Removed: "Bootstrap a full `.emacs.d/' configuration for GNU/Linux."
18 Removed: (load-file my/literate-config-compiled)
19 Removed: (message "It worked. Take a break."))
13 Added: ;; SET BACKUPS AND SAVE BEHAVIOURS HERE
20 14
21 Removed: (defun my/load-config-windows ()
22 Removed: "Bootstrap a full `.emacs.d/' configuration for MS Windows."
23 Removed: (let* 'alphabet (mapcar 'string "ABCDEFFGHIJKLMNOPQRSTUVWXYZ")
24 Removed: 'drives (mapcar '(lambda (drive)
25 Removed: "Construct list of drives."
26 Removed: (concat drive ":")) alphabet))
15 Added: (org-babel-load-file "~/.emacs.d/blendoit/blendoit-init.org")
27 16
17 Added: (setq my/literate-config (concat user-emacs-directory "blendoit/blendoit-init.org"))
18 Added: (setq my/literate-config-compiled (concat user-emacs-directory "blendoit/blendoit-init.elc"))
28 19
29 Removed: (setq user-emacs-directory config-location)
30 Removed: )
20 Added: ;; (defun my/load-config-linux ()
21 Added: ;; "Bootstrap a full `.emacs.d/' configuration for GNU/Linux."
22 Added: ;; (setq user-emacs-directory "/run/media/blendux/1924-4A2F/dotemacs/")
23 Added: ;; (setq my/literate-config (concat user-emacs-directory "blendoit/blendoit-init.org"))
24 Added: ;; (setq my/literate-config-compiled (concat user-emacs-directory "blendoit/blendoit-init.elc"))
25 Added: ;; (load-file my/literate-config-compiled)
26 Added: ;; (message "It worked. Take a break."))
31 27
32 Removed: ;; Perform the configuration bootstrap, per the running OS.
33 Removed: (cond ((string-equal system-type "gnu/linux") (my/load-config-linux))
34 Removed: ((string-equal system-type "windows-nt") (my/load-config-window))
35 Removed: (t (message "You're running neither GNU/Linux nor MS Windows.")))
28 Added: ;; (defun my/load-config-windows ()
29 Added: ;; "Bootstrap a full `.emacs.d/' configuration for MS Windows."
30 Added: ;; (setq alphabet (mapcar 'string "ABCDEFFGHIJKLMNOPQRSTUVWXYZ"))
31 Added: ;; (setq drives (mapcar '(lambda (drive) (concat drive ":")) alphabet))
32 Added: ;; (setq user-emacs-directory (substring (locate-file "dotemacs/init.el" drives) 0 12))
33 Added: ;; (setq my/literate-config (concat user-emacs-directory "blendoit/blendoit-init.org"))
34 Added: ;; (setq my/literate-config-compiled (concat user-emacs-directory "blendoit/blendoit-init.elc"))
35 Added: ;; (load-file my/literate-config-compiled)
36 Added: ;; (message "It worked. Take a break."))
37 Added:
38 Added: ;; ;; Perform the configuration bootstrap, per the running OS.
39 Added: ;; (cond ((string-equal system-type "gnu/linux") (my/load-config-linux))
40 Added: ;; ((string-equal system-type "windows-nt") (my/load-config-windows))
41 Added: ;; (t (message "You're running neither GNU/Linux nor MS Windows.")))
36 42
37 43 (provide 'init)
38 44