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. --- blendoit/blendoit-init.org | 26 ++++++++++++++------------ init-custom.el | 4 +--- init.el | 46 ++++++++++++++++++++++++++-------------------- 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) -- cgit v1.2.3