emacsd/elpa/helm-20191026.431/helm-for-files.elc

;ELC
;;; Compiled
;;; in Emacs version 26.3
;;; 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\211
A\262\242\202\"\303\304\301GD\"
\301\211:\203<@\262
P
B\262
A\262\202%\211\237\266\203\266\202!
\244\262
A\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
\211
A\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
!\210
A\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!&B
B\262
A\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--hook55 #[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)