;ELC ;;; Compiled ;;; in Emacs version 26.1 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. ;;; This file does not contain utf-8 non-ASCII characters, ;;; and so can be loaded in Emacs versions earlier than 23. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\210\300\305!\210\306\307\310\311\312\313%\210\306\314\315\316\312\313%\210\317\320\321\322\323DD\324\312\325\326\327&\210\317\330\321\322\331DD\332\312\325\326\333&\210\317\334\321\322\335DD\336\326\337\312\340&\207" [require cl-lib helm helm-lib helm-help helm-elisp custom-declare-face helm-comint-prompts-promptidx ((t (:foreground "cyan"))) "Face used to highlight comint prompt index." :group helm-comint-faces helm-comint-prompts-buffer-name ((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)] 1] "Supported modes for prompt navigation.\nDerived modes (e.g. Geiser's REPL) are automatically supported." (repeat (choice symbol)) 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 five lines\nof 80 chars each i.e 80*5.\nNote that if you set this to nil multiline will be disabled, i.e you\nwill 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\211\207" [helm-map make-sparse-keymap set-keymap-parent define-key "o" helm-comint-prompts-other-window "" helm-comint-prompts-other-frame] 5) (#$ . 1825)) #@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\300!\205Y\212eb\210\301\302\303 \304\305\306\307\310!\311\"\312$\216\212\313\211\203Qm?\2050\314\302!\211\203J\315\316 \"\317 FB\262T\262\202M\301\262\210\202$\210*\210\237\266\202))\207" [derived-mode-p nil 1 save-mark-and-excursion--save make-byte-code 0 "\301\300!\207" vconcat vector [save-mark-and-excursion--restore] 2 t comint-next-prompt buffer-substring-no-properties point-at-eol buffer-name] 11 (#$ . 2129)]) #@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 (#$ . 2835)]) #@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 (#$ . 3122)]) #@19 (fn CANDIDATES) (defalias 'helm-comint-prompts-all-transformer #[257 "\300\301\"\207" [helm-comint-prompts-transformer t] 4 (#$ . 3579)]) #@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 \262\207" [switch-to-buffer signal wrong-number-of-arguments helm-comint-prompts-goto 2 buffer-name recenter] 8 (#$ . 3726)]) #@18 (fn CANDIDATE) (defalias 'helm-comint-prompts-goto-other-window #[257 "\300\301\"\207" [helm-comint-prompts-goto switch-to-buffer-other-window] 4 (#$ . 4081)]) #@18 (fn CANDIDATE) (defalias 'helm-comint-prompts-goto-other-frame #[257 "\300\301\"\207" [helm-comint-prompts-goto switch-to-buffer-other-frame] 4 (#$ . 4250)]) (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 (#$ . 4972) 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 (#$ . 5549) 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 (#$ . 6344)]) #@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) (#$ . 6586)) #@67 Preconfigured `helm' that provide completion of `comint' history. (defalias 'helm-comint-input-ring #[0 "\300\301!\205\302\303\304\305\306\307 \310 \"\311\312&\207" [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 (#$ . 7051) nil]) (provide 'helm-comint)