| | 1 | ;ELC\1c\0\0\0 |
| | 2 | ;;; Compiled |
| | 3 | ;;; in Emacs version 28.2 |
| | 4 | ;;; with all optimizations. |
| | 5 | |
| | 6 | |
| | 7 | |
| | 8 | (byte-code "\300\301!\210\300\302!\207" [require cl-lib solarized] 2) |
| | 9 | #@142 Imports current effective face definitions by regular expression |
| | 10 | in the format of solarized-theme.el. |
| | 11 | |
| | 12 | (fn &optional REGEXP ALREADY-DEFINED)\1f |
| | 13 | (defalias 'solarized-import-faces #[512 "\ 1G\300U\301\302\303\304\305\ 6\a\ 6\ 6#\306\307 \310\"\"\"\311\304\312\ 5\"\ 2\"\207" [0 delq nil mapcar make-closure #[257 "\302\ 1!\301\204\ e\0\303\300\ 2\"\205\ f\0\ 1\207" [V0 V1 symbol-name string-match] 5 "\n\n(fn FACE)"] sort face-list string-lessp mapc #[257 "\211\302N\203\n\0\300\205V\0\303\304\ 2\305 \211\203B\0\211@\211@\306\ 6\b\ 2\"\211\307=\2049\0\ 1\310\ 3\311\312\313$\2033\0\303\314\ 3\"\2024\0\ 1D\ 5\244\262\ 5\266\ 2\ 1A\266\202\202\ f\0\ 1\262\ 1\262\ 1\ 4\302N\203S\0\303\315!\202T\0\316$c\207" [V0 face-attribute-name-alist theme-face format "`(%s ((,class %s)))%s\n" nil face-attribute unspecified cl-member (":background" ":foreground") :test string= "\"%s\"" " ;; Already set by current theme!" ""] 15 "\n\n(fn FACE)"]] 10 (#$ . 155) (byte-code "\300\301!C\207" [read-regexp "List faces matching regexp"] 2)]) |
| | 14 | (provide 'solarized-theme-utils) |
projects / config.git / blame_incremental