Browse Source

Made convenience function paths better, reformatted

master
Macoy Madson 1 year ago
parent
commit
17ed783497
1 changed files with 13 additions and 12 deletions
  1. +13
    -12
      ReadMe.org

+ 13
- 12
ReadMe.org View File

@@ -32,18 +32,19 @@ will output help with argument descriptions.
*** Emacs convenience function
Here's an Emacs Lisp setup for making it easier to create new themes. You'll need to customize it with your own paths.
#+BEGIN_SRC lisp
(setq macoy-auto-theme-schemer2-bin "c:/Users/mmadson/go/bin/schemer2.exe")
(setq macoy-auto-theme-script-dir "c:/Users/mmadson/MacoyPrograms/auto-base16-theme")
(setq macoy-auto-theme-output-file "c:/Users/mmadson/AppData/Roaming/.emacs.d/elpa/base16-theme-20190413.1637/base16-my-auto-theme.el")

(defun macoy-generate-auto-theme ()
"Create a base16 auto-theme using AutoBase16Theme.py based on the image selected."
(interactive)

(let ((default-directory macoy-auto-theme-script-dir))
(compile
(format "%s -format img::colors -in \"%s\" -out colors.txt && C:/Cryptic/tools/Python_34/python.exe AutoBase16Theme.py emacs-base16-theme-template.el %s"
macoy-auto-theme-schemer2-bin (read-file-name "Image: ") macoy-auto-theme-output-file))))
(setq macoy-auto-theme-schemer2-bin "~/go/bin/schemer2.exe")
(setq macoy-auto-theme-script-dir "~/auto-base16-theme")
(setq macoy-auto-theme-output-file
"~/AppData/Roaming/.emacs.d/elpa/base16-theme-20190413.1637/base16-my-auto-theme.el")

(defun macoy-generate-auto-theme ()
"Create a base16 auto-theme using AutoBase16Theme.py based on the image selected."
(interactive)

(let ((default-directory macoy-auto-theme-script-dir))
(compile
(format "%s -format img::colors -in \"%s\" -out colors.txt && C:/Python_34/python.exe AutoBase16Theme.py emacs-base16-theme-template.el %s"
macoy-auto-theme-schemer2-bin (read-file-name "Image: ") macoy-auto-theme-output-file))))
#+END_SRC
** Example results
[[./images/Example1.jpg]]


Loading…
Cancel
Save