[rc/X] set keyboard repeat delay and rate

[~bandali/configs] / init.org

diff --git a/init.org b/init.org
index 06fa7e7..6d927c9 100644 (file)
--- a/init.org
+++ b/init.org
@@ -319,6 +319,14 @@ in my shell.
   (exec-path-from-shell-copy-env "SSH_AUTH_SOCK"))
 #+end_src
 
+** Only one custom theme at a time
+
+#+begin_src emacs-lisp
+(defadvice load-theme (before clear-previous-themes activate)
+  "Clear existing theme settings instead of layering them"
+  (mapc #'disable-theme custom-enabled-themes))
+#+end_src
+
 ** Server
 
 Start server if not already running. Alternatively, can be done by
@@ -1246,7 +1254,7 @@ Emacs package that displays available keybindings in popup
         message-send-mail-function 'message-send-mail-with-sendmail
         message-sendmail-envelope-from 'header
         message-directory "drafts"
-        message-user-fqdn "aminb.org")
+        message-user-fqdn "fencepost.gnu.org")
   (add-hook 'message-mode-hook
             (lambda () (setq fill-column 65
                         message-fill-column 65)))
@@ -1328,13 +1336,13 @@ Emacs package that displays available keybindings in popup
        ("S" . (lambda ()
                 "Mark message as spam"
                 (interactive)
-                (notmuch-search-tag '("-unread" "-inbox" "+spam"))
+                (notmuch-search-tag '("-unread" "-inbox" "-webmasters" "+spam"))
                 (notmuch-search-archive-thread))))
   (:map notmuch-tree-mode-map  ; TODO: additional bindings
        ("S" . (lambda ()
                 "Mark message as spam"
                 (interactive)
-                (notmuch-tree-tag '("-unread" "-inbox" "+spam"))
+                (notmuch-tree-tag '("-unread" "-inbox" "-webmasters" "+spam"))
                 (notmuch-tree-archive-thread))))
 )