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

Chizi123
2018-11-18 21067e7cbe6d7a0f65ff5c317a96b5c337b0b3d8
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\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)
16 #@72 Create a new object of class type `helm-file-cache'.
17
18 (fn &rest SLOTS)
19 (defalias 'helm-file-cache #[128 "\300\301\302#\207" [apply make-instance helm-file-cache] 5 (#$ . 1943)])
20 (byte-code "\300\301\302\303#\300\207" [function-put helm-file-cache compiler-macro helm-file-cache--anon-cmacro] 4)
21 #@26 
22
23 (fn WHOLE &rest SLOTS)
24 (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)])
25 (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])
26 (defvar helm-source-file-cache nil)
27 (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)
28 #@44 
29
30 (fn DIR &optional MATCH (IGNORE-DIRS t))
31 (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)])
32 #@26 
33
34 (fn ACTIONS CANDIDATE)
35 (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)])
36 (defvar helm-recentf--basename-flag nil)
37 #@16 
38
39 (fn PATTERN)
40 (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)])
41 (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)
42 #@76 Create a new object of class type `helm-recentf-source'.
43
44 (fn &rest SLOTS)
45 (defalias 'helm-recentf-source #[128 "\300\301\302#\207" [apply make-instance helm-recentf-source] 5 (#$ . 5624)])
46 (byte-code "\300\301\302\303#\300\207" [function-put helm-recentf-source compiler-macro helm-recentf-source--anon-cmacro] 4)
47 #@26 
48
49 (fn WHOLE &rest SLOTS)
50 (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)])
51 (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)
52 #@113 See (info "(emacs)File Conveniences").
53 Set `recentf-max-saved-items' to a bigger value if default is too small.
54 (defvar helm-source-recentf nil (#$ . 6638))
55 (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)
56 #@111 A basic transformer for helm files sources.
57 Colorize only symlinks, directories and files.
58
59 (fn FILES SOURCE)
60 (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)])
61 (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)
62 #@89 Create a new object of class type `helm-files-in-current-dir-source'.
63
64 (fn &rest SLOTS)
65 (defalias 'helm-files-in-current-dir-source #[128 "\300\301\302#\207" [apply make-instance helm-files-in-current-dir-source] 5 (#$ . 9298)])
66 (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)
67 #@26 
68
69 (fn WHOLE &rest SLOTS)
70 (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)])
71 (defvar helm-source-files-in-current-dir (helm-make-source "Files from Current Directory" 'helm-files-in-current-dir-source))
72 #@101 Preconfigured `helm' for opening files.
73 Run all sources defined in `helm-for-files-preferred-list'.
74 (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])
75 (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])
76 (put 'helm-multi-files-toggle-to-locate 'helm-only t)
77 #@267 Preconfigured helm like `helm-for-files' but running locate only on demand.
78
79 Allow toggling back and forth from locate to others sources with
80 `helm-multi-files-toggle-locate-binding' key.
81 This avoid launching needlessly locate when what you search is already
82 found.
83 (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])
84 #@37 Preconfigured `helm' for `recentf'.
85 (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])
86 (provide 'helm-for-files)