#+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