#+title: Myron Theme Palettes #+filetags: :tarp:emacs:gui:theme:previews: #+pubdate: <2021-01-19> This page shows palettes from my emacs theme colorschemes. Screenshots of the flagship themes may be seen in the [[https://github.com/neeasade/myron-themes][repo readme]], which also has more details about the intents of the different theme contexts. #+BEGIN_SRC elisp :results raw :exports results ;; this is write-once code ;; sorry future me (defun myron-cache-get (theme-name label &optional emphasis) (llet [theme (plist-get myron-themes-cache theme-name)] (or (ht-get* theme (or emphasis :normal) label) (when (not emphasis) (ht-get* theme :meta label))))) (s-join "\n" (llet [themes (-map 'first (-partition 2 myron-themes-cache))] (-map (lambda (theme) (format " ,** %s palette: %s preview: %s" theme (s-join "\n" `("| _ | :normal | :weak | :strong | :focused |" ,@(-map (lambda (fg-type) (format "| %s | %s |" fg-type (s-join " | " (-map (lambda (bg-type) (ns/blog-make-color-preview (myron-cache-get theme fg-type bg-type))) '(:normal :weak :strong :focused))))) '(:background :foreground :faded :primary :assumed :alt :strings)))) (s-join "\n" `("| _ | :normal | :weak | :strong | :focused |" ,@(-map (lambda (fg-type) (format "| %s | %s |" fg-type (s-join " | " (-map (lambda (bg-type) (ns/blog-make-color-preview-extended (myron-cache-get theme :background bg-type) (myron-cache-get theme fg-type bg-type) "preview") ) '(:normal :weak :strong :focused))))) '(:foreground :faded :primary :assumed :alt :strings)))) )) themes))) #+end_src