Change logic in +elfeed

author: Case Duckworth 2022-02-08 14:15:43 -0600
committer: Case Duckworth 2022-02-08 14:15:43 -0600
commit: 2a16bbd8db063ec2272a057262891328a267b129 (patch)
tree: ae29bfe99654f52d8cdc360cb0f0eba1d9d1fca7 /lisp/+elfeed.el
parent: Make +tab-bar-{emms,bongo} work when those libraries aren't loaded (diff)
download: emacs-2a16bbd8db063ec2272a057262891328a267b129.tar.gz
emacs-2a16bbd8db063ec2272a057262891328a267b129.zip
1 files changed, 69 insertions, 64 deletions
diff --git a/lisp/+elfeed.el b/lisp/+elfeed.el
index f669afd..8a0376d 100644
--- a/lisp/+elfeed.el
+++ b/lisp/+elfeed.el

@@ -40,69 +40,70 @@
 (defun +elfeed-update-command ()
  (interactive)
-  (let ((script (expand-file-name "~/.local/bin/elfeed-update.el"))
+  (unless +elfeed--update-running
-        (update-message-format "[Elfeed] Background update: %s"))
+    (let ((script (expand-file-name "~/.local/bin/elfeed-update.el"))
-    (message update-message-format "start")
+          (update-message-format "[Elfeed] Background update: %s"))
-    (setq +elfeed--update-running t)
+      (message update-message-format "start")
-    (elfeed-db-save)
+      (setq +elfeed--update-running t)
-    (advice-add 'elfeed :override #'+elfeed--update-message)
+      (elfeed-db-save)
-    (ignore-errors (kill-buffer "*elfeed-search*"))
+      (advice-add 'elfeed :override #'+elfeed--update-message)
-    (ignore-errors (kill-buffer "*elfeed-log*"))
+      (ignore-errors (kill-buffer "*elfeed-search*"))
-    (elfeed-db-unload)
+      (ignore-errors (kill-buffer "*elfeed-log*"))
-    (unless (file-exists-p script)
+      (elfeed-db-unload)
-      (make-directory (file-name-directory script) :parents)
+      (unless (file-exists-p script)
-      (with-temp-buffer
+        (make-directory (file-name-directory script) :parents)
-        (insert
+        (with-temp-buffer
-         (nconcat nil
+          (insert
-           "#!/usr/bin/env -S emacs --script"
+           (nconcat nil
-           "(setq lexical-binding t)"
+             "#!/usr/bin/env -S emacs --script"
-           ;; I have to load the necessary files
+             "(setq lexical-binding t)"
-           "(load (locate-user-emacs-file \"early-init\"))"
+             ;; I have to load the necessary files
-           "(straight-use-package 'elfeed)"
+             "(load (locate-user-emacs-file \"early-init\"))"
-           "(straight-use-package 'elfeed-org)"
+             "(straight-use-package 'elfeed)"
-           "(require 'elfeed)"
+             "(straight-use-package 'elfeed-org)"
-           "(require 'elfeed-org)"
+             "(require 'elfeed)"
-           ;; And set needed variables
+             "(require 'elfeed-org)"
-           (let ((copy-environment))
+             ;; And set needed variables
-             (dolist (var '(rmh-elfeed-org-files
+             (let ((copy-environment))
-                            elfeed-db-directory
+               (dolist (var '(rmh-elfeed-org-files
-                            elfeed-curl-program-name
+                              elfeed-db-directory
-                            elfeed-use-curl
+                              elfeed-curl-program-name
-                            elfeed-curl-extra-arguments
+                              elfeed-use-curl
-                            elfeed-enclosure-default-dir))
+                              elfeed-curl-extra-arguments
-               (push (concat "(setq " (symbol-name var)
+                              elfeed-enclosure-default-dir))
-                             " '" (prin1-to-string (symbol-value var)) ")\n")
+                 (push (concat "(setq " (symbol-name var)
-                     copy-environment))
+                               " '" (prin1-to-string (symbol-value var)) ")\n")
-             (nreverse copy-environment))
+                       copy-environment))
-           ;; Overwrite log function to go to stdout
+               (nreverse copy-environment))
-           "(defun elfeed-log (level fmt &rest objects)"
+             ;; Overwrite log function to go to stdout
-           "  (princ (format \"[%s] [%s]: %s\\n\""
+             "(defun elfeed-log (level fmt &rest objects)"
-           "                 (format-time-string \"%F %T\")"
+             "  (princ (format \"[%s] [%s]: %s\\n\""
-           "                 level"
+             "                 (format-time-string \"%F %T\")"
-           "                 (apply #'format fmt objects))))"
+             "                 level"
-           ;; Load elfeed
+             "                 (apply #'format fmt objects))))"
-           "(elfeed-org)"
+             ;; Load elfeed
-           "(elfeed-db-load)"
+             "(elfeed-org)"
-           "(elfeed)"
+             "(elfeed-db-load)"
-           ;; Update elfeed
+             "(elfeed)"
-           "(elfeed-update)"
+             ;; Update elfeed
-           ;; Wait to finish ... I think.
+             "(elfeed-update)"
-           "(while (> (elfeed-queue-count-total) 0)"
+             ;; Wait to finish ... I think.
-           "  (sleep-for 5)"
+             "(while (> (elfeed-queue-count-total) 0)"
-           "  (message \"%s\" (elfeed-queue-count-total))"
+             "  (sleep-for 5)"
-           "  (accept-process-output))"
+             "  (message \"%s\" (elfeed-queue-count-total))"
-           ;; Save and garbage-collect
+             "  (accept-process-output))"
-           "(elfeed-db-save)"
+             ;; Save and garbage-collect
-           "(elfeed-db-gc)"))
+             "(elfeed-db-save)"
-        (write-file script))
+             "(elfeed-db-gc)"))
-      (chmod script #o777))
+          (write-file script))
-    (set-process-sentinel (start-process-shell-command
+        (chmod script #o777))
-                           "Elfeed" nil script)
+      (set-process-sentinel (start-process-shell-command
-                          (lambda (a b)
+                             "Elfeed" nil script)
-                            (advice-remove 'elfeed #'+elfeed--update-message)
+                            (lambda (a b)
-                            (setq +elfeed--update-running nil)
+                              (advice-remove 'elfeed #'+elfeed--update-message)
-                            (message update-message-format
+                              (setq +elfeed--update-running nil)
-                                     (string-trim b))))))
+                              (message update-message-format
+                                       (string-trim b)))))))
 (defvar +elfeed--update-timer nil "Timer for `elfeed-update-command'.")
 (defvar +elfeed--update-first-time 6 "How long to wait for the first time.")
@@ -116,16 +117,20 @@
 (defun +elfeed--reinstate-update-timer ()
  "Reinstate `+elfeed--update-timer'."
+  ;; First, unload the db
+  (elfeed-db-save)
+  (elfeed-db-unload)
  (setq +elfeed--update-timer
        (run-at-time +elfeed--update-first-time
                     +elfeed--update-repeat
                     #'+elfeed-update-command)))
 (define-minor-mode +elfeed-update-async-mode
-  "Minor mode to update elfeed async-style every 15 minutes."
+  "Minor mode to update elfeed async-style."
  :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))
author	Case Duckworth	2022-02-08 14:15:43 -0600
committer	Case Duckworth	2022-02-08 14:15:43 -0600
commit	2a16bbd8db063ec2272a057262891328a267b129 (patch)
tree	ae29bfe99654f52d8cdc360cb0f0eba1d9d1fca7 /lisp/+elfeed.el
parent	Make +tab-bar-{emms,bongo} work when those libraries aren't loaded (diff)
download	emacs-2a16bbd8db063ec2272a057262891328a267b129.tar.gz emacs-2a16bbd8db063ec2272a057262891328a267b129.zip

diff --git a/lisp/+elfeed.el b/lisp/+elfeed.el index f669afd..8a0376d 100644 --- a/lisp/+elfeed.el +++ b/lisp/+elfeed.el
@@ -40,69 +40,70 @@
40		40
41	(defun +elfeed-update-command ()	41	(defun +elfeed-update-command ()
42	(interactive)	42	(interactive)
43	(let ((script (expand-file-name "~/.local/bin/elfeed-update.el"))	43	(unless +elfeed--update-running
44	(update-message-format "[Elfeed] Background update: %s"))	44	(let ((script (expand-file-name "~/.local/bin/elfeed-update.el"))
45	(message update-message-format "start")	45	(update-message-format "[Elfeed] Background update: %s"))
46	(setq +elfeed--update-running t)	46	(message update-message-format "start")
47	(elfeed-db-save)	47	(setq +elfeed--update-running t)
48	(advice-add 'elfeed :override #'+elfeed--update-message)	48	(elfeed-db-save)
49	(ignore-errors (kill-buffer "elfeed-search"))	49	(advice-add 'elfeed :override #'+elfeed--update-message)
50	(ignore-errors (kill-buffer "elfeed-log"))	50	(ignore-errors (kill-buffer "elfeed-search"))
51	(elfeed-db-unload)	51	(ignore-errors (kill-buffer "elfeed-log"))
52	(unless (file-exists-p script)	52	(elfeed-db-unload)
53	(make-directory (file-name-directory script) :parents)	53	(unless (file-exists-p script)
54	(with-temp-buffer	54	(make-directory (file-name-directory script) :parents)
55	(insert	55	(with-temp-buffer
56	(nconcat nil	56	(insert
57	"#!/usr/bin/env -S emacs --script"	57	(nconcat nil
58	"(setq lexical-binding t)"	58	"#!/usr/bin/env -S emacs --script"
59	;; I have to load the necessary files	59	"(setq lexical-binding t)"
60	"(load (locate-user-emacs-file \"early-init\"))"	60	;; I have to load the necessary files
61	"(straight-use-package 'elfeed)"	61	"(load (locate-user-emacs-file \"early-init\"))"
62	"(straight-use-package 'elfeed-org)"	62	"(straight-use-package 'elfeed)"
63	"(require 'elfeed)"	63	"(straight-use-package 'elfeed-org)"
64	"(require 'elfeed-org)"	64	"(require 'elfeed)"
65	;; And set needed variables	65	"(require 'elfeed-org)"
66	(let ((copy-environment))	66	;; And set needed variables
67	(dolist (var '(rmh-elfeed-org-files	67	(let ((copy-environment))
68	elfeed-db-directory	68	(dolist (var '(rmh-elfeed-org-files
69	elfeed-curl-program-name	69	elfeed-db-directory
70	elfeed-use-curl	70	elfeed-curl-program-name
71	elfeed-curl-extra-arguments	71	elfeed-use-curl
72	elfeed-enclosure-default-dir))	72	elfeed-curl-extra-arguments
73	(push (concat "(setq " (symbol-name var)	73	elfeed-enclosure-default-dir))
74	" '" (prin1-to-string (symbol-value var)) ")\n")	74	(push (concat "(setq " (symbol-name var)
75	copy-environment))	75	" '" (prin1-to-string (symbol-value var)) ")\n")
76	(nreverse copy-environment))	76	copy-environment))
77	;; Overwrite log function to go to stdout	77	(nreverse copy-environment))
78	"(defun elfeed-log (level fmt &rest objects)"	78	;; Overwrite log function to go to stdout
79	" (princ (format \"[%s] [%s]: %s\\n\""	79	"(defun elfeed-log (level fmt &rest objects)"
80	" (format-time-string \"%F %T\")"	80	" (princ (format \"[%s] [%s]: %s\\n\""
81	" level"	81	" (format-time-string \"%F %T\")"
82	" (apply #'format fmt objects))))"	82	" level"
83	;; Load elfeed	83	" (apply #'format fmt objects))))"
84	"(elfeed-org)"	84	;; Load elfeed
85	"(elfeed-db-load)"	85	"(elfeed-org)"
86	"(elfeed)"	86	"(elfeed-db-load)"
87	;; Update elfeed	87	"(elfeed)"
88	"(elfeed-update)"	88	;; Update elfeed
89	;; Wait to finish ... I think.	89	"(elfeed-update)"
90	"(while (> (elfeed-queue-count-total) 0)"	90	;; Wait to finish ... I think.
91	" (sleep-for 5)"	91	"(while (> (elfeed-queue-count-total) 0)"
92	" (message \"%s\" (elfeed-queue-count-total))"	92	" (sleep-for 5)"
93	" (accept-process-output))"	93	" (message \"%s\" (elfeed-queue-count-total))"
94	;; Save and garbage-collect	94	" (accept-process-output))"
95	"(elfeed-db-save)"	95	;; Save and garbage-collect
96	"(elfeed-db-gc)"))	96	"(elfeed-db-save)"
97	(write-file script))	97	"(elfeed-db-gc)"))
98	(chmod script #o777))	98	(write-file script))
99	(set-process-sentinel (start-process-shell-command	99	(chmod script #o777))
100	"Elfeed" nil script)	100	(set-process-sentinel (start-process-shell-command
101	(lambda (a b)	101	"Elfeed" nil script)
102	(advice-remove 'elfeed #'+elfeed--update-message)	102	(lambda (a b)
103	(setq +elfeed--update-running nil)	103	(advice-remove 'elfeed #'+elfeed--update-message)
104	(message update-message-format	104	(setq +elfeed--update-running nil)
105	(string-trim b))))))	105	(message update-message-format
		106	(string-trim b)))))))
106		107
107	(defvar +elfeed--update-timer nil "Timer for `elfeed-update-command'.")	108	(defvar +elfeed--update-timer nil "Timer for `elfeed-update-command'.")
108	(defvar +elfeed--update-first-time 6 "How long to wait for the first time.")	109	(defvar +elfeed--update-first-time 6 "How long to wait for the first time.")
@@ -116,16 +117,20 @@
116		117
117	(defun +elfeed--reinstate-update-timer ()	118	(defun +elfeed--reinstate-update-timer ()
118	"Reinstate `+elfeed--update-timer'."	119	"Reinstate `+elfeed--update-timer'."
		120	;; First, unload the db
		121	(elfeed-db-save)
		122	(elfeed-db-unload)
119	(setq +elfeed--update-timer	123	(setq +elfeed--update-timer
120	(run-at-time +elfeed--update-first-time	124	(run-at-time +elfeed--update-first-time
121	+elfeed--update-repeat	125	+elfeed--update-repeat
122	#'+elfeed-update-command)))	126	#'+elfeed-update-command)))
123		127
124	(define-minor-mode +elfeed-update-async-mode	128	(define-minor-mode +elfeed-update-async-mode
125	"Minor mode to update elfeed async-style every 15 minutes."	129	"Minor mode to update elfeed async-style."
126	:global t	130	:global t
127	(if +elfeed-update-async-mode	131	(if +elfeed-update-async-mode
128	(progn ; enable	132	(progn ; enable
		133	(+elfeed--cancel-update-timer) ; first disable any hangers-on
129	(+elfeed--reinstate-update-timer)	134	(+elfeed--reinstate-update-timer)
130	(advice-add 'elfeed :before '+elfeed--cancel-update-timer)	135	(advice-add 'elfeed :before '+elfeed--cancel-update-timer)
131	(advice-add 'elfeed-search-quit-window :after '+elfeed--reinstate-update-timer))	136	(advice-add 'elfeed-search-quit-window :after '+elfeed--reinstate-update-timer))