;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301!\210\300\302!\210\300\303!\210\304\305\306\307\310\303\311\312&\210\313\314\315\316\317DD\320\321\322%\210\313\323\315\316\324DD\325\321\322%\210\313\326\315\316\327DD\330\321\331%\210\313\332\315\316\333DD\334\321\331%\210\313\335\315\316\336DD\337\321\331%\210\313\340\315\316\341DD\342\321\331%\210\313\343\315\316\344DD\345\321\316%\210\313\346\315\316\347DD\350\321\316%\210\313\351\315\316\352DD\353\321\331%\210\313\354\315\316\355DD\356\321\357%\210\313\360\315\316\361DD\362\321\322%\210\313\363\315\316\364DD\365\321\366%\210\313\367\315\316\370DD\371\321\366%\210\313\372\315\316\373DD\374\321\322%\210\375\305\376\377\310\305%\210\375\201@\201A\201B\310\305%\210\375\201C\201D\201E\310\305%\207" [require cl-lib posframe ivy custom-declare-group ivy-posframe nil "Using posframe to show ivy" :group :prefix "ivy-posframe" custom-declare-variable ivy-posframe-style funcall function #[0 "\300\207" [frame-center] 1] "The style of ivy-posframe." :type string ivy-posframe-font #[0 "\300\207" [nil] 1] "The font used by ivy-posframe.\nWhen nil, Using current frame's font as fallback." ivy-posframe-width #[0 "\300\207" [nil] 1] "The width of ivy-posframe." number ivy-posframe-height #[0 "\300\207" [nil] 1] "The height of ivy-posframe." ivy-posframe-min-width #[0 "\300\207" [nil] 1] "The width of ivy-min-posframe." ivy-posframe-min-height #[0 "\300\207" [nil] 1] "The height of ivy-min-posframe." ivy-posframe-refposhandler #[0 "\300\207" [ivy-posframe-refposhandler-default] 1] "The refposhandler use by ivy-posframe.\n\nNOTE: This variable is very useful to EXWM users." ivy-posframe-size-function #[0 "\300\207" [ivy-posframe-get-size] 1] "The function which is used to deal with posframe's size." ivy-posframe-border-width #[0 "\300\207" [1] 1] "The border width used by ivy-posframe.\nWhen 0, no border is showed." ivy-posframe-hide-minibuffer #[0 "\300\207" [t] 1] "Hide input of minibuffer when using ivy-posframe." boolean ivy-posframe-parameters #[0 "\300\207" [nil] 1] "The frame parameters used by ivy-posframe." ivy-posframe-height-alist #[0 "\300\207" [nil] 1] "The `ivy-height-alist' while working ivy-posframe." sexp ivy-posframe-display-functions-alist #[0 "\300\207" [((t . ivy-posframe-display))] 1] "The `ivy-display-functions-alist' while working ivy-posframe." ivy-posframe-lighter #[0 "\300\207" [#1=" ivy-posframe"] 1 #1#] "The lighter string used by `ivy-posframe-mode'." custom-declare-face ((t (:inherit default))) "Face used by the ivy-posframe." ivy-posframe-border ((t (:inherit default :background "gray50"))) "Face used by the ivy-posframe's border." ivy-posframe-cursor ((t (:inherit cursor))) "Face used by the ivy-posframe's fake cursor."] 8) #@77 Set SYM as VAL and create buffer named `ivy-posframe-buffer'. (fn SYM VAL) (defalias 'ivy-posframe-buffer-setter #[514 "\300\"\210\301!\207" [set-default get-buffer-create] 5 (#$ . 2805)]) (byte-code "\300\301\302\303\304DD\305\306\307\310\311&\207" [custom-declare-variable ivy-posframe-buffer funcall function #[0 "\300\207" [#1=" *ivy-posframe-buffer*"] 1 #1#] "The posframe-buffer used by ivy-posframe." :set ivy-posframe-buffer-setter :type string] 8) #@105 When non-nil, ivy-posframe will ignore prompt. This variable is useful for `ivy-posframe-read-action' . (defvar ivy-posframe--ignore-prompt nil (#$ . 3274)) #@80 The default posframe refposhandler used by ivy-posframe. (fn &optional FRAME) (defalias 'ivy-posframe-refposhandler-default #[256 "\303\300!\203;\203;\3041 \n\234\211\305\234\306\234B\2620\202\"\210\202%\206<\30710\310!0\2024\210\2027\206<\305\211B\207\311\207" [exwm--connection exwm-workspace--workareas exwm-workspace-current-index boundp (error) 0 1 (error) posframe-refposhandler-xwininfo nil] 5 (#$ . 3437)]) #@76 Show STR in ivy's posframe with POSHANDLER. (fn STR &optional POSHANDLER) (defalias 'ivy-posframe--display #[513 "\306 \204\f\307!\210\202S\310\311!!r\312\313\"\216\314@\315\"\210\316\317 \320\n\321\322`\323 \324\325\326\327\330\331$\332\325\326\333\330\331$\334 \335\325\336\327\330\331$\337\f\340 \341\342' &\210\343\344!\210*\210r q\210\345\346!\210(\211&)\207" [ivy-last ivy-posframe-buffer ivy-posframe-font ivy-posframe-border-width ivy-posframe-parameters ivy-posframe-refposhandler posframe-workable-p ivy-display-function-fallback internal--before-with-selected-window ivy--get-window make-closure #[0 "\301\300!\207" [V0 internal--after-with-selected-window] 2] select-window norecord apply posframe-show :font :string :position :poshandler :background-color face-attribute ivy-posframe :background nil t :foreground-color :foreground :internal-border-width :internal-border-color ivy-posframe-border :override-parameters :refposhandler :hidehandler ivy-posframe-hidehandler ivy-posframe--add-prompt ignore make-local-variable truncate-lines ivy-posframe-size-function ivy-truncate-lines] 29 (#$ . 3874)]) #@43 Hidehandler used by ivy-posframe. (fn _) (defalias 'ivy-posframe-hidehandler #[257 "\300 ?\207" [minibufferp] 2 (#$ . 5010)]) #@59 The default functon used by `ivy-posframe-size-function'. (defalias 'ivy-posframe-get-size #[0 "\305\306 \307\n\206 T\211\206^\262\310\f\206(\311\312 \313_!\211 \206%^\262\257\207" [ivy-posframe-height ivy-posframe-width ivy-posframe-min-height ivy-height ivy-posframe-min-width :height :width :min-height :min-width round frame-width 0.62] 10 (#$ . 5143)]) #@63 Display STR via `posframe' by `ivy-posframe-style'. (fn STR) (defalias 'ivy-posframe-display #[257 "\301\302\303\"!\304!\203\211!\207\305!\207" [ivy-posframe-style intern format "ivy-posframe-display-at-%s" functionp ivy-posframe-display-at-frame-bottom-left] 5 (#$ . 5520)]) #@12 (fn STR) (defalias 'ivy-posframe-display-at-window-center #[257 "\300\301\"\207" [ivy-posframe--display posframe-poshandler-window-center] 4 (#$ . 5809)]) #@12 (fn STR) (defalias 'ivy-posframe-display-at-frame-center #[257 "\300\301\"\207" [ivy-posframe--display posframe-poshandler-frame-center] 4 (#$ . 5973)]) #@12 (fn STR) (defalias 'ivy-posframe-display-at-window-bottom-left #[257 "\300\301\"\207" [ivy-posframe--display posframe-poshandler-window-bottom-left-corner] 4 (#$ . 6135)]) #@12 (fn STR) (defalias 'ivy-posframe-display-at-frame-bottom-left #[257 "\300\301\"\207" [ivy-posframe--display posframe-poshandler-frame-bottom-left-corner] 4 (#$ . 6316)]) #@12 (fn STR) (defalias 'ivy-posframe-display-at-frame-bottom-window-center #[257 "\300\301\"\207" [ivy-posframe--display #[257 "\300!@\301!AB\207" [posframe-poshandler-window-center posframe-poshandler-frame-bottom-left-corner] 4 "\n\n(fn INFO)"]] 4 (#$ . 6495)]) #@12 (fn STR) (defalias 'ivy-posframe-display-at-point #[257 "\300\301\"\207" [ivy-posframe--display posframe-poshandler-point-bottom-left-corner] 4 (#$ . 6766)]) #@12 (fn STR) (defalias 'ivy-posframe-display-at-frame-top-center #[257 "\300\301\"\207" [ivy-posframe--display posframe-poshandler-frame-top-center] 4 (#$ . 6933)]) #@25 Cleanup ivy's posframe. (defalias 'ivy-posframe-cleanup #[0 "\301 \205\302!\207" [ivy-posframe-buffer posframe-workable-p posframe-hide] 2 (#$ . 7103)]) #@58 Select one of the available actions and call `ivy-done'. (defalias 'ivy-posframe--dispatching-done #[0 "\301\302 \203\n\303 \210)\304 \207" [ivy-exit ivy-posframe--dispatching-done ivy-read-action ivy-done ivy-posframe-shrink-after-dispatching] 1 (#$ . 7265) nil]) #@40 Ivy-posframe's `ivy-dispatching-done'. (defalias 'ivy-posframe-dispatching-done #[0 "\301\302 )\207" [ivy-read-action-function ivy-posframe-read-action-by-key ivy-posframe--dispatching-done] 1 (#$ . 7538) nil]) #@58 Select one of the available actions and call `ivy-call'. (defalias 'ivy-posframe--dispatching-call #[0 "\304\n\305H! \306\307\"\216\310 \203\311!\210\312 \210)\266\313 \207" [current-prefix-arg ivy-current-prefix-arg ivy-last ivy-text copy-sequence 15 make-closure #[0 "\300 \211\302I\207" [V0 ivy-last 15] 5] ivy-read-action ivy-set-text ivy-call ivy-posframe-shrink-after-dispatching] 5 (#$ . 7756) nil]) #@40 Ivy-posframe's `ivy-dispatching-call'. (defalias 'ivy-posframe-dispatching-call #[0 "\301\302 )\207" [ivy-read-action-function ivy-posframe-read-action-by-key ivy-posframe--dispatching-call] 1 (#$ . 8177) nil]) #@40 Ivy-posframe version `ivy-read-action' (defalias 'ivy-posframe-read-action #[0 "\301\302\303!)\207" [ivy-read-action-function ivy-posframe-read-action-by-key call-interactively ivy-read-action] 2 (#$ . 8395) nil]) #@56 Ivy-posframe's `ivy-read-action-by-key'. (fn ACTIONS) (defalias 'ivy-posframe-read-action-by-key #[257 "\306 \307H\n\206\211 \236\206\310 \236A\fA!\310\311C\306\312\313\314\"A\"\211\262\203]\242A8@\230\204]\211\242\315\316\317\320 !\203R\310!\210)\321\202T!!!P\240\210\202\322 \210\242\323\235\203k\306\202\212\211\204y\324\325\242\"\210\306\202\212\324\311!\210T\240\210 \211\326I\266\202*\207" [set-message-function ivy-last ivy--display-function ivy-display-functions-alist ivy-read-action-format-function resize-mini-windows nil 22 t "" cl-position-if make-closure #[257 "\301\300\242@\"\207" [V0 string-prefix-p] 4 "\n\n(fn X)"] key-description vector read-key functionp "Please type a key: " ivy-posframe-shrink-after-dispatching ("ESC" "C-g" "M-o") message "%s is not bound" 15 ivy-posframe--ignore-prompt] 13 (#$ . 8616)]) #@62 Shrink the minibuffer to the minimum size after dispatching. (defalias 'ivy-posframe-shrink-after-dispatching #[0 "\300 \205 \301\302\303 [\"\207" [window-minibuffer-p window-resize nil window-size] 3 (#$ . 9496)]) #@62 Return the posframe window displaying `ivy-posframe-buffer'. (defalias 'ivy-posframe--window #[0 "\301\302\303\304!\"!\207" [ivy-posframe-buffer frame-selected-window buffer-local-value posframe--frame get-buffer] 5 (#$ . 9718)]) #@27 Ivy-posframe's `ivy-avy'. (defalias 'ivy-posframe-avy #[0 "\301\302\303 !r\304\305\"\216\306@\307\"\210\310 *\262)\207" [avy-pre-action ignore internal--before-with-selected-window ivy-posframe--window make-closure #[0 "\301\300!\207" [V0 internal--after-with-selected-window] 2] select-window norecord ivy-avy] 4 (#$ . 9955) nil]) #@41 Ivy-posframe's `swiper-avy-candidates'. (defalias 'ivy-posframe--swiper-avy-candidates #[0 "\302\303\304!!r\305\306\"\216\307@\310\"\210\311\312 \313 \"*\262\314\315\316$\317C\320\305\321\"\"\322H\323=\2034\324\2025\317\325\326\"r q\210\212\214\312 \313 }\210eb\210\327y\210\330 \327m\204a`\\BB\262\327y\210\202N\262+\244\207" [ivy-last ivy-posframe-buffer cl-sort internal--before-with-selected-window ivy--get-window make-closure #[0 "\301\300!\207" [V0 internal--after-with-selected-window] 2] select-window norecord overlays-in window-start window-end < :key overlay-start 0 cl-remove-if-not #[257 "\303!\300\242Y\205\304\305\"\306 \n\">\205\300\303!\240\207" [V0 swiper-faces swiper-background-faces overlay-start overlay-get face append] 5 "\n\n(fn OV)"] 22 swiper 1 mapcar #[257 "\300!\301\302\"B\207" [overlay-start overlay-get window] 5 "\n\n(fn OV)"] nil selected-window] 9 (#$ . 10297)]) #@41 Ivy-posframe's `swiper--avy-candidate'. (defalias 'ivy-posframe--swiper-avy-candidate #[0 "\304 \305\306\216\307\310\311 \312HC\"!\210\n\313=\203\314 \"\202&\315\316 \"\317\320#\321 \210*\207" [avy-all-windows ivy-last avy-style avy-keys ivy-posframe--swiper-avy-candidates nil #[0 "\300 \207" [avy--done] 1] avy--make-backgrounds append avy-window-list 12 de-bruijn avy-read-de-bruijn avy-read avy-tree avy--overlay-post avy--remove-leading-chars avy-push-mark] 6 (#$ . 11228)]) #@52 Ivy-posframe's `swiper--avy-goto'. (fn CANDIDATE) (defalias 'ivy-posframe--swiper-avy-goto #[257 "\211\243\301 =\203.rq\210\212\211@b\210\302 \303 {*\304\305\306\307\"\310\"\206#\311!\210\312 \210\313 \210\314 \207\211:\2049\315!\205J\316\317\320\321#\210\322\323\211\306\324\"#\210\325 \207" [ivy-posframe-buffer ivy-posframe--window line-beginning-position line-end-position ivy-set-index cl-some make-closure #[257 "\302\300\303O \304\305$\207" [V0 ivy--old-cands cl-position nil :test string=] 6 "\n\n(fn N)"] (0 1 2 3 4) 0 ivy--exhibit ivy-done ivy-call number-or-marker-p put quit error-message "" run-at-time nil #[0 "\301\302\303\304#\210\3051\306\307\300!!0\207\310\311\"\210\312\207" [V0 put quit error-message "Quit" (debug error) avy-action-goto avy-candidate-beg message "Error: %S" nil] 4] abort-recursive-edit] 7 (#$ . 11721)]) #@30 Ivy-posframe's `swiper-avy'. (defalias 'ivy-posframe-swiper-avy #[0 "\304\3051\f\306!0\202\210\202\206\307\310\311\312#)\266\203\204%\313 \207\314\315\310\316#\2041\317\320!\210\nG\211\321\267\210\202M\322\323!\266\202M\324\325 \210)\210\202M\210\n\307\230?\205X\326\327 !\207" [ivy--display-function inhibit-changing-match-data ivy-text swiper-min-highlight "^ivy-posframe-display" (error) symbol-name "" nil t string-match swiper-avy require avy noerror error "Package avy isn't installed" #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (0 58 1 66)) user-error "Need at least one char of input" 1 swiper--update-input-ivy ivy-posframe--swiper-avy-goto ivy-posframe--swiper-avy-candidate] 7 (#$ . 12583) nil]) (defvar ivy-posframe-advice-alist '((ivy--minibuffer-setup . ivy-posframe--minibuffer-setup) (ivy--display-function-prop . ivy-posframe--display-function-prop) (ivy--height . ivy-posframe--height) (ivy-read . ivy-posframe--read))) #@79 Advice function of FN, `ivy--minibuffer-setup' with ARGS. (fn FN &rest ARGS) (defalias 'ivy-posframe--minibuffer-setup #[385 "\305 \204\n\306\"\207\307\306\"\210) \205^\310 \205^\311\312\n!\307\313\314#)\266\203\205^\315ed\307\211\313%\316\317\320 #\210\316\321\313#\210\316\322\323\324\307\"\325\326\327BBBB\262#\210\330\304!\210\307\211\262\207" [ivy-fixed-height-minibuffer ivy-posframe-hide-minibuffer ivy--display-function inhibit-changing-match-data cursor-type display-graphic-p apply nil posframe-workable-p "^ivy-posframe" symbol-name t string-match make-overlay overlay-put window selected-window ivy-posframe face face-background default :background :foreground (:box nil :underline nil :overline nil :strike-through nil) make-local-variable] 12 (#$ . 13589)]) #@79 Add the ivy prompt to the posframe. Advice FN with ARGS. (fn FN &rest ARGS) (defalias 'ivy-posframe--add-prompt #[385 "\302\"\210\303 \205=?\205=r\304\305 !q\210`\306 \307\310G\311$\210r q\210eb\210`\312\313!|\210\211\314\261\210\315\211T\316#)\266\202)\207" [ivy-posframe--ignore-prompt ivy-posframe-buffer apply display-graphic-p window-buffer active-minibuffer-window buffer-string remove-text-properties 0 (read-only nil) line-beginning-position 2 " \n" add-text-properties (face ivy-posframe-cursor)] 9 (#$ . 14389)]) #@52 Around advice of FN with ARGS. (fn FN &rest ARGS) (defalias 'ivy-posframe--display-function-prop #[385 "\302 \204\n\303\"\207\304\305\306\305\307 \"\"\"\303\")\207" [ivy-display-functions-props ivy-posframe-display-functions-alist display-graphic-p apply append mapcar #[257 "\211\300B\207" [(:cleanup ivy-posframe-cleanup)] 3 "\n\n(fn ELM)"] cdr] 9 (#$ . 14930)]) #@52 Around advide of FN with ARGS. (fn FN &rest ARGS) (defalias 'ivy-posframe--height #[385 "\302 \204\n\303\"\207\304 \"\303\")\207" [ivy-posframe-height-alist ivy-height-alist display-graphic-p apply append] 5 (#$ . 15309)]) #@51 Around advice of FN with AGS. (fn FN &rest ARGS) (defalias 'ivy-posframe--read #[385 "\302 \204\n\303\"\207\304 \"\303\")\207" [ivy-posframe-display-functions-alist ivy-display-functions-alist display-graphic-p apply append] 5 (#$ . 15546)]) (byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313\314\315& \207" [custom-declare-variable ivy-posframe-mode funcall function #[0 "\300\207" [nil] 1] "Non-nil if Ivy-Posframe mode is enabled.\nSee the `ivy-posframe-mode' command\nfor a description of this minor mode.\nSetting this variable directly does not take effect;\neither customize it (see the info node `Easy Customization')\nor call the function `ivy-posframe-mode'." :set custom-set-minor-mode :initialize custom-initialize-default :type boolean :require ivy-posframe] 12) #@602 Display ivy via posframe. This is a minor mode. If called interactively, toggle the `Ivy-Posframe mode' mode. If the prefix argument is positive, enable the mode, and if it is zero or negative, disable the mode. If called from Lisp, toggle the mode if ARG is `toggle'. Enable the mode if ARG is nil, omitted, or is a positive number. Disable the mode if ARG is a negative number. To check whether the minor mode is enabled in the current buffer, evaluate `(default-value 'ivy-posframe-mode)'. The mode's hook is called both when the mode is enabled and when it is disabled. (fn &optional ARG) (defalias 'ivy-posframe-mode #[256 "\303 \304\301\305=\203\306\301!?\202!\247\203 \307W\203 \310\202!\311\"\210\312\300!\2038\313\301\"\306\301!\2038\301B \203D\314\315\n\"\210\202I\314\316\n\"\210\317\320\306\301!\203U\321\202V\322\"\210\323\324!\203~\325\301!\210\303 \203n\211\303 \232\203~\326\327\306\301!\203z\330\202{\331\332#\210\210\333 \210\306\301!\207" [global-minor-modes ivy-posframe-mode ivy-posframe-advice-alist current-message set-default toggle default-value 1 nil t boundp delq mapc #[257 "\300@\301A#\207" [advice-add :around] 5 "\n\n(fn ELM)"] #[257 "\300@A\"\207" [advice-remove] 4 "\n\n(fn ELM)"] run-hooks ivy-posframe-mode-hook ivy-posframe-mode-on-hook ivy-posframe-mode-off-hook called-interactively-p any customize-mark-as-set message "Ivy-Posframe mode %sabled%s" "en" "dis" "" force-mode-line-update] 6 (#$ . 16349) (byte-code "\203\n\301!\202 \302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)]) (defvar ivy-posframe-mode-hook nil) (byte-code "\300\301N\204\f\302\300\301\303#\210\302\300\304\305#\210\302\300\306\307C#\207" [ivy-posframe-mode-hook variable-documentation put "Hook run after entering or leaving `ivy-posframe-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" custom-type hook standard-value nil] 4) #@33 Keymap for `ivy-posframe-mode'. (defvar ivy-posframe-mode-map (byte-code "\300\301!\203\207\211<\203\302!\207\303\304\"\207" [(([remap ivy-avy] . ivy-posframe-avy) ([remap swiper-avy] . ivy-posframe-swiper-avy) ([remap ivy-read-action] . ivy-posframe-read-action) ([remap ivy-dispatching-done] . ivy-posframe-dispatching-done) ([remap ivy-dispatching-call] . ivy-posframe-dispatching-call)) keymapp easy-mmode-define-keymap error "Invalid keymap %S"] 4) (#$ . 18334)) (byte-code "\301\302\303\304\211%\210\305\306!\207" [ivy-posframe-mode-map add-minor-mode ivy-posframe-mode ivy-posframe-lighter nil provide ivy-posframe] 6)