[emacs] update 6 drones

[~bandali/configs] / init.org

diff --git a/init.org b/init.org
index 1c847ff..a6e4d11 100644 (file)
--- a/init.org
+++ b/init.org
@@ -716,23 +716,17 @@ customizing it.
 (use-package evil
   :demand t
   ;; :hook (org-src-mode . evil-motion-state)
 (use-package evil
   :demand t
   ;; :hook (org-src-mode . evil-motion-state)

-  :init
-  (setq evil-want-integration nil)

   :config
   (evil-mode 1)
   (general-swap-key nil '(normal motion) ";" ":")
 
   :config
   (evil-mode 1)
   (general-swap-key nil '(normal motion) ";" ":")
 

-  (setq
-   evil-want-visual-char-semi-exclusive t
-   evil-move-beyond-eol  t
-   ;; evil-move-cursor-back nil
-   )
+  (setq evil-want-visual-char-semi-exclusive t)

 
 

-  ;; motion state modes
-  (dolist (mode '(ebdb-mode
-                  helpful-mode
-                  view-mode))
-    (evil-set-initial-state mode 'motion))
+  ;; custom mode state mappings
+  (dolist (mspair '((ebdb-mode    . emacs)
+                    (helpful-mode . motion)
+                    (view-mode    . motion)))
+    (evil-set-initial-state (car mspair) (cdr mspair)))

 
   ;; fix tab and indentation in src blocks inside org-mode buffer
   ;; also see https://git.sr.ht/~bandali/dotfiles/commit/0e2ffd584aafdd4cf256bcdf2473f01c3aaaed55
 
   ;; fix tab and indentation in src blocks inside org-mode buffer
   ;; also see https://git.sr.ht/~bandali/dotfiles/commit/0e2ffd584aafdd4cf256bcdf2473f01c3aaaed55


@@ -796,6 +790,9 @@ customizing it.
 (amin--leader-keys
   "/"   '(:ignore t :wk "search")
 
 (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
   "b"   '(:ignore t :wk "buffers")
   "b k" 'kill-this-buffer
   "b s" 'save-buffer


@@ -804,8 +801,6 @@ customizing it.
   "e b" 'eval-buffer
   "e r" 'eval-region
 
   "e b" 'eval-buffer
   "e r" 'eval-region
 

-  "e e" 'shell-pop
-

   "f"   '(:ignore t :wk "files")
 
   "F"   '(:ignore t :wk "frames")
   "f"   '(:ignore t :wk "files")
 
   "F"   '(:ignore t :wk "frames")


@@ -1254,12 +1249,14 @@ TODO: break this giant source block down into individual org sections.
                (list (regexp-quote (system-name)) nil nil)))
 
 (use-package undo-tree
                (list (regexp-quote (system-name)) nil nil)))
 
 (use-package undo-tree

-  :bind (("C-?" . undo-tree-undo)
-         ("M-_" . undo-tree-redo))

   :config
   :config

-  (global-undo-tree-mode)
-  (setq undo-tree-mode-lighter ""
-        undo-tree-auto-save-history t))
+  (global-undo-tree-mode -1))
+  ;; :bind (("C-?" . undo-tree-undo)
+  ;;        ("M-_" . undo-tree-redo))
+  ;; :config
+  ;; (global-undo-tree-mode)
+  ;; (setq undo-tree-mode-lighter ""
+  ;;       undo-tree-auto-save-history t))

 #+end_src
 
 * Editing
 #+end_src
 
 * Editing


@@ -1784,6 +1781,7 @@ Emacs package that displays available keybindings in popup
 #+begin_src emacs-lisp
 (use-package shell-pop
   :defer 1
 #+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)))))
   :init
   (setq shell-pop-universal-key "C-c e"
         shell-pop-shell-type '("eshell" "*eshell*" (lambda nil (eshell)))))


@@ -2055,7 +2053,7 @@ For when I /have to/ use GH.
              (nnimap-server-port 143)
              (nnimap-authenticator plain)
              (nnimap-user "abandali@uwaterloo.ca")))
              (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)))
    gnus-parameters
    '(("gnu.*"
       (gcc-self . t)))