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