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

Chizi123
2018-11-18 9d27fc972e84736015ab3b1c331888a8fe3d1276
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
;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\304\305\306\307\310DD\311\312\301\313\314&\210\304\315\306\307\316DD\317\313\320\312\301&\210\304\321\306\307\322DD\323\312\301\313\324&\210\325\326\327\330!\"\210\325\331\332\330!\"\210\325\333\331\"\210\334\333\335\336#\210\337\330\340\331#\341\330\342\343\344$\207" [require helm-files helm-external helm-bookmark custom-declare-variable helm-multi-files-toggle-locate-binding funcall function #[0 "\300\207" [#1="C-c p"] 1 #1#] "Default binding to switch back and forth locate in `helm-multi-files'." :group :type string helm-for-files-preferred-list #[0 "\300\207" [(helm-source-buffers-list helm-source-recentf helm-source-bookmarks helm-source-file-cache helm-source-files-in-current-dir helm-source-locate)] 1] "Your preferred sources for `helm-for-files' and `helm-multi-files'.\n\nWhen adding a source here it is up to you to ensure the library of\nthis source is accessible and properly loaded." (repeat (choice symbol)) helm-for-files-tramp-not-fancy #[0 "\300\207" [t] 1] "Colorize remote files when non nil.\n\nBe aware that a nil value will make tramp display very slow." boolean defalias helm-file-cache-p eieio-make-class-predicate helm-file-cache helm-file-cache--eieio-childp eieio-make-child-predicate helm-file-cache-child-p make-obsolete "use (cl-typep ... \\='helm-file-cache) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (helm-source-in-buffer helm-type-file) ((init :initform (lambda nil (require 'filecache)))) nil] 8)
#@72 Create a new object of class type `helm-file-cache'.
 
(fn &rest SLOTS)
(defalias 'helm-file-cache #[128 "\300\301\302#\207" [apply make-instance helm-file-cache] 5 (#$ . 1943)])
(byte-code "\300\301\302\303#\300\207" [function-put helm-file-cache compiler-macro helm-file-cache--anon-cmacro] 4)
#@26 
 
(fn WHOLE &rest SLOTS)
(defalias 'helm-file-cache--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 (#$ . 2245)])
(defalias 'helm-file-cache-get-candidates #[0 "\301\211:\203N@\262\302\211\203\211A\262\242\202\"\303\304\301GD\"\301\211:\203<@\262PB\262A\262\202%\211\237\266\203\266\202!\244\262A\262\202\211\237\207" [file-cache-alist nil reverse signal wrong-number-of-arguments] 11])
(defvar helm-source-file-cache nil)
(byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313&    \207" [custom-declare-variable helm-file-cache-fuzzy-match funcall function #[0 "\300\207" [nil] 1] "Enable fuzzy matching in `helm-source-file-cache' when non--nil." :group helm-files :type boolean :set #[514 "L\210\302\303\304\305\306\307&\211\207" [helm-file-cache-fuzzy-match helm-source-file-cache helm-make-source "File Cache" helm-file-cache :fuzzy-match :data helm-file-cache-get-candidates] 9 "\n\n(fn VAR VAL)"]] 10)
#@44 
 
(fn DIR &optional MATCH (IGNORE-DIRS t))
(defalias 'helm-file-cache-add-directory-recursively #[641 "\211\203 \211A\262\242\202\300\203\301\302\303\304G\\D\"\210\305\306!\210\307\310\311\312\313\314    \315    &    \313:\203C@\262\316!\210A\262\202/\313\266\202\207" [t signal wrong-number-of-arguments helm-file-cache-add-directory-recursively 3 require filecache helm-walk-directory :path full :directories nil :match :skip-subdirs file-cache-add-file] 14 (#$ . 3314)])
#@26 
 
(fn ACTIONS CANDIDATE)
(defalias 'helm-transform-file-cache #[514 "\300 \301\302\"\303\230\203\304\305\"\202\207" [helm-get-current-source assoc-default name "File Cache" append (("Remove marked files from file-cache" . helm-ff-file-cache-remove-file))] 6 (#$ . 3805)])
(defvar helm-recentf--basename-flag nil)
#@16 
 
(fn PATTERN)
(defalias 'helm-recentf-pattern-transformer #[257 "\301\302\303#\304\305\"\203\304\306\"\203\307\211\202,\304\310\"\203)\311\312\"\307\202,\313\207" [helm-recentf--basename-flag replace-regexp-in-string " -b" "" string-match " " " -b\\'" t "\\([^ ]*\\) -b\\'" match-string 1 nil] 5 (#$ . 4131)])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311&\210\312\313\314\315!\"\210\312\316\317\315!\"\210\312\320\316\"\210\321\320\322\323#\210\324\315\325\316#\326\315\327\330\331$\207" [custom-declare-variable helm-turn-on-recentf funcall function #[0 "\300\207" [t] 1] "Automatically turn on `recentf-mode' when non-nil." :group helm-files :type boolean defalias helm-recentf-source-p eieio-make-class-predicate helm-recentf-source helm-recentf-source--eieio-childp eieio-make-child-predicate helm-recentf-source-child-p make-obsolete "use (cl-typep ... \\='helm-recentf-source) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (helm-source-sync helm-type-file) ((init :initform (lambda nil (require 'recentf) (when helm-turn-on-recentf (recentf-mode 1)))) (candidates :initform (lambda nil recentf-list)) (pattern-transformer :initform 'helm-recentf-pattern-transformer) (match-part :initform (lambda (candidate) (if (or helm-ff-transformer-show-only-basename helm-recentf--basename-flag) (helm-basename candidate) candidate))) (migemo :initform t) (persistent-action :initform 'helm-ff-kill-or-find-buffer-fname)) nil] 8)
#@76 Create a new object of class type `helm-recentf-source'.
 
(fn &rest SLOTS)
(defalias 'helm-recentf-source #[128 "\300\301\302#\207" [apply make-instance helm-recentf-source] 5 (#$ . 5624)])
(byte-code "\300\301\302\303#\300\207" [function-put helm-recentf-source compiler-macro helm-recentf-source--anon-cmacro] 4)
#@26 
 
(fn WHOLE &rest SLOTS)
(defalias 'helm-recentf-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 (#$ . 5946)])
(byte-code "\300\301\302\301\303\"\"\210\304\301\305\306\307$\207" [eieio--defalias helm--setup-source eieio--defgeneric-init-form nil eieio--defmethod :after helm-recentf-source #[257 "\211\300\301\302\303 J\304\"#\207" [eieio-oset action append helm-actions-from-type-file (("Delete file(s) from recentf" lambda (_candidate) (cl-loop for file in (helm-marked-candidates) do (setq recentf-list (delete file recentf-list)))))] 8 "\n\n(fn SOURCE)"]] 5)
#@113 See (info "(emacs)File Conveniences").
Set `recentf-max-saved-items' to a bigger value if default is too small.
(defvar helm-source-recentf nil (#$ . 6638))
(byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313&    \207" [custom-declare-variable helm-recentf-fuzzy-match funcall function #[0 "\300\207" [nil] 1] "Enable fuzzy matching in `helm-source-recentf' when non--nil." :group helm-files :type boolean :set #[514 "L\210\303\304\305\306\307    $\211)\207" [helm-fuzzy-sort-fn helm-recentf-fuzzy-match helm-source-recentf helm-fuzzy-matching-sort-fn-preserve-ties-order helm-make-source "Recentf" helm-recentf-source :fuzzy-match] 7 "\n\n(fn VAR VAL)"]] 10)
#@111 A basic transformer for helm files sources.
Colorize only symlinks, directories and files.
 
(fn FILES SOURCE)
(defalias 'helm-highlight-files #[514 "\304\305\306 \"\206    \307\310\211\211\211\211:\203\306@\262\203<\311!\204<    \203.\312    \"\204<\312\n\"\204<\313!\202?\314!\262\315!\206J\316!\262\203] ?\205a\315\310\317#\205a\320!@\262\204q\203qB\202\273;\203\214\321\322\323\305     !\324\325\f!&B\202\273\317=\203\250\321\322\326\305     !\324\325\f!&B\202\273\321\322\327\305     !\324\325\f!&BB\262A\262\202\211\237\207" [helm-ff-transformer-show-only-basename helm--url-regexp helm-ff-url-regexp helm-for-files-tramp-not-fancy assoc-default match-part helm-get-current-source identity nil helm-dir-is-dot string-match helm-basename abbreviate-file-name file-remote-p helm-file-on-mounted-network-p t file-attributes propertize face helm-ff-symlink help-echo expand-file-name helm-ff-directory helm-ff-file] 18 (#$ . 7314)])
(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-files-in-current-dir-source-p eieio-make-class-predicate helm-files-in-current-dir-source helm-files-in-current-dir-source--eieio-childp eieio-make-child-predicate helm-files-in-current-dir-source-child-p make-obsolete "use (cl-typep ... \\='helm-files-in-current-dir-source) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (helm-source-sync helm-type-file) ((candidates :initform (lambda nil (with-helm-current-buffer (let ((dir (helm-current-directory))) (when (file-accessible-directory-p dir) (directory-files dir t)))))) (pattern-transformer :initform 'helm-recentf-pattern-transformer) (match-part :initform (lambda (candidate) (if (or helm-ff-transformer-show-only-basename helm-recentf--basename-flag) (helm-basename candidate) candidate))) (fuzzy-match :initform t) (migemo :initform t)) nil] 6)
#@89 Create a new object of class type `helm-files-in-current-dir-source'.
 
(fn &rest SLOTS)
(defalias 'helm-files-in-current-dir-source #[128 "\300\301\302#\207" [apply make-instance helm-files-in-current-dir-source] 5 (#$ . 9298)])
(byte-code "\300\301\302\303#\300\207" [function-put helm-files-in-current-dir-source compiler-macro helm-files-in-current-dir-source--anon-cmacro] 4)
#@26 
 
(fn WHOLE &rest SLOTS)
(defalias 'helm-files-in-current-dir-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 (#$ . 9685)])
(defvar helm-source-files-in-current-dir (helm-make-source "Files from Current Directory" 'helm-files-in-current-dir-source))
#@101 Preconfigured `helm' for opening files.
Run all sources defined in `helm-for-files-preferred-list'.
(defalias 'helm-for-files #[0 "\303\304!\210\204 \305\306\307\"\310\311    \312\313\314\315\316\n&\207" [helm-source-buffers-list helm-for-files-preferred-list helm-buffers-truncate-lines require helm-x-files helm-make-source "Buffers" helm-source-buffers helm :sources :ff-transformer-show-only-basename nil :buffer "*helm for files*" :truncate-lines] 9 (#$ . 10063) nil])
(defalias 'helm-multi-files-toggle-to-locate #[0 "\2032r\304 q\210    ?\211\203#\305\306\n>?\205\306\nB!\210\307\310!\2020\311 \210\305\312\306 \"!\210\307\313!)\207\314\315!\207" [helm-alive-p helm-multi-files--toggle-locate helm-sources helm-for-files-preferred-list helm-buffer-get helm-set-sources helm-source-locate helm-set-source-filter (helm-source-locate) helm-kill-async-processes remove nil error "Running helm command outside of context"] 4 nil nil])
(put 'helm-multi-files-toggle-to-locate 'helm-only t)
#@267 Preconfigured helm like `helm-for-files' but running locate only on demand.
 
Allow toggling back and forth from locate to others sources with
`helm-multi-files-toggle-locate-binding' key.
This avoid launching needlessly locate when what you search is already
found.
(defalias 'helm-multi-files #[0 "\306\307!\210\204 \310\311\312\"\313\314 \210\315\316\317C\"\210\320\321\n\" \2039\322\f\313\323\324#)\266\203?\205:\325\326\327\f#\202:\f\330,\331-!\"\332\333\334\"\210\333\335B.B.\336\335\333\"\210\337\340\341\342\343!\344\"\345$\216\346\347\350\313\351\352\353/&*\207" [helm-source-buffers-list helm-multi-files--toggle-locate helm-for-files-preferred-list helm-locate-fuzzy-match helm-locate-command inhibit-changing-match-data require helm-x-files helm-make-source "Buffers" helm-source-buffers nil helm-locate-set-command helm-set-local-variable helm-async-outer-limit-hook #[0 "\205\303    \304\305\306#)\266\203?\205\307 \207" [helm-locate-fuzzy-match helm-pattern inhibit-changing-match-data "\\s-" nil t string-match helm-redisplay-buffer] 7] remove helm-source-locate "\\`locate -b" t string-match replace-regexp-in-string "\\`locate" "locate -b" lookup-key read-kbd-macro defalias #1=#:helm--hook64 #[0 "\302\216\303\304    !\305#)\207" [helm-map helm-multi-files-toggle-locate-binding #[0 "\300\301\302\"\210\303\302!\207" [remove-hook helm-after-initialize-hook #1# fmakunbound] 3] define-key kbd helm-multi-files-toggle-to-locate] 4] helm-after-initialize-hook add-hook make-byte-code 0 "\303    \304\n!\300#\207" vconcat vector [helm-map helm-multi-files-toggle-locate-binding define-key kbd] 4 helm :sources :ff-transformer-show-only-basename :buffer "*helm multi files*" :truncate-lines helm-map helm-multi-files-toggle-locate-binding helm--temp-hooks helm-buffers-truncate-lines] 12 (#$ . 11066) nil])
#@37 Preconfigured `helm' for `recentf'.
(defalias 'helm-recentf #[0 "\300\301\302\303\304\305\306&\207" [helm :sources helm-source-recentf :ff-transformer-show-only-basename nil :buffer "*helm recentf*"] 7 (#$ . 12914) nil])
(provide 'helm-for-files)