diff options
| author | colin <colin@cicadas.surf> | 2023-05-20 10:06:53 -0700 |
|---|---|---|
| committer | colin <colin@cicadas.surf> | 2023-05-20 10:06:53 -0700 |
| commit | 62759c72c94aba3caed724908916b8c06c6c7874 (patch) | |
| tree | b50c716ee2e981d3af65a49b77f50e3aba563126 | |
| parent | 53da0bfb9be3fe1fb203fc6ed3cb6e29edb45246 (diff) | |
xvfb-run to update themes; separate thread to update every 12 hours
| -rw-r--r-- | fussy.lisp | 8 |
1 files changed, 5 insertions, 3 deletions
@@ -287,7 +287,7 @@ that they are not loaded during image gen.") (defun format-emacs-evocation-script (package-names) (format nil - "env HOME=~a emacs -q --eval ~s --load ~a" + "env HOME=~a xvfb-run emacs -q --eval ~s --load ~a" (full-theme-image-directory) (generate-elisp-to-fetch-and-exclude package-names) (fussy-elisp-script-location))) @@ -324,6 +324,8 @@ that they are not loaded during image gen.") (defvar *fetcher-thread* nil) +(defparameter +twelve-hours+ (* 12 60 60)) + (defun start-fetch-thread () (setf *fetcher-thread* (bt:make-thread @@ -332,7 +334,7 @@ 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 59)))))) + :do (sleep +twelve-hours+)))))) (defun start (&key config-file) (unless config-file @@ -351,7 +353,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) (lzb:install-app *server* (lzb:app 'fussy::fussy)) (lzb:start-server *server*)) |