From f6512fe1bd9738e1c2c5c9a7ad92098b2f02fa34 Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Fri, 11 Mar 2022 20:04:05 -0600
Subject: Uh

---
 lisp/+elfeed.el | 88 +++++++++++++++++++++++++++++----------------------------
 1 file changed, 45 insertions(+), 43 deletions(-)

(limited to 'lisp/+elfeed.el')

diff --git a/lisp/+elfeed.el b/lisp/+elfeed.el
index ac316c4..8f7f17a 100644
--- a/lisp/+elfeed.el
+++ b/lisp/+elfeed.el
@@ -60,49 +60,51 @@
       (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.")))))
+         (let ((print-level nil)
+               (print-length nil))
+           (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")
-- 
cgit 1.4.1-21-gabe81