+keybindings.el

@@ -10,6 +10,9 @@
 ;; Map elfeed to global keybinding
 (map! :leader :n "o e" #'=rss
       :desc "RSS reader")
+;; Map wallabag to global keybinding
+(map! :leader :n "o w" #'=wallabag
+      :desc "Read saved articles")
 ;; Keybindings for org-noter
 (map! :mode pdf-view-mode
       :n "i" #'org-noter-insert-note

+rss.el

@@ -1,30 +0,0 @@
-;;; +rss.el -*- lexical-binding: t; -*-
-;; Elfeed configuration
-;;
-;; Synchronize elfeed with Miniflux
-(setq elfeed-use-curl t
-      elfeed-protocol-feeds (list
-                             (list "fever+https://coolneng@rss.coolneng.duckdns.org"
-                                   :api-url "https://rss.coolneng.duckdns.org/fever/"
-                                   :password (auth-source-pass-get 'secret "api/miniflux")))
-      elfeed-sort-order 'ascending
-      elfeed-search-filter "@all +unread"
-      elfeed-goodies/tag-column-width 0)
-(elfeed-protocol-enable)
-;; Update RSS feeds on startup
-(add-hook! 'elfeed-search-mode-hook 'elfeed-update)
-;; Use different font and show article in fullscreen
-(setq elfeed-show-entry-switch #'switch-to-buffer)
-(defadvice! +rss-elfeed-wrap-h-nicer ()
-  "Enhances an elfeed entry's readability by wrapping it to a width of
-`fill-column' and centering it with `visual-fill-column-mode'."
-  :override #'+rss-elfeed-wrap-h
-  (setq-local truncate-lines nil
-              shr-width 160
-              visual-fill-column-center-text t
-              default-text-properties '(line-height 1.1))
-  (let ((inhibit-read-only t)
-        (inhibit-modification-hooks t))
-    (visual-fill-column-mode)
-    (setq-local shr-current-font '(:family "Lato" :height 1.1))
-    (set-buffer-modified-p nil)))

config.el

@@ -88,8 +88,61 @@
 (setq display-line-numbers-type 'relative)
 ;; Use pass as auth-source
 (add-to-list 'auth-sources 'password-store)
-;; Set up RSS reader
-(after! elfeed (load! "+rss"))
+;; Set up wallabag
+(after! wallabag
+  (setq wallabag-host "https://wallabag.coolneng.duckdns.org"
+        wallabag-username "coolneng"
+        wallabag-password (auth-source-pass-get 'secret "api/wallabag")
+        wallabag-clientid (auth-source-pass-get "clientid" "api/wallabag")
+        wallabag-secret (auth-source-pass-get "api-secret" "api/wallabag")
+        wallabag-show-sidebar 't
+        wallabag-show-entry-switch 'switch-to-buffer
+        url-automatic-caching t)
+  (add-hook! 'wallabag-after-render-hook 'wallabag-search-update-and-clear-filter))
+(add-hook! 'doom-real-buffer-functions
+  (defun +rss-buffer-p (buf)
+    (string-match-p "^\\*wallabag" (buffer-name buf))))
+(defvar +wallabag-workspace-name "*wallabag*")
+(defun =wallabag ()
+  "Activate (or switch to) `wallabag' in its workspace."
+  (interactive)
+  (if (modulep! :ui workspaces)
+      (progn
+        (+workspace-switch +wallabag-workspace-name t)
+        (doom/switch-to-scratch-buffer)
+        (wallabag)
+        (+workspace/display))
+    (setq +wallabag--wconf (current-window-configuration))
+    (delete-other-windows)
+    (switch-to-buffer (doom-fallback-buffer))
+    (wallabag)))
+;; Set up elfeed
+(after! elfeed
+  (setq elfeed-use-curl t)
+  (setq elfeed-protocol-feeds (list
+                               (list "fever+https://coolneng@rss.coolneng.duckdns.org"
+                                     :api-url "https://rss.coolneng.duckdns.org/fever/"
+                                     :password (auth-source-pass-get 'secret "api/miniflux"))))
+  (setq elfeed-sort-order 'ascending
+        elfeed-search-filter "@all +unread"
+        elfeed-goodies/tag-column-width 0)
+  (elfeed-protocol-enable)
+  (add-hook! 'elfeed-search-mode-hook 'elfeed-update)
+  ;; Use different font and show article in fullscreen
+  (setq elfeed-show-entry-switch #'switch-to-buffer)
+  (defadvice! +rss-elfeed-wrap-h-nicer ()
+    "Enhances an elfeed entry's readability by wrapping it to a width of
+`fill-column' and centering it with `visual-fill-column-mode'."
+    :override #'+rss-elfeed-wrap-h
+    (setq-local truncate-lines nil
+                shr-width 160
+                visual-fill-column-center-text t
+                default-text-properties '(line-height 1.1))
+    (let ((inhibit-read-only t)
+          (inhibit-modification-hooks t))
+      (visual-fill-column-mode)
+      (setq-local shr-current-font '(:family "Lato" :height 1.1))
+      (set-buffer-modified-p nil))))
 ;; Set up the mail stack
 (after! mu4e (load! "+mail"))
 ;; HACK Enable AOT native compilation

packages.el

@@ -9,6 +9,8 @@
 (package! org-super-agenda)
 ;; Save recipes to org file
 (package! org-chef)
+;; Wallabag client
+(package! wallabag :recipe (:host github :repo "chenyanming/wallabag.el" :files ("*.el" "*.alist" "*.css")))
 ;; Miniflux integration for elfeed
 (package! elfeed-protocol)
 ;; Prettier LaTeX source blocks