emacs: Add new rss feeds, require ox-md

2 files changed, 16 insertions, 72 deletions

diff --git a/.emacs.d/init.el b/.emacs.d/init.el
index 59cb9e4..9e5f893 100644
--- a/.emacs.d/init.el
+++ b/.emacs.d/init.el
@@ -731,6 +731,8 @@ you have the correctly set the OPENAI_API_KEY variable"
 		      :height 1.0
 		      :foreground "#A66CFF"))
 
+(require 'ox-md nil t)
+
 (setq org-directory "~/org/"
       org-agenda-files '("~/org/agenda.org")
       org-default-notes-file (expand-file-name "notes.org" org-directory)
@@ -881,12 +883,13 @@ you have the correctly set the OPENAI_API_KEY variable"
 		     ("https://protesilaos.com/codelog.xml" Proetesilaos Coding)
 		     ("https://guix.gnu.org/feeds/blog.atom" Guix Blog)
 		     ("https://rss.nytimes.com/services/xml/rss/nyt/World.xml" NYT World)
-		     ("https://rss.nytimes.com/services/xml/rss/nyt/Technology.xml" NYT Tech)
 		     ("https://rss.nytimes.com/services/xml/rss/nyt/Science.xml" NYT Science)
-		     ("https://rss.nytimes.com/services/xml/rss/nyt/Health.xml" NYT Health))))
+		     ("https://rss.nytimes.com/services/xml/rss/nyt/Health.xml" NYT Health)
+		     ("https://drewdevault.com/blog/index.xml" DrewDeVault)
+		     ("http://lifehacker.com/index.xml" LifeHacker))))
 
-(setq elfeed-goodies/entry-pane-size 0.7)
-(add-hook 'elfeed-update 'elfeed-goodies/setup)
+(setq elfeed-goodies/entry-pane-size 0.65)
+(elfeed-goodies/setup)
 
 ;;Add pdf-isearch-minor-mode hook, otherwise isearch will be buggy
 ;;Darkmode hook, cause I don't want color or light in my life, I'm a vampire.
