mirror of https://github.com/Chizi123/.emacs.d.git

Chizi123
2018-11-19 a4b9172aefa91861b587831e06f55b1e19f3f3be
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\206p\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\307C\244\262\202\322\204\322C\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\204OGZ\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\201Gc\210\206\245\203T\313\201H`S\"\203T\324\325!\206\245E\204w;\203w\372!\203w\313\201I`S\"\203w\306\201Jc\210\202\245E\204\211\313\201K`S\"\204\211\314c\210E\205\245\201L\321\306F\322#)\266\203\205\245\201Jc-\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\201Gc\210\206\216\203=\313\201H`S\"\203=\324\325!\206\216E\204`;\203`\372!\203`\313\201I`S\"\203`\306\201Jc\210\202\216E\204r\313\201K`S\"\204r\314c\210E\205\216\201L\321\306F\322#)\266\203\205\216\201Jc))*\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\206pq\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)