| commit | author | age | ||
| 5cb5f7 | 1 | ;ELC |
| C | 2 | ;;; Compiled |
| 3 | ;;; in Emacs version 26.1 | |
| 4 | ;;; with all optimizations. | |
| 5 | ||
| 6 | ;;; This file uses dynamic docstrings, first added in Emacs 19.29. | |
| 7 | ||
| 8 | ;;; This file does not contain utf-8 non-ASCII characters, | |
| 9 | ;;; and so can be loaded in Emacs versions earlier than 23. | |
| 10 | ||
| 11 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
| 12 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
| 13 | ||
| 14 | ||
| 15 | (byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\210\300\305!\210\306\307\310\311\312\302%\210\313\314\315\316\317DD\320\312\307\321\322&\207" [require cl-lib helm helm-lib helm-help helm-elisp custom-declare-group helm-eshell nil "Helm eshell completion and history." :group custom-declare-variable helm-eshell-fuzzy-match funcall function #[0 "\300\207" [nil] 1] "Enable fuzzy matching in `helm-esh-pcomplete' when non--nil." :type boolean] 8) | |
| 16 | #@35 Keymap for `helm-eshell-history'. | |
| 17 | (defvar helm-eshell-history-map (byte-code "\301 \302\"\210\303\304\305#\210\211\207" [helm-map make-sparse-keymap set-keymap-parent define-key [134217840] helm-next-line] 5) (#$ . 867)) | |
| 18 | #@34 Keymap for `helm-esh-pcomplete'. | |
| 19 | (defvar helm-esh-completion-map (byte-code "\301 \302\"\210\303\304\305#\210\211\207" [helm-map make-sparse-keymap set-keymap-parent define-key " " helm-next-line] 5) (#$ . 1097)) | |
| 20 | (defvar helm-eshell--quit-flag nil) | |
| 21 | (byte-code "\300\301\302\303!\"\210\300\304\305\303!\"\210\300\306\304\"\210\307\306\310\311#\210\312\303\313\304#\314\303\315\316\317$\207" [defalias helm-esh-source-p eieio-make-class-predicate helm-esh-source helm-esh-source--eieio-childp eieio-make-child-predicate helm-esh-source-child-p make-obsolete "use (cl-typep ... \\='helm-esh-source) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (helm-source-sync) ((init :initform (lambda nil (setq pcomplete-current-completions nil pcomplete-last-completion-raw nil) (remove-hook 'minibuffer-setup-hook 'eshell-mode))) (candidates :initform 'helm-esh-get-candidates) (persistent-action :initform 'ignore) (nohighlight :initform t) (filtered-candidate-transformer :initform (lambda (candidates _sources) (cl-loop for i in candidates collect (cond ((string-match "\\`~/?" helm-ec-target) (abbreviate-file-name i)) ((string-match "\\`/" helm-ec-target) i) (t (file-relative-name i))) into lst finally return (sort lst 'helm-generic-sort-fn)))) (action :initform 'helm-ec-insert)) (:documentation "Helm class to define source for Eshell completion.")] 6) | |
| 22 | #@72 Create a new object of class type `helm-esh-source'. | |
| 23 | ||
| 24 | (fn &rest SLOTS) | |
| 25 | (defalias 'helm-esh-source #[128 "\300\301\302#\207" [apply make-instance helm-esh-source] 5 (#$ . 2489)]) | |
| 26 | (byte-code "\300\301\302\303#\300\207" [function-put helm-esh-source compiler-macro helm-esh-source--anon-cmacro] 4) | |
| 27 | #@26 | |
| 28 | ||
| 29 | (fn WHOLE &rest SLOTS) | |
| 30 | (defalias 'helm-esh-source--anon-cmacro #[385 "\211@;\204 \207\300\301\302@@#@\303@DABB\"\207" [macroexp--warn-and-return format "Obsolete name arg %S to constructor %S" identity] 7 (#$ . 2791)]) | |
| 31 | (defvar helm-ec-target "") | |
| 32 | #@130 Replace text at point with CANDIDATE. | |
| 33 | The function that call this should set `helm-ec-target' to thing at point. | |
| 34 | ||
| 35 | (fn CANDIDATE) | |
| 36 | (defalias 'helm-ec-insert #[257 "\304\301!\210`\n\203 \305\n\306\307#\203 `{\n\230\203 `|\210\210\310\311\n\"\203* \312c\210\313 \307\314\315\316#\317!@\211\205N \320\306\307\310#)\266\203\211\205L \321\262\262\206T \316\261\210\207" [eshell-special-chars-outside-quoting comint-file-name-quote-list helm-ec-target inhibit-changing-match-data make-local-variable search-backward nil t string-match "\\`\\*" "*" helm-marked-candidates mapconcat #[257 "\301\302\"\203 \303\304!!\305\306O\207\301\307\"\203 \303!\207\301\310\"\205# \311\303\312!!P\207" [helm-ec-target string-match "\\`~/" comint-quote-filename abbreviate-file-name 1 nil "\\`/" "\\`[.]/" "./" file-relative-name] 5 "\n\n(fn X)"] " " last "/\\'" ""] 12 (#$ . 3053)]) | |
| 37 | #@57 Get candidates for eshell completion using `pcomplete'. | |
| 38 | (defalias 'helm-esh-get-candidates #[0 "\3062r\307!\203 \206 p\211q\210\310\211\310\211 \310\211 \311 \312 \313 \"\2066 \211;\205I \211\314\230?\205I \315\316 \"!\317 \"\211\310\211\211\211\320\310\204k \310\320 \321\322 \"\210\262\310\211\262\203\332 :\203\332 @\262\205\216 \323!\203\206 \202\216 \316\324\f!\"\262;\205\250 ;\205\250 \325!?\205\250 \326 \"\262\203\307 \323!\204\272 \327!\203\307 \204\307 C\244\262\202\322 \204\322 C\244\262A\262\202T \203\203 \325 !\203 \203 \330@!\204 \326 \"\204 \331 C\332\f\"\"\202\202\211\266\211.\266\202)0\207" [helm-current-buffer pcomplete-stub pcomplete-seen pcomplete-norm-func pcomplete-args pcomplete-last pcompleted buffer-live-p nil pcomplete-completions try-completion pcomplete-entries "" file-name-as-directory expand-file-name all-completions t message "No completions of %s" file-remote-p file-name-directory file-directory-p file-equal-p file-exists-p executable-find append remove pcomplete-index pcomplete-autolist pcomplete-suffix-list helm-pattern default-directory helm-eshell--quit-flag] 17 (#$ . 3944)]) | |
| 39 | (byte-code "\300\301\302\303!\"\210\300\304\305\303!\"\210\300\306\304\"\210\307\306\310\311#\210\312\303\313\304#\314\303\315\316\317$\207" [defalias helm-eshell-history-source-p eieio-make-class-predicate helm-eshell-history-source helm-eshell-history-source--eieio-childp eieio-make-child-predicate helm-eshell-history-source-child-p make-obsolete "use (cl-typep ... \\='helm-eshell-history-source) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (helm-source-sync) ((init :initform (lambda nil (remove-hook 'minibuffer-setup-hook 'eshell-mode))) (candidates :initform (lambda nil (with-helm-current-buffer (cl-loop for c from 0 to (ring-length eshell-history-ring) collect (eshell-get-history c))))) (nomark :initform t) (multiline :initform t) (keymap :initform helm-eshell-history-map) (candidate-number-limit :initform 9999) (action :initform (lambda (candidate) (eshell-kill-input) (insert candidate)))) (:documentation "Helm class to define source for Eshell history.")] 6) | |
| 40 | #@83 Create a new object of class type `helm-eshell-history-source'. | |
| 41 | ||
| 42 | (fn &rest SLOTS) | |
| 43 | (defalias 'helm-eshell-history-source #[128 "\300\301\302#\207" [apply make-instance helm-eshell-history-source] 5 (#$ . 6184)]) | |
| 44 | (byte-code "\300\301\302\303#\300\207" [function-put helm-eshell-history-source compiler-macro helm-eshell-history-source--anon-cmacro] 4) | |
| 45 | #@26 | |
| 46 | ||
| 47 | (fn WHOLE &rest SLOTS) | |
| 48 | (defalias 'helm-eshell-history-source--anon-cmacro #[385 "\211@;\204 \207\300\301\302@@#@\303@DABB\"\207" [macroexp--warn-and-return format "Obsolete name arg %S to constructor %S" identity] 7 (#$ . 6541)]) | |
| 49 | #@58 Preconfigured helm to provide helm completion in eshell. | |
| 50 | (defalias 'helm-esh-pcomplete #[0 "\306\211\307 \212\310 \210`)\3112 \312\"0\313\314`S\"\203! \314\202+ \315\212\316\317!\210`)\"\211\320\230@\321\211\211\2068 \314`\262 \203O \314\230\204O GZ\206V \314c\210\306\262`\262\322\323\"\203n \324\325!\210\306\262\n\326\nGSO\327\267\202y \330 \202\220\331\332\333\334\3351\207 \336 0\202\211 \210\321!@#\262\337\340\341\"\210\342\216 \203\251\343\344C\f\" \345=\203\250 \346\202\251 \321\211 @ A \347\350B\206\271 \351\"\210\352\n\"\210\353\216\354\355\356\357\360\361C$\362\363\364D\365\366\367\f;\203&\f\333\230\204&\204&\370 !\204\376 \371 !\211\205\371 \372!\262\203&\372 !\203 \322\323\"\203 \373\374\375!!\376\377!!P!\202.\373 !\202.?\205.\f&\n\206\245\211\203@\306\201G c\210\206\245\203T\313\201H `S\"\203T\324\325!\206\245E\204w;\203w\372!\203w\313\201I `S\"\203w\306\201J c\210\202\245E\204\211\313\201K `S\"\204\211\314c\210E\205\245\201L \321\306 F\322#)\266\203\205\245\201J c-\202\217\201M \216\354\355\356\357\360\361C$\362\363\364D\365\366\367\f;\203\f\333\230\204\204\370 !\204\347\371 !\211\205\342\372!\262\203\372 !\203\322\323\"\203\373\374\375!!\376\377!!P!\202\373 !\202?\205\f&\n\206\216\211\203)\306\201G c\210\206\216\203=\313\201H `S\"\203=\324\325!\206\216E\204`;\203`\372!\203`\313\201I `S\"\203`\306\201J c\210\202\216E\204r\313\201K `S\"\204r\314c\210E\205\216\201L \321\306 F\322#)\266\203\205\216\201J c))*\207" [helm-quit-if-no-candidate helm-execute-action-at-once-if-one helm-ec-target helm-turn-on-show-completion helm-move-selection-after-hook helm-split-window-default-side t point-marker eshell-bol eshell-incomplete eshell-parse-arguments looking-back " " buffer-substring-no-properties eshell-backward-argument 1 "~" nil string-match "\\`[~.]*.*/[.]\\'" delete-char -1 0 #s(hash-table size 1 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (40 116)) helm-lisp-completion-or-file-name-at-point replace-regexp-in-string "\\`\\*" "" last (error) pcomplete-parse-arguments add-hook helm-quit-hook helm-eshell--quit-hook-fn #[0 "\205 \301!\205 \302!\207" [helm-show-completion-overlay overlayp delete-overlay] 2] append helm-show-completion same below helm-set-local-variable helm-display-function helm-default-display-buffer helm-show-completion-init-overlay #[0 "\301\302\303\"\210\304\211\207" [helm-eshell--quit-flag remove-hook helm-quit-hook helm-eshell--quit-hook-fn nil] 3] helm :sources helm-make-source "Eshell completions" helm-esh-source :fuzzy-match :buffer "*helm pcomplete*" :keymap :resume noresume :input file-exists-p file-name-directory file-directory-p expand-file-name helm-basedir file-name-as-directory regexp-quote helm-basename helm-reuse-last-window-split-state helm-split-window-inside-p helm-show-completion-display-function helm-eshell-fuzzy-match helm-esh-completion-map helm-eshell--quit-flag inhibit-changing-match-data "." "\\s-" "\\([.]\\{1,2\\}\\|[^/]\\)\\'" "/" "/\\'" "[.]\\{2\\}\\'" #[0 "\301\302\303\"\210\304\211\207" [helm-eshell--quit-flag remove-hook helm-quit-hook helm-eshell--quit-hook-fn nil] 3]] 25 (#$ . 6786) nil]) | |
| 51 | (defalias 'helm-eshell--quit-hook-fn #[0 "\301\211\207" [helm-eshell--quit-flag t] 2]) | |
| 52 | #@40 Preconfigured helm for eshell history. | |
| 53 | (defalias 'helm-eshell-history #[0 "`\212\306 \210`)\211{\307C=\203 \310c\210\211\311\240\210`\262\312\313\314\315\316!\317\"\320$\216\321\216\203e \322\323C \"\n\324=\203= \325\202> \n\307\211 \326\327 \206K \330\"\210\331\"\210\332\333\334\335\336\"\337\340\341\342\343 &,\202t \332\333\334\335\336\"\337\340\341\342\343 &*\207" [helm-turn-on-show-completion helm-move-selection-after-hook helm-split-window-default-side helm-reuse-last-window-split-state helm-split-window-inside-p helm-show-completion-display-function eshell-bol nil " " t make-byte-code 0 "\300\242\205 \301\302`S\"\205 \303\304!\207" vconcat vector [looking-back " " delete-char -1] 3 #[0 "\205 \301!\205 \302!\207" [helm-show-completion-overlay overlayp delete-overlay] 2] append helm-show-completion same below helm-set-local-variable helm-display-function helm-default-display-buffer helm-show-completion-init-overlay helm :sources helm-make-source "Eshell history" helm-eshell-history-source :buffer "*helm eshell history*" :resume noresume :input] 13 (#$ . 10159) nil]) | |
| 54 | (byte-code "\300\301\302\303\304\305%\210\300\306\307\310\304\305%\210\311\312\313\314\315DD\316\304\317\320\321&\207" [custom-declare-face helm-eshell-prompts-promptidx ((t (:foreground "cyan"))) "Face used to highlight Eshell prompt index." :group helm-eshell-faces helm-eshell-prompts-buffer-name ((t (:foreground "green"))) "Face used to highlight Eshell buffer name." custom-declare-variable helm-eshell-prompts-promptidx-p funcall function #[0 "\300\207" [t] 1] "Show prompt number." helm-eshell :type boolean] 8) | |
| 55 | #@38 Keymap for `helm-eshell-prompt-all'. | |
| 56 | (defvar helm-eshell-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-eshell-prompts-other-window "" helm-eshell-prompts-other-frame] 5) (#$ . 11796)) | |
| 57 | #@192 List the prompts in Eshell BUFFER. | |
| 58 | ||
| 59 | Return a list of ("prompt" (point) (buffer-name) prompt-index)) | |
| 60 | e.g. ("ls" 162 "*eshell*" 3). | |
| 61 | If BUFFER is nil, use current buffer. | |
| 62 | ||
| 63 | (fn &optional BUFFER) | |
| 64 | (defalias 'helm-eshell-prompts-list #[256 "r\211\206 pq\210\303=\205T \212eb\210\304\305\306\211\203N \307 \304\306#\211\203G \n\203. \310\311\224\312\"\2042 \n\204J \313\314 \"\315 FB\262T\262\202J \304\262\210\202 \210\237\266\202))\207" [major-mode eshell-prompt-regexp eshell-highlight-prompt eshell-mode nil 1 t re-search-forward get-text-property 0 read-only buffer-substring-no-properties point-at-eol buffer-name] 9 (#$ . 12101)]) | |
| 65 | #@73 List the prompts of all Eshell buffers. | |
| 66 | See `helm-eshell-prompts-list'. | |
| 67 | (defalias 'helm-eshell-prompts-list-all #[0 "\300 \301\211:\203 @\262\302\303!!\244\262A\262\202 \211\237\207" [buffer-list nil reverse helm-eshell-prompts-list] 6 (#$ . 12749)]) | |
| 68 | #@33 | |
| 69 | ||
| 70 | (fn CANDIDATES &optional ALL) | |
| 71 | (defalias 'helm-eshell-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-eshell-prompts-promptidx-p nil propertize face helm-eshell-prompts-buffer-name ":" number-to-string helm-eshell-prompts-promptidx] 14 (#$ . 13016)]) | |
| 72 | #@19 | |
| 73 | ||
| 74 | (fn CANDIDATES) | |
| 75 | (defalias 'helm-eshell-prompts-all-transformer #[257 "\300\301\"\207" [helm-eshell-prompts-transformer t] 4 (#$ . 13474)]) | |
| 76 | #@57 | |
| 77 | ||
| 78 | (fn CANDIDATE &optional (ACTION \='switch-to-buffer)) | |
| 79 | (defalias 'helm-eshell-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-eshell-prompts-goto 2 buffer-name recenter] 8 (#$ . 13622)]) | |
| 80 | #@18 | |
| 81 | ||
| 82 | (fn CANDIDATE) | |
| 83 | (defalias 'helm-eshell-prompts-goto-other-window #[257 "\300\301\"\207" [helm-eshell-prompts-goto switch-to-buffer-other-window] 4 (#$ . 13978)]) | |
| 84 | #@18 | |
| 85 | ||
| 86 | (fn CANDIDATE) | |
| 87 | (defalias 'helm-eshell-prompts-goto-other-frame #[257 "\300\301\"\207" [helm-eshell-prompts-goto switch-to-buffer-other-frame] 4 (#$ . 14148)]) | |
| 88 | (defalias 'helm-eshell-prompts-other-window #[0 "\203 \301\302!\207\303\304!\207" [helm-alive-p helm-exit-and-execute-action helm-eshell-prompts-goto-other-window error "Running helm command outside of context"] 2 nil nil]) | |
| 89 | (put 'helm-eshell-prompts-other-window 'helm-only t) | |
| 90 | (defalias 'helm-eshell-prompts-other-frame #[0 "\203 \301\302!\207\303\304!\207" [helm-alive-p helm-exit-and-execute-action helm-eshell-prompts-goto-other-frame error "Running helm command outside of context"] 2 nil nil]) | |
| 91 | (put 'helm-eshell-prompts-other-frame 'helm-only t) | |
| 92 | #@68 Pre-configured `helm' to browse the prompts of the current Eshell. | |
| 93 | (defalias 'helm-eshell-prompts #[0 "\301=\203 \302\303\304\305\306\307\310 \311\312\313\314&\315\316$\207\317\320!\207" [major-mode eshell-mode helm :sources helm-make-source "Eshell prompts" helm-source-sync :candidates helm-eshell-prompts-list :candidate-transformer helm-eshell-prompts-transformer :action (("Go to prompt" . helm-eshell-prompts-goto)) :buffer "*helm Eshell prompts*" message "Current buffer is not an Eshell buffer"] 11 (#$ . 14871) nil]) | |
| 94 | #@69 Pre-configured `helm' to browse the prompts of all Eshell sessions. | |
| 95 | (defalias 'helm-eshell-prompts-all #[0 "\301\302\303\304\305\306\307 \310\311\312\313\314&\n\315\316$\207" [helm-eshell-prompts-keymap helm :sources helm-make-source "All Eshell prompts" helm-source-sync :candidates helm-eshell-prompts-list-all :candidate-transformer helm-eshell-prompts-all-transformer :action (("Go to prompt" . helm-eshell-prompts-goto) ("Go to prompt in other window `C-c o`" . helm-eshell-prompts-goto-other-window) ("Go to prompt in other frame `C-c C-o`" . helm-eshell-prompts-goto-other-frame)) :keymap :buffer "*helm Eshell all prompts*"] 13 (#$ . 15406) nil]) | |
| 96 | (provide 'helm-eshell) | |
