diff options
Diffstat (limited to 'fussy.el')
| -rw-r--r-- | fussy.el | 17 |
1 files changed, 6 insertions, 11 deletions
@@ -1,11 +1,8 @@ (require 'cl-lib) (require 'package) -(defvar +package-name-filter-out-list+ - (list "airline-")) - (defvar +excluded-package-names+ - '(tramp-theme color-theme)) + '(tramp-theme color-theme airline-themes)) (defun fussy-string-ends-with (str suffix) (and (< (length suffix) (length str)) @@ -16,16 +13,14 @@ (let ((name (symbol-name (cl-first pkg-entry)))) (and (or (fussy-string-ends-with name "-theme") (fussy-string-ends-with name "-themes")) - (not (cl-member (cl-first pkg-entry) +excluded-package-names+)) - (cl-notany (lambda (substr) (cl-search substr name)) - +package-name-filter-out-list+)))) + (not (cl-member (cl-first pkg-entry) +excluded-package-names+))))) (defun fussy-themes-packages () (cl-remove-if-not 'fussy-is-theme-p package-archive-contents)) (defun fussy-screenshot-svg (filename) - "Save a screenshot of the current frame as an SVG image. -Saves to a temp file and puts the filename in the kill ring." + "Save a screenshot of the current frame as an SVG image to a file +called filename." (let* ((tmpfile (make-temp-file "Emacs" nil ".svg")) (data (x-export-frames nil 'svg))) (with-temp-file tmpfile @@ -81,15 +76,15 @@ Saves to a temp file and puts the filename in the kill ring." (add-to-list 'package-archives '("melpa" . "https://melpa.org/packages/") t) + (package-initialize) (package-refresh-contents) - (toggle-frame-maximized) - (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") (kill-emacs) + |