;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\302\303\304\305#\210\302\306!\210\302\307!\210\302\310!\210\302\311!\210\302\312!\210\302\313!\210\314\315!\2037\316\236\2047\316\314\315!BB\266\203\317\304\207" [smt/themes smt/current-theme require nadvice nil t svg-mode-line-themes-core svg-mode-line-themes-widgets svg-mode-line-themes-diesel svg-mode-line-themes-bio-diesel svg-mode-line-themes-nasa svg-mode-line-themes-black-crystal default-value mode-line-format default diesel] 5) (defalias 'smt/next-theme #[nil "\3042;G\305V\204\306\307!\210\302 \310\311$\211T8@\206!@@\211\211\312=\2032\313 \210\314\304\315\"\210\316 \210\317\320 \"*0\207" [smt/themes smt/current-theme position next-theme --cl-block-smt/next-theme-- 1 cl--assertion-failed (> (length smt/themes) 1) :key car archetype smt/next-theme throw nil force-mode-line-update message "Current mode-line theme: %s"] 6 nil nil]) (defalias 'smt/set-theme #[(theme) "\302 \207" [theme smt/current-theme force-mode-line-update] 1 nil (list (intern (completing-read "Set mode-line theme to: " (mapcar 'symbol-name (remove 'archetype (mapcar 'car smt/themes))) nil t)))]) (defalias 'smt/enable #[(&optional use-header-line) "\3012A\302\303!\204\304\305\306\"\210\307\301\310\"\210\311\203\312\202\313\314\"\210\315\316!\2039\317\320!\2039\321\322\323\324B\325\310$\210\202>\326\327\325\"\210\330 0\207" [use-header-line --cl-block-smt/enable-- image-type-available-p svg display-warning svg-mode-line-themes "SVG support is not available" throw nil set-default header-line-format mode-line-format (:eval (smt/modeline-format)) boundp pre-redisplay-function fboundp add-function advice--add-function :before #[nil "\300\301!\207" [default-value pre-redisplay-function] 2] #[(gv--val) "\301\302\"\207" [gv--val set-default pre-redisplay-function] 3] smt/register-user-location add-hook post-command-hook force-mode-line-update] 5]) (provide 'svg-mode-line-themes)