;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (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\nof this 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 (#$ . 1622)]) (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 (#$ . 1924)]) (defalias 'helm-file-cache-get-candidates #[0 "\301\211:\203L@\262\302\211\203\211A\262\242\202\"\303\304\305GD\"\301\211:\203<@\262PB\262A\262\202%\211\237\266\205!\244\262A\262\202\211\237\207" [file-cache-alist nil reverse signal wrong-number-of-arguments (base &rest dirs)] 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/\266\313\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 (#$ . 3002)]) #@26 (fn ACTIONS CANDIDATE) (defalias 'helm-transform-file-cache #[514 "\300 \301\302\"\303\230\203\304\305\"\207\207" [helm-get-current-source assoc-default name "File Cache" append (("Remove marked files from file-cache" . helm-ff-file-cache-remove-file))] 6 (#$ . 3490)]) (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\207\304\310\"\203$\311\312\"\307\207\313\207" [helm-recentf--basename-flag replace-regexp-in-string " -b" "" string-match " " " -b\\'" t "\\([^ ]*\\) -b\\'" match-string 1 nil] 5 (#$ . 3814)]) (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 (#$ . 5299)]) (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 (#$ . 5621)]) (cl-generic-define-method 'helm--setup-source '(:after) '((source helm-recentf-source)) nil #[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)"]) #@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 (#$ . 6222)) (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\211:\203\330@\262\203A\311!\204A \2032\312 \"\204A\312\n\"\204A\313!\202E\314!\262\315!\206R\316!\262\203f ?\205k\315\310\317#\205k\320!@\262\204|\203|B\202\311;\203\230\321\322\323\305\f\n!\324\325 !&B\202\311\317=\203\265\321\322\326\305\f\n!\324\325 !&B\202\311\321\322\327\305\f\n!\324\325 !&BB\262A\262\310\262\202\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] 19 (#$ . 6897)]) (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 (#$ . 8908)]) (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 (#$ . 9295)]) (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 (#$ . 9672) 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) #@279 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 avoids launching locate needlessly when what you are searching for 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\"\216\341\342\343\313\344\345\346*&*\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--hook98 #[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-closure #[0 "\303 \304\n!\300#\207" [V0 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 (#$ . 10674) 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 (#$ . 12501) nil]) (provide 'helm-for-files)