Automatically clean buffers

[config.org.git] / config.org

diff --git a/config.org b/config.org
index a6579af83b881682556696217778c501714739c8..df96ffae8679f9ba181fcee019ea488a9897208c 100644 (file)
--- a/config.org
+++ b/config.org
@@ -357,6 +357,7 @@ Contexts are a not very well known feature of mu4e that makes it super easy to m
           mu4e-confirm-quit nil
           mu4e-view-use-gnus t
           mail-user-agent 'mu4e-user-agent
+          mail-context-policy 'pick-first
           mu4e-contexts
           `( ,(make-mu4e-context
                :name "school"
@@ -395,8 +396,9 @@ Contexts are a not very well known feature of mu4e that makes it super easy to m
                          :key ?b))
     :hook ((mu4e-compose-mode . flyspell-mode)
            (mu4e-compose-mode . auto-fill-mode)
-           (mu4e-view-mode-hook . turn-on-visual-line-mode)))
-
+           (mu4e-view-mode-hook . turn-on-visual-line-mode)
+           (message-send-hook . (lambda () (unless (yes-or-no-p "Ya sure 'bout that?")
+                                             (signal 'quit nil))))))
 #+end_src
 Discourage Gnus from displaying HTML emails
 #+begin_src emacs-lisp
@@ -444,11 +446,6 @@ Some EWW enhancements.
 #+end_src
 ** IRC
 #+begin_src emacs-lisp
-  (use-package circe
-    :config
-    (enable-lui-track)
-    (enable-circe-color-nicks))
-
   (defun fetch-password (&rest params)
     (require 'auth-source)
     (let ((match (car (apply 'auth-source-search params))))
@@ -459,18 +456,22 @@ Some EWW enhancements.
               secret))
         (error "Password not found for %S" params))))
 
-  (setq circe-network-options
-        '(("pounce"
-           :host "irc.armaanb.net"
-           :nick "emacs"
-           :use-tls t
-           :port "6697"
-           :pass (lambda (fetch-password
-                          :login "emacs"
-                          :machine "irc.armaanb.net"
-                          :port 6697))))
-
-        (circe "pounce")
+  (use-package circe
+    :config
+    (enable-lui-track)
+    (enable-circe-color-nicks)
+    (circe "pounce")
+    :custom
+    (circe-network-options . '(("pounce"
+                                :host "irc.armaanb.net"
+                                :nick "emacs"
+                                :use-tls t
+                                :port "6697"
+                                :pass (lambda (fetch-password
+                                               :login "emacs"
+                                               :machine "irc.armaanb.net"
+                                               :port 6697)))))
+    (circe-default-part-message "goodbye!"))
 #+end_src
 * Emacs IDE
 ** Code cleanup
@@ -713,6 +714,14 @@ No more clogging up init.el.
               "0c" '0x0-upload-kill-ring
               "0p" '0x0-upload-popup))
 #+end_src
+** Automatically clean buffers
+#+begin_src emacs-lisp
+  ;; Don't kill Circe buffers
+  (add-to-list 'clean-buffer-list-kill-never-regexps (lambda (buffer-name)
+                                                       (with-current-buffer buffer-name
+                                                         (derived-mode-p 'lui-mode))))
+  (midnight-mode)
+#+end_src
 * Tangles
 ** Spectrwm
 *** General settings
@@ -917,8 +926,8 @@ No more clogging up init.el.
   alias grep='grep -in --color=auto'
   alias mkdir='mkdir -pv'
   alias lanex='java -jar ~/.local/share/lxc/lanxchange.jar'
-  alias vim=$EDITOR
-  alias emacs=$EDITOR
+  alias vim="$EDITOR &"
+  alias emacs="$EDITOR &"
 #+end_src
 **** System management
 #+begin_src shell :tangle ~/.config/ash/ashrc