;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (custom-declare-face 'ivy-cursor '((((class color) (background light)) :background "black" :foreground "white") (((class color) (background dark)) :background "white" :foreground "black")) "Cursor face for inline completion." :group 'ivy-faces) (defvar ivy--old-cursor-type t) #@54 Overlay variable for `ivy-display-function-overlay'. (defvar ivy-overlay-at nil (#$ . 364)) #@115 Return STR, but with each line indented by WIDTH spaces. Lines are truncated to the window width. (fn STR WIDTH) (defalias 'ivy-left-pad #[514 "\300\301\"\302\303\304\"\305\306\"\306#\207" [make-string 32 mapconcat make-closure #[257 "\301\300P\302 \303 \\S\"\207" [V0 ivy--truncate-string window-width window-hscroll] 5 "\n\n(fn X)"] split-string "\n"] 8 (#$ . 463)]) #@48 Clean up after `ivy-display-function-overlay'. (defalias 'ivy-overlay-cleanup #[0 "\303!\203\f\304!\210\305 \204\n\306\307!\205\307 \207" [ivy-overlay-at cursor-type ivy--old-cursor-type overlayp delete-overlay nil fboundp company-abort] 2 (#$ . 843)]) #@167 Display STR in an overlay at point. First, fill each line of STR with spaces to the current column. Then attach the overlay to the character before point. (fn STR) (defalias 'ivy-overlay-show-after #[257 "\203\302`S\303 #\210\304\305\306#\210\202A\307 \310\311 `\"ZS\211 Y\204-\312\307 Z\313Z!\210\210\314`S\303 \"\304\315\316#\210\304\317\320#\210\304\321#\210\304\322\323#\207" [ivy-overlay-at ivy-height move-overlay line-end-position overlay-put invisible nil window-height count-lines window-start recenter 2 make-overlay face default priority 9999 display after-string ""] 5 (#$ . 1112)]) #@12 (fn STR) (defalias 'ivy-overlay-impossible-p #[257 "\302=\203\303\304`!\305\"\206'\306 \307\\X\206'`eU\206'\310 \311 \\iZ\312W\207" [major-mode ivy-height org-mode plist-get text-properties-at src-block window-height 2 window-width window-hscroll 30] 4 (#$ . 1729)]) #@121 Called from the minibuffer, display STR in an overlay in Ivy window. Hide the minibuffer contents and cursor. (fn STR) (defalias 'ivy-display-function-overlay #[257 "\306 r\307\310\"\216\311\312!!\210\313!*\262\203!\314\212\315y\210\211c*\207\316\317 d\320#\210\321\322\323!!r\307\324\"\216\311@\325\"\210\n\203A\n\321\326\327e`S]`{\fl\205Q\330`\331 {G\332V\205\255\333\334\333\n\335\"\203s\211G\321O\266\202\202u\262 \336=\203\235\337\340!\203\235 \203\235\341 \203\221\342 S\202\236%\342 \206\231\315_\202\236\332\212&\203\250&b\210i)\\\"D&\fGT\316\211T\343\314%\266\344!\262*\207" [ivy-last buffer-undo-list cursor-type ivy--old-cursor-type ivy-text major-mode internal--before-save-selected-window make-closure #[0 "\301\300!\207" [V0 internal--after-save-selected-window] 2] select-window ivy-state-window ivy-overlay-impossible-p t 1 add-face-text-property minibuffer-prompt-end (:foreground "white") nil internal--before-with-selected-window ivy--get-window #[0 "\301\300!\207" [V0 internal--after-with-selected-window] 2] norecord apply concat " " line-end-position 0 "\n" ivy-left-pad string-prefix-p org-mode boundp org-indent-mode org-at-heading-p org-current-level ivy-cursor ivy-overlay-show-after org-indent-indentation-per-level ivy-completion-beg] 15 (#$ . 2012)]) (provide 'ivy-overlay)