| commit | author | age | ||
| 76bbd0 | 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 \203q B\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 "\2032 r\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--hook49 #[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) | |
