yasnippit, initial gnus configuration

4 files changed, 70 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