;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\305\311\312&\210\313\314\315\316\317DD\320\321\322\310\305&\210\323\324\325\326\310\305%\207" [require s dash posframe custom-declare-group cfrs nil "Cfrs configuration options." :group :prefix "cfrs-" custom-declare-variable cfrs-frame-parameters funcall function #[0 "\300\207" [nil] 1] "Alist of parameters for cfrs' child frames.\nCan be used to override useful parameters like `internal-border-width' or\n`background-color' for better frame visibility." :type (alist :key-type symbol) custom-declare-face cfrs-border-color ((t :inherit internal-border)) "The face for the border of the cfrs popup frame.\nOnly the `:background' part is used."] 8) #@107 Read a string using a pos-frame with given PROMPT and INITIAL-INPUT. (fn PROMPT &optional INITIAL-INPUT) (defalias 'cfrs-read #[513 "\302 \204\303\304!\203\305\306\211$\207\307\310!\311\312\313\306\314$\315 \316\317\320\321\322\nG\\\323\324\325\n\326\327\330\331\332B\333B\"& \334 p\335\336#\216\337\340\"\210\341!\210\342\343\344\306\345$\210rq\210\346 \210\347\350ed\"\351\"\210\352 \210\353\320\324\"\354\355\356\357 P\360\361##\210\354\362\314#\210\354\363\314#\266\203\214c\210\364\301!\203\240 \203\240\303\365!\203\240\365\306!\210\306\210\366 \210\367 \210\370\371 !*\207" [cfrs-frame-parameters evil-mode display-graphic-p fboundp display-buffer-in-side-window read-string nil get-buffer-create " *Pos-Frame-Read*" face-attribute cfrs-border-color :background t cfrs--determine-cursor-type posframe-show :min-height 1 :min-width 40 :internal-border-width 2 :internal-border-color :string "" :override-parameters append cursor-type ((no-accept-focus)) selected-frame make-closure #[0 "\302\300!\203 \303\300\304\"\210\305\301!\205\301q\207" [V0 V1 frame-live-p select-frame norecord buffer-live-p] 3] select-frame norecord x-focus-frame add-hook delete-frame-functions cfrs--on-frame-kill :local cfrs-input-mode -each overlays-in delete-overlay erase-buffer make-overlay overlay-put before-string propertize " " face minibuffer-prompt rear-nonsticky read-only boundp evil-insert-state recursive-edit cfrs--hide s-trim buffer-string] 22 (#$ . 814)]) #@114 Determine the cursor type for the popup frame. Prevents showing an invisible cursor with a height or width of 0. (defalias 'cfrs--determine-cursor-type #[0 "\301>\203\302\303 \300\"\202\211:\203 \211\243\211\304=\203\207\207\211\204&\305\207\207" [cursor-type (t nil) frame-parameter selected-frame 0 hbar] 4 (#$ . 2313)]) #@30 Hide the current cfrs frame. (defalias 'cfrs--hide #[0 "\301=\205\302p!\210\303\304\305 !!\207" [major-mode cfrs-input-mode posframe-hide x-focus-frame frame-parent selected-frame] 3 (#$ . 2654)]) #@67 Adjust input frame's height to the number of lines in the buffer. (defalias 'cfrs--adjust-height #[0 "\300\301 \302ed\"\"\207" [set-frame-height selected-frame count-lines] 5 (#$ . 2860)]) #@51 Redirect focus after FRAME is killed. (fn FRAME) (defalias 'cfrs--on-frame-kill #[257 "\300!\206\301 \302!\207" [frame-parent selected-frame x-focus-frame] 4 (#$ . 3055)]) #@53 Finish the cfrs read, returning the entered string. (defalias 'cfrs-finish #[0 "\300\301 \302\303#\210\304 \207" [set-frame-parameter selected-frame persp--recursive nil exit-recursive-edit] 4 (#$ . 3238) nil]) #@62 Cancel the `cfrs-read' call and the function that called it. (defalias 'cfrs-cancel #[0 "\300 \210\301 \207" [cfrs--hide abort-recursive-edit] 1 (#$ . 3455) nil]) (defvar cfrs-input-mode-map (byte-code "\300 \301\302\303#\210\301\304\303#\210\301\305\306#\210\207" [make-sparse-keymap define-key "" cfrs-finish [return] [remap keyboard-quit] cfrs-cancel] 5)) (defvar cfrs-input-mode-hook nil) (byte-code "\300\301N\204\f\302\300\301\303#\210\304\305!\204\302\305\306\307#\210\300\207" [cfrs-input-mode-hook variable-documentation put "Hook run after entering Child Frame Read String mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" boundp cfrs-input-mode-map definition-name cfrs-input-mode] 4) (defvar cfrs-input-mode-map (make-sparse-keymap)) (byte-code "\301\302N\204\303\301\302\304\305!#\210\306\307!\204\303\307\310\311#\210\312\313 !\210\307\302N\204-\303\307\302\304\314!#\210\306\300!\204B\303\300\310\311#\210\315\316\300\317\"\210!\210\300\302N\204P\303\300\302\304\320!#\210\303\311\321\317#\207" [cfrs-input-mode-abbrev-table cfrs-input-mode-map variable-documentation put purecopy "Keymap for `cfrs-input-mode'." boundp cfrs-input-mode-syntax-table definition-name cfrs-input-mode (lambda (#1=#:def-tmp-var) (defvar cfrs-input-mode-syntax-table #1#)) make-syntax-table "Syntax table for `cfrs-input-mode'." (lambda (#1#) (defvar cfrs-input-mode-abbrev-table #1#)) define-abbrev-table nil "Abbrev table for `cfrs-input-mode'." derived-mode-parent] 5) #@188 Simple mode for buffers displayed in cfrs's input frames. This mode runs the hook `cfrs-input-mode-hook', as the final or penultimate step during initialization. \{cfrs-input-mode-map} (defalias 'cfrs-input-mode #[0 "\306\300!\210\307\310 \210\311\312\313 !\210\314\f!\210 \315\316\317\320\321$\210\322\323!\210)\324\325!\207" [delay-mode-hooks major-mode mode-name cfrs-input-mode-map cfrs-input-mode-syntax-table cfrs-input-mode-abbrev-table make-local-variable t kill-all-local-variables cfrs-input-mode "Child Frame Read String" use-local-map set-syntax-table add-hook post-command-hook cfrs--adjust-height nil :local display-line-numbers-mode -1 run-mode-hooks cfrs-input-mode-hook local-abbrev-table] 5 (#$ . 5027) nil]) (byte-code "\300\301\302\"\210\303\304!\207" [eval-after-load beacon #[0 "\301>\203\207\301B\211\207" [beacon-dont-blink-major-modes cfrs-input-mode] 2] provide cfrs] 3)