Bug fixes and email settings

guix/init.org

@@ -83,6 +83,7 @@ I don't use straight for much currently, but needed it in order to install beanc
   (use-package pass)
   (use-package password-store)
   (pinentry-start)
+  (auth-source-pass-enable)
 #+end_src
 ** Variables
 Things referenced throughout the config which are specific to me
@@ -318,7 +319,7 @@ Setting this in the :init of evil doesn't work for some reason. It has to be ear
 	  ("*scratch*"           :align left  :select t  :size 0.25 :popup t)
 	  (treemacs-mode         :align left  :select t  :size 0.40 :popup t)
 	  ("*Messages*"          :align right :select t  :size 0.25 :popup t))
-	'(:select t))  ;; Always select newly created windows
+	default-shackle-rule '(:select t))  ;; Always select newly created windows
 #+end_src
 ** Popper
 #+begin_src emacs-lisp
@@ -653,9 +654,9 @@ I know these could be bound on a per-package basis, but since this is my primary
 
       ;; Reference buffers
       "r"  '(:ignore t :which-key "reference buffers")
-      "s" '(scratch-buffer           :which-key "Scratch")
-      "m" '(view-echo-area-messages  :which-key "Messages")
-      "c" '(view-lossage             :which-key "Commands History")
+      "rs" '(scratch-buffer           :which-key "Scratch")
+      "rm" '(view-echo-area-messages  :which-key "Messages")
+      "rc" '(view-lossage             :which-key "Commands History")
 
       ;; Shell
       "s"  '(:ignore t :which-key "shell")
@@ -693,6 +694,9 @@ I know these could be bound on a per-package basis, but since this is my primary
       ))
 #+end_src
 
+#+RESULTS:
+: t
+
 * Notes
 #+begin_src emacs-lisp
   (use-package deft)
@@ -1079,6 +1083,70 @@ Uses the external fish program to provide fish-style completions to eshell etc
 
 #+end_src
 
+* Email, rss, newsgroups
+Oh, boy. Here we go.
+[[https://www.gnu.org/software/emacs/manual/html_node/auth][This]] will come in handy.
+(=TODO=: smtp header)
+#+begin_src emacs-lisp
+
+  (setq user-mail-address "ian@keane.sh"
+	user-full-name "Ian Keane")
+
+  ;; Assuming your passwords are stored in Password Store with names like:
+  ;; "email/fastmail" and "email/gmail"
+
+  ;; IMAP configuration for Fastmail
+
+  (setq gnus-select-method
+	'(nnimap "Fastmail-emacs"
+		 (nnimap-user "ian@keane.sh")
+		 (nnimap-address "imap.fastmail.com")
+		 (nnimap-server-port 993)
+		 (nnimap-stream ssl)))
+
+
+  ;; Additional secondary IMAP account for Gmail
+  ;; (add-to-list 'gnus-secondary-select-methods
+  ;; 	     '(nnimap "Gmail"
+  ;; 		      (nnimap-address "imap.gmail.com")
+  ;; 		      (nnimap-server-port 993)
+  ;; 		      (nnimap-stream ssl)
+  ;; 		      (nnimap-authinfo-file nil)  ; Not using .authinfo for Gmail
+  ;; 		      (nnir-search-engine imap)
+  ;; 		      (nnimap-authenticator login)
+  ;; 		      (nnimap-login "your-gmail-username") ; Replace with your Gmail username
+  ;; 		      (nnimap-password (password-store-get "email/gmail"))))
+
+  (setq send-mail-function 'smtpmail-send-it
+	message-send-mail-function 'smtpmail-send-it
+	smtpmail-default-smtp-server "smtp.fastmail.com"
+	smtpmail-smtp-server "smtp.fastmail.com"
+	smtpmail-smtp-service 587
+	smtpmail-stream-type 'starttls
+	smtpmail-smtp-user "ian@keane.sh"
+	smtpmail-debug-info t)
+
+  ;; You may also want to add a conditional to choose the SMTP server based on the current 'From' address.
+
+  ;; RSS Feeds
+  ;; (add-to-list 'gnus-secondary-select-methods '(nnrss ""))
+
+  ;; Configure RSS feed subscriptions
+  ;; (setq gnus-secondary-sources
+  ;;       '((nnrss "http://example.com/rss") ; replace with actual RSS URL
+  ;;         ;; Add more RSS feeds here
+  ;;         ))
+
+
+  ;; Use Gnus for composing email
+  (setq mail-user-agent 'gnus-user-agent)
+
+  ;; Set up HTML email rendering
+  (setq mm-text-html-renderer 'shr)
+
+  (require 'all-the-icons-gnus)
+  (all-the-icons-gnus-setup)
+#+end_src
 * Emacs Meta
 ** Explain-Pause
 Scrutinize which processes are gumming up emacs