[emacs] update 3 drones

[~bandali/configs] / init.org

diff --git a/init.org b/init.org
index 3af265d..4ff8b94 100644 (file)
--- a/init.org
+++ b/init.org
@@ -348,7 +348,7 @@ in my shell.
   (exec-path-from-shell-copy-env "SSH_AUTH_SOCK"))
 #+end_src
 
-** Only one custom theme at a time
+** COMMENT Only one custom theme at a time
 
 #+begin_src emacs-lisp
 (defadvice load-theme (before clear-previous-themes activate)
@@ -790,6 +790,9 @@ customizing it.
 (amin--leader-keys
   "/"   '(:ignore t :wk "search")
 
+  "a"   '(:ignore t :wk "apps")
+  "a i" 'ielm
+
   "b"   '(:ignore t :wk "buffers")
   "b k" 'kill-this-buffer
   "b s" 'save-buffer
@@ -798,8 +801,6 @@ customizing it.
   "e b" 'eval-buffer
   "e r" 'eval-region
 
-  "e e" 'shell-pop
-
   "f"   '(:ignore t :wk "files")
 
   "F"   '(:ignore t :wk "frames")
@@ -1696,16 +1697,48 @@ Emacs package that displays available keybindings in popup
   :config (which-key-mode))
 #+end_src
 
+** theme
+
+#+begin_src emacs-lisp
+(add-to-list 'custom-theme-load-path "~/.emacs.d/lisp")
+(load-theme 'tangomod t)
+#+end_src
+
 ** [[https://github.com/Malabarba/smart-mode-line][smart-mode-line]]
 
 #+begin_src emacs-lisp
 (use-package smart-mode-line
   :config
   (sml/setup)
-  ;; (sml/apply-theme 'light)
+  (sml/apply-theme 'light)
   (remove-hook 'display-time-hook 'sml/propertize-time-string))
 #+end_src
 
+** theme helper functions
+
+#+begin_src emacs-lisp
+(defun amin/light ()
+  "Load light theme(s)."
+  (interactive)
+  (progn
+    (mapc #'disable-theme custom-enabled-themes)
+    (load-theme 'tangomod t)
+    (sml/apply-theme 'light)))
+
+(defun amin/dark ()
+  "Load dark theme(s)."
+  (interactive)
+  (progn
+    (mapc #'disable-theme custom-enabled-themes)
+    (load-theme 'tangomod-dark t)
+    (sml/apply-theme 'dark)))
+
+(amin--leader-keys
+  "t"   '(:ignore t :wk "theme")
+  "t d" 'amin/dark
+  "t l" 'amin/light)
+#+end_src
+
 ** [[https://github.com/bbatsov/crux][crux]]
 
 #+begin_src emacs-lisp
@@ -1780,6 +1813,7 @@ Emacs package that displays available keybindings in popup
 #+begin_src emacs-lisp
 (use-package shell-pop
   :defer 1
+  :general (amin--leader-keys "a s" 'shell-pop)
   :init
   (setq shell-pop-universal-key "C-c e"
         shell-pop-shell-type '("eshell" "*eshell*" (lambda nil (eshell)))))
@@ -2051,7 +2085,7 @@ For when I /have to/ use GH.
              (nnimap-server-port 143)
              (nnimap-authenticator plain)
              (nnimap-user "abandali@uwaterloo.ca")))
-   gnus-message-archive-group "nnimap:Sent"
+   gnus-message-archive-group "nnimap+amin:Sent"
    gnus-parameters
    '(("gnu.*"
       (gcc-self . t)))