;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\301\302!\210\301\303!\210\301\304!\210\301\305!\210\301\306!\210\307\310\311\312\313Y\205\314\315\"BC\316\317\320%\210\307\321\311\312\313Y\2053\322\323\"BC\324\317\320%\210\325\326\327\330\331DD\332\317\333\334\335&\210\325\336\327\330\337DD\340\317\333\334\341&\210\325\342\327\330\343DD\344\317\333\334\345&\210\325\346\327\330\347DD\350\334\351\317\352&\207" [emacs-major-version require cl-lib helm helm-lib helm-help helm-elisp custom-declare-face helm-comint-prompts-promptidx t append 27 (:extend t) ((:foreground "cyan")) "Face used to highlight comint prompt index." :group helm-comint-faces helm-comint-prompts-buffer-name (:extend t) ((:foreground "green")) "Face used to highlight comint buffer name." custom-declare-variable helm-comint-prompts-promptidx-p funcall function #[0 "\300\207" [t] 1] "Show prompt number." helm-comint :type boolean helm-comint-mode-list #[0 "\300\207" [(comint-mode slime-repl-mode sly-mrepl-mode sql-interactive-mode)] 1] "Supported modes for prompt navigation.\nDerived modes (e.g., Geiser's REPL) are automatically supported." (repeat (choice symbol)) helm-comint-next-prompt-function #[0 "\300\207" [((sly-mrepl-mode lambda nil (sly-mrepl-next-prompt) (point)))] 1] "Alist of (MODE . NEXT-PROMPT-FUNCTION) to use.\n If the current major mode is a key in this list, the associated\n function will be used to navigate the prompts.\n The function must return the point after the prompt.\n Otherwise (comint-next-prompt 1) will be used." (alist :key-type symbol :value-type function) helm-comint-max-offset #[0 "\300\207" [400] 1] "Max number of chars displayed per candidate in comint-input-ring browser.\nWhen t, don't truncate candidate, show all.\nBy default it is approximatively the number of bits contained in\nfive lines of 80 chars each i.e 80*5.\nNote that if you set this to nil multiline will be disabled, i.e\nyou will not have anymore separators between candidates." (choice (const :tag "Disabled" t) (integer :tag "Max candidate offset")) helm-misc] 8) #@38 Keymap for `helm-comint-prompt-all'. (defvar helm-comint-prompts-keymap (byte-code "\301 \302\"\210\303\304\305#\210\303\306\307#\210\207" [helm-map make-sparse-keymap set-keymap-parent define-key "o" helm-comint-prompts-other-window "" helm-comint-prompts-other-frame] 5) (#$ . 2120)) #@202 List the prompts in BUFFER in mode MODE. Return a list of ("prompt" (point) (buffer-name) prompt-index)) E.g. ("ls" 162 "*shell*" 3). If BUFFER is nil, use current buffer. (fn MODE &optional BUFFER) (defalias 'helm-comint-prompts-list #[513 "r\211\206pq\210\302!\205a\212eb\210\303\304\305 \306\307\"\216\212\310\211\203Ym?\2058\311 \"\211\2033\211 \2026\312\304!\262\211\203S\313\314 \"\315 FB\262T\262\210\202\303\266\202\202\210*\210\237\266\202))\207" [major-mode helm-comint-next-prompt-function derived-mode-p nil 1 save-mark-and-excursion--save make-closure #[0 "\301\300!\207" [V0 save-mark-and-excursion--restore] 2] t alist-get comint-next-prompt buffer-substring-no-properties point-at-eol buffer-name] 11 (#$ . 2420)]) #@90 List the prompts of all buffers in mode MODE. See `helm-comint-prompts-list'. (fn MODE) (defalias 'helm-comint-prompts-list-all #[257 "\300 \301\211:\203@\262\302\303\"!\244\262A\262\202\211\237\207" [buffer-list nil reverse helm-comint-prompts-list] 8 (#$ . 3184)]) #@33 (fn CANDIDATES &optional ALL) (defalias 'helm-comint-prompts-transformer #[513 "\301\211\211\211\211\211:\203`@\262\211A\262\242\262\211A\262\242\262\211A\262\242\262@\262\205:\302\303\304#\305P\205G\302\306!\303\307#\305PQFBB\262A\262\202\211\237\207" [helm-comint-prompts-promptidx-p nil propertize face helm-comint-prompts-buffer-name ":" number-to-string helm-comint-prompts-promptidx] 14 (#$ . 3471)]) #@19 (fn CANDIDATES) (defalias 'helm-comint-prompts-all-transformer #[257 "\300\301\"\207" [helm-comint-prompts-transformer t] 4 (#$ . 3928)]) #@57 (fn CANDIDATE &optional (ACTION \='switch-to-buffer)) (defalias 'helm-comint-prompts-goto #[385 "\211\203 \211A\262\242\202\300\203\301\302\303\304G\\D\"\210\3048\305 \230\203,\300=\2040!\210A@b\210\306 \207" [switch-to-buffer signal wrong-number-of-arguments helm-comint-prompts-goto 2 buffer-name recenter] 8 (#$ . 4075)]) #@18 (fn CANDIDATE) (defalias 'helm-comint-prompts-goto-other-window #[257 "\300\301\"\207" [helm-comint-prompts-goto switch-to-buffer-other-window] 4 (#$ . 4425)]) #@18 (fn CANDIDATE) (defalias 'helm-comint-prompts-goto-other-frame #[257 "\300\301\"\207" [helm-comint-prompts-goto switch-to-buffer-other-frame] 4 (#$ . 4594)]) (defalias 'helm-comint-prompts-other-window #[0 "\203\301\302!\207\303\304!\207" [helm-alive-p helm-exit-and-execute-action helm-comint-prompts-goto-other-window error "Running helm command outside of context"] 2 nil nil]) (put 'helm-comint-prompts-other-window 'helm-only t) (defalias 'helm-comint-prompts-other-frame #[0 "\203\301\302!\207\303\304!\207" [helm-alive-p helm-exit-and-execute-action helm-comint-prompts-goto-other-frame error "Running helm command outside of context"] 2 nil nil]) (put 'helm-comint-prompts-other-frame 'helm-only t) #@75 Pre-configured `helm' to browse the prompts of the current comint buffer. (defalias 'helm-comint-prompts #[0 "\302\303\"\203\304\305\306\307\310\311\312 !\313\314\315\316&\317\320$\207\321\322!\207" [helm-comint-mode-list major-mode apply derived-mode-p helm :sources helm-make-source "Comint prompts" helm-source-sync :candidates helm-comint-prompts-list :candidate-transformer helm-comint-prompts-transformer :action (("Go to prompt" . helm-comint-prompts-goto)) :buffer "*helm comint prompts*" message "Current buffer is not a comint buffer"] 11 (#$ . 5316) nil]) #@69 Pre-configured `helm' to browse the prompts of all comint sessions. (defalias 'helm-comint-prompts-all #[0 "\303\304\"\203\305\306\307\310\311\312\313 !\314\315\316\317\320\n&\n\321\322$\207\323\324!\207" [helm-comint-mode-list major-mode helm-comint-prompts-keymap apply derived-mode-p helm :sources helm-make-source "All comint prompts" helm-source-sync :candidates helm-comint-prompts-list-all :candidate-transformer helm-comint-prompts-all-transformer :action (("Go to prompt" . helm-comint-prompts-goto) ("Go to prompt in other window `C-c o`" . helm-comint-prompts-goto-other-window) ("Go to prompt in other frame `C-c C-o`" . helm-comint-prompts-goto-other-frame)) :keymap :buffer "*helm comint all prompts*" message "Current buffer is not a comint buffer"] 13 (#$ . 5893) nil]) #@52 Default action for comint history. (fn CANDIDATE) (defalias 'helm-comint-input-ring-action #[257 "r\301!\203 \206p\211q\210\302 d|\210\211c)\207" [helm-current-buffer buffer-live-p comint-line-beginning-position] 3 (#$ . 6688)]) #@67 Source that provides Helm completion against `comint-input-ring'. (defvar helm-source-comint-input-ring (helm-make-source "Comint history" 'helm-source-sync :candidates #[0 "r\302!\203 \206p\211q\210\303 !\304\211:\2030@\262\305\230\204)B\262A\262\202\211\237\266\203)\207" [helm-current-buffer comint-input-ring buffer-live-p ring-elements nil ""] 5] :action 'helm-comint-input-ring-action :multiline 'helm-comint-max-offset) (#$ . 6930)) #@67 Preconfigured `helm' that provide completion of `comint' history. (defalias 'helm-comint-input-ring #[0 "\302\303!\204\f \235\205\304\305\306\307\310\311 \312 \"\313\314&\207" [major-mode helm-comint-mode-list derived-mode-p comint-mode helm :sources helm-source-comint-input-ring :input buffer-substring-no-properties comint-line-beginning-position point-at-eol :buffer "*helm comint history*"] 7 (#$ . 7395) nil]) (provide 'helm-comint)