;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301!\210\300\302!\207" [require helm helm-types] 2) #@34 The fd shell command executable. (defvar helm-fd-executable "fd" (#$ . 156)) (byte-code "\301\302\303\304\305DD\306\307\310\311\312&\210\313\314\315\316\317Y\205\320\321\"BC\322\311\323%\207" [emacs-major-version custom-declare-variable helm-fd-switches funcall function #[0 "\300\207" [("--no-ignore" "--hidden" "--type" "f" "--type" "d" "--color" "always")] 1] "A list of options to pass to fd shell command." :type (repeat string) :group helm-files custom-declare-face helm-fd-finish t append 27 (:extend t) (:foreground "Green") "Face used in mode line when fd process ends." helm-grep-faces] 8) (defvar helm-fd-map (byte-code "\301 \302\"\210\303\304\305#\210\303\306\307#\210\303\310\311#\210\303\312\313#\210\207" [helm-generic-files-map make-sparse-keymap set-keymap-parent define-key "" undefined "" helm-delete-backward-no-update [M-down] helm-fd-next-directory [M-up] helm-fd-previous-directory] 5)) #@12 (fn ARG) (defalias 'helm-fd-next-directory-1 #[257 "\300\301 !r\302\303\"\216\304@\305\"\210\306\307 !\211\306\307 !\232\205/\310V\203)\311 \210\202\312 \210\202\262*\207" [internal--before-with-selected-window helm-window make-closure #[0 "\301\300!\207" [V0 internal--after-with-selected-window] 2] select-window norecord helm-basedir helm-get-selection 0 helm-next-line helm-previous-line] 6 (#$ . 1085)]) #@45 Move to next directory in a helm-fd source. (defalias 'helm-fd-next-directory #[0 "\203\301\302!\207\303\304!\207" [helm-alive-p helm-fd-next-directory-1 1 error "Running helm command outside of context"] 2 (#$ . 1512) nil]) #@49 Move to previous directory in a helm-fd source. (defalias 'helm-fd-previous-directory #[0 "\203\301\302!\207\303\304!\207" [helm-alive-p helm-fd-next-directory-1 -1 error "Running helm command outside of context"] 2 (#$ . 1746) nil]) (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-fd-class-p eieio-make-class-predicate helm-fd-class helm-fd-class--eieio-childp eieio-make-child-predicate helm-fd-class-child-p make-obsolete "use (cl-typep ... \\='helm-fd-class) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (helm-source-async) ((candidates-process :initform 'helm-fd-process) (requires-pattern :initform 2) (candidate-number-limit :initform 20000) (nohighlight :initform t) (help-message :initform 'helm-fd-help-message) (filtered-candidate-transformer :initform 'helm-fd-fct) (action :initform 'helm-type-file-actions) (keymap :initform helm-fd-map)) nil] 6) #@70 Create a new object of class type `helm-fd-class'. (fn &rest SLOTS) (defalias 'helm-fd-class #[128 "\300\301\302#\207" [apply make-instance helm-fd-class] 5 (#$ . 2759)]) (byte-code "\300\301\302\303#\300\207" [function-put helm-fd-class compiler-macro helm-fd-class--anon-cmacro] 4) #@26 (fn WHOLE &rest SLOTS) (defalias 'helm-fd-class--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 (#$ . 3051)]) #@48 Initialize fd process in an helm async source. (defalias 'helm-fd-process #[0 "\304\305 \306\n\307\"\"\310\311\312\304 %\313 \314\315\316\317 \320P!#\321\322\323\324\307#\"\210\321\325\"\210\326\327\330#\"\210)\207" [process-connection-type helm-fd-switches helm-pattern helm-fd-executable nil append split-string " " apply start-process "fd" float-time replace-regexp-in-string "\n" #1="" shell-command-to-string " --version" helm-log "Fd command:\nfd %s" mapconcat identity "VERSION: %s" set-process-sentinel make-closure #[514 "\211\303\230\2034\304\305 !r\306\307\"\216\310@\311\"\210\312\313\312\314\312\315\316\317\320\301\321 \300Z\322BBBB\323BBD\257\324 *\207\325\326\327\330\331#\"\207" [V0 V1 mode-line-format "finished\n" internal--before-with-selected-window helm-window make-closure #[0 "\301\300!\207" [V0 internal--after-with-selected-window] 2] select-window norecord " " mode-line-buffer-identification (:eval (format "L%s" (helm-candidate-number-at-point))) :eval propertize format "[%s process finished in %.2fs - (%s results)] " float-time ((helm-get-candidate-number)) ('face 'helm-fd-finish) force-mode-line-update helm-log "Error: Fd %s" replace-regexp-in-string "\n" #1#] 15 "\n\n(fn PROCESS EVENT)"]] 11 (#$ . 3282)]) #@82 The filtered-candidate-transformer function for helm-fd. (fn CANDIDATES SOURCE) (defalias 'helm-fd-fct #[514 "\300\211:\203@\262\301!B\262A\262\202\211\237\207" [nil helm--ansi-color-apply] 7 (#$ . 4548)]) #@72 Run fd shell command on DIRECTORY with helm interface. (fn DIRECTORY) (defalias 'helm-fd-1 #[257 "\302!\204 \303\304\305\306\211$\210\307!\203\303\310\311\306\211$\210\211\312\313\314\315\316\317 !\"\320\"\321\322$)\207" [helm-fd-executable default-directory executable-find cl--assertion-failed (executable-find helm-fd-executable) "Could not find fd executable" nil file-remote-p (not (file-remote-p directory)) "Fd not supported on remote directories" helm :sources helm-make-source format "fd (%s)" abbreviate-file-name helm-fd-class :buffer "*helm fd*"] 8 (#$ . 4774)]) (provide 'helm-fd)