emacs: gnus: subscribe to help-guix

[~bandali/configs] / .emacs.d / init.el

diff --git a/.emacs.d/init.el b/.emacs.d/init.el
index b05904f..fe8502f 100644 (file)
--- a/.emacs.d/init.el
+++ b/.emacs.d/init.el
@@ -1222,7 +1222,8 @@ For disabling the behaviour for certain buffers and/or modes."
   :commands (sml/apply-theme)
   :demand
   :config
-  (sml/setup))
+  (sml/setup)
+  (smart-mode-line-enable))
 
 (use-package doom-themes)
 
@@ -1336,10 +1337,22 @@ For disabling the behaviour for certain buffers and/or modes."
          ("<end>"  . mwim-end-of-line-or-code)))
 
 (use-package projectile
+  :defer 0.5
   :bind-keymap ("C-c P" . projectile-command-map)
   :config
   (projectile-mode)
 
+  (defun a/projectile-mode-line-fun ()
+  "Report project name and type in the modeline."
+  (let ((project-name (projectile-project-name))
+        (project-type (projectile-project-type)))
+    (format "%s%s"
+            projectile-mode-line-prefix
+            (if project-type
+                (format ":%s" project-type)
+              ""))))
+  (setq projectile-mode-line-function 'a/projectile-mode-line-fun)
+
   (defun my-projectile-invalidate-cache (&rest _args)
     ;; ignore the args to `magit-checkout'
     (projectile-invalidate-cache nil))
@@ -1646,6 +1659,7 @@ For disabling the behaviour for certain buffers and/or modes."
                                  (list ".*guile-devel.gnu.org" "l.gnu.guile.devel")
                                  (list ".*guile-user.gnu.org" "l.gnu.guile.user")
                                  (list ".*guix-devel.gnu.org" "l.gnu.guix.devel")
+                                 (list ".*help-guix.gnu.org" "l.gnu.guix.help")
                                  (list ".*info-guix.gnu.org" "l.gnu.guix.info")
                                  (list ".*savannah-hackers-public.gnu.org" "l.gnu.savannah.hackers.public")
                                  (list ".*savannah-users.gnu.org" "l.gnu.savannah.users")
@@ -1742,6 +1756,9 @@ For disabling the behaviour for certain buffers and/or modes."
      ("l\\.gnu\\.guix\\.devel"
       (to-address . "guix-devel@gnu.org")
       (to-list    . "guix-devel@gnu.org"))
+     ("l\\.gnu\\.guix\\.help"
+      (to-address . "help-guix@gnu.org")
+      (to-list    . "help-guix@gnu.org"))
      ("l\\.gnu\\.guix\\.info"
       (to-address . "info-guix@gnu.org")
       (to-list    . "info-guix@gnu.org"))
@@ -1877,7 +1894,7 @@ https://csclub.uwaterloo.ca/~abandali/")
            (eval (set (make-local-variable 'message-user-fqdn) "fencepost.gnu.org")))
           ((header "subject" "ThankCRM")
            (to "webmasters-comment@gnu.org")
-           (body "Added  to 2019supporters.html.\n\nMoving to campaigns.\n")
+           (body "")
            (eval (setq a/message-cite-say-hi nil)))
           ("nnimap\\+uw:.*"
            (address "abandali@uwaterloo.ca")