;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301!\210\302\303\304\305\306\307\306\310&\210\311\312\304\313\306\303\314\315&\210\311\316\304\317\306\303\314\315&\210\320\321\322\323\306\303%\207" [require cl-lib custom-declare-group lv nil "The other echo area." :group minibuffer hydra custom-declare-variable lv-use-separator "Whether to draw a line between the LV window and the Echo Area." :type boolean lv-use-padding "Whether to use horizontal padding in the LV window." custom-declare-face lv-separator ((((class color) (background light)) :background "grey80") (((class color) (background dark)) :background "grey30")) "Face used to draw line between the lv window and the echo area.\nThis is only used if option `lv-use-separator' is non-nil.\nOnly the background color is significant."] 8) #@30 Holds the current LV window. (defvar lv-wnd nil (#$ . 861)) #@58 Hook to run by `lv-window' when a new window is created. (defvar lv-window-hook nil (#$ . 927)) #@46 Ensure that LV window is live and return it. (defalias 'lv-window #[nil "\306!\203\207\307 \310\311\312\313\314 \315\316#)\317\"\211\320\321!\211\203+\322 \317\"\210\202Z\322\321\317\"\210\323 \210\324\325\"\210\312\310\211\310\211\310\211\326\312\"\210\327\330\312#\210\331\332!\210\311\n\317\"\210*\207" [lv-wnd buf ori ignore-window-parameters window-size-fixed mode-line-format window-live-p selected-window nil select-window t split-window frame-root-window -1 below norecord get-buffer " *LV*" switch-to-buffer fundamental-mode set-window-hscroll 0 set-window-dedicated-p set-window-parameter no-other-window run-hooks lv-window-hook header-line-format tab-line-format cursor-type display-line-numbers display-fill-column-indicator] 6 (#$ . 1029)]) #@67 When non-nil, `lv-message' will refresh even for the same string. (defvar lv-force-update nil (#$ . 1816)) #@58 Pad STR with spaces on the left to be centered to WIDTH. (defalias 'lv--pad-to-center #[(str width) "\304\305\"\306\n @GZ\307\245\310\"\311\312 \305#*\207" [str strs width padding split-string "\n" make-string 2 32 mapconcat #[(s) " P\207" [padding s] 2]] 4 (#$ . 1929)]) #@58 Set LV window contents to (`format' FORMAT-STRING ARGS). (defalias 'lv-message #[(format-string &rest args) "\306\307 #\310\311\n\"\312\211\313\314 !\"r\315\216\316\"@\317\"\210#\203*\320\n\321 \"\322 \n\230\2036$\203{ed|\210\nc\210\323 \203b%\203b\324\325\312\"\204Q\325c\210\326\327\330\331\332\333%\326\325\330\331\334\335%\261\210\336\337!\210  \340V&\335\312'(\341\312\211\340#\210*eb.\207" [format-string args str n-lines deactivate-mark golden-ratio-mode apply format cl-count 10 nil internal--before-with-selected-window lv-window #[nil "\301!\207" [save-selected-window--state internal--after-with-selected-window] 2] select-window norecord lv--pad-to-center window-width buffer-string window-system looking-back "\n" propertize "__" face lv-separator display (space :height (1)) line-height t make-local-variable window-min-height 1 fit-window-to-buffer save-selected-window--state lv-use-padding lv-force-update lv-use-separator truncate-lines window-size-fixed window-resize-pixelwise] 8 (#$ . 2211)]) #@39 Delete LV window and kill its buffer. (defalias 'lv-delete-window #[nil "\302!\205\303!\304!\210\305 !)\207" [lv-wnd buf window-live-p window-buffer delete-window kill-buffer] 2 (#$ . 3256)]) (provide 'lv)