enabled auto-update every 12 hours

1 files changed, 7 insertions, 3 deletions

diff --git a/fussy.lisp b/fussy.lisp
index 6f818c9..aabcd12 100644
--- a/fussy.lisp
+++ b/fussy.lisp
@@ -135,6 +135,7 @@ differs from the theme-pkg instance already in the data store."
     ;; restart-case with some restarts or something later, or will
     ;; just catch the error in the caller of update-theme-packages
     (when themes-to-update
+      (format *standard-output* "Updating Themes~%")
       ;; delete the temporary .emacs.d
       (uiop:delete-directory-tree
        (uiop:merge-pathnames* ".emacs.d/" (full-theme-image-directory))
@@ -148,7 +149,8 @@ differs from the theme-pkg instance already in the data store."
       (dolist (archive-theme themes-to-update)
         (process-archive-theme archive-theme))
 
-      (reindex-themes-by-package))))
+      (reindex-themes-by-package)
+      (format *standard-output* "Done Updating Themes~%"))))
 
 (defun all-theme-keywords ()
   (delete-duplicates
@@ -334,7 +336,8 @@ that they are not loaded during image gen.")
                  :when (time-to-update-p)
                    :do (handler-case (update-theme-packages)
                          (error (e) (format *error-output* "~a while updating." e)))
-                 :do (sleep +twelve-hours+))))))
+                 :do (sleep +twelve-hours+)))
+         :name "Fussy fetch thread")))
 
 (defun start (&key config-file)
   (unless config-file
@@ -353,8 +356,9 @@ that they are not loaded during image gen.")
            :address (address *config*)
            :domain (domain *config*))))
   (create-db)
-  (update-theme-packages)
+  ;(update-theme-packages)
   (reindex-themes-by-package)
+  (start-fetch-thread)
   (lzb:install-app *server* (lzb:app 'fussy::fussy))
   (lzb:start-server *server*))