Log .emacs.d deletion; theme updates now in run script in build.lisp

2 files changed, 16 insertions, 6 deletions

diff --git a/build.lisp b/build.lisp
index 79cadba..b9618c4 100644
--- a/build.lisp
+++ b/build.lisp
@@ -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)
 
diff --git a/fussy.lisp b/fussy.lisp
index dca7139..12ea6a1 100644
--- a/fussy.lisp
+++ b/fussy.lisp
@@ -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))