just some formatting

2 files changed, 1 insertions, 15 deletions

diff --git a/fussy.el b/fussy.el
index a7b24cd..76c6c30 100644
--- a/fussy.el
+++ b/fussy.el
@@ -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)
 
diff --git a/fussy.lisp b/fussy.lisp
index 04c3592..a67609f 100644
--- a/fussy.lisp
+++ b/fussy.lisp
@@ -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 ()