@@ -942,15 +945,12 @@ you have the correctly set the OPENAI_API_KEY variable"
   (setq mu4e-maildir-shortcuts
 	'(("/Fastmail/Inbox"             . ?i)
 	  ("/Fastmail/Sent" . ?s)
-	  ;; ("/Gmail/Trash"     . ?t)
-	  ;; ("/Gmail/Drafts"    . ?d)
-	  ;; ("/Gmail/[Gmail]/All Mail"  . ?a
 	  ))
 
   (setq mu4e-contexts
 	`(, (set-mu4e-context
 	     "Fastmail" "Thanos Apollo"
-	     "[email protected]" "Thanos\nhttps://thanosapollo.com/public"
+	     "[email protected]" "Thanos\nhttps://thanosapollo.com/public"
 	     "smtp.fastmail.com")))
 
   ;; (setq smtpmail-smtp-service 465
diff --git a/emacs.org b/emacs.org
index 1e7f679..029aa8a 100644
--- a/emacs.org
+++ b/emacs.org
@@ -841,6 +841,8 @@ Hook with ~dired-mode~
 #+end_src
 ** Settings
 #+begin_src emacs-lisp
+  (require 'ox-md nil t)
+
   (setq org-directory "~/org/"
 	org-agenda-files '("~/org/agenda.org")
 	org-default-notes-file (expand-file-name "notes.org" org-directory)
@@ -1018,12 +1020,13 @@ Hook with ~dired-mode~
 		       ("https://protesilaos.com/codelog.xml" Proetesilaos Coding)
 		       ("https://guix.gnu.org/feeds/blog.atom" Guix Blog)
 		       ("https://rss.nytimes.com/services/xml/rss/nyt/World.xml" NYT World)
-		       ("https://rss.nytimes.com/services/xml/rss/nyt/Technology.xml" NYT Tech)
 		       ("https://rss.nytimes.com/services/xml/rss/nyt/Science.xml" NYT Science)
-		       ("https://rss.nytimes.com/services/xml/rss/nyt/Health.xml" NYT Health))))
+		       ("https://rss.nytimes.com/services/xml/rss/nyt/Health.xml" NYT Health)
+		       ("https://drewdevault.com/blog/index.xml" DrewDeVault)
+		       ("http://lifehacker.com/index.xml" LifeHacker))))
 
-  (setq elfeed-goodies/entry-pane-size 0.7)
-  (add-hook 'elfeed-update 'elfeed-goodies/setup)
+  (setq elfeed-goodies/entry-pane-size 0.65)
+  (elfeed-goodies/setup)
 #+end_src
 * PDF
 #+begin_src emacs-lisp
@@ -1090,15 +1093,12 @@ In macOS, I have installed it through homebrew.
     (setq mu4e-maildir-shortcuts
 	  '(("/Fastmail/Inbox"             . ?i)
 	    ("/Fastmail/Sent" . ?s)
-	    ;; ("/Gmail/Trash"     . ?t)
-	    ;; ("/Gmail/Drafts"    . ?d)
-	    ;; ("/Gmail/[Gmail]/All Mail"  . ?a
 	    ))
 
     (setq mu4e-contexts
 	  `(, (set-mu4e-context
 	       "Fastmail" "Thanos Apollo"
-	       "[email protected]" "Thanos\nhttps://thanosapollo.com/public"
+	       "[email protected]" "Thanos\nhttps://thanosapollo.com/public"
 	       "smtp.fastmail.com")))
 
     ;; (setq smtpmail-smtp-service 465
@@ -1113,62 +1113,6 @@ In macOS, I have installed it through homebrew.
 
 #+end_src
 
-# ** Settings & Context setup
-# #+begin_src emacs-lisp
-#   (require 'mu4e)
-#   (setq mu4e-update-interval (* 10 60))
-#   (setq mu4e-get-mail-command "mbsync -a")
-#   (setq mu4e-maildir-list "~/Mail/Inbox")
-
-#   (defun set-mu4e-context (context-name full-name mail-address signature server)
-#     "Return a mu4e context named CONTEXT-NAME with :match-func matching
-#     folder name CONTEXT-NAME in Maildir. The context's `user-mail-address',
-#     `user-full-name' and `mu4e-compose-signature'`smtpmail-smpt-server' is set to MAIL-ADDRESS
-#     FULL-NAME SIGNATURE and SERVER respectively.
-#     Special folders are set to context specific folders."
-#     (let ((dir-name (concat "/" context-name)))
-#       (make-mu4e-context
-#        :name context-name
-#        ;; we match based on the maildir of the message
-#        :match-func
-#        `(lambda (msg)
-# 	  (when msg
-# 	    (string-match-p
-# 	     ,(concat "^" dir-name)
-# 	     (mu4e-message-field msg :maildir))))
-#        :vars
-#        `((user-mail-address    . ,mail-address)
-# 	 (user-full-name       . ,full-name)
-# 	 (mu4e-sent-folder     . ,(concat dir-name "/Sent"))
-# 	 (mu4e-drafts-folder   . ,(concat dir-name "/Drafts"))
-# 	 (mu4e-trash-folder    . ,(concat dir-name "/Trash"))
-# 	 (mu4e-trash-folder    . ,(concat dir-name "/Starred"))
-# 	 (mu4e-refile-folder   . ,(concat dir-name "/Archive"))
-# 	 (smtpmail-smtp-service . ,465)
-# 	 (smtpmail-smtp-server . ,server)
-# 	 (mu4e-compose-signature . ,signature)))))
-
-#   ;;Fixing duplicate UID errors when using mbsync and mu4e
-#   (setq mu4e-change-filenames-when-moving t)
-#   ;; Messaging
-#   (setq message-send-mail-function 'smtpmail-send-it
-# 	smtpmail-stream-type 'ssl)
-# #+end_src
-# ** Shortcuts
-# #+begin_src emacs-lisp
-# (setq mu4e-maildir-shortcuts
-#       '(("/Fastmail/Inbox"             . ?i)
-#         ("/Fastmail/Sent" . ?s)
-# 	))
-# #+end_src
-# ** Contexts
-# #+begin_src emacs-lisp
-#   (setq mu4e-contexts
-# 	`(, (set-mu4e-context
-# 	     "Fastmail" "Thanos Apollo"
-# 	     "[email protected]" "Thanos\nhttps://thanosapollo.com/public"
-# 	     "smtp.fastmail.com")))
-# #+end_src
 * EXWM
 EXWM configuration is tangled with ~.exwm~
 + In GuixSD ~emacs-exwm~ package will look for ~~/.exwm~