diff options
| -rw-r--r-- | .config/emacs/gnus.el | 46 | ||||
| -rw-r--r-- | .config/emacs/init.el | 15 | ||||
| -rw-r--r-- | .config/emacs/modules/bd--devel.el | 8 | ||||
| -rw-r--r-- | .config/guix/modules/emacs.scm | 5 | ||||
| -rw-r--r-- | .gitignore | 1 |
5 files changed, 71 insertions, 4 deletions
diff --git a/.config/emacs/gnus.el b/.config/emacs/gnus.el new file mode 100644 index 0000000..caf93f6 --- /dev/null +++ b/.config/emacs/gnus.el @@ -0,0 +1,46 @@ +;; -*- lexical-binding: t; -*- + +(require 'gnus) +(require 'gnus-util) + + +(setopt gnus-dbus-close-on-sleep t + gnus-interactive-exit nil + + ;;news + gnus-check-new-newsgroups nil + gnus-large-newsgroup 200) + +(setopt gnus-select-method '(nnnil "")) +(setopt gnus-secondary-select-methods + '((nntp "news.gwene.org") + (nnmaildir "personal" + (directory "~/.ml/personal") + (gnus-search-engine gnus-search-notmuch + (remove-prefix "~/.ml/personal"))) + (nnmaildir "umass" + (directory "~/.ml/umass") + (gnus-search-engine gnus-search-notmuch + (remove-prefix "~/.ml/umass"))) + (nnmaildir "gmail" + (directory "~/.ml/gmail") + (gnus-search-engine gnus-search-notmuch + (remove-prefix "~/.ml/gmail"))))) + + +(setopt gnus-face-3 'calendar-today + gnus-face-4 'calendar-weekend-header + gnus-face-5 'calendar-weekday-header) + +(setopt gnus-summary-line-format + (concat + "%0{%U%R%z%}" + "%4{%-11,11&user-date;%}" + " " + "%2{%-20,20n%}" ;; name + " " + " " + "%5{%B%}" + "%s\n")) + +(require 'gnus-dired) diff --git a/.config/emacs/init.el b/.config/emacs/init.el index edbf190..29edaa1 100644 --- a/.config/emacs/init.el +++ b/.config/emacs/init.el @@ -23,6 +23,20 @@ (setopt warning-minimum-level :error) +;;;; gnus +(setopt readmail-command 'gnus + mail-user-agent 'gnus-user-agent + + gnus-init-file (expand-file-name "gnus" user-emacs-directory) + gnus-home-directory (expand-file-name "gnus-home" user-emacs-directory) + gnus-directory (expand-file-name "News" gnus-home-directory) + mail-source-directory (expand-file-name "Mail" gnus-home-directory) + + ;; gnus forever + gnus-save-newsrc-file nil + gnus-read-newsrc-file nil) + + ;;;; configure packages ;; external package manager (setopt package-archives nil @@ -59,6 +73,7 @@ (require 'bd--org) (require 'bd--roam) (require 'bd--emms) +(require 'bd--mail) ;; (gitignored) (require 'bd--notmuch) ;; (gitignored) (require 'bd--modeline) (require 'bd--themes) diff --git a/.config/emacs/modules/bd--devel.el b/.config/emacs/modules/bd--devel.el index e13a368..561139d 100644 --- a/.config/emacs/modules/bd--devel.el +++ b/.config/emacs/modules/bd--devel.el @@ -31,8 +31,10 @@ to.") buffer-file-name)))) -(setq compilation-always-kill t) +(setq compilation-always-kill t + compilation-scroll-output 'first-error) (keymap-set prog-mode-map "C-," #'recompile) +(keymap-set prog-mode-map "C-<" #'compile) (add-hook 'prog-mode-hook (lambda () (font-lock-add-keywords @@ -50,6 +52,10 @@ to.") (use-package rainbow-mode :hook css-mode) +(use-package yasnippet + :init + (yas-global-mode 1)) + (use-package magit :commands magit-status :custom diff --git a/.config/guix/modules/emacs.scm b/.config/guix/modules/emacs.scm index de75e9d..932530c 100644 --- a/.config/guix/modules/emacs.scm +++ b/.config/guix/modules/emacs.scm @@ -30,11 +30,8 @@ emacs-consult emacs-ef-themes emacs-emms - emacs-f ;; tmp emacs-guix emacs-htmlize - emacs-hydra ;;tmp - emacs-loop ;;tmp emacs-magit emacs-marginalia emacs-notmuch @@ -51,6 +48,8 @@ emacs-transmission emacs-vertico emacs-visual-fill-column + emacs-yasnippet + emacs-yasnippet-snippets ;; associative aspell @@ -11,3 +11,4 @@ /.config/emacs/eshell/alias /.notmuch-config /.config/emacs/eshell/ +/.config/emacs/modules/bd--mail.el |