Add elfeed

modules/org.el

@@ -1,4 +1,4 @@
-;;; org.el --- Module file for org-mode configuration.
+;;; org.el --- Module file for org-mode and org-like package configuration.
 ;;
 ;; Copyright (C) 2017-2019 Wojciech Kozlowski
 ;;
@@ -20,7 +20,8 @@
 
 (defvar emodule/org-packages
 
-  '(org-bullets
+  '(elfeed
+    org-bullets
     org-noter)
 
   )
@@ -30,6 +31,23 @@
 (defun emodule/org-init ()
   "Initialise the `org' module."
 
+  ;; --------------------------------------------------------------------------
+  ;; `elfeed'
+  ;; --------------------------------------------------------------------------
+
+  (use-package elfeed
+    :bind
+    (("C-x w" . elfeed))
+    :config
+    (let ((elfeed-feeds-file "~/Workspace/rss.xml"))
+      (when (file-exists-p elfeed-feeds-file)
+        (elfeed-load-opml elfeed-feeds-file)
+        (run-at-time nil 3600 'elfeed-update))))
+
+  ;; --------------------------------------------------------------------------
+  ;; `org'
+  ;; --------------------------------------------------------------------------
+
   (use-package org
     :hook
     (org-mode . auto-fill-mode)

themes/havoc-common.el

@@ -438,6 +438,40 @@
 
        ))
 
+    ;; ------------------------------------------------------------------------
+    ;; Messages.
+    ;; ------------------------------------------------------------------------
+
+    (let ((*header-name*    *head-2*)
+          (*header-subject* *name*)
+          (*header-other*   *head-1*))
+
+      (custom-theme-set-faces
+       theme-name
+
+       `(message-header-name ((t (:foreground ,*header-name* :weight bold))))
+       `(message-header-subject ((t (:foreground ,*header-subject* :weight bold :height 1.25))))
+       `(message-header-other ((t (:foreground ,*header-other* :weight bold))))
+
+       ))
+
+    ;; ------------------------------------------------------------------------
+    ;; Elfeed.
+    ;; ------------------------------------------------------------------------
+
+    (let ((*search-date* *normal-standout*)
+          (*search-feed* *name*)
+          (*search-tag*  *normal-standout*))
+
+      (custom-theme-set-faces
+       theme-name
+
+       `(elfeed-search-date-face ((t (:foreground ,*search-date*))))
+       `(elfeed-search-feed-face ((t (:foreground ,*search-feed*))))
+       `(elfeed-search-tag-face ((t (:foreground ,*search-tag* :weight bold))))
+
+       ))
+
     ;; ------------------------------------------------------------------------
     ;; Diff.
     ;; ------------------------------------------------------------------------