;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301!\210\300\302!\207" [require subr-x cider-compat] 2) #@115 Non-nil if Cider-Popup-Buffer mode is enabled. Use the command `cider-popup-buffer-mode' to change this variable. (defvar cider-popup-buffer-mode nil (#$ . 161)) (make-variable-buffer-local 'cider-popup-buffer-mode) #@600 Mode for CIDER popup buffers This is a minor mode. If called interactively, toggle the `Cider-Popup-Buffer 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 `cider-popup-buffer-mode'. The mode's hook is called both when the mode is enabled and when it is disabled. (fn &optional ARG) (defalias 'cider-popup-buffer-mode #[256 "\302 \303=\203 ?\202\247\203\304W\203\305\202\306\307\301!\2031\310\300 \"\2031\300 B\311\312\203;\313\202<\314\"\210\315\316!\203^\302 \203P\211\302 \232\203^\317\320\203Z\321\202[\322\323#\210\210\324 \210\207" [cider-popup-buffer-mode local-minor-modes current-message toggle 1 nil t boundp delq run-hooks cider-popup-buffer-mode-hook cider-popup-buffer-mode-on-hook cider-popup-buffer-mode-off-hook called-interactively-p any message "Cider-Popup-Buffer mode %sabled%s" "en" "dis" " in current buffer" force-mode-line-update] 6 (#$ . 384) (byte-code "\203\n\301!\202 \302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)]) (defvar cider-popup-buffer-mode-hook nil) (byte-code "\300\301N\204\f\302\300\301\303#\210\302\300\304\305#\210\302\300\306\307C#\207" [cider-popup-buffer-mode-hook variable-documentation put "Hook run after entering or leaving `cider-popup-buffer-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) #@39 Keymap for `cider-popup-buffer-mode'. (defvar cider-popup-buffer-mode-map (byte-code "\300\301!\203\207\211<\203\302!\207\303\304\"\207" [(("q" . cider-popup-buffer-quit-function)) keymapp easy-mmode-define-keymap error "Invalid keymap %S"] 4) (#$ . 2124)) (byte-code "\301\302\303\304\211%\207" [cider-popup-buffer-mode-map add-minor-mode cider-popup-buffer-mode (" cider-tmp") nil] 6) #@61 The function that is used to quit a temporary popup buffer. (defvar cider-popup-buffer-quit-function 'cider-popup-buffer-quit (#$ . 2525)) (make-variable-buffer-local 'cider-popup-buffer-quit-function) #@129 Wrapper to invoke the function `cider-popup-buffer-quit-function'. KILL-BUFFER-P is passed along. (fn &optional KILL-BUFFER-P) (defalias 'cider-popup-buffer-quit-function #[256 "!\207" [cider-popup-buffer-quit-function] 3 (#$ . 2734) nil]) #@307 Create new popup buffer called NAME. If SELECT is non-nil, select the newly created window. If major MODE is non-nil, enable it for the popup buffer. If ANCILLARY is non-nil, the buffer is added to `cider-ancillary-buffers' and automatically removed when killed. (fn NAME &optional SELECT MODE ANCILLARY) (defalias 'cider-popup-buffer #[1025 "\300\301#\"\207" [cider-popup-buffer-display cider-make-popup-buffer] 9 (#$ . 2984)]) #@88 Display BUFFER. If SELECT is non-nil, select the BUFFER. (fn BUFFER &optional SELECT) (defalias 'cider-popup-buffer-display #[513 "\301\302\"\211\203rq\210\303`\"\210)\211\304 =\204,\203!\305\202\"\306\307\310B\311BB\"\210\210\207" [pop-up-windows get-buffer-window visible set-window-point selected-window pop-to-buffer display-buffer nil inhibit-same-window ((reusable-frames . visible))] 8 (#$ . 3424)]) #@174 Quit the current (temp) window. Bury its buffer using `quit-restore-window'. If prefix argument KILL is non-nil, kill the buffer instead of burying it. (fn &optional KILL) (defalias 'cider-popup-buffer-quit #[256 "\300\301 \203 \302\202\f\303\"\207" [quit-restore-window selected-window kill append] 4 (#$ . 3851) nil]) (defvar cider-popup-output-marker nil nil) (make-variable-buffer-local 'cider-popup-output-marker) #@123 A list ancillary buffers created by the various CIDER commands. We track them mostly to be able to clean them up on quit. (defvar cider-ancillary-buffers nil (#$ . 4281)) #@221 Create a temporary buffer called NAME using major MODE (if specified). If ANCILLARY is non-nil, the buffer is added to `cider-ancillary-buffers' and automatically removed when killed. (fn NAME &optional MODE ANCILLARY) (defalias 'cider-make-popup-buffer #[769 "r\302!q\210\303 \210\304\305 \210\203 \210\306\307!\210\310 \311\211\2032\312\313\"\210\314\315\316\317\"\304\320$\210p)\207" [buffer-read-only cider-popup-output-marker get-buffer-create kill-all-local-variables nil erase-buffer cider-popup-buffer-mode 1 point-marker t add-to-list cider-ancillary-buffers add-hook kill-buffer-hook make-closure #[0 "\302\300 \"\211\207" [V0 cider-ancillary-buffers remove] 3] local] 8 (#$ . 4459)]) #@195 Emit into BUFFER the provided VALUE optionally using FACE. Indent emitted value (usually a sexp) unless INHIBIT-INDENT is specified and non-nil. (fn BUFFER VALUE &optional FACE INHIBIT-INDENT) (defalias 'cider-emit-into-popup-buffer #[1026 "\303!\205Yrq\210\304\211`U\212b\210\305\306\"\203>\307\310!\2033\310\311G\312%\210\202>\313\311G\314 D$\210\211c\266\204I\315 \210`\312\223\210)\211\205Ub*\266\203)\207" [cider-popup-output-marker buffer-undo-list inhibit-read-only buffer-live-p t format "%s" fboundp add-face-text-property 0 nil add-text-properties face indent-sexp] 14 (#$ . 5175)]) (provide 'cider-popup)