diff options
| -rw-r--r-- | fussy.el | 4 | ||||
| -rw-r--r-- | fussy.lisp | 12 |
2 files changed, 1 insertions, 15 deletions
@@ -52,8 +52,6 @@ called filename." (error (push package-name failed-to-install))))) failed-to-install)) -(defun remove-all-themes () - ()) (defun locate-theme-package (theme) "Given a symbol naming a theme, find the name of the package that @@ -118,13 +116,11 @@ the theme came from." (add-to-list 'package-archives '("melpa" . "https://melpa.org/packages/") t) - (package-initialize) (package-refresh-contents) (package-install 'compat) (require 'compat) - (set-frame-height (frame-focus) 50) (set-frame-width (frame-focus) 100) @@ -105,8 +105,6 @@ the emacs' reader readtable." (<= (first (theme-pkg-version pkg1)) (first (theme-pkg-version pkg2)))) - - (defun process-archive-theme (archive-theme) ;; ugg this is ugly. I hate it when code is all dense like this. (a:if-let (pkg @@ -237,7 +235,6 @@ returns a list of those names." (fetch-time :std (list 0 0) :documentation "(Hour Minute) at which fussy updates its themes."))) - (defvar *config* nil) (defvar *config-directory* nil "The config dir is the directory where the config file is. This @@ -267,9 +264,6 @@ are treated as such.") :directory (full-store-directory) :subsystems (list (make-instance 'db:store-object-subsystem))))) - - - (defparameter +standard-themes+ '(adwaita deeper-blue dichromacy light-blue tango-dark wheatgrass manoj-dark tsdh-dark tsdh-light whiteboard @@ -280,7 +274,6 @@ package - ordinarily the script generates images for all themes, but passing this list as the value of FUSSY-EXCLUDED-THEMES will ensure that they are not loaded during image gen.") - (defun generate-elisp-to-fetch-and-exclude (package-names) (let ((downcaser (a:compose #'string-downcase #'symbol-name))) @@ -299,7 +292,6 @@ that they are not loaded during image gen.") (generate-elisp-to-fetch-and-exclude package-names) (fussy-elisp-script-location))) - (defun generate-images-for-packages (package-names) (when package-names (uiop:run-program @@ -321,7 +313,6 @@ that they are not loaded during image gen.") theme (or variant (pathname-name (first (image-files-for-theme theme)))))) - (defun the-update-time () (multiple-value-bind (sec min hour date month year) (get-decoded-time) (declare (ignore min hour)) @@ -360,7 +351,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*)) @@ -374,7 +365,6 @@ that they are not loaded during image gen.") (defun an-integer (string) (parse-integer string)) - (defparameter +themes-per-page+ 20) (defun nav () |