handle errors in case emacs / xvfb-run fails

1 files changed, 6 insertions, 3 deletions

diff --git a/fussy.lisp b/fussy.lisp
index f593dbc..08a7eab 100644
--- a/fussy.lisp
+++ b/fussy.lisp
@@ -166,9 +166,12 @@ differs from the theme-pkg instance already in the data store."
           (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))
+      (handler-case 
+          (generate-images-for-packages
+           (mapcar #'archive-theme-name themes-to-update))
+        (error (e)
+          (fussy-log "Error while generating images: ~s"
+                     e)))
       
       ;; if we didn't error: update the db
       (dolist (archive-theme themes-to-update)