]>
Commit | Line | Data |
---|---|---|
53e6db90 DC |
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) |