diff options
Diffstat (limited to 'fussy.lisp')
| -rw-r--r-- | fussy.lisp | 10 |
1 files changed, 7 insertions, 3 deletions
@@ -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*)) |