Better image generation

3 files changed, 16 insertions, 7 deletions

diff --git a/config.sexp b/config.sexp
index 6ea9e4b..0764887 100644
--- a/config.sexp
+++ b/config.sexp
@@ -4,4 +4,4 @@
 
 (:store-directory "files/store/"
  :theme-image-directory "files/themes/"
- :fussy-el "fussy.el") 
+ :fussy-el "fussy.el")
diff --git a/fussy.el b/fussy.el
index 818786c..a7b24cd 100644
--- a/fussy.el
+++ b/fussy.el
@@ -123,12 +123,18 @@ the theme came from."
 (package-refresh-contents)
 (package-install 'compat)
 (require 'compat)
-(toggle-frame-maximized)
+
+
+(set-frame-height (frame-focus) 50)
+(set-frame-width (frame-focus) 100)
+
+(defun rel-to-home (file)
+  (concat (getenv "HOME") "/" file))
 
 (fussy-generate-all-theme-images
- "/home/colin/projects/LearnCPP/chapter1/hello_world/hello.cpp"
- "/home/colin/projects/fussy/fussy.el"
- "/home/colin/projects/INACTIVE/nsa/nsa.py")
+ (rel-to-home "../fussy.lisp")
+ (rel-to-home "../bandleader.py")
+ (rel-to-home"../conway.cpp"))
 
 (kill-emacs)
 
diff --git a/fussy.lisp b/fussy.lisp
index 005b26c..0bbf9ad 100644
--- a/fussy.lisp
+++ b/fussy.lisp
@@ -48,7 +48,10 @@ the emacs' reader readtable."
           (theme-pkg-version theme)))
 
 (defparameter +excludes+
-  '(tramp-theme color-theme airline-themes unobtrusive-magit-theme cycle-themes ))
+  '(tramp-theme color-theme airline-themes unobtrusive-magit-theme cycle-themes
+    dir-treeview-themes display-theme smart-mode-line-powerline-theme
+    smart-mode-line-atom-one-dark-theme rand-theme per-buffer-theme
+    svg-mode-line-themes remember-last-theme xresources-theme))
 
 (defun theme-package-p (archive-object)
   (when (consp archive-object)
@@ -321,7 +324,7 @@ that they are not loaded during image gen.")
            :domain (domain *config*))))
   (create-db)
   (update-theme-packages)
-  (lzb:install-app *server* (lzb:app))
+  (lzb:install-app *server* (lzb:app 'fussy::fussy))
   (lzb:start-server *server*))
 
 (lzb:provision-app ()