diff options
| -rw-r--r-- | config.sexp | 2 | ||||
| -rw-r--r-- | fussy.el | 14 | ||||
| -rw-r--r-- | fussy.lisp | 7 |
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") @@ -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) @@ -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 () |