Customize elfeed

1 files changed, 61 insertions, 55 deletions

@@ -2,6 +2,8 @@
 
 ;;; Code:
 
+(require 'elfeed)
+
 ;; https://karthinks.com/software/lazy-elfeed/
 (defun +elfeed-scroll-up-command (&optional arg)
   "Scroll up or go to next feed item in Elfeed"
@@ -37,73 +39,78 @@
   'ignore)
 
 (defvar +elfeed--update-running nil "Whether an update is currently running.")
+(defvar +elfeed--update-count 0 "How many times `+elfeed-update-command' has run.")
 
 (defun +elfeed-update-command ()
   (interactive)
-  (unless +elfeed--update-running
-    (let ((script (expand-file-name "~/.local/bin/elfeed-update.el"))
+  (unless (or +elfeed--update-running
+              (derived-mode-p 'elfeed-show-mode 'elfeed-search-mode))
+    (let ((script (expand-file-name "/tmp/elfeed-update.el"))
           (update-message-format "[Elfeed] Background update: %s"))
-      (message update-message-format "start")
       (setq +elfeed--update-running t)
       (elfeed-db-save)
       (advice-add 'elfeed :override #'+elfeed--update-message)
       (ignore-errors (kill-buffer "*elfeed-search*"))
       (ignore-errors (kill-buffer "*elfeed-log*"))
       (elfeed-db-unload)
-      (unless (file-exists-p script)
-        (make-directory (file-name-directory script) :parents)
-        (with-temp-buffer
-          (insert
-           (nconcat nil
-             "#!/usr/bin/env -S emacs --script"
-             "(setq lexical-binding t)"
-             ;; I have to load the necessary files
-             "(load (locate-user-emacs-file \"early-init\"))"
-             "(straight-use-package 'elfeed)"
-             "(straight-use-package 'elfeed-org)"
-             "(require 'elfeed)"
-             "(require 'elfeed-org)"
-             ;; And set needed variables
-             (let ((copy-environment))
-               (dolist (var '(rmh-elfeed-org-files
-                              elfeed-db-directory
-                              elfeed-curl-program-name
-                              elfeed-use-curl
-                              elfeed-curl-extra-arguments
-                              elfeed-enclosure-default-dir))
-                 (push (concat "(setq " (symbol-name var)
-                               " '" (prin1-to-string (symbol-value var)) ")\n")
-                       copy-environment))
-               (nreverse copy-environment))
-             ;; Overwrite log function to go to stdout
-             "(defun elfeed-log (level fmt &rest objects)"
-             "  (princ (format \"[%s] [%s]: %s\\n\""
-             "                 (format-time-string \"%F %T\")"
-             "                 level"
-             "                 (apply #'format fmt objects))))"
-             ;; Load elfeed
-             "(elfeed-org)"
-             "(elfeed-db-load)"
-             "(elfeed)"
-             ;; Update elfeed
-             "(elfeed-update)"
-             ;; Wait to finish ... I think.
-             "(while (> (elfeed-queue-count-total) 0)"
-             "  (sleep-for 5)"
-             "  (message \"%s\" (elfeed-queue-count-total))"
-             "  (accept-process-output))"
-             ;; Save and garbage-collect
-             "(elfeed-db-save)"
-             "(elfeed-db-gc)"))
-          (write-file script))
-        (chmod script #o777))
+      (make-directory (file-name-directory script) :parents)
+      (with-temp-buffer
+        (insert
+         (prin1-to-string ;; Print the following s-expression to a string
+          `(progn
+             ;; Set up the environment
+             (setq lexical-binding t)
+             (load (locate-user-emacs-file "early-init"))
+             (dolist (pkg '(elfeed elfeed-org))
+               (straight-use-package pkg)
+               (require pkg))
+             ;; Copy variables from current environment
+             (progn
+               ,@(cl-loop for copy-var in '(rmh-elfeed-org-files
+                                            elfeed-db-directory
+                                            elfeed-curl-program-name
+                                            elfeed-use-curl
+                                            elfeed-curl-extra-arguments
+                                            elfeed-enclosure-default-dir)
+                          collect `(progn (message "%S = %S" ',copy-var ',(symbol-value copy-var))
+                                          (setq ,copy-var ',(symbol-value copy-var)))))
+             ;; Define new variables for this environment
+             (progn
+               ,@(cl-loop for (new-var . new-val) in '((elfeed-curl-max-connections . 4))
+                          collect `(progn (message "%S = %S" ',new-var ',new-val)
+                                          (setq ,new-var ',new-val))))
+             ;; Redefine `elfeed-log' to log everything
+             (defun elfeed-log (level fmt &rest objects)
+               (princ (format "[%s] [%s]: %s\n"
+                              (format-time-string "%F %T")
+                              level
+                              (apply #'format fmt objects))))
+             ;; Run elfeed
+             (elfeed-org)
+             (elfeed)
+             (elfeed-db-load)
+             (elfeed-update)
+             ;; Wait for `elfeed-update' to finish
+             (while (> (elfeed-queue-count-total) 0)
+               (sleep-for 5)
+               (message "%s" (elfeed-queue-count-total))
+               (accept-process-output))
+             ;; Garbage collect and save the database
+             (elfeed-db-gc)
+             (elfeed-db-save)
+             (princ (format ,update-message-format "done.")))))
+        (write-file script))
+      (chmod script #o777)
+      (message update-message-format "start")
       (set-process-sentinel (start-process-shell-command
-                             "Elfeed" nil script)
-                            (lambda (a b)
+                             "Elfeed" "*+elfeed-update-background*"
+                             (format "nice -%d %s %s" 15 "emacs -Q --script" script))
+                            (lambda (proc stat)
                               (advice-remove 'elfeed #'+elfeed--update-message)
                               (setq +elfeed--update-running nil)
-                              (message update-message-format
-                                       (string-trim b)))))))
+                              (unless (string= stat "killed")
+                                (setq +elfeed--update-count (1+ +elfeed--update-count)))
+                              (message update-message-format (string-trim stat)))))))
 
 (defvar +elfeed--update-timer nil "Timer for `elfeed-update-command'.")
 (defvar +elfeed--update-first-time 6 "How long to wait for the first time.")
@@ -130,7 +137,6 @@
   :global t
   (if +elfeed-update-async-mode
       (progn                            ; enable
-        (+elfeed--cancel-update-timer) ; first disable any hangers-on
         (+elfeed--reinstate-update-timer)
         (advice-add 'elfeed :before '+elfeed--cancel-update-timer)
         (advice-add 'elfeed-search-quit-window :after '+elfeed--reinstate-update-timer))