diff options
| -rw-r--r-- | build.lisp | 5 | ||||
| -rw-r--r-- | fussy.lisp | 17 |
2 files changed, 16 insertions, 6 deletions
@@ -2,7 +2,10 @@ (defun run () (fussy::start) - (loop (sleep 10))) + (loop :while t + :do + (fussy::update-theme-packages) + (sleep (* 60 60 24)))) (save-lisp-and-die "fussy" :toplevel 'run :executable t) @@ -137,10 +137,17 @@ differs from the theme-pkg instance already in the data store." (when themes-to-update (fussy-log "Updating Themes") ;; delete the temporary .emacs.d - (uiop:delete-directory-tree - (uiop:merge-pathnames* ".emacs.d/" (full-theme-image-directory)) - :validate t - :if-does-not-exist :ignore) + (let ((emacs-dir + (uiop:merge-pathnames* ".emacs.d/" (full-theme-image-directory)))) + (when (uiop:directory-exists-p emacs-dir) + (fussy-log "Deleting emacs dir at: ~a" emacs-dir) + (uiop:delete-directory-tree + emacs-dir + :validate t + :if-does-not-exist :ignore) + (if (uiop:directory-exists-p emacs-dir) + (fussy-log "Directory NOT DELETE!?") + (fussy-log "Directory successfully deleted")))) (generate-images-for-packages (mapcar #'archive-theme-name themes-to-update)) @@ -369,7 +376,7 @@ 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)) |