(use-feature recentf
:defer 0.2
:config
- (add-to-list 'recentf-exclude "^/\\(?:ssh\\|su\\|sudo\\)?:")
- (setq recentf-max-saved-items 40))
+ ;; (add-to-list 'recentf-exclude "^/\\(?:ssh\\|su\\|sudo\\)?:")
+ (setq recentf-max-saved-items 2000))
;; smart M-x enhancement (needed by counsel for history)
(use-package smex)
:commands (sml/apply-theme)
:demand
:config
- (sml/setup))
+ (sml/setup)
+ (smart-mode-line-enable))
(use-package doom-themes)
("<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))
(nnimap-inbox "INBOX")
(nnimap-split-methods 'nnimap-split-fancy)
(nnimap-split-fancy (|
- (: gnus-registry-split-fancy-with-parent)
+ ;; (: gnus-registry-split-fancy-with-parent)
;; (: gnus-group-split-fancy "INBOX" t "INBOX")
;; gnu
(list ".*emacs-devel.gnu.org" "l.gnu.emacs.devel")
(list ".*bug-gnuzilla.gnu.org" "l.gnu.gnuzilla.bug")
(list ".*gnuzilla-dev.gnu.org" "l.gnu.gnuzilla.dev")
(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")
(nnimap-inbox "INBOX")
(nnimap-split-methods 'nnimap-split-fancy)
(nnimap-split-fancy (|
- (: gnus-registry-split-fancy-with-parent)
+ ;; (: gnus-registry-split-fancy-with-parent)
;; se463-s19
("subject" "\\(SE\\s-?463\\|Deliverable\\)" "course.se463-s19")
(from "\\(SE\\s-?463\\|Gema\\|Hemant\\|Davood\\|Camilo\\|Reza\\|Michael\\|Sandy\\)" "course.se463-s19")
("l\\.gnu\\.guile\\.devel"
(to-address . "guile-devel@gnu.org")
(to-list . "guile-devel@gnu.org"))
+ ("l\\.gnu\\.guile\\.user"
+ (to-address . "guile-user@gnu.org")
+ (to-list . "guile-user@gnu.org"))
("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"))
(require 'ebdb-mua)
(require 'ebdb-gnus)
- (gnus-registry-initialize)
+ ;; (gnus-registry-initialize)
(with-eval-after-load 'recentf
(add-to-list 'recentf-exclude gnus-home-directory)))
(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")
(use-feature erc-track
:after erc
:custom
+ (erc-track-enable-keybindings nil)
(erc-track-exclude-types '("JOIN" "MODE" "NICK" "PART" "QUIT"
"324" "329" "332" "333" "353" "477"))
(erc-track-priority-faces-only 'all)