;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (require 'svg-mode-line-themes-core) (defalias 'smt/nasa-title-style #[(widget) "\300\301\302\303\304\305 \203\306\202\307\257\207" [:font-weight "bold" :filter nil :fill smt/window-active-p "#2B25E6" "#404347"] 6]) (defalias 'smt/nasa-background #[(theme) "\303 \304!\305\306\307\310\311\312\313\314\315\316\317\320 S\321BBBBBBBBB\257*\207" [theme height width smt/window-pixel-width smt/t-pixel-height (defs (filter :id "blur" (feGaussianBlur :stdDeviation "5") (feComposite))) (rect :width "100%" :height "100%" :x 0 :y 0 :fill "#888") (rect :width "100%" :height "100%" :x 0 :y 0 :fill "#eee" :filter "url(#blur)") (rect :width "100%" :height 1 :x 0 :y 0 :fill "black" :fill-opacity 0.3) rect :width "100%" :height 1 :x 0 :y (:fill "black" :fill-opacity 0.3)] 14]) (defalias 'smt/nasa-overlay #[(theme) "\302 \303!\210)\304\207" [theme height smt/window-pixel-width smt/t-pixel-height ((defs (linearGradient :id "grad2" :x1 "0%" :y1 "0%" :x2 "0%" :y2 "100%" (stop :offset "0%" :style "stop-color:#fff;stop-opacity:0.6") (stop :offset "66%" :style "stop-color:#888;stop-opacity:0.6") (stop :offset "100%" :style "stop-color:#222;stop-opacity:0.5"))) (rect :width "100%" :height "100%" :x 0 :y 0 :fill "url(#grad2)"))] 3]) (defalias 'smt/nasa-major-mode-style #[(widget) "\300\301\302!\303\304D\"\207" [smt/combine-styles smt/diesel-major-mode-style nil :fill "#DC1A0C"] 4]) (byte-code "\302\303\304\305\306\"\307\310\311\312\313\314\315\316\314\311\317$B\320\315\316\320\311\321$B\322\315\316\322\311\321$BE\323\324\325\326E\327\330&\f\331\332 \"\333 BB\266\203\210)\334\335!\207" [object smt/themes smt/make-theme :defs smt/filter-inset 0 1 :background smt/nasa-background :style #[(theme) "\301\302\303!!\304\"\207" [theme smt/combine-styles smt/t-style smt/t-prototype (:filter "url(#inset)" :fill "#404448")] 4] :local-widgets major-mode smt/make-widget :prototype smt/nasa-major-mode-style minor-modes smt/nasa-title-style buffer-name :rows default-left default-position default-right :overlay smt/nasa-overlay remove-if #[(elem) "@\301=\207" [elem nasa] 2] nasa provide svg-mode-line-themes-nasa] 16)