| 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\300\304!\210\300\305!\210\300\306!\210\300\307!\210\300\310!\210\300\311!\210\312\313\314\315\316\302%\210\317\320\321\322\323DD\324\325\326\316\313&\210\317\327\321\322\330DD\331\316\313\325\332&\210\317\333\321\322\334DD\335\316\313\325\332&\210\317\336\321\322\337DD\340\316\313\325\326&\210\317\341\321\322\342DD\343\316\313\325\332&\210\317\344\321\322\345DD\346\316\313\325\347&\210\317\350\321\322\351DD\352\316\313\325\347&\210\317\353\321\322\354DD\355\325\332\316\313&\210\317\356\321\322\357DD\360\325\347\316\313&\210\317\361\321\322\362DD\363\325\364\316\313&\210\317\365\321\322\366DD\367\325\370\316\313&\210\317\371\321\322\372DD\373\325\332\316\313&\210\317\374\321\322\375DD\376\316\313\325\332&\210\317\377\321\322\201@ DD\201A \316\313\325\332&\210\317\201B \321\322\201C DD\201D \316\313\325\326&\210\317\201E \321\322\201F DD\201G \316\313\325\332&\210\317\201H \321\322\201I DD\201J \316\313\325\332&\210\317\201K \321\322\201L DD\201M \316\313\325\326&\210\317\201N \321\322\201O DD\201P \316\313\325\332&\210\317\201Q \321\322\201R DD\201S \316\313\325\201T &\210\317\201U \321\322\201V DD\201W \316\313\325\201X &\210\317\201Y \321\322\201Z DD\201[ \316\313\325\201X &\210\317\201\\ \321\322\201] DD\201^ \316\313\325\347&\210\317\201_ \321\322\201` DD\201a \316\313\325\332&\210\317\201b \321\322\201c DD\201d \316\313\325\332&\210\317\201e \321\322\201f DD\201g \316\313\325\332&\210\317\201h \321\322\201i DD\201j \316\313\325\332&\210\317\201k \321\322\201l DD\201m \316\313\325\332&\210\317\201n \321\322\201o DD\201p \316\313\325\201q &\210\317\201r \321\322\201s DD\201t \316\313\325\201u &\210\317\201v \321\322\201w DD\201x \316\313\325\322&\210\317\201y \321\322\201z DD\201{ \316\313\325\322&\210\317\201| \321\322\201} DD\201~ \316\313\325\201 &\210\317\201\200 \321\322\201\201 DD\201\202 \316\313\325\201\203 &\210\317\201\204 \321\322\201\205 DD\201\206 \316\313\325\201\207 &\210\317\201\210 \321\322\201\211 DD\201\212 \316\313\325\332&\210\317\201\213 \321\322\201\214 DD\201\215 \325\322\316\313&\210\312\201\216 \314\201\217 \201\220 \201\221 \316\313\316\201\222 & \210\201\223 \201\224 \201\225 \201\226 \316\201\216 %\210\201\223 \201\227 \201\230 \201\231 \316\201\216 %\210\201\223 \201\232 \201\233 \201\234 \316\201\216 %\210\201\223 \201\235 \201\236 \201\237 \316\201\216 %\210\201\223 \201\240 \201\241 \201\242 \316\201\216 %\210\201\223 \201\243 \201\244 \201\245 \316\201\216 %\210\201\223 \201\246 \201\247 \201\250 \316\201\216 %\210\201\223 \201\251 \201\252 \201\253 \316\201\216 %\210\201\223 \201\254 \201\255 \201\256 \316\201\216 %\210\201\223 \201\257 \201\260 \201\261 \316\201\216 %\210\201\223 \201\262 \201\263 \201\264 \316\201\216 %\210\201\223 \201\265 \201\266 \201\267 \316\201\216 %\210\201\223 \201\270 \201\271 \201\272 \316\201\216 %\210\201\223 \201\273 \201\274 \201\275 \316\201\216 %\210\201\223 \201\276 \201\277 \201\300 \316\201\216 %\210\201\223 \201\301 \201\302 \201\303 \316\201\216 %\210\201\223 \201\304 \201\305 \201\306 \316\201\216 %\207" [require cl-lib helm helm-types helm-utils helm-grep helm-help helm-locate helm-tags helm-buffers custom-declare-group helm-files nil "Files applications and libraries for Helm." :group custom-declare-variable helm-tramp-verbose funcall function #[0 "\300\207" [0] 1] "Just like `tramp-verbose' but specific to helm.\nWhen set to 0 don't show tramp messages in helm.\nIf you want to have the default tramp messages set it to 3." :type integer helm-ff-auto-update-initial-value #[0 "\300\207" [nil] 1] "Auto update when only one candidate directory is matched.\nDefault value when starting `helm-find-files' is nil because\nit prevent using <backspace> to delete char backward and by the way\nconfuse beginners.\nFor a better experience with `helm-find-files' set this to non--nil\nand use C-<backspace> to toggle it." boolean helm-ff-lynx-style-map #[0 "\300\207" [t] 1] "Use arrow keys to navigate with `helm-find-files'.\nYou will have to restart Emacs or reeval `helm-find-files-map'\nand `helm-read-file-map' for this take effect." helm-ff-history-max-length #[0 "\300\207" [100] 1] "Number of elements shown in `helm-find-files' history." helm-ff-fuzzy-matching #[0 "\300\207" [t] 1] "Enable fuzzy matching for `helm-find-files' when non--nil.\nSee `helm-ff--transform-pattern-for-completion' for more info." helm-ff-exif-data-program #[0 "\300\207" [#1="exiftran"] 1 #1#] "Program used to extract exif data of an image file." string helm-ff-exif-data-program-args #[0 "\300\207" [#2="-d"] 1 #2#] "Arguments used for `helm-ff-exif-data-program'." helm-ff-newfile-prompt-p #[0 "\300\207" [t] 1] "Whether Prompt or not when creating new file.\nThis set `ffap-newfile-prompt'." helm-ff-avfs-directory #[0 "\300\207" [#3="~/.avfs"] 1 #3#] "The default avfs directory, usually '~/.avfs'.\nWhen this is set you will be able to expand archive filenames with `C-j'\ninside an avfs directory mounted with mountavfs.\nSee <http://sourceforge.net/projects/avf/>." helm-ff-file-compressed-list #[0 "\300\207" [("gz" "bz2" "zip" "7z")] 1] "Minimal list of compressed files extension." (repeat (choice string)) helm-ff-printer-list #[0 "\300\207" [nil] 1] "A list of available printers on your system.\nWhen non--nil let you choose a printer to print file.\nOtherwise when nil the variable `printer-name' will be used.\nOn Unix based systems (lpstat command needed) you don't need to set this,\n`helm-ff-find-printers' will find a list of available printers for you." (repeat (choice string)) helm-ff-transformer-show-only-basename #[0 "\300\207" [t] 1] "Show only basename of candidates in `helm-find-files'.\nThis can be toggled at anytime from `helm-find-files' with \\<helm-find-files-map>\\[helm-ff-run-toggle-basename]." helm-ff-signal-error-on-dot-files #[0 "\300\207" [t] 1] "Signal error when file is `.' or `..' on file deletion when non--nil.\nDefault is non--nil.\nWARNING: Setting this to nil is unsafe and can cause deletion of a whole tree." helm-ff-search-library-in-sexp #[0 "\300\207" [nil] 1] "Search for library in `require' and `declare-function' sexp." helm-tooltip-hide-delay #[0 "\300\207" [25] 1] "Hide tooltips automatically after this many seconds." helm-ff-file-name-history-use-recentf #[0 "\300\207" [nil] 1] "Use `recentf-list' instead of `file-name-history' in `helm-find-files'." helm-ff-skip-boring-files #[0 "\300\207" [nil] 1] "Non--nil to skip files matching regexps in\n`helm-boring-file-regexp-list'.\n\nThis take effect in `helm-find-files' and file completion used by `helm-mode'\ni.e `helm-read-file-name'.\nNote that when non-nil this will slow down slightly `helm-find-files'." helm-ff-candidate-number-limit #[0 "\300\207" [5000] 1] "The `helm-candidate-number-limit' for `helm-find-files' and friends.\nNote that when going one level up with `\\<helm-find-files-map>\\[helm-find-files-up-one-level]'\nThe length of directory will be used instead if it is higher than this\nvalue, this to avoid failing to preselect the previous directory/file if\nthis one is situated lower than `helm-ff-candidate-number-limit' num\ncandidate." helm-ff-up-one-level-preselect #[0 "\300\207" [t] 1] "Always preselect previous directory when going one level up.\n\nWhen non nil `candidate-number-limit' source value is modified\ndynamically when going one level up if the position of previous\ncandidate in its directory is > to `helm-ff-candidate-number-limit'.\n\nThis can be helpful to disable this and reduce\n`helm-ff-candidate-number-limit' if you often navigate across very\nlarge directories." helm-files-save-history-extra-sources #[0 "\300\207" [("Find" "Locate" "Recentf" "Files from Current Directory" "File Cache")] 1] "Extras source that save candidate to `file-name-history'." (repeat (choice string)) helm-find-files-before-init-hook #[0 "\300\207" [nil] 1] "Hook that run before initialization of `helm-find-files'." hook helm-find-files-after-init-hook #[0 "\300\207" [nil] 1] "Hook that run after initialization of `helm-find-files'." helm-find-files-bookmark-prefix #[0 "\300\207" [#4="Helm-find-files: "] 1 #4#] "bookmark name prefix of `helm-find-files' sessions." helm-ff-guess-ffap-filenames #[0 "\300\207" [nil] 1] "Use ffap to guess local filenames at point in `helm-find-files'.\nThis doesn't disable url or mail at point, see\n`helm-ff-guess-ffap-urls' for this." helm-ff-guess-ffap-urls #[0 "\300\207" [t] 1] "Use ffap to guess local urls at point in `helm-find-files'.\nThis doesn't disable guessing filenames at point,\nsee `helm-ff-guess-ffap-filenames' for this.\nSee also `ffap-url-unwrap-remote' that may override this variable." helm-ff-no-preselect #[0 "\300\207" [nil] 1] "When non--nil `helm-find-files' starts at root of current directory." helm-find-files-ignore-thing-at-point #[0 "\300\207" [nil] 1] "Use only `default-directory' as default input in `helm-find-files'.\nI.e text under cursor in `current-buffer' is ignored.\nNote that when non-nil you will be unable to complete filename at point\nin `current-buffer'." helm-substitute-in-filename-stay-on-remote #[0 "\300\207" [nil] 1] "Don't switch back to local filesystem when expanding pattern with / or ~/." helm-ff-goto-first-real-dired-exceptions #[0 "\300\207" [(dired-goto-file)] 1] "Dired commands that are allowed moving to first real candidate." (repeat (choice symbol)) helm-mounted-network-directories #[0 "\300\207" [nil] 1] "A list of directories used for mounting remotes filesystem.\n\nWhen nil `helm-file-on-mounted-network-p' always return nil otherwise\nit checks if a file is in one of these directories.\n\nRemote filesystem are generally mounted with sshfs." (repeat string) helm-browse-project-default-find-files-fn #[0 "\300\207" [helm-browse-project-walk-directory] 1] "The default function to retrieve files in a non-vc directory.\n\nA function that takes a directory name as only arg." helm-ff-kill-or-find-buffer-fname-fn #[0 "\300\207" [helm-ff-kill-or-find-buffer-fname] 1] "Default function used to expand non-directory filenames in `helm-find-files'.\n\nThis variable will take effect only in `helm-find-files', it affects\nthe behavior of persistent-action on filenames and non-existing\nfilenames.\n\nThe default is to expand filename on first hit on\n\\<helm-map>\\[helm-execute-persistent-action], pop buffer in other\nwindow on second hit and finally kill this buffer on third hit, this\nis very handy to create several new buffers, or when navigating, show\nquickly the buffer of file to see its contents briefly before killing\nit and continue navigating.\n\nHowever some users may not want this, so to disable this behavior just\nset this to `ignore' function.\n\nOf course you can also write your own function to do something else." helm-modes-using-escaped-strings #[0 "\300\207" [(eshell-mode shell-mode term-mode)] 1] "Modes that requires string's insertion to be escaped." (repeat symbol) helm-ff-allow-recursive-deletes #[0 "\300\207" [nil] 1] "when 'always don't prompt for recursive deletion of directories.\nWhen nil, will ask for recursive deletion.\nNote that when deleting multiple directories you can answer ! when\nprompted to avoid beeing asked for next directories, so it is probably\nbetter to not modify this variable." (choice (const :tag "Delete non-empty directories" t) (const :tag "Confirm for each directory" nil)) helm-ff-delete-files-function #[0 "\300\207" [helm-delete-marked-files] 1] "The function to use by default to delete files.\n\nDefault is to delete files synchronously, other choice is to delete\nfiles asynchronously.\n\nBE AWARE that when deleting async you will not be warned about\nrecursive deletion of directories, IOW non empty directories will be\ndeleted with no warnings in background!!!\n\nIt is the function that will be used when using `\\<helm-find-files-map>\\[helm-ff-run-delete-file]'\nfrom `helm-find-files'." (choice (function :tag "Delete files synchronously." helm-delete-marked-files) (function :tag "Delete files asynchronously." helm-delete-marked-files-async)) helm-trash-remote-files #[0 "\300\207" [nil] 1] "Allow trashing remote files when non-nil.\n\nDeleting remote files with tramp doesn't work out of the box, it is\nwhy it is disabled by default.\n\nFollowing is NOT documented in tramp AFAIK but tramp is using\nexternal trash command in its `delete-file' and `delete-directory'\nhandlers.\n\nIf you want to enable this you will have to install the 'trash' command\non remote (or locally if you want to trash as root), the package on\nUbuntu based distribution is 'trash-cli'." helm-list-directory-function #[0 "\301\267\202\f \302\207\302\207\303\207\303\207" [system-type #s(hash-table size 3 test eql rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (gnu/linux 6 berkeley-unix 8 windows-nt 10)) helm-list-dir-external helm-list-dir-lisp] 2] "The function used in `helm-find-files' to list remote directories.\n\nActually helm provides two functions to do this: `helm-list-dir-lisp'\nand `helm-list-dir-external'.\n\nUsing `helm-list-dir-external' will provides a similar display to what\nprovided with local files i.e. colorized symlinks, executables files\netc... whereas using `helm-list-dir-lisp' will allow colorizing only\ndirectories but is more portable.\n\nNOTE that `helm-list-dir-external' needs ls and awk as dependencies." helm-files-faces "Customize the appearance of helm-files." :prefix "helm-" helm-faces custom-declare-face helm-ff-prefix ((t (:background "yellow" :foreground "black"))) "Face used to prefix new file or url paths in `helm-find-files'." helm-ff-executable ((t (:foreground "green"))) "Face used for executable files in `helm-find-files'." helm-ff-suid ((t (:background "red" :foreground "white"))) "Face used for suid files in `helm-find-files'." helm-ff-directory ((t (:foreground "DarkRed" :background "LightGray"))) "Face used for directories in `helm-find-files'." helm-ff-dotted-directory ((t (:foreground "black" :background "DimGray"))) "Face used for dotted directories in `helm-find-files'." helm-ff-dotted-symlink-directory ((t (:foreground "DarkOrange" :background "DimGray"))) "Face used for dotted symlinked directories in `helm-find-files'." helm-ff-symlink ((t :inherit font-lock-comment-face)) "Face used for symlinks in `helm-find-files'." helm-ff-invalid-symlink ((t (:foreground "black" :background "red"))) "Face used for invalid symlinks in `helm-find-files'." helm-ff-denied ((t (:foreground "red" :background "black"))) "Face used for non accessible files in `helm-find-files'." helm-ff-file ((t (:inherit font-lock-builtin-face))) "Face used for file names in `helm-find-files'." helm-ff-truename ((t (:inherit font-lock-string-face))) "Face used for symlink truenames in `helm-find-files'." helm-ff-dirs ((t (:inherit font-lock-function-name-face))) "Face used for file names in recursive dirs completion in `helm-find-files'." helm-ff-socket ((t (:foreground "DeepPink"))) "Face used for socket files in `helm-find-files'." helm-ff-pipe ((t (:foreground "yellow" :background "black"))) "Face used for named pipes and character device files in `helm-find-files'." helm-history-deleted ((t (:inherit helm-ff-invalid-symlink))) "Face used for deleted files in `file-name-history'." helm-history-remote ((t (:foreground "Indianred1"))) "Face used for remote files in `file-name-history'." helm-delete-async-message ((t (:foreground "yellow"))) "Face used for mode-line message."] 10) | |
| 16 | #@31 Keymap for `helm-find-files'. | |
| 17 | (defvar helm-find-files-map (byte-code "\302 \303\"\210\304\305\306#\210\304\307\310#\210\304\311\312#\210\304\313\314#\210\304\315\316#\210\304\317\320#\210\304\321\322#\210\304\323\324#\210\304\325\324#\210\304\326\327#\210\304\330\331#\210\304\332\333#\210\304\334\335#\210\304\336\337#\210\304\340\341#\210\304\342\343#\210\304\344\345#\210\304\346\347#\210\304\350\351#\210\304\352\353#\210\304\354\355#\210\304\356\357#\210\304\360\361#\210\304\362\363#\210\304\364\365#\210\304\366\367#\210\304\370\371#\210\304\372\373#\210\304\374\375#\210\304\376\377#\210\304\201@ \201A #\210\304\201B \201C #\210\304\201D \201E #\210\304\201F \201G #\210\304\201H \201I #\210\304\201J \201K #\210\304\201L \201M #\210\304\201N \201O #\210\304\201P \201Q #\210\304\201R \201S #\210\304\201T \201U #\210\304\201V \201W #\210\304\201X \201Y #\210\304\201Z \201[ #\210\304\201\\ \201] #\210\304\201^ \201] #\210\304\201_ \201` #\210\304\201a \201b #\210\304\201c \201d #\210\304\201e \201f #\210\304\201g \201h #\210\304\201i \201j #\210\304\201k \201l #\210\304\201m \201n #\210\304\201o \201p #\210\304\201q \201r #\210\201s \201t \201u \201v \201w \201x \201y &\210 \203\360\304\201z \201j #\210\304\201{ \201| #\210\201} \201x \"\207" [helm-map helm-ff-lynx-style-map make-sparse-keymap set-keymap-parent define-key " " helm-ff-RET " " helm-ff-run-toggle-basename "" helm-ff-run-locate "" helm-ff-run-browse-project "rm" helm-ff-bookmark-set "rb" helm-find-files-toggle-to-bookmark "" helm-ff-run-marked-files-in-dired "" helm-ff-run-grep [134217831 115] [134217831 112] helm-ff-run-pdfgrep [134217831 122] helm-ff-run-zgrep [134217831 97] helm-ff-run-grep-ag [134217831 103] helm-ff-run-git-grep [134217831 105] helm-ff-run-gid [134217774] helm-ff-run-etags [134217810] helm-ff-run-rename-file [134217795] helm-ff-run-copy-file [134217794] helm-ff-run-byte-compile-file [134217804] helm-ff-run-load-file [134217811] helm-ff-run-symlink-file [134217817] helm-ff-run-relsymlink-file [134217800] helm-ff-run-hardlink-file [134217796] helm-ff-run-delete-file [134217803] helm-ff-run-kill-buffer-persistent [134217812] helm-ff-run-touch-files "d" helm-ff-persistent-delete [134217829] helm-ff-run-switch-to-eshell "i" helm-ff-run-complete-fn-at-point "o" helm-ff-run-switch-other-window "" helm-ff-run-switch-other-frame "" helm-ff-run-open-file-externally "" helm-ff-run-preview-file-externally "X" helm-ff-run-open-file-with-default-tool [134217761] helm-ff-run-eshell-command-on-file [134217792] helm-ff-run-query-replace-fnames-on-marked [134217765] helm-ff-run-query-replace [201326629] helm-ff-run-query-replace-regexp "=" helm-ff-run-ediff-file [134217789] helm-ff-run-ediff-merge-file [134217840] helm-find-files-history "h" helm-ff-file-name-history [134217833] helm-ff-properties-persistent [67108989] helm-narrow-window [67108987] helm-enlarge-window [C-backspace] helm-ff-run-toggle-auto-update "" "" helm-ff-run-mail-attach-files "p" helm-ff-run-print-file "/" helm-ff-run-find-sh-command [134217836] helm-ff-rotate-left-persistent [134217842] helm-ff-rotate-right-persistent "\f" helm-find-files-up-one-level "" helm-find-files-down-last-level "r" helm-ff-run-find-file-as-root "" helm-ff-run-find-alternate-file "@" helm-ff-run-insert-org-link helm-define-key-with-subkeys "" 127 helm-ff-delete-char-backward ((C-backspace . helm-ff-run-toggle-auto-update) ([C-c DEL] . helm-ff-run-toggle-auto-update)) nil helm-ff-delete-char-backward--exit-fn [left] [right] helm-execute-persistent-action delq] 9) (#$ . 15912)) | |
| 18 | #@35 Keymap for `helm-read-file-name'. | |
| 19 | (defvar helm-read-file-map (byte-code "\302 \303\"\210\304\305\306#\210\304\307\306#\210\304\310\311#\210\304\312\313#\210\304\314\313#\210\304\315\316#\210\304\317\320#\210\304\321\322#\210\304\323\322#\210\324\325\326\327\330\331\332&\210 \203d \304\333\313#\210\304\334\335#\210\304\336\337#\210\304\340\341#\210\342\331\"\207" [helm-map helm-ff-lynx-style-map make-sparse-keymap set-keymap-parent define-key [C-return] helm-cr-empty-string [134217741] " " helm-ff-run-toggle-basename [67108910] helm-find-files-up-one-level "\f" "" helm-find-files-down-last-level "h" helm-ff-file-name-history [C-backspace] helm-ff-run-toggle-auto-update "" helm-define-key-with-subkeys "" 127 helm-ff-delete-char-backward ((C-backspace . helm-ff-run-toggle-auto-update) ([C-c DEL] . helm-ff-run-toggle-auto-update)) nil helm-ff-delete-char-backward--exit-fn [left] [right] helm-execute-persistent-action [M-left] helm-previous-source [M-right] helm-next-source delq] 9) (#$ . 19565)) | |
| 20 | #@79 *The doc that is inserted in the Name header of a find-files or dired source. | |
| 21 | (defvar helm-find-files-doc-header " (\\<helm-find-files-map>\\[helm-find-files-up-one-level]: Go up one level)" (#$ . -20601)) | |
| 22 | #@137 Internal, flag to turn on/off auto-update in `helm-find-files'. | |
| 23 | Don't set it directly, use instead `helm-ff-auto-update-initial-value'. | |
| 24 | (defvar helm-ff-auto-update-flag nil (#$ . 20814)) | |
| 25 | #@40 Store last expanded directory or file. | |
| 26 | (defvar helm-ff-last-expanded nil (#$ . 21007)) | |
| 27 | (defvar helm-ff-default-directory nil) | |
| 28 | (defvar helm-ff-history nil) | |
| 29 | (defvar helm-ff-cand-to-mark nil) | |
| 30 | #@59 Same as `ffap-url-regexp' but match earlier possible url. | |
| 31 | (defvar helm-ff-url-regexp "\\`\\(news\\(post\\)?:\\|nntp:\\|mailto:\\|file:\\|\\(ftp\\|https?\\|telnet\\|gopher\\|www\\|wais\\):/?/?\\).*" (#$ . 21202)) | |
| 32 | (defvar helm-tramp-file-name-regexp "\\`/\\([^/:|]+\\):") | |
| 33 | (defvar helm-marked-buffer-name "*helm marked*") | |
| 34 | (defvar helm-ff--auto-update-state nil) | |
| 35 | (defvar helm-ff--deleting-char-backward nil) | |
| 36 | (defvar helm-multi-files--toggle-locate nil) | |
| 37 | (defvar helm-ff--move-to-first-real-candidate t) | |
| 38 | (defvar helm-find-files--toggle-bookmark nil) | |
| 39 | (defvar helm-ff--tramp-methods nil) | |
| 40 | (defvar helm-ff--directory-files-hash (make-hash-table :test 'equal)) | |
| 41 | (defvar helm-ff-history-buffer-name "*helm-find-files history*") | |
| 42 | (byte-code "\300\301\302\303\304DD\305\306\307\310\311&\207" [custom-declare-variable helm-find-files-actions funcall function #[0 "\300\301\302\303\304\305\306\307\310\311\312\313\314\315\316\317\320\321\322\323\324\325\326\327\330\331\332\333\334\335\336\337\340\341\342\343\344\345\346\347\350\351\352\353\354\355\356\357\360\361\362\363\364\365\366\367\370\371\372\373\374\375\376\377\201@ \201A \201B \201C \201D \201E \201F \201G \201H \201I \201J \201K \201L \201M \201N \201O \201P \201Q \201R \201S \201T \201U \201V &V\207" [helm-make-actions "Find File" helm-find-file-or-marked "Find file in Dired" helm-point-file-in-dired "View file" view-file "Query replace fnames on marked `M-@'" helm-ff-query-replace-fnames-on-marked "Marked files in dired `C-x C-q, C-u wdired'" helm-marked-files-in-dired "Query replace contents on marked `M-%'" helm-ff-query-replace "Query replace regexp contents on marked `C-M-%'" helm-ff-query-replace-regexp "Attach file(s) to mail buffer `C-c C-a'" helm-ff-mail-attach-files "Serial rename files" helm-ff-serial-rename "Serial rename by symlinking files" helm-ff-serial-rename-by-symlink "Serial rename by copying files" helm-ff-serial-rename-by-copying "Open file with default tool" helm-open-file-with-default-tool "Find file in hex dump" hexl-find-file "Browse project `C-x C-d'" helm-ff-browse-project "Complete at point `C-c i'" helm-insert-file-name-completion-at-point "Insert as org link `C-c @'" helm-files-insert-as-org-link "Find shell command `C-c /'" helm-ff-find-sh-command "Add marked files to file-cache" helm-ff-cache-add-file "Open file externally `C-c C-x, C-u to choose'" helm-open-file-externally "Grep File(s) `C-s, C-u Recurse'" helm-find-files-grep "Grep current directory with AG `M-g a, C-u select type'" helm-find-files-ag "Git grep `M-g g, C-u from root'" helm-ff-git-grep "Zgrep File(s) `M-g z, C-u Recurse'" helm-ff-zgrep "Gid `M-g i'" helm-ff-gid "Switch to Eshell `M-e'" helm-ff-switch-to-eshell "Etags `M-., C-u reload tag file'" helm-ff-etags-select "Eshell command on file(s) `M-!, C-u take all marked as arguments.'" helm-find-files-eshell-command-on-file "Find file as root `C-c r'" helm-find-file-as-root "Find alternate file `C-x C-v'" find-alternate-file "Ediff File `C-c ='" helm-find-files-ediff-files "Ediff Merge File `M-='" helm-find-files-ediff-merge-files #[0 "\301\302\303=\203\f \304\202 \305\"\207" [helm-ff-delete-files-function format "Delete File(s)%s `M-D' (C-u reverse trash)" helm-delete-marked-files-async " async" ""] 4] helm-ff-delete-files "Touch File(s) `M-T'" helm-ff-touch-files "Copy file(s) `M-C, C-u to follow'" helm-find-files-copy "Rename file(s) `M-R, C-u to follow'" helm-find-files-rename "Backup files" helm-find-files-backup "Symlink files(s) `M-S, C-u to follow'" helm-find-files-symlink "Relsymlink file(s) `M-Y, C-u to follow'" helm-find-files-relsymlink "Hardlink file(s) `M-H, C-u to follow'" helm-find-files-hardlink "Find file other window `C-c o'" helm-find-files-other-window "Find file other frame `C-c C-o'" find-file-other-frame "Print File `C-c p, C-u to refresh'" helm-ff-print "Locate `C-x C-f, C-u to specify locate db'" helm-ff-locate] 87] "Actions for `helm-find-files'." :group helm-files :type (alist :key-type string :value-type function)] 8) | |
| 43 | #@74 The main source to browse files. | |
| 44 | Should not be used among other sources. | |
| 45 | (defvar helm-source-find-files nil (#$ . 25207)) | |
| 46 | (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-source-ffiles-p eieio-make-class-predicate helm-source-ffiles helm-source-ffiles--eieio-childp eieio-make-child-predicate helm-source-ffiles-child-p make-obsolete "use (cl-typep ... \\='helm-source-ffiles) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (helm-source-sync) ((header-name :initform (lambda (name) (concat name (substitute-command-keys helm-find-files-doc-header)))) (init :initform (lambda nil (setq helm-ff-auto-update-flag helm-ff-auto-update-initial-value) (setq helm-ff--auto-update-state helm-ff-auto-update-flag) (helm-set-local-variable 'bookmark-make-record-function #'helm-ff-make-bookmark-record) (require 'helm-external))) (candidates :initform 'helm-find-files-get-candidates) (filtered-candidate-transformer :initform '(helm-ff-sort-candidates (lambda (candidates _source) (cl-loop for f in candidates for ff = (helm-ff-filter-candidate-one-by-one f) when ff collect ff)))) (persistent-action-if :initform 'helm-find-files-persistent-action-if) (persistent-help :initform "Hit1 Expand Candidate, Hit2 or (C-u) Find file") (help-message :initform 'helm-ff-help-message) (mode-line :initform (list "File(s)" helm-mode-line-string)) (volatile :initform t) (cleanup :initform 'helm-find-files-cleanup) (migemo :initform t) (nohighlight :initform t) (keymap :initform helm-find-files-map) (candidate-number-limit :initform 'helm-ff-candidate-number-limit) (action-transformer :initform 'helm-find-files-action-transformer) (action :initform 'helm-find-files-actions) (before-init-hook :initform 'helm-find-files-before-init-hook) (after-init-hook :initform 'helm-find-files-after-init-hook) (group :initform 'helm-files)) nil] 6) | |
| 47 | #@75 Create a new object of class type `helm-source-ffiles'. | |
| 48 | ||
| 49 | (fn &rest SLOTS) | |
| 50 | (defalias 'helm-source-ffiles #[128 "\300\301\302#\207" [apply make-instance helm-source-ffiles] 5 (#$ . 27176)]) | |
| 51 | (byte-code "\300\301\302\303#\300\207" [function-put helm-source-ffiles compiler-macro helm-source-ffiles--anon-cmacro] 4) | |
| 52 | #@26 | |
| 53 | ||
| 54 | (fn WHOLE &rest SLOTS) | |
| 55 | (defalias 'helm-source-ffiles--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 (#$ . 27494)]) | |
| 56 | #@60 The `bookmark-make-record-function' for `helm-find-files'. | |
| 57 | (defalias 'helm-ff-make-bookmark-record #[0 "r\301 q\210\302B\303\304 )B\305BB\207" [helm-ff-default-directory helm-buffer-get filename presel helm-get-selection ((handler . helm-ff-bookmark-jump))] 3 (#$ . 27732)]) | |
| 58 | #@56 bookmark handler for `helm-find-files'. | |
| 59 | ||
| 60 | (fn BOOKMARK) | |
| 61 | (defalias 'helm-ff-bookmark-jump #[257 "\301\302\"\301\303\"\304!\205 \305\203 \306!\202 \"\207" [helm-ff-transformer-show-only-basename bookmark-prop-get filename presel file-directory-p helm-find-files-1 helm-basename] 7 (#$ . 28014)]) | |
| 62 | #@48 Record `helm-find-files' session in bookmarks. | |
| 63 | (defalias 'helm-ff-bookmark-set #[0 "\203 r\303 q\210\304 \305\n!P!\210)\306\307!\207\310\311!\207" [helm-alive-p helm-find-files-bookmark-prefix helm-ff-default-directory helm-buffer-get bookmark-set abbreviate-file-name message "Helm find files session bookmarked! " error "Running helm command outside of context"] 4 (#$ . 28323) nil]) | |
| 64 | (byte-code "\300\301\302\303#\210\304\305\306\307\310DD\311\312\313\314\315&\207" [put helm-ff-bookmark-set helm-only t custom-declare-variable helm-dwim-target funcall function #[0 "\300\207" [nil] 1] "Default target directory for file actions.\n\nDefine the directory where you want to start navigating for the target\ndirectory when copying, renaming etc... You can use the\n`default-directory' of `next-window', the current\n`default-directory' or have completion on all the directories\nbelonging to each window." :group helm-files :type (radio :tag "Define default target directory for file actions." (const :tag "Directory belonging to next window" next-window) (const :tag "Completion on directories belonging to each window" completion) (const :tag "Use initial directory or `default-directory'" nil))] 8) | |
| 65 | #@69 Try to return a suitable directory according to `helm-dwim-target'. | |
| 66 | (defalias 'helm-dwim-target-directory #[0 "r\305!\203 \206 p\211q\210\306\307 !\310 \"\211G\311\312V\203l \n\313=\203l \314\315\316 \242\206/ \f\fD\317\211:\203c @\262\320!r\321\322\323\324\325!\326\"\327$\216\330@\331\"\210\f*\262B\262A\262\2025 \211\237\266\203\"\"\202\247 \312V\203\226 \n\332=\203\226 \320\332 !r\321\322\323\324\325!\333\"\327$\216\330@\331\"\210\f*\262\202\247 \312U\204\241 \n?\205\247 \242\206\247 \f!\266\202)\207" [helm-current-buffer helm-marked-buffer-name helm-dwim-target helm-ff-history default-directory buffer-live-p remove get-buffer-window window-list expand-file-name 1 completion helm-comp-read "Browse target starting from: " append nil internal--before-with-selected-window make-byte-code 0 "\301\300!\207" vconcat vector [internal--after-with-selected-window] 2 select-window norecord next-window [internal--after-with-selected-window]] 17 (#$ . 29533)]) | |
| 67 | #@14 | |
| 68 | ||
| 69 | (fn FILES) | |
| 70 | (defalias 'helm-ff--count-and-collect-dups #[257 "\300\301\302\"\303\211\211:\203H @\262\304!\203 \305!\306P\202\" \305!\262\307\"\262\211\203: \310T#\210\202A \310\311#\210A\262\202 \303C\312\313\314\315\316\317!\320\"\321\322%\"\210\211\242\237\262\207" [make-hash-table :test equal nil file-directory-p helm-basename "/" gethash puthash 1 maphash make-byte-code 514 "\211\301V\203 \300\302\303#\300\242B\240\207\300\300\242B\240\207" vconcat vector [1 format "%s(%s)"] 7 "\n\n(fn K V)"] 14 (#$ . 30528)]) | |
| 71 | #@142 Generic function for creating actions from `helm-source-find-files'. | |
| 72 | ACTION must be an action supported by `helm-dired-action'. | |
| 73 | ||
| 74 | (fn ACTION) | |
| 75 | (defalias 'helm-find-files-do-action #[257 "\306\307!\210\310\311\312\313\314\"\"\315 \316\317\320\301!\203' \203' \204' \321\322!P\202- \323\322!!G#\324\211\324\211 \314 =\324 >\325?!\314 @A\326=\203P \327\202R A A\324\211 B C\324Crq\210\330\331!!\210)\332\333\334\335\336!\337\"\340$\216\341\342\343\"\240!r\332\333\344\335\336!\345\"\346$\216\347@\350\"\210r\351D!\203\234 D\206\240 p\211Dq\210\352\353 A?\205\276 \354\355E\203\272 \356 !\202\274 \n!P\357\360 \361\362\324\363\324#&+\262-\266\202\364!\365!\204\355 \364!\204\355 \366\316\367\"!\203\355 \370\314\"\210\371\372 \373\f\374 &.\207" [helm-current-prefix-arg dired-async-mode helm-ff--move-to-first-real-candidate helm-display-source-at-screen-top helm-ff-auto-update-initial-value helm-ff-skip-boring-files require dired-async mapcar expand-file-name helm-marked-candidates :with-wildcard t helm-get-selection format "%s %s file(s) to: " fboundp "Async " symbol-name capitalize nil temp-buffer-window-setup same below helm-format-columns-of-files helm-ff--count-and-collect-dups make-byte-code 0 "\301\302\300\242\"\207" vconcat vector [quit-window kill] 3 internal--before-with-selected-window temp-buffer-window-show (display-buffer-below-selected (window-height . fit-window-to-buffer)) "\301\300!\207" [internal--after-with-selected-window] 2 select-window norecord buffer-live-p helm-read-file-name :preselect "^" regexp-quote helm-basename :initial-input helm-dwim-target-directory :history helm-find-files-history :comp-read file-directory-p helm-basedir y-or-n-p "Create directory `%s'? " make-directory helm-dired-action :files :action :follow helm-actions-inherit-frame-settings helm-use-frame-when-more-than-two-windows helm-marked-buffer-name helm-always-two-windows helm-split-window-default-side helm-split-window-inside-p helm-reuse-last-window-split-state helm-current-buffer helm-ff-transformer-show-only-basename] 20 (#$ . 31088)]) | |
| 76 | #@52 Copy files from `helm-find-files'. | |
| 77 | ||
| 78 | (fn CANDIDATE) | |
| 79 | (defalias 'helm-find-files-copy #[257 "\300\301!\207" [helm-find-files-do-action copy] 3 (#$ . 33194)]) | |
| 80 | #@117 Backup files from `helm-find-files'. | |
| 81 | This reproduce the behavior of "cp --backup=numbered from to". | |
| 82 | ||
| 83 | (fn CANDIDATE) | |
| 84 | (defalias 'helm-find-files-backup #[257 "\301\300!\203\n \204 \302\303\304\305\211$\210\306\307!\207" [dired-async-mode fboundp cl--assertion-failed (and (fboundp 'dired-async-mode) dired-async-mode) "Backup only available when `dired-async-mode' is enabled" nil helm-find-files-do-action backup] 6 (#$ . 33356)]) | |
| 85 | #@54 Rename files from `helm-find-files'. | |
| 86 | ||
| 87 | (fn CANDIDATE) | |
| 88 | (defalias 'helm-find-files-rename #[257 "\300\301!\207" [helm-find-files-do-action rename] 3 (#$ . 33794)]) | |
| 89 | #@55 Symlink files from `helm-find-files'. | |
| 90 | ||
| 91 | (fn CANDIDATE) | |
| 92 | (defalias 'helm-find-files-symlink #[257 "\300\301!\207" [helm-find-files-do-action symlink] 3 (#$ . 33961)]) | |
| 93 | #@58 Relsymlink files from `helm-find-files'. | |
| 94 | ||
| 95 | (fn CANDIDATE) | |
| 96 | (defalias 'helm-find-files-relsymlink #[257 "\300\301!\207" [helm-find-files-do-action relsymlink] 3 (#$ . 34131)]) | |
| 97 | #@56 Hardlink files from `helm-find-files'. | |
| 98 | ||
| 99 | (fn CANDIDATE) | |
| 100 | (defalias 'helm-find-files-hardlink #[257 "\300\301!\207" [helm-find-files-do-action hardlink] 3 (#$ . 34310)]) | |
| 101 | #@150 Keep current-buffer and open files in separate windows. | |
| 102 | When a prefix arg is detected files are opened in a vertical windows | |
| 103 | layout. | |
| 104 | ||
| 105 | (fn CANDIDATE) | |
| 106 | (defalias 'helm-find-files-other-window #[257 "\300 \301\302\"\303\304\"\207" [helm-marked-candidates mapcar find-file-noselect helm-window-show-buffers t] 6 (#$ . 34484)]) | |
| 107 | #@66 Byte compile elisp files from `helm-find-files'. | |
| 108 | ||
| 109 | (fn CANDIDATE) | |
| 110 | (defalias 'helm-find-files-byte-compile #[257 "\301\302\303\"\304:\203 @\262\305\"\210A\262\202 \304\266\202\207" [helm-current-prefix-arg helm-marked-candidates :with-wildcard t nil byte-compile-file] 8 (#$ . 34814)]) | |
| 111 | #@58 Load elisp files from `helm-find-files'. | |
| 112 | ||
| 113 | (fn CANDIDATE) | |
| 114 | (defalias 'helm-find-files-load-files #[257 "\300\301\302\"\211\303:\203 @\262\304!\210A\262\202 \303\266\202\207" [helm-marked-candidates :with-wildcard t nil load] 6 (#$ . 35115)]) | |
| 115 | #@93 Generic function to ediff/merge files in `helm-find-files'. | |
| 116 | ||
| 117 | (fn CANDIDATE &optional MERGE) | |
| 118 | (defalias 'helm-find-files-ediff-files-1 #[513 "\302\303!\304\305\306\"\203 \307\202 \310\203 \311\202 \312\313 \203( \303!\202/ \314\303!\"G\315U\203A @A@\"\202S \316\317\n\"\320\321%\")\207" [helm-dwim-target helm-ff-transformer-show-only-basename next-window helm-basename helm-marked-candidates :with-wildcard t "Ediff Merge `%s' With File: " "Ediff `%s' With File: " ediff-merge-files ediff-files helm-dwim-target-directory expand-file-name 2 helm-read-file-name format :initial-input :preselect] 16 (#$ . 35369)]) | |
| 119 | #@18 | |
| 120 | ||
| 121 | (fn CANDIDATE) | |
| 122 | (defalias 'helm-find-files-ediff-files #[257 "\300!\207" [helm-find-files-ediff-files-1] 3 (#$ . 36016)]) | |
| 123 | #@18 | |
| 124 | ||
| 125 | (fn CANDIDATE) | |
| 126 | (defalias 'helm-find-files-ediff-merge-files #[257 "\300\301\"\207" [helm-find-files-ediff-files-1 merge] 4 (#$ . 36146)]) | |
| 127 | #@70 Default action to grep files from `helm-find-files'. | |
| 128 | ||
| 129 | (fn CANDIDATE) | |
| 130 | (defalias 'helm-find-files-grep #[257 "\301\302\303\304\"\"\207" [helm-current-prefix-arg helm-do-grep-1 helm-marked-candidates :with-wildcard t] 5 (#$ . 36293)]) | |
| 131 | #@73 Default action to git-grep `helm-ff-default-directory'. | |
| 132 | ||
| 133 | (fn CANDIDATE) | |
| 134 | (defalias 'helm-ff-git-grep #[257 "\302 \"\207" [helm-ff-default-directory helm-current-prefix-arg helm-grep-git-1] 4 (#$ . 36532)]) | |
| 135 | #@18 | |
| 136 | ||
| 137 | (fn CANDIDATE) | |
| 138 | (defalias 'helm-find-files-ag #[257 "\302 \"\207" [helm-ff-default-directory helm-current-prefix-arg helm-grep-ag] 4 (#$ . 36744)]) | |
| 139 | #@71 Default action to zgrep files from `helm-find-files'. | |
| 140 | ||
| 141 | (fn CANDIDATE) | |
| 142 | (defalias 'helm-ff-zgrep #[257 "\301\302\303\304\"\"\207" [helm-current-prefix-arg helm-ff-zgrep-1 helm-marked-candidates :with-wildcard t] 5 (#$ . 36900)]) | |
| 143 | #@73 Default action to pdfgrep files from `helm-find-files'. | |
| 144 | ||
| 145 | (fn CANDIDATE) | |
| 146 | (defalias 'helm-ff-pdfgrep #[257 "\300\301\302\303\"\300\211\211:\203= @\262\304!\262\203 \303\262\2041 \305!\306\230\2041 \305!\307\230\2036 B\262A\262\202 \211\237\266\204\211\205I \310\"\207" [nil helm-marked-candidates :with-wildcard t file-directory-p file-name-extension "pdf" "PDF" helm-do-pdfgrep-1] 8 (#$ . 37134)]) | |
| 147 | #@73 Default action to jump to etags from `helm-find-files'. | |
| 148 | ||
| 149 | (fn CANDIDATE) | |
| 150 | (defalias 'helm-ff-etags-select #[257 "\304!\203\n \305!\210\306\307\310 \"\211\311\230\203 \202 \312!\313 !)\207" [helm-action-buffer helm-ff-default-directory default-directory helm-current-prefix-arg get-buffer kill-buffer assoc-default name helm-get-current-source "Find Files" file-name-directory helm-etags-select] 4 (#$ . 37556)]) | |
| 151 | (defvar eshell-command-aliases-list nil) | |
| 152 | (defvar helm-eshell-command-on-file-input-history nil) | |
| 153 | #@1023 Run `eshell-command' on CANDIDATE or marked candidates. | |
| 154 | This is done possibly with an eshell alias, if no alias found, you can type in | |
| 155 | an eshell command. | |
| 156 | ||
| 157 | Only aliases accepting a file as argument at the end of command line | |
| 158 | are collected, i.e aliases ending with "$1" or "$*". | |
| 159 | ||
| 160 | Basename of CANDIDATE can be a wild-card. | |
| 161 | e.g you can do "eshell-command command *.el" | |
| 162 | Where "*.el" is the CANDIDATE. | |
| 163 | ||
| 164 | It is possible to do eshell-command command <CANDIDATE> <some more args> | |
| 165 | like this: "command %s some more args". | |
| 166 | ||
| 167 | If MAP is given run `eshell-command' on all marked files at once, | |
| 168 | Otherwise, run `eshell-command' on each marked files. | |
| 169 | In other terms, with a prefix arg do on the three marked files | |
| 170 | "foo" "bar" "baz": | |
| 171 | ||
| 172 | "eshell-command command foo bar baz" | |
| 173 | ||
| 174 | otherwise do | |
| 175 | ||
| 176 | "eshell-command command foo" | |
| 177 | "eshell-command command bar" | |
| 178 | "eshell-command command baz" | |
| 179 | ||
| 180 | Note: | |
| 181 | You have to setup some aliases in eshell with the `alias' command or | |
| 182 | by editing yourself the file `eshell-aliases-file' to make this | |
| 183 | working. | |
| 184 | ||
| 185 | (fn &optional MAP) | |
| 186 | (defalias 'helm-find-files-eshell-command-on-file-1 #[256 "\306\307!\210\310 \210\204 \311\312!\205)\313 \206 \n\314\315\310 \316\211\211\211:\203O @\262\211A\262\242\262@\262\317\320\"\203H \211\321\322#C\244\262A\262\202! \323\324\"\266\205\325\326\327\330\331\332\333\334\335\336&\f\337\"@\316 \340\232\204s \341\232\203x \342\202z \316\203\204 \343\232\204\225 \344\232\204\225 \203\303 \317\345\"\203\303 A\203\303 \346\347\350#\317\351\"\203\257 \352\"\262\202\266 \352\353#\262\354\355\"\210\356!\262\202&\316\211\211\211:\203#@\262\317 \"?\205\334 \357!\262\347\352\360\203\363 \361!\203\363 \362!\202\365 \"!\262\317\351 \"\203 \352\"\202\352\353 #\262\206\n\356!\210)A\262\202\310 \316\266\205)\266\204\207" [eshell-command-aliases-list helm-ff-default-directory default-directory helm-current-prefix-arg current-prefix-arg helm--url-regexp require em-alias eshell-read-aliases-list y-or-n-p "No eshell aliases found, run eshell-command without alias anyway? " helm-marked-candidates helm-comp-read "Command: " nil string-match "[\"]?.*\\(\\$1\\|\\$\\*\\)[\"]?\\'" propertize help-echo sort string< :buffer "*helm eshell on file*" :name "Eshell command" :mode-line ("Eshell alias" "C-h m: Help, \\[universal-argument]: Insert output at point") :help-message helm-esh-help-message :input-history helm-eshell-command-on-file-input-history assoc-default (16) (16) (16) (4) (4) "\\$\\*$" mapconcat eshell-quote-argument " " "'%s'\\|\"%s\"\\|%s" format "%s %s" helm-log "%S" eshell-command helm-basedir "%s" file-remote-p helm-basename] 15 (#$ . 38077)]) | |
| 187 | #@135 Run `eshell-command' on CANDIDATE or marked candidates. | |
| 188 | See `helm-find-files-eshell-command-on-file-1' for more info. | |
| 189 | ||
| 190 | (fn CANDIDATE) | |
| 191 | (defalias 'helm-find-files-eshell-command-on-file #[257 "\301!\207" [helm-current-prefix-arg helm-find-files-eshell-command-on-file-1] 3 (#$ . 40744)]) | |
| 192 | #@407 Switch to eshell and cd to `helm-ff-default-directory'. | |
| 193 | ||
| 194 | With a numeric prefix arg switch to numbered eshell buffer, if no | |
| 195 | prefix arg provided and more than one eshell buffer exists, provide | |
| 196 | completions on those buffers. If only one eshell buffer exists, | |
| 197 | switch to this one, if no eshell buffer exists or if the numeric | |
| 198 | prefix arg eshell buffer doesn't exists, create it and switch to it. | |
| 199 | ||
| 200 | (fn CANDIDATE) | |
| 201 | (defalias 'helm-ff-switch-to-eshell #[257 "\301\302\303\304 \"\305\211:\203# @\262\306!\203 B\262A\262\202 \211\237\266\203?\205< \211A\203: \307\310\311\312$\202< \211@\211\203G \313!\210\202K \314!\210\210\315p!?\205U \207" [helm-current-prefix-arg #[0 "\301!\210\302 \207" [helm-ff-default-directory eshell/cd eshell-reset] 2] mapcar buffer-name buffer-list nil helm-ff--eshell-interactive-buffer-p helm-comp-read "Switch to eshell buffer: " :must-match t switch-to-buffer eshell get-buffer-process] 8 (#$ . 41038)]) | |
| 202 | #@15 | |
| 203 | ||
| 204 | (fn BUFFER) | |
| 205 | (defalias 'helm-ff--eshell-interactive-buffer-p #[257 "r\211q\210\301=\205 \212eb\210\302\303!\210\304`e\")?)\207" [major-mode eshell-mode eshell-next-prompt 1 eql] 4 (#$ . 41988)]) | |
| 206 | #@61 The touch files action for helm-find-files. | |
| 207 | ||
| 208 | (fn CANDIDATE) | |
| 209 | (defalias 'helm-ff-touch-files #[257 "\303 \211\304\211\211:\203Y @\262?\205 \305!\306\307\"B\262\203M \310@A\304\211:\203A @\262\311\"B\262A\262\202) \211\237\266\204!\244\262\202R B\262A\262\202 \211\237\266\204\312\313\304\211\211\211:\203\227 @\262\314!\262\205| \315\316\3178\"\262\203\220 \320\321\322!#BB\262A\262\202d \211\237\266\205\323\315\316\324 \"$ \304\211\211:\203\330 @\262\325\326\"\206\271 \262\327\330\304\211\211\331\n&\332V\203\321 B\262A\262\202\250 \211\237)\266\204\211\205\353 \333\334G\335\336\337##\207" [helm-current-prefix-arg helm-ff-default-directory default-directory helm-marked-candidates nil helm-basedir split-string ", ?" reverse expand-file-name helm-comp-read "Timestamp (default Now): " file-attributes format-time-string "%Y-%m-%d %H:%M:%S" 5 format "%s: %s" helm-basename :default current-time file-remote-p localname process-file "touch" "-d" 0 message "Failed to touch *%s files:\n%s" mapconcat #[257 "\300\301\"\207" [format "- %s\n"] 4 "\n\n(fn F)"] ""] 16 (#$ . 42192)]) | |
| 210 | #@60 Used to interactively run touch file action from keyboard. | |
| 211 | (defalias 'helm-ff-run-touch-files #[0 "\203 \301\302!\207\303\304!\207" [helm-alive-p helm-exit-and-execute-action helm-ff-touch-files error "Running helm command outside of context"] 2 (#$ . 43343) nil]) | |
| 212 | (put 'helm-ff-run-touch-files 'helm-only t) | |
| 213 | #@113 Rename all marked files in `helm-ff-default-directory' with METHOD. | |
| 214 | See `helm-ff-serial-rename-1'. | |
| 215 | ||
| 216 | (fn METHOD) | |
| 217 | (defalias 'helm-ff-serial-rename-action #[257 "\306\307\310\306\"\211@\311\312\313\314\315\316\317!\"#\"\320\321!\311\322\317@!\"\323\324\325\326\323 !\327\330\331\306&!\332\333\n!\306\f\334=\203@ \335\202A \f \332\211 9\332Crq\210\336\337\n!!\210)\340\341\342\343\344!\345\"\346$\216\347\350\351\"\240!r\340\341\352\343\344!\353\"\354$\216\355@\356\"\210\357\360\361\fG\360\362\316@!%$!\203\256 \363 \n\n\n\364&\210\306\262\365\332!\210*\210-\266\211\203\321 r\366:!\203\304 :\206\310 p\211:q\210\367!)\202\324 \365\370!)\207" [helm--reading-passwd-or-string helm-ff-default-directory helm-marked-buffer-name helm-always-two-windows helm-split-window-default-side helm-split-window-inside-p t helm-marked-candidates :with-wildcard helm-read-string "NewName: " replace-regexp-in-string "[0-9]+$" "" helm-basename file-name-extension read-number "StartAtNumber: " "Extension: " expand-file-name helm-read-file-name "Serial Rename to directory: " :initial-input :test file-directory-p :must-match nil temp-buffer-window-setup same below helm-format-columns-of-files helm-ff--count-and-collect-dups make-byte-code 0 "\301\302\300\242\"\207" vconcat vector [quit-window kill] 3 internal--before-with-selected-window temp-buffer-window-show (display-buffer-below-selected (window-height . fit-window-to-buffer)) "\301\300!\207" [internal--after-with-selected-window] 2 select-window norecord y-or-n-p format "Rename %s file(s) to <%s> like this ?\n%s " "%s <-> %s%s.%s" helm-ff-serial-rename-1 :method message buffer-live-p helm-find-files-1 "Operation aborted" helm-reuse-last-window-split-state helm-current-buffer] 23 (#$ . 43661)]) | |
| 218 | #@23 | |
| 219 | ||
| 220 | (fn FILE DIRECTORY) | |
| 221 | (defalias 'helm-ff-member-directory-p #[514 "\300\301\302!!!\300\301!!\230\207" [expand-file-name file-name-as-directory file-name-directory] 6 (#$ . 45452)]) | |
| 222 | #@489 rename files in COLLECTION to DIRECTORY with the prefix name NEW-NAME. | |
| 223 | Rename start at number START-AT-NUM - ex: prefixname-01.jpg. | |
| 224 | EXTENSION is the file extension to use, in empty prompt, | |
| 225 | reuse the original extension of file. | |
| 226 | METHOD can be one of rename, copy or symlink. | |
| 227 | Files will be renamed if they are files of current directory, otherwise they | |
| 228 | will be treated with METHOD. | |
| 229 | Default METHOD is rename. | |
| 230 | ||
| 231 | (fn DIRECTORY COLLECTION NEW-NAME START-AT-NUM EXTENSION &key (METHOD \='rename)) | |
| 232 | (defalias 'helm-ff-serial-rename-1 #[1413 "\301\302\"\206 \303A@\211\2035 \211@\304>\203 \211AA\262\202 \305>A@\203, \306\262\202 \307\310@\"\210\202 \210\311\312\"\262\313\211!\314\315\316!!P!\317\267\202[ \320\202_ \321\202_ \322\202_ \307\323\"\324!\210\325\326\327\330\331!\332\"\333$\216\306\306\211:\203\321 @\262\334W\203\212 \335\202\213 \336\262\f\337\"\f\340\230\204\251 \337\341\342\343\340#\"\202\256 \344\345\"R\262\346\"\203\301 \322\"\210\202\306 \"\210A\262T\262\202w \266\347\350#\211\306:\203@\262\351!\203\372 \321\352!\313!\353!P\"\210\202 \322 \"\210A\262\202\332 \306\266\203)\266\202\207" [directory-files-no-dot-files-regexp plist-member :method (nil rename) (:method :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:method)" cl-remove-if file-directory-p file-name-as-directory symbol-name cl-gensym "tmp" #s(hash-table size 3 test eql rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (copy 79 symlink 83 rename 87)) copy-file make-symbolic-link rename-file "Error: Unknown method %s" make-directory make-byte-code 0 "\301\300\302\"\207" vconcat vector [delete-directory t] 3 10 "0%s" "%s" format "" ".%s" replace-regexp-in-string "[.]" file-name-extension dot helm-ff-member-directory-p directory-files t file-symlink-p file-truename helm-basename] 23 (#$ . 45644)]) | |
| 233 | #@199 Serial rename all marked files to `helm-ff-default-directory'. | |
| 234 | Rename only file of current directory, and symlink files coming from | |
| 235 | other directories. | |
| 236 | See `helm-ff-serial-rename-1'. | |
| 237 | ||
| 238 | (fn CANDIDATE) | |
| 239 | (defalias 'helm-ff-serial-rename #[257 "\300\301!\207" [helm-ff-serial-rename-action rename] 3 (#$ . 47543)]) | |
| 240 | #@199 Serial rename all marked files to `helm-ff-default-directory'. | |
| 241 | Rename only file of current directory, and symlink files coming from | |
| 242 | other directories. | |
| 243 | See `helm-ff-serial-rename-1'. | |
| 244 | ||
| 245 | (fn CANDIDATE) | |
| 246 | (defalias 'helm-ff-serial-rename-by-symlink #[257 "\300\301!\207" [helm-ff-serial-rename-action symlink] 3 (#$ . 47858)]) | |
| 247 | #@196 Serial rename all marked files to `helm-ff-default-directory'. | |
| 248 | Rename only file of current directory, and copy files coming from | |
| 249 | other directories. | |
| 250 | See `helm-ff-serial-rename-1'. | |
| 251 | ||
| 252 | (fn CANDIDATE) | |
| 253 | (defalias 'helm-ff-serial-rename-by-copying #[257 "\300\301!\207" [helm-ff-serial-rename-action copy] 3 (#$ . 48185)]) | |
| 254 | (defvar helm-ff-query-replace-fnames-history-from nil) | |
| 255 | (defvar helm-ff-query-replace-fnames-history-to nil) | |
| 256 | #@122 Query replace on filenames of CANDIDATES. | |
| 257 | This doesn't replace inside the files, only modify filenames. | |
| 258 | ||
| 259 | (fn CANDIDATES) | |
| 260 | (defalias 'helm-ff-query-replace-on-filenames #[257 "\306!\307\n\310=\203 \311\202 \n\312\211 \312Crq\210\313\314\315\"!\210)\316\317\320\321\322!\323\"\324$\216\325\326\327\"\240!r\316\317\330\321\322!\331\"\332$\216\333@\334\"\210\335\336\312\337\315@!$\335\340\341\"\312\342#\312\3432\201\344\317\312 \312\211:\203u@\262\345!\346\347 \316\317\350\321\322!\351\"\324$\216 \352\230\203\232 \353\262\n\354\315\307\"\211\262 !\202\362 \355\230\203\260 \353\262\n\354\356!\211\262 !\202\362 \357\230\203\303 \360\315!\211\262 !\202\362 \361\362 \"\203\360 \353\262\n\363\353 \"\363\332\"\315!\211\364!\364!O\262\n\354#\266\203\202\362 )\262\347 \316\317\350\321\322!\365\"\324$\216\361\366 \"\203#\367\363\353\"\363\370\"\340\371 T\"P\n#\202\375\372\f\312\307 \361#)\266\203\203P\361\373 \"\203P\367\372\340\371\fT\"\374 \307\211$#\202\375\361\372 \"\203g\374\340\371 T\"\307\211$\202\375\361\375 \"\203\233\374\364\363\353\"!\363\332\"\211\376\230\203\212 G\202\220\211\364!\262\262O\307\211$\202\375\361\377 \"\203\273\374\367\363\353\"\363\332\" \307$\307\211$\202\375\361\373 \"\203\316\374\307\211$\202\375 \201@ \230\203\335\201A \202\375 \201B \230\203\354\201C \202\375 \201D \230\203\373\201E \202\375 )\262\315!\307\312 &P\262\230\204n\201F !\203.\201G !\340\201H \"\356\307\"Q\262\201I \230\204F\201J \340\201K #\201L \"\262\201M \230\203[\201N \343\201O \201P !\"\210\201Q \230\204n\201R \"\210T\262A\262\202h \201O \201S \"\266\2060\266*\210-\266\201T \201U !\210r\201V \201W !q\210\201X )\207" [helm-marked-buffer-name helm-always-two-windows helm-split-window-default-side helm-split-window-inside-p helm-reuse-last-window-split-state inhibit-changing-match-data temp-buffer-window-setup t same below nil helm-format-columns-of-files mapcar helm-basename make-byte-code 0 "\301\302\300\242\"\207" vconcat vector [quit-window kill] 3 internal--before-with-selected-window temp-buffer-window-show (display-buffer-below-selected (window-height . fit-window-to-buffer)) "\301\300!\207" [internal--after-with-selected-window] 2 select-window norecord read-string "Replace regexp on filename(s): " helm-ff-query-replace-history-from format "Replace regexp `%s' with: " helm-ff-query-replace-history-to --cl-block-nil-- "y" helm-basedir helm--replace-regexp-in-buffer-string match-data "\301\300\302\"\207" [set-match-data evaporate] "%." 1 helm-ff--prepare-str-with-regexp ".%" file-name-extension "%" regexp-quote string-match "%:\\([0-9]+\\):\\([0-9]+\\)" match-string string-to-number [set-match-data evaporate] "\\\\@/\\(.*\\)/\\(\\(?99:.*\\)\\\\#\\)/" replace-regexp-in-string 99 "%03d" "\\\\#" "\\\\@" replace-match "\\\\@:\\([0-9]*\\):\\([0-9]*\\)" "" "\\\\@/\\(.*\\)/\\(.*\\)/" "%u" upcase "%d" downcase "%c" capitalize file-exists-p file-name-sans-extension "(%s)" "!" helm-read-answer "Replace `%s' by `%s' [!,y,n,q]" ("y" "n" "!" "q") "q" throw message "Operation aborted" "n" rename-file "%d Files renamed" sit-for 0.1 window-buffer minibuffer-window delete-minibuffer-contents] 26 (#$ . 48614)]) | |
| 261 | #@32 | |
| 262 | ||
| 263 | (fn STR &optional REP1 REP2) | |
| 264 | (defalias 'helm-ff--prepare-str-with-regexp #[769 "\203\n \300!\206 \301\203 \300!\206 G\302\303O!\304Q\301U?\205/ \303\301O!GU?\205A \303 GO!Q\207" [string-to-number 0 "\\(" regexp-quote "\\)"] 11 (#$ . 51915)]) | |
| 265 | #@18 | |
| 266 | ||
| 267 | (fn CANDIDATE) | |
| 268 | (defalias 'helm-ff-query-replace-fnames-on-marked #[257 "\300\301\302\"\303!\207" [helm-marked-candidates :with-wildcard t helm-ff-query-replace-on-filenames] 4 (#$ . 52191)]) | |
| 269 | (defalias 'helm-ff-run-query-replace-fnames-on-marked #[0 "\203 \301\302!\207\303\304!\207" [helm-alive-p helm-exit-and-execute-action helm-ff-query-replace-fnames-on-marked error "Running helm command outside of context"] 2 nil nil]) | |
| 270 | (put 'helm-ff-run-query-replace-fnames-on-marked 'helm-only t) | |
| 271 | #@18 | |
| 272 | ||
| 273 | (fn CANDIDATE) | |
| 274 | (defalias 'helm-ff-query-replace #[257 "\300\301\302\"\303\211:\203 @\262\304\305!!B\262A\262\202 \211\237\266\203\306\303\"\207" [helm-marked-candidates :with-wildcard t nil buffer-name find-file-noselect helm-buffer-query-replace-1] 7 (#$ . 52691)]) | |
| 275 | #@18 | |
| 276 | ||
| 277 | (fn CANDIDATE) | |
| 278 | (defalias 'helm-ff-query-replace-regexp #[257 "\300\301\302\"\303\211:\203 @\262\304\305!!B\262A\262\202 \211\237\266\203\306\307\"\207" [helm-marked-candidates :with-wildcard t nil buffer-name find-file-noselect helm-buffer-query-replace-1 regexp] 7 (#$ . 52977)]) | |
| 279 | (defalias 'helm-ff-run-query-replace #[0 "\203 \301\302!\207\303\304!\207" [helm-alive-p helm-exit-and-execute-action helm-ff-query-replace error "Running helm command outside of context"] 2 nil nil]) | |
| 280 | (put 'helm-ff-run-query-replace 'helm-only t) | |
| 281 | (defalias 'helm-ff-run-query-replace-regexp #[0 "\203 \301\302!\207\303\304!\207" [helm-alive-p helm-exit-and-execute-action helm-ff-query-replace-regexp error "Running helm command outside of context"] 2 nil nil]) | |
| 282 | (put 'helm-ff-run-query-replace-regexp 'helm-only t) | |
| 283 | #@18 | |
| 284 | ||
| 285 | (fn CANDIDATE) | |
| 286 | (defalias 'helm-ff-toggle-auto-update #[257 "\203 \303\304!\210\305\306!\210\303\307!\210\307\211\207\n?\211\303\310\n\203# \311\202$ \312\"\207" [helm-ff--deleting-char-backward helm-ff--auto-update-state helm-ff-auto-update-flag message "[Auto expansion disabled]" sit-for 1 nil "[Auto expansion %s]" "enabled" "disabled"] 5 (#$ . 53796)]) | |
| 287 | (defalias 'helm-ff-run-toggle-auto-update #[0 "\203 \301\302\303\"\210\304\302!\207\305\306!\207" [helm-alive-p helm-attrset toggle-auto-update (helm-ff-toggle-auto-update . never-split) helm-execute-persistent-action error "Running helm command outside of context"] 3 nil nil]) | |
| 288 | (put 'helm-ff-run-toggle-auto-update 'helm-only t) | |
| 289 | #@63 Disable helm find files auto update and delete char backward. | |
| 290 | (defalias 'helm-ff-delete-char-backward #[0 "\203 \303\304\305\306\307 \310\311!\"!\210\312 \207\313\314!\207" [helm-alive-p helm-ff-auto-update-flag helm-ff--deleting-char-backward nil t call-interactively lookup-key current-global-map read-kbd-macro "DEL" helm--update-header-line error "Running helm command outside of context"] 5 (#$ . 54498) nil]) | |
| 291 | (put 'helm-ff-delete-char-backward 'helm-only t) | |
| 292 | (defalias 'helm-ff-delete-char-backward--exit-fn #[0 "\303\211\207" [helm-ff--auto-update-state helm-ff-auto-update-flag helm-ff--deleting-char-backward nil] 2]) | |
| 293 | #@208 Used for RET action in `helm-find-files'. | |
| 294 | See `helm-ff-RET' for details. | |
| 295 | If MUST-MATCH is specified exit with | |
| 296 | `helm-confirm-and-exit-minibuffer' which handle must-match mechanism. | |
| 297 | ||
| 298 | (fn &optional MUST-MATCH) | |
| 299 | (defalias 'helm-ff-RET-1 #[256 "\300 \211\204 \301\302\303\304\211$\210\305!\203 \306!\307\230\204 \310 \202+ \203) \311 \202+ \312 \207" [helm-get-selection cl--assertion-failed sel "Trying to exit with no candidates" nil file-directory-p helm-basename "." helm-execute-persistent-action helm-confirm-and-exit-minibuffer helm-maybe-exit-minibuffer] 7 (#$ . 55138)]) | |
| 300 | #@233 Default action for RET in `helm-find-files'. | |
| 301 | ||
| 302 | Behave differently depending of `helm-selection': | |
| 303 | ||
| 304 | - candidate basename is "." => open it in dired. | |
| 305 | - candidate is a directory => expand it. | |
| 306 | - candidate is a file => open it. | |
| 307 | (defalias 'helm-ff-RET #[0 "\300 \207" [helm-ff-RET-1] 1 (#$ . 55725) nil]) | |
| 308 | #@51 Same as `helm-ff-RET' but used in must-match map. | |
| 309 | (defalias 'helm-ff-RET-must-match #[0 "\300\301!\207" [helm-ff-RET-1 t] 2 (#$ . 56039) nil]) | |
| 310 | #@48 Run Grep action from `helm-source-find-files'. | |
| 311 | (defalias 'helm-ff-run-grep #[0 "\203 \301\302!\207\303\304!\207" [helm-alive-p helm-exit-and-execute-action helm-find-files-grep error "Running helm command outside of context"] 2 (#$ . 56188) nil]) | |
| 312 | (put 'helm-ff-run-grep 'helm-only t) | |
| 313 | #@52 Run git-grep action from `helm-source-find-files'. | |
| 314 | (defalias 'helm-ff-run-git-grep #[0 "\203 \301\302!\207\303\304!\207" [helm-alive-p helm-exit-and-execute-action helm-ff-git-grep error "Running helm command outside of context"] 2 (#$ . 56480) nil]) | |
| 315 | (put 'helm-ff-run-git-grep 'helm-only t) | |
| 316 | (defalias 'helm-ff-run-grep-ag #[0 "\203 \301\302!\207\303\304!\207" [helm-alive-p helm-exit-and-execute-action helm-find-files-ag error "Running helm command outside of context"] 2 nil nil]) | |
| 317 | (put 'helm-ff-run-grep-ag 'helm-only t) | |
| 318 | #@51 Run Pdfgrep action from `helm-source-find-files'. | |
| 319 | (defalias 'helm-ff-run-pdfgrep #[0 "\203 \301\302!\207\303\304!\207" [helm-alive-p helm-exit-and-execute-action helm-ff-pdfgrep error "Running helm command outside of context"] 2 (#$ . 57014) nil]) | |
| 320 | (put 'helm-ff-run-pdfgrep 'helm-only t) | |
| 321 | #@48 Run Grep action from `helm-source-find-files'. | |
| 322 | (defalias 'helm-ff-run-zgrep #[0 "\203 \301\302!\207\303\304!\207" [helm-alive-p helm-exit-and-execute-action helm-ff-zgrep error "Running helm command outside of context"] 2 (#$ . 57310) nil]) | |
| 323 | (put 'helm-ff-run-zgrep 'helm-only t) | |
| 324 | #@53 Run Copy file action from `helm-source-find-files'. | |
| 325 | (defalias 'helm-ff-run-copy-file #[0 "\203 \301\302!\207\303\304!\207" [helm-alive-p helm-exit-and-execute-action helm-find-files-copy error "Running helm command outside of context"] 2 (#$ . 57597) nil]) | |
| 326 | (put 'helm-ff-run-copy-file 'helm-only t) | |
| 327 | #@55 Run Rename file action from `helm-source-find-files'. | |
| 328 | (defalias 'helm-ff-run-rename-file #[0 "\203 \301\302!\207\303\304!\207" [helm-alive-p helm-exit-and-execute-action helm-find-files-rename error "Running helm command outside of context"] 2 (#$ . 57904) nil]) | |
| 329 | (put 'helm-ff-run-rename-file 'helm-only t) | |
| 330 | #@61 Run Byte compile file action from `helm-source-find-files'. | |
| 331 | (defalias 'helm-ff-run-byte-compile-file #[0 "\203 \301\302!\207\303\304!\207" [helm-alive-p helm-exit-and-execute-action helm-find-files-byte-compile error "Running helm command outside of context"] 2 (#$ . 58219) nil]) | |
| 332 | (put 'helm-ff-run-byte-compile-file 'helm-only t) | |
| 333 | #@53 Run Load file action from `helm-source-find-files'. | |
| 334 | (defalias 'helm-ff-run-load-file #[0 "\203 \301\302!\207\303\304!\207" [helm-alive-p helm-exit-and-execute-action helm-find-files-load-files error "Running helm command outside of context"] 2 (#$ . 58558) nil]) | |
| 335 | (put 'helm-ff-run-load-file 'helm-only t) | |
| 336 | #@66 Run eshell command on file action from `helm-source-find-files'. | |
| 337 | (defalias 'helm-ff-run-eshell-command-on-file #[0 "\203 \301\302!\207\303\304!\207" [helm-alive-p helm-exit-and-execute-action helm-find-files-eshell-command-on-file error "Running helm command outside of context"] 2 (#$ . 58871) nil]) | |
| 338 | (put 'helm-ff-run-eshell-command-on-file 'helm-only t) | |
| 339 | #@54 Run Ediff file action from `helm-source-find-files'. | |
| 340 | (defalias 'helm-ff-run-ediff-file #[0 "\203 \301\302!\207\303\304!\207" [helm-alive-p helm-exit-and-execute-action helm-find-files-ediff-files error "Running helm command outside of context"] 2 (#$ . 59235) nil]) | |
| 341 | (put 'helm-ff-run-ediff-file 'helm-only t) | |
| 342 | #@60 Run Ediff merge file action from `helm-source-find-files'. | |
| 343 | (defalias 'helm-ff-run-ediff-merge-file #[0 "\203 \301\302!\207\303\304!\207" [helm-alive-p helm-exit-and-execute-action helm-find-files-ediff-merge-files error "Running helm command outside of context"] 2 (#$ . 59552) nil]) | |
| 344 | (put 'helm-ff-run-ediff-merge-file 'helm-only t) | |
| 345 | #@56 Run Symlink file action from `helm-source-find-files'. | |
| 346 | (defalias 'helm-ff-run-symlink-file #[0 "\203 \301\302!\207\303\304!\207" [helm-alive-p helm-exit-and-execute-action helm-find-files-symlink error "Running helm command outside of context"] 2 (#$ . 59893) nil]) | |
| 347 | (put 'helm-ff-run-symlink-file 'helm-only t) | |
| 348 | #@56 Run Symlink file action from `helm-source-find-files'. | |
| 349 | (defalias 'helm-ff-run-relsymlink-file #[0 "\203 \301\302!\207\303\304!\207" [helm-alive-p helm-exit-and-execute-action helm-find-files-relsymlink error "Running helm command outside of context"] 2 (#$ . 60212) nil]) | |
| 350 | (put 'helm-ff-run-relsymlink-file 'helm-only t) | |
| 351 | #@57 Run Hardlink file action from `helm-source-find-files'. | |
| 352 | (defalias 'helm-ff-run-hardlink-file #[0 "\203 \301\302!\207\303\304!\207" [helm-alive-p helm-exit-and-execute-action helm-find-files-hardlink error "Running helm command outside of context"] 2 (#$ . 60540) nil]) | |
| 353 | (put 'helm-ff-run-hardlink-file 'helm-only t) | |
| 354 | #@46 Delete files default action. | |
| 355 | ||
| 356 | (fn CANDIDATE) | |
| 357 | (defalias 'helm-ff-delete-files #[257 "!\207" [helm-ff-delete-files-function] 3 (#$ . 60863)]) | |
| 358 | #@55 Run Delete file action from `helm-source-find-files'. | |
| 359 | (defalias 'helm-ff-run-delete-file #[0 "\203 \301\302!\207\303\304!\207" [helm-alive-p helm-exit-and-execute-action helm-ff-delete-files error "Running helm command outside of context"] 2 (#$ . 61011) nil]) | |
| 360 | (put 'helm-ff-run-delete-file 'helm-only t) | |
| 361 | #@62 Run complete file name action from `helm-source-find-files'. | |
| 362 | (defalias 'helm-ff-run-complete-fn-at-point #[0 "\203 \301\302!\207\303\304!\207" [helm-alive-p helm-exit-and-execute-action helm-insert-file-name-completion-at-point error "Running helm command outside of context"] 2 (#$ . 61324) nil]) | |
| 363 | (put 'helm-ff-run-complete-fn-at-point 'helm-only t) | |
| 364 | #@60 Run switch to eshell action from `helm-source-find-files'. | |
| 365 | (defalias 'helm-ff-run-switch-to-eshell #[0 "\203 \301\302!\207\303\304!\207" [helm-alive-p helm-exit-and-execute-action helm-ff-switch-to-eshell error "Running helm command outside of context"] 2 (#$ . 61683) nil]) | |
| 366 | (put 'helm-ff-run-switch-to-eshell 'helm-only t) | |
| 367 | #@123 Run switch to other window action from `helm-source-find-files'. | |
| 368 | When a prefix arg is provided, split is done vertically. | |
| 369 | (defalias 'helm-ff-run-switch-other-window #[0 "\203 \301\302!\207\303\304!\207" [helm-alive-p helm-exit-and-execute-action helm-find-files-other-window error "Running helm command outside of context"] 2 (#$ . 62016) nil]) | |
| 370 | (put 'helm-ff-run-switch-other-window 'helm-only t) | |
| 371 | #@65 Run switch to other frame action from `helm-source-find-files'. | |
| 372 | (defalias 'helm-ff-run-switch-other-frame #[0 "\203 \301\302!\207\303\304!\207" [helm-alive-p helm-exit-and-execute-action find-file-other-frame error "Running helm command outside of context"] 2 (#$ . 62421) nil]) | |
| 373 | (put 'helm-ff-run-switch-other-frame 'helm-only t) | |
| 374 | #@72 Run open file externally command action from `helm-source-find-files'. | |
| 375 | (defalias 'helm-ff-run-open-file-externally #[0 "\203 \301\302!\207\303\304!\207" [helm-alive-p helm-exit-and-execute-action helm-open-file-externally error "Running helm command outside of context"] 2 (#$ . 62759) nil]) | |
| 376 | (put 'helm-ff-run-open-file-externally 'helm-only t) | |
| 377 | #@72 Run open file externally command action from `helm-source-find-files'. | |
| 378 | (defalias 'helm-ff-run-open-file-with-default-tool #[0 "\203 \301\302!\207\303\304!\207" [helm-alive-p helm-exit-and-execute-action helm-open-file-with-default-tool error "Running helm command outside of context"] 2 (#$ . 63112) nil]) | |
| 379 | (put 'helm-ff-run-open-file-with-default-tool 'helm-only t) | |
| 380 | #@63 Locate action function for `helm-find-files'. | |
| 381 | ||
| 382 | (fn CANDIDATE) | |
| 383 | (defalias 'helm-ff-locate #[257 "\305 \210\306\307\"! \206 \n\310=\205 \311\312 \"?\205 \313P\314\f\315\316$\207" [helm-ff-default-directory helm-locate-fuzzy-match system-type helm-locate-command helm-current-prefix-arg helm-locate-set-command helm-basename expand-file-name windows-nt string-match "^es" " -b" helm-locate-1 nil from-ff] 7 (#$ . 63486)]) | |
| 384 | #@50 Run locate action from `helm-source-find-files'. | |
| 385 | (defalias 'helm-ff-run-locate #[0 "\203 \301\302!\207\303\304!\207" [helm-alive-p helm-exit-and-execute-action helm-ff-locate error "Running helm command outside of context"] 2 (#$ . 63916) nil]) | |
| 386 | (put 'helm-ff-run-locate 'helm-only t) | |
| 387 | #@18 | |
| 388 | ||
| 389 | (fn CANDIDATE) | |
| 390 | (defalias 'helm-files-insert-as-org-link #[257 "\300\301\"c\210`\302Zb\207" [format "[[%s][]]" 2] 4 (#$ . 64208)]) | |
| 391 | (defalias 'helm-ff-run-insert-org-link #[0 "\203 \301\302!\207\303\304!\207" [helm-alive-p helm-exit-and-execute-action helm-files-insert-as-org-link error "Running helm command outside of context"] 2 nil nil]) | |
| 392 | (put 'helm-ff-run-insert-org-link 'helm-only t) | |
| 393 | (defalias 'helm-ff-run-find-file-as-root #[0 "\203 \301\302!\207\303\304!\207" [helm-alive-p helm-exit-and-execute-action helm-find-file-as-root error "Running helm command outside of context"] 2 nil nil]) | |
| 394 | (put 'helm-ff-run-find-file-as-root 'helm-only t) | |
| 395 | (defalias 'helm-ff-run-find-alternate-file #[0 "\203 \301\302!\207\303\304!\207" [helm-alive-p helm-exit-and-execute-action find-alternate-file error "Running helm command outside of context"] 2 nil nil]) | |
| 396 | (put 'helm-ff-run-find-alternate-file 'helm-only t) | |
| 397 | #@69 Run mail attach files command action from `helm-source-find-files'. | |
| 398 | (defalias 'helm-ff-run-mail-attach-files #[0 "\203 \301\302!\207\303\304!\207" [helm-alive-p helm-exit-and-execute-action helm-ff-mail-attach-files error "Running helm command outside of context"] 2 (#$ . 65125) nil]) | |
| 399 | (put 'helm-ff-run-mail-attach-files 'helm-only t) | |
| 400 | #@57 Run Etags command action from `helm-source-find-files'. | |
| 401 | (defalias 'helm-ff-run-etags #[0 "\203 \301\302!\207\303\304!\207" [helm-alive-p helm-exit-and-execute-action helm-ff-etags-select error "Running helm command outside of context"] 2 (#$ . 65469) nil]) | |
| 402 | (put 'helm-ff-run-etags 'helm-only t) | |
| 403 | #@380 Print marked files. | |
| 404 | ||
| 405 | You may to set in order | |
| 406 | variables `lpr-command',`lpr-switches' and/or `printer-name', | |
| 407 | but with no settings helm should detect your printer(s) and | |
| 408 | print with the default `lpr' settings. | |
| 409 | ||
| 410 | NOTE: DO NOT set the "-P" flag in `lpr-switches', if you really | |
| 411 | have to modify this, do it in `lpr-printer-switch'. | |
| 412 | ||
| 413 | Same as `dired-do-print' but for helm. | |
| 414 | ||
| 415 | (fn CANDIDATE) | |
| 416 | (defalias 'helm-ff-print #[257 "\306\307!\210\204\f \204 \310 \311\312\313\"\211G \203 \314\315 \"\202! \n\211;\2035 \316\n\231\2035 \nP\fB\2026 \f \317\320\321\322\323\316## \205[ \f\205[ \322\324 \f;\203W \fC\202X \fB\325#\"\322\326\325#\325Q\203q \327\330\331#\202t \332\333!*\207" [helm-current-prefix-arg helm-ff-printer-list printer-name lpr-printer-switch lpr-switches lpr-command require lpr helm-ff-find-printers helm-marked-candidates :with-wildcard t helm-comp-read "Printer: " "" helm-read-string format "Print *%s File(s):\n%s with: " mapconcat #[257 "\300\301\"\207" [format "- %s\n"] 4 "\n\n(fn F)"] identity " " #[257 "\300\301\"\207" [format "'%s'"] 4 "\n\n(fn X)"] start-process-shell-command "helm-print" nil error "Error: Please verify your printer settings in Emacs."] 12 (#$ . 65773)]) | |
| 417 | #@54 Run Print file action from `helm-source-find-files'. | |
| 418 | (defalias 'helm-ff-run-print-file #[0 "\203 \301\302!\207\303\304!\207" [helm-alive-p helm-exit-and-execute-action helm-ff-print error "Running helm command outside of context"] 2 (#$ . 66983) nil]) | |
| 419 | (put 'helm-ff-run-print-file 'helm-only t) | |
| 420 | #@81 Calculate the checksum of FILE. | |
| 421 | The checksum is copied to kill-ring. | |
| 422 | ||
| 423 | (fn FILE) | |
| 424 | (defalias 'helm-ff-checksum #[257 "\300!\204 \301\302\303\304C$\210\305\306\307\310\"!\311!\312\313#\210\314\315\316\317\320\321\"\322\"\323$\315\324\325\320\321\"\326\"\327\330%\"\207" [file-regular-p cl--assertion-failed (file-regular-p file) "`%s' is not a regular file" nil intern helm-comp-read "Algorithm: " (md5 sha1 sha224 sha256 sha384 sha512) helm-basename message "Calculating %s checksum for %s..." async-start make-byte-code 0 "\302\303!r\211q\210\304\305\306\307\310!\311\"\312$\216\313\300!\210\314\301p\"*\207" vconcat vector [generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 insert-file-contents-literally secure-hash] 7 257 "\302!\210\303\304\300\301#\207" [kill-new message "Calculating %s checksum for `%s' done and copied to kill-ring"] 5 "\n\n(fn SUM)"] 12 (#$ . 67286)]) | |
| 425 | #@18 | |
| 426 | ||
| 427 | (fn CANDIDATE) | |
| 428 | (defalias 'helm-ff-toggle-basename #[257 "r\301 q\210?\302\303\304\"\203 \305!\202 \211\306\307!\310P!\266\202)\207" [helm-ff-transformer-show-only-basename helm-buffer-get helm-get-selection nil t helm-basename helm-force-update regexp-quote "$"] 6 (#$ . 68254)]) | |
| 429 | (defalias 'helm-ff-run-toggle-basename #[0 "\203 \301 ?\205 \302\303!\207\304\305!\207" [helm-alive-p helm-empty-source-p helm-ff-toggle-basename nil error "Running helm command outside of context"] 2 nil nil]) | |
| 430 | (put 'helm-ff-run-toggle-basename 'helm-only t) | |
| 431 | #@58 Reduce FNAME by number LEVEL from end. | |
| 432 | ||
| 433 | (fn FNAME LEVEL) | |
| 434 | (defalias 'helm-reduce-file-name #[514 "\211\300V\203% \301\230\204 \302\303\"\301\230\204 \304\211!\305P!\262\211S\262\202 \207" [0 "/" file-remote-p localname expand-file-name "/../"] 5 (#$ . 68811)]) | |
| 435 | (defvar helm-find-files--level-tree nil) | |
| 436 | (defvar helm-find-files--level-tree-iterator nil) | |
| 437 | #@102 Go up one level like unix command `cd ..'. | |
| 438 | If prefix numeric arg is given go ARG level up. | |
| 439 | ||
| 440 | (fn ARG) | |
| 441 | (defalias 'helm-find-files-up-one-level #[257 "\203\247 \306 \307!\205\246 \310 ?\205\246 \311\312 !r\313\314\315\316\317!\320\"\321$\216\322@\323\"\210\324 \2036 \325\326!\210\327\330!\210*\210\331\330\211#\332 \"\333\334\n\203Q \335 \f#\f]\202R \f\"\210\336 !\203` (\202y \337 !\203l (\202y \203y \337!\203y ()\204\204 )B)\330*\211)B)\340+\"\210\341\342\343\"\210\342\344B,B,\345\344\342\"\266\202\207\346\347!\207" [helm-alive-p helm-pattern helm-ff-up-one-level-preselect helm-ff--directory-files-hash helm-ff-candidate-number-limit helm-ff-default-directory helm-get-current-source helm-file-completion-source-p helm-ff--invalid-tramp-name-p internal--before-with-selected-window helm-window make-byte-code 0 "\301\300!\207" vconcat vector [internal--after-with-selected-window] 2 select-window norecord helm-follow-mode-p helm-follow-mode -1 message nil helm-get-selection helm-reduce-file-name helm-attrset candidate-number-limit gethash file-directory-p file-exists-p helm-set-pattern defalias #1=#:helm--hook36 #[0 "\300\216\301 )\207" [#[0 "\300\301\302\"\210\303\302!\207" [remove-hook helm-after-update-hook #1# fmakunbound] 3] helm-ff-retrieve-last-expanded] 1] helm-after-update-hook add-hook error "Running helm command outside of context" helm-ff-last-expanded helm-find-files--level-tree helm-find-files--level-tree-iterator helm-suspend-update-flag helm--temp-hooks] 10 (#$ . 69178) "p"]) | |
| 442 | (put 'helm-find-files-up-one-level 'helm-only t) | |
| 443 | #@62 Retrieve previous paths reached by `C-l' in helm-find-files. | |
| 444 | (defalias 'helm-find-files-down-last-level #[0 "\203- \303 \205, \304 ?\2050 \204 \305\nA!\306\307 !\211\203' \310!\202* \306\211\262\207\311\312!\207" [helm-alive-p helm-find-files--level-tree-iterator helm-find-files--level-tree helm-file-completion-source-p helm-ff--invalid-tramp-name-p helm-iter-list nil helm-iter-next helm-set-pattern error "Running helm command outside of context"] 3 (#$ . 70767) nil]) | |
| 445 | (put 'helm-find-files-down-last-level 'helm-only t) | |
| 446 | (defalias 'helm-find-files--reset-level-tree #[0 "\302\211\211\207" [helm-find-files--level-tree-iterator helm-find-files--level-tree nil] 3]) | |
| 447 | (byte-code "\300\301\302\"\210\300\303\302\"\210\300\304\302\"\207" [add-hook helm-cleanup-hook helm-find-files--reset-level-tree post-self-insert-hook helm-after-persistent-action-hook] 3) | |
| 448 | #@145 Move overlay to last visited directory `helm-ff-last-expanded'. | |
| 449 | This happen after using `helm-find-files-up-one-level', | |
| 450 | or hitting C-j on "..". | |
| 451 | (defalias 'helm-ff-retrieve-last-expanded #[0 "\205D \203 \302\303!!\202 \303!\304\305 !r\306\307\310\311\312!\313\"\314$\216\315@\316\"\210\317\320\321!\322Q\323\324#\203= \307y\210\325 \210*\210\323\211\262\207" [helm-ff-last-expanded helm-ff-transformer-show-only-basename helm-basename directory-file-name internal--before-with-selected-window helm-window make-byte-code 0 "\301\300!\207" vconcat vector [internal--after-with-selected-window] 2 select-window norecord re-search-forward "^" regexp-quote "$" nil t helm-mark-current-line] 8 (#$ . 71642)]) | |
| 452 | #@73 When candidate is an incomplete file name move to first real candidate. | |
| 453 | (defalias 'helm-ff-move-to-first-real-candidate #[0 "\304 \305\306\"\307\310!\205- \311 ?\205- \312! >\204$ \313\314\"?\205- \n\205- \315\307\211#\211\205P \211;?\206J \313 \"\203G \316\307\317#?\206J \320!?\205P \321 \262)\207" [minibuffer-completing-file-name helm-ff-goto-first-real-dired-exceptions helm-ff--move-to-first-real-candidate helm-tramp-file-name-regexp helm-get-current-source assoc-default name nil helm-file-completion-source-p helm-empty-source-p intern-soft string-match "\\`[Dd]ired-" helm-get-selection file-remote-p t file-exists-p helm-next-line] 7 (#$ . 72361)]) | |
| 454 | #@231 Expand to directory when sole completion. | |
| 455 | When only one candidate is remaining and it is a directory, | |
| 456 | expand to this directory. | |
| 457 | This happen only when `helm-ff-auto-update-flag' is non--nil | |
| 458 | or when `helm-pattern' is equal to "~/". | |
| 459 | (defalias 'helm-ff-update-when-only-one-matched #[0 "\306 \307!\205\352 \310\311\"?\205\352 \312 ?\205\352 \313\314 !\315\316\317#)\266\203?\205\352 r\320 q\210\321\322\"\323\230\317 \"\203A \324 !\202B \325\326\327!!!\f\230\330 \211\331X\205Z \332\314 !!\331Y\204o \333!\204o \204o \211\203o \334 \210\335\315\211# \203\214 '\204\214 \317\336 \"\204\214 (\337=\203\251 \340\230\204\251 \341U\205\347 )\205\347 \342!\205\347 '?\205\347 \204\261 \205\347 ?\205\347 \211;\205\347 \342!\205\347 \343!\204\326 \331X\203\326 \344\325!!\210\202\345 \317\345 \"\204\345 \344\326\325 !!!\210\346 \266\206)\207" [helm-action-buffer helm-pattern inhibit-changing-match-data helm-tramp-file-name-regexp helm-ff-default-directory helm-ff-auto-update-flag helm-get-current-source helm-file-completion-source-p get-buffer-window visible helm-ff--invalid-tramp-name-p "\\`[.]\\{2\\}[^/]+" helm-basename nil t string-match helm-buffer-get assoc-default name "Read File Name History" helm-ff--create-tramp-name file-name-as-directory expand-file-name substitute-in-file-name helm-get-candidate-number 2 string-width file-exists-p helm-ff-move-to-first-real-candidate helm-get-selection "\\`//" helm-yank-text-at-point "~/" 1 file-accessible-directory-p helm-dir-is-dot helm-set-pattern "\\`.*[.]\\{1\\}\\'" helm-check-minibuffer-input helm-ff--deleting-char-backward last-command helm-ff--auto-update-state] 11 (#$ . 73038)]) | |
| 460 | #@78 Allow expanding to home/user directory or root or text yanked after pattern. | |
| 461 | (defalias 'helm-ff-auto-expand-to-home-or-root #[0 "\305 \205\371 r\306\307 !q\210l)\205\371 \310 \"?\205\371 \311 !\204f \312 !\204f \313\314 !\315\316\310#)\266\203\203f \317 \315\316\310#)\266\203\203f \320 !\210\321\322 !r\323\324\325\326\327!\330\"\331$\216\332@\333\"\210\334 *\207\310\335 \"\205\371 \336\324 \"\211\337\230\203} \340 !\202\261 \341\230\203\207 \342\202\261 \343\315\316\310#)\266\203\203\256 \344!\345!\203\244 \211\202\251 \346\317\347#\262\202\261 \350 !\345!\203\321 \351\315\316\310#)\266\203\204\321 \352!\211\262\202\327 \352\353!!\321\322 !r\323\324\325\326\327!\354\"\331$\216\332@\333\"\210\355!\210\334 *\262\266\202\207" [helm-ff-url-regexp helm-pattern inhibit-changing-match-data default-directory helm-ff-default-directory helm-file-completion-source-p window-buffer minibuffer-window string-match file-remote-p file-exists-p "\\`\\([.]\\|\\s-\\)\\{2\\}[^/]+" helm-basename nil t "/\\'" helm-ff-recursive-dirs internal--before-with-selected-window helm-window make-byte-code 0 "\301\300!\207" vconcat vector [internal--after-with-selected-window] 2 select-window norecord helm-check-minibuffer-input "\\(?:\\`~/\\)\\|/?\\$.*/\\|/\\./\\|/\\.\\./\\|/~.*/\\|//\\|\\(/[[:alpha:]]:/\\|\\s\\+\\)" match-string "/./" expand-file-name "/../" "/" "\\`/\\$" substitute-in-file-name file-directory-p replace-regexp-in-string "" helm-ff--expand-substitued-pattern "[^.]\\.\\'" file-name-as-directory file-name-directory [internal--after-with-selected-window] helm-set-pattern] 9 (#$ . 74712)]) | |
| 462 | #@82 Prevent expanding "/home/user/." to "/home/user". | |
| 463 | ||
| 464 | (fn NAME &optional DIRECTORY) | |
| 465 | (defalias 'helm-ff--expand-file-name-no-dot #[513 "\300\"\301\302\"\205\f \303P\207" [expand-file-name string-match "[^.]\\.\\'" "/."] 6 (#$ . 76351)]) | |
| 466 | #@16 | |
| 467 | ||
| 468 | (fn PATTERN) | |
| 469 | (defalias 'helm-ff--expand-substitued-pattern #[257 "\301>\205 \302\303!\211\203 \304\202 \305\211\306!\"\207" [system-type (windows-nt ms-dos) getenv "SystemDrive" expand-file-name helm-ff--expand-file-name-no-dot helm-substitute-in-filename] 6 (#$ . 76593)]) | |
| 470 | #@299 Substitute all parts of FNAME from start up to "~/" or "/". | |
| 471 | On windows system substitute from start up to "/[[:lower:]]:/". | |
| 472 | This function is needed for `helm-ff-auto-expand-to-home-or-root' | |
| 473 | and should be used carefully elsewhere, or not at all, using | |
| 474 | `substitute-in-file-name' instead. | |
| 475 | ||
| 476 | (fn FNAME) | |
| 477 | (defalias 'helm-substitute-in-filename #[257 "\203 \304\305\306#)\266\203\203 \207\307!\2032 \n\2032 \310!\311!\203, \211\2021 \312\313\314#\207\315\316!r\211q\210\317\320\321\322\323!\324\"\325$\216c\210eb\210 \326>\203U \327\304w\210\330\331\304\305#\203\212 \332\320!\211\333\230\204v \334\304\305\306#)\266\203\203| \320\224T\202~ \320\224b\210\335`\336 \"\262\202\213 *\207" [helm--url-regexp inhibit-changing-match-data helm-substitute-in-filename-stay-on-remote system-type nil t string-match file-remote-p substitute-in-file-name file-directory-p replace-regexp-in-string "/\\'" "" generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 (windows-nt ms-dos) "/" re-search-forward "~.*/?\\|//\\|/[[:alpha:]]:/" match-string "//" "/[[:alpha:]]:/" buffer-substring-no-properties point-at-eol] 10 (#$ . 76882)]) | |
| 478 | #@56 Put point on filename FILE in dired buffer. | |
| 479 | ||
| 480 | (fn FILE) | |
| 481 | (defalias 'helm-point-file-in-dired #[257 "\205 \302\303\304#)\266\203?\205% \305\306!!\307\310!!\210\311!\262\207" [helm--url-regexp inhibit-changing-match-data nil t string-match expand-file-name helm-substitute-in-filename dired file-name-directory dired-goto-file] 8 (#$ . 78089)]) | |
| 482 | #@116 Open a dired buffer with only marked files. | |
| 483 | ||
| 484 | With a prefix arg toggle dired buffer to wdired mode. | |
| 485 | ||
| 486 | (fn CANDIDATE) | |
| 487 | (defalias 'helm-marked-files-in-dired #[257 "\305\306\307\310#\210\305\311\307\312#\210\313\314\315\"\211@\205# \316\315\317#)\266\203?\205C \320\321!!\322\nB!\210\323!\210 \204> \f\205A \324\325!\262\207" [helm--url-regexp inhibit-changing-match-data helm-ff-default-directory helm-current-prefix-arg current-prefix-arg advice-add wdired-finish-edit :override helm--advice-wdired-finish-edit wdired-get-filename helm--advice-wdired-get-filename helm-marked-candidates :with-wildcard t nil string-match expand-file-name helm-substitute-in-filename dired dired-goto-file call-interactively wdired-change-to-wdired-mode] 10 (#$ . 78449)]) | |
| 488 | #@53 Execute `helm-marked-files-in-dired' interactively. | |
| 489 | (defalias 'helm-ff-run-marked-files-in-dired #[0 "\203 \301\302!\207\303\304!\207" [helm-alive-p helm-exit-and-execute-action helm-marked-files-in-dired error "Running helm command outside of context"] 2 (#$ . 79218) nil]) | |
| 490 | (put 'helm-ff-run-marked-files-in-dired 'helm-only t) | |
| 491 | #@71 Build filename from `helm-pattern' like /su:: or /sudo::. | |
| 492 | ||
| 493 | (fn FNAME) | |
| 494 | (defalias 'helm-ff--create-tramp-name #[257 "\300\301\302\303!!\211\304\305\211T\211\262GW\203# H\262B\262\202 \211\237\266\205\"\207" [apply tramp-make-tramp-file-name helm-ff--tramp-cons-or-vector tramp-dissect-file-name -1 nil] 10 (#$ . 79555)]) | |
| 495 | #@57 Return VECTOR-OR-CONS as a vector. | |
| 496 | ||
| 497 | (fn VECTOR-OR-CONS) | |
| 498 | (defalias 'helm-ff--tramp-cons-or-vector #[257 "\211:\203 \211@A\211\300!\266\202\207\301!\203 \211\211\207\302\207" [vconcat vectorp nil] 7 (#$ . 79891)]) | |
| 499 | #@47 Returns a list of the car of `tramp-methods'. | |
| 500 | (defalias 'helm-ff--get-tramp-methods #[0 "\206\n \302\303 \"\211\207" [helm-ff--tramp-methods tramp-methods mapcar car] 3 (#$ . 80115)]) | |
| 501 | #@12 | |
| 502 | ||
| 503 | (fn STR) | |
| 504 | (defalias 'helm-ff--previous-mh-tramp-method #[257 "\300 \301\302\303\304\305!\306\"\307$\216\310\311!r\211q\210\301\302\312\304\305!\313\"\314$\216c\210\315\316\317\320\321 \322#\323Q\324\325#\205A \326\327 \314\224\"\326\314\224\314\225\"D*\262)\207" [match-data make-byte-code 0 "\301\300\302\"\207" vconcat vector [set-match-data evaporate] 3 generate-new-buffer " *temp*" "\301\300!\205 \302\300!\207" [buffer-name kill-buffer] 2 re-search-backward "\\([|]\\)\\(" mapconcat identity helm-ff--get-tramp-methods "\\|" "\\):" nil t buffer-substring-no-properties point-at-bol] 9 (#$ . 80307)]) | |
| 505 | #@111 Extract hostname from an incomplete tramp file name. | |
| 506 | Return nil on valid file name remote or not. | |
| 507 | ||
| 508 | (fn FNAME) | |
| 509 | (defalias 'helm-ff--get-host-from-tramp-invalid-fname #[257 "\302\303\304#)\266\203\2055 \305!\306\307!\310#\311\312\303#\211@\313 \235@\211\2053 \314\230\2053 \315!@\266\204\207" [helm-tramp-file-name-regexp inhibit-changing-match-data nil t string-match helm-basename replace-regexp-in-string regexp-quote "" split-string ":" helm-ff--get-tramp-methods "/" last] 8 (#$ . 80926)]) | |
| 510 | #@185 Get a list of hosts for tramp method found in `helm-pattern'. | |
| 511 | Argument PATTERN default to `helm-pattern', it is here only for debugging | |
| 512 | purpose. | |
| 513 | ||
| 514 | (fn &optional (PATTERN helm-pattern)) | |
| 515 | (defalias 'helm-ff--tramp-hostnames #[128 "\211\203 \211A\262\242\202 \203 \302\303\304GTD\"\210\305 \"\205\275 \306!\211A@\206/ \307\310\"\2056 \311!\211\205E @\312\313\314\315#@R\262\316 \317!\320\211\211:\203\255 @\262\211A\262\242\262\321@!\320\211\211:\203\235 @\262:\205y A@\262\203\226 \n\235\204\226 \f@\206\215 \322\f\312RB\262A\262\202h \211\237\266\204!\244\262A\262\202O \211\237\266\204\323\324\320B\"\325\326#\266\205\207" [helm-pattern helm-tramp-file-name-regexp signal wrong-number-of-arguments helm-ff--tramp-hostnames string-match helm-ff--previous-mh-tramp-method match-string 1 helm-ff--get-host-from-tramp-invalid-fname ":" split-string "|" t helm-ff--get-tramp-methods tramp-get-completion-function nil reverse "/" helm-fast-remove-dups delq :test equal] 19 (#$ . 81437)]) | |
| 516 | #@70 Exit helm when user try to execute action on an invalid tramp fname. | |
| 517 | (defalias 'helm-ff-before-action-hook-fn #[0 "\300 \301\302\211#\303!\205! \211;\205! \304!\205! \304 \205! \305\306\"\207" [helm-get-current-source helm-get-selection nil helm-file-completion-source-p helm-ff--invalid-tramp-name-p error "Error: Unknown file or directory `%s'"] 5 (#$ . 82471)]) | |
| 518 | (add-hook 'helm-before-action-hook 'helm-ff-before-action-hook-fn) | |
| 519 | #@99 Return non--nil when PATTERN is an invalid tramp filename. | |
| 520 | ||
| 521 | (fn &optional (PATTERN helm-pattern)) | |
| 522 | (defalias 'helm-ff--invalid-tramp-name-p #[128 "\211\203 \211A\262\242\202 \203 \301\302\303GTD\"\210\304!\305\230\207" [helm-pattern signal wrong-number-of-arguments helm-ff--invalid-tramp-name-p helm-ff-set-pattern "Invalid tramp file name"] 6 (#$ . 82913)]) | |
| 523 | #@12 | |
| 524 | ||
| 525 | (fn STR) | |
| 526 | (defalias 'helm-ff--tramp-postfixed-p #[257 "\300\301 \302\303\304\305\306!\307\"\310$\216\311\312!r\211q\210\302\303\313\305\306!\314\"\315$\216\212c\210)\316\211\203Z \317\320\300\316#\211\203S \212\321u\210\322\323\324\325 \326#\327 \")\203M \300\262\202V \211\262\202V \300\262\210\202( \210*\210)\210\211\207" [nil match-data make-byte-code 0 "\301\300\302\"\207" vconcat vector [set-match-data evaporate] 3 generate-new-buffer " *temp*" "\301\300!\205 \302\300!\207" [buffer-name kill-buffer] 2 t search-forward ":" -1 looking-back mapconcat identity helm-ff--get-tramp-methods "\\|" point-at-bol] 11 (#$ . 83287)]) | |
| 527 | #@57 Handle tramp filenames in `helm-pattern'. | |
| 528 | ||
| 529 | (fn PATTERN) | |
| 530 | (defalias 'helm-ff-set-pattern #[257 "\303 \304!\305\306\211\204 \307\262\310\"\203 \202>\310\311\"\203* \312!\202>\307\230\2034 \307\202>\310\313\"\203C \314!\202>\310\315\"\203R \314!\202>\310\316\"\203` \314 !\202>\310\317\"\203n \314\320!\202>\310\321\"\203| \314\322!\202>\310\323\"\203\213 \314!\202>\310\324P\"\203\277 \203\277 \325\326\"\211\262\203\277 \235\203\277 \314\327\325\330 \"!!\262\331\306\332 $\202>\310\"\203\357 \203\357 \325\326\"\211\262\203\357 \235\203\357 \327\325\330\"!\262\331\306\332 $\202>\310\n\"\203#\203#\325\326\"\211\262\203#\203#\235\204#\327\325\330\"!\262\331\306\332 $\202>\204=\310\n\"\203=\325\326\"\235\203=\333\202>\207" [helm-ff-url-regexp default-directory helm-tramp-file-name-regexp helm-ff--get-tramp-methods helm-ff--tramp-postfixed-p "\\`/\\([^[/:]+\\|[^/]+]\\):.*:" nil "" string-match "\\`\\$" substitute-in-file-name "\\`[.]\\{1,2\\}/\\'" expand-file-name "[^/][.]/\\'" ".*\\(~?/?[.]\\{1\\}/\\)\\'" ".*\\(~//\\|//\\)\\'" "/" "\\`\\(~/\\|.*/~/\\)\\'" "~/" "\\`~/" "~" match-string 1 helm-ff--create-tramp-name 0 replace-match t "Invalid tramp file name"] 11 (#$ . 83933)]) | |
| 531 | #@83 Create candidate list for `helm-source-find-files'. | |
| 532 | ||
| 533 | (fn &optional REQUIRE-MATCH) | |
| 534 | (defalias 'helm-find-files-get-candidates #[256 "\306!\307!\310\211\211\n\311!\312\313G\310$\210\314\230\204M \315\230\204M \316\310\317 \320#)\266\203\203; \321!\204M \322!\211\205E \323!\262\204M \317\262\314\230\204\337 \211\204\337 '?\206t (\206t \205t \324\310\317 \320#)\266\203??\205\202 \325!G\326Y\206\202 )\327\330\331!\211\"\210\203\235 )\203\235 \332!\202\252 \315\230\203\247 \333\202\252 \322!\211\205\261 \334!\262\206\270 *\262\315\230\203\306 \334\333!\202\335 \320+\"\206\330 ,\205\330 \320,\"?\205\335 -\320\316\"\203\360 \311\310\317#\203\360 \314\230\203\335 \206yC\202y\336!\203.\337=\2045\320+\"\2045\211\2045\340!\204(\320\341\"\2045,\203:\320,\"\203:C\202y\315\230\203F\342\333!\202y\323!\203Z\343!\204Z\344\345\"C\202y\203i)\203i\342!\202y\346\206o?\205uC\342!\"*\207" [helm-pattern non-essential helm-tramp-verbose tramp-verbose helm--ignore-errors inhibit-changing-match-data helm-ff-set-pattern file-accessible-directory-p nil file-remote-p set-text-properties 0 "Invalid tramp file name" "" ":\\'" t string-match helm-ff--tramp-postfixed-p file-name-directory file-directory-p "/\\'" helm-basename 3 helm-log "Pattern=%S" helm-ff--transform-pattern-for-completion file-name-as-directory "/" expand-file-name helm-ff--tramp-hostnames file-regular-p helm-execute-persistent-action file-exists-p "/$" helm-ff-directory-files file-readable-p format "file-error: Opening directory permission denied `%s'" append helm-ff--auto-update-state helm-ff--deleting-char-backward helm-ff-auto-update-flag default-directory helm-ff-url-regexp helm--url-regexp helm-ff-default-directory last-repeatable-command] 12 (#$ . 85223)]) | |
| 535 | #@135 List directory DIRECTORY. | |
| 536 | ||
| 537 | If DIRECTORY is remote use `helm-list-directory-function' otherwise use | |
| 538 | `directory-files'. | |
| 539 | ||
| 540 | (fn DIRECTORY) | |
| 541 | (defalias 'helm-list-directory #[257 "\302!\203\n !\207\303\304 #\207" [helm-list-directory-function directory-files-no-dot-files-regexp file-remote-p directory-files t] 5 (#$ . 87060)]) | |
| 542 | #@138 List DIRECTORY with `file-name-all-completions' as backend. | |
| 543 | ||
| 544 | Add a `helm-ff-dir' property on each fname ending with "/". | |
| 545 | ||
| 546 | (fn DIRECTORY) | |
| 547 | (defalias 'helm-list-dir-lisp #[257 "\300\301\302\"\303\"\304\211:\203k @\262\302\230\206& \305\235\206& \306\211GSH\307\"\211\204c \306\211GSH\310\"\262\205E \311\312GSO\"\266\202\211\203U \313\314\315#B\262\202b \313\311\"\316\315#B\262\210\210A\262\202 \211\237\207" [sort file-name-all-completions "" string-lessp nil ("./" "../") char-equal 58 47 expand-file-name 0 propertize helm-ff-dir t helm-ff-file] 11 (#$ . 87392)]) | |
| 548 | #@225 List directory DIR with external shell command as backend. | |
| 549 | ||
| 550 | This function is fast enough to be used for remote files and save the | |
| 551 | type of files at the same time in a property for using it later in the | |
| 552 | transformer. | |
| 553 | ||
| 554 | (fn DIR) | |
| 555 | (defalias 'helm-list-dir-external #[257 "\301\302!!\303\304!r\211q\210\305\306\307\310\311!\312\"\313$\216\314\315\316\317!\"\320\321\320$\306=\205\366 eb\210\212\322\323\320\321#\203\332 \324\325\306!\211\232\204P \321=\204P <\203` \211\235\203` \326\327!\210\330\331 \332 \333\321$\210\202\325 \334\211\232\204y \321=\204y <\203\211 \211\235\203\211 \326\327!\210\330\331 \332 \335\321$\210\202\323 \336\211\232\204\242 \321=\204\242 <\203\262 \211\235\203\262 \326\327!\210\330\331 \332 \337\321$\210\202\321 \340\211\232\204\313 \321=\204\313 <\203\317 \211\235\203\317 \326\327!\210\266\266\266\266\202- )\322\341\320\321#\203\352 \326\327!\210\202\333 \342ed\343#\210\344\345 \346\321#*\262)\207" [default-directory file-name-as-directory expand-file-name generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 process-file-shell-command format "ls -A -1 -F -b -Q | awk -v dir=%s '{print dir $1}'" shell-quote-argument nil t re-search-forward "[*=@|/>]$" "*" match-string replace-match "" put-text-property point-at-bol point-at-eol helm-ff-exe "@" helm-ff-sym "/" helm-ff-dir ("=" "|" ">") "[\"]" add-text-properties (helm-ff-file t) split-string buffer-string "\n"] 13 (#$ . 87990)]) | |
| 556 | #@208 List contents of DIRECTORY. | |
| 557 | Argument FULL mean absolute path. | |
| 558 | It is same as `directory-files' but always returns the | |
| 559 | dotted filename '.' and '..' even on root directories in Windows | |
| 560 | systems. | |
| 561 | ||
| 562 | (fn DIRECTORY) | |
| 563 | (defalias 'helm-ff-directory-files #[257 "\301\302!!\262\303\3041 \305!0\202$ \306\307@\310\311A\312##C\313\262\262\314P\315P\316G\317\\#\210\320?\205< D\"\207" [helm-ff--directory-files-hash file-name-as-directory expand-file-name nil (file-error) helm-list-directory format "%s:%s" mapconcat identity " " t "." ".." puthash 2 append] 10 (#$ . 89507)]) | |
| 564 | #@14 | |
| 565 | ||
| 566 | (fn FNAME) | |
| 567 | (defalias 'helm-ff-handle-backslash #[257 "\300\301\302\303T\211\262GW\2030 H\262\236\211\203% AP\262\202, \304!P\262\210\202 \207" [((92 . #1="")) -1 nil #1# string] 10 (#$ . 90091)]) | |
| 568 | (defalias 'helm-ff-fuzzy-matching-p #[0 "\205 \302>?\207" [helm-ff-fuzzy-matching helm-mm-matching-method (multi1 multi3p)] 2]) | |
| 569 | #@459 Maybe return PATTERN with it's basename modified as a regexp. | |
| 570 | This happen only when `helm-ff-fuzzy-matching' is enabled. | |
| 571 | This provide a similar behavior as `ido-enable-flex-matching'. | |
| 572 | See also `helm--mapconcat-pattern'. | |
| 573 | If PATTERN is an url returns it unmodified. | |
| 574 | When PATTERN contain a space fallback to multi-match. | |
| 575 | If basename contain one or more space fallback to multi-match. | |
| 576 | If PATTERN is a valid directory name,return PATTERN unchanged. | |
| 577 | ||
| 578 | (fn PATTERN) | |
| 579 | (defalias 'helm-ff--transform-pattern-for-completion #[257 "\303!\304!\206\n \305\306!\307\211\310\307:\2039 @\262\211A\262\242\262\311\n\"\211\262?\211\262\2039 A\262\202 \266\204\203K \211\203K \311\312\"\204i \305\230\204i \203\\ G\313X\204i \203o \311\314!\"\203o \314!\202 \203 \314!\315\314!Q\202 \316 \203\213 \311\317\"\203\223 \314!P\202 \311\320\"\204\264 \311\321\"\204\264 \311 \"\204\264 \n\322\230\203\301 \211\203\301 \314!\323\324\211#P\202 \314!G\313Y\203\325\305\"\211@\326\230\203\354 \327\330\331\332\333\334!\335\"\336\337%A\305#\202\375 \327\330\331\340\333\334!\341\"\342\337%\305#\266\202\202\343\314!PP\207" [tramp-methods helm-ff-url-regexp helm-ff-default-directory helm-basename helm-basedir "" file-directory-p nil t string-match ":\\'" 2 regexp-quote " " helm-ff-fuzzy-matching-p "\\s-" "[*][.]?.*" "/$" "/" replace-regexp-in-string "[*]" split-string-and-unquote "^" mapconcat make-byte-code 257 "\211\301\230\203 \302\303\300\"\203 \207\304!\207" vconcat vector ["$" string-match "$\\'" regexp-quote] 4 "\n\n(fn C)" "\211\301\230\203 \302\303\300\"\203 \207\304\305\306!#\207" ["$" string-match "$\\'" format "[^%s]*%s" regexp-quote] 6 ".*"] 15 (#$ . 90443)]) | |
| 580 | #@12 | |
| 581 | ||
| 582 | (fn DIR) | |
| 583 | (defalias 'helm-dir-is-dot #[257 "\300\301\"\207" [string-match "\\(?:/\\|\\`\\)\\.\\{1,2\\}\\'"] 4 (#$ . 92169)]) | |
| 584 | #@127 Store the last value of `helm-ff-default-directory' in `helm-ff-history'. | |
| 585 | Note that only existing directories are saved here. | |
| 586 | (defalias 'helm-ff-save-history #[0 "\205 \302 \205 \303!\205 \304\305G\306$\210 B\211\207" [helm-ff-default-directory helm-ff-history helm-file-completion-source-p file-directory-p set-text-properties 0 nil] 5 (#$ . 92303)]) | |
| 587 | (add-hook 'helm-cleanup-hook 'helm-ff-save-history) | |
| 588 | #@65 Save marked files to `file-name-history'. | |
| 589 | ||
| 590 | (fn &optional FORCE) | |
| 591 | (defalias 'helm-files-save-file-name-history #[256 "\302 \303\304\"\204 \305!\204 \211\235\205P \306\307\310\"\310\211\311:\203J @\262\211\203C \211;\203C \312!\203C \313!\204C \314\315\316!\"\210A\262\202 \311\266\202)\262\207" [helm-files-save-history-extra-sources history-delete-duplicates helm-get-current-source assoc-default name helm-file-completion-source-p helm-marked-candidates :with-wildcard t nil file-exists-p file-directory-p add-to-history file-name-history abbreviate-file-name] 10 (#$ . 92722)]) | |
| 592 | (add-hook 'helm-exit-minibuffer-hook 'helm-files-save-file-name-history) | |
| 593 | #@13 | |
| 594 | ||
| 595 | (fn FILE) | |
| 596 | (defalias 'helm-ff-valid-symlink-p #[257 "\3001 \301!0\202 \210\302\211\205 \303!\207" [(debug error) file-truename nil file-exists-p] 4 (#$ . 93397)]) | |
| 597 | #@58 Return the default mode to open FILENAME. | |
| 598 | ||
| 599 | (fn FILENAME) | |
| 600 | (defalias 'helm-get-default-mode-for-file #[257 "\301\211\302\301:\2030 @\262\211A\262\242\262\303\"\205 \211\262?\211\262\2030 A\262\202 \266\204\2119\203; \211\206< \304\207" [auto-mode-alist nil t string-match "Fundamental"] 9 (#$ . 93572)]) | |
| 601 | #@76 Show file properties of CANDIDATE in a tooltip or message. | |
| 602 | ||
| 603 | (fn CANDIDATE) | |
| 604 | (defalias 'helm-ff-properties #[257 "\303\304!\210\305!\211\203\335 \211\305\306\307\310\307%\311\312\"\311\313\"\311\314\"\311\315\307#\311\316\"\311\317\"\311\320\"\321\311\n\322\"!\311\n\323\"\311 \324\"\325!\206M \326 \203\317 \n\203\317 \327\330!\331\331\332\333\334!\"\332\335\203w \336\337\340 #\206x \341\"\332\342#\343\230\205\247 \332\344\345\346\330!\"\203\227 \347\202\246 \350!\203\245 \351!\202\246 \352\"\332\353#\332\354#\332\355\"\332\356\"\332\357\"\332\360\"\260!\202\327 \361\f!\210\362\363!)\266\215\202\340 \361\364!\207" [helm-tooltip-hide-delay tooltip-hide-delay tooltip-mode require helm-external helm-file-attributes :dired t :human-size cl-getf :type :mode-type :uid :user :gid :group :other helm-file-human-size :size :modif-time :access-time helm-get-default-program-for-file display-graphic-p tooltip-show helm-basename "\n" format "Mode: %s\n" helm-get-default-mode-for-file "Ext prog: %s\n" replace-regexp-in-string " %s" "" "Not defined" "Type: %s: %s\n" "symlink" "True name: '%s'\n" string-match "^.#" "Autosave symlink" helm-ff-valid-symlink-p file-truename "Invalid Symlink" "Owner: %s: %s\n" "Group: %s: %s\n" "Others: %s\n" "Size: %s\n" "Modified: %s\n" "Accessed: %s\n" message sit-for 5 "Permission denied, file not readable"] 32 (#$ . 93897)]) | |
| 605 | #@40 Show properties without quitting helm. | |
| 606 | (defalias 'helm-ff-properties-persistent #[0 "\203 \301\302\303\"\210\304\302!\207\305\306!\207" [helm-alive-p helm-attrset properties-action (helm-ff-properties . never-split) helm-execute-persistent-action error "Running helm command outside of context"] 3 (#$ . 95324) nil]) | |
| 607 | (put 'helm-ff-properties-persistent 'helm-only t) | |
| 608 | #@44 Delete current candidate without quitting. | |
| 609 | (defalias 'helm-ff-persistent-delete #[0 "\203 \301\302\303\"\210\304\302!\207\305\306!\207" [helm-alive-p helm-attrset quick-delete (helm-ff-quick-delete . never-split) helm-execute-persistent-action error "Running helm command outside of context"] 3 (#$ . 95699) nil]) | |
| 610 | (put 'helm-ff-persistent-delete 'helm-only t) | |
| 611 | #@42 Check if FILE is `.' or `..'. | |
| 612 | ||
| 613 | (fn FILE) | |
| 614 | (defalias 'helm-ff-dot-file-p #[257 "\300!\301\235\207" [helm-basename ("." "..")] 3 (#$ . 96067)]) | |
| 615 | #@18 | |
| 616 | ||
| 617 | (fn CANDIDATE) | |
| 618 | (defalias 'helm-ff-kill-buffer-fname #[257 "\301!\302!\203 \303!=\203 \304\305!\202* \203' \306!\210\307\310\"\202* \307\311!\207" [helm-current-buffer get-file-buffer buffer-name get-buffer user-error "Can't kill `helm-current-buffer' without quitting session" kill-buffer message "Buffer `%s' killed" "No buffer to kill"] 6 (#$ . 96215)]) | |
| 619 | #@265 Find file CANDIDATE or kill it's buffer if it is visible. | |
| 620 | Never kill `helm-current-buffer'. | |
| 621 | Never kill buffer modified. | |
| 622 | This is called normally on third hit of \<helm-map>\[helm-execute-persistent-action] | |
| 623 | in `helm-find-files-persistent-action-if'. | |
| 624 | ||
| 625 | (fn CANDIDATE) | |
| 626 | (defalias 'helm-ff-kill-or-find-buffer-fname #[257 "\303!\304!\305!\306\203! \211\203! \307 !=\203! \310\311!\202d \2035 \211\2035 \312!\2035 \313\314!\202d \203a \211\203a \315!\210\n\203U \316\317\320\"!\203U \321\n!\210\202Z \322 \"\210\313\323\"\202d \324!)\207" [helm--reading-passwd-or-string helm-current-buffer helm-persistent-action-display-window get-file-buffer buffer-name get-buffer-window t get-buffer user-error "Can't kill `helm-current-buffer' without quitting session" buffer-modified-p message "Can't kill modified buffer, please save it before" kill-buffer window-dedicated-p next-window 1 delete-window set-window-buffer "Buffer `%s' killed" find-file] 8 (#$ . 96590)]) | |
| 627 | #@55 Execute `helm-ff-kill-buffer-fname' without quitting. | |
| 628 | (defalias 'helm-ff-run-kill-buffer-persistent #[0 "\203 \301\302\303\"\210\304\302!\207\305\306!\207" [helm-alive-p helm-attrset kill-buffer-fname helm-ff-kill-buffer-fname helm-execute-persistent-action error "Running helm command outside of context"] 3 (#$ . 97565) nil]) | |
| 629 | (put 'helm-ff-run-kill-buffer-persistent 'helm-only t) | |
| 630 | #@13 | |
| 631 | ||
| 632 | (fn FILE) | |
| 633 | (defalias 'helm-ff-persistent-open-file-externally #[257 "\300\301!\210\302!\203 \303!\207\304\305\306\307\"\"\207" [require helm-external helm-get-default-program-for-file helm-open-file-externally message "Please configure an external program for `*%s' file in `helm-external-programs-associations'" file-name-extension t] 6 (#$ . 97956)]) | |
| 634 | (defalias 'helm-ff-run-preview-file-externally #[0 "\203 \301\302\303\"\210\304\302!\207\305\306!\207" [helm-alive-p helm-attrset open-file-externally (helm-ff-persistent-open-file-externally . never-split) helm-execute-persistent-action error "Running helm command outside of context"] 3 nil nil]) | |
| 635 | (put 'helm-ff-run-preview-file-externally 'helm-only t) | |
| 636 | #@328 Return filename FNAME maybe prefixed with [?] or [@]. | |
| 637 | If FILE-OR-SYMLINKP is non--nil this mean we assume FNAME is an | |
| 638 | existing filename or valid symlink and there is no need to test it. | |
| 639 | NEW-FILE when non--nil mean FNAME is a non existing file and | |
| 640 | return FNAME prefixed with [?]. | |
| 641 | ||
| 642 | (fn FNAME &optional FILE-OR-SYMLINKP NEW-FILE) | |
| 643 | (defalias 'helm-ff-prefix-filename #[769 "\302\303\304\302\305\306\307##\302\303\304\302\310\306\307##\203 \202? \311\"\204. \2036 \311 \"\2036 \211\303Q\202? \205? \303Q\207" [helm-ff-url-regexp helm--url-regexp propertize " " display "[?]" face helm-ff-prefix "[@]" string-match] 11 (#$ . 98678)]) | |
| 644 | #@20 | |
| 645 | ||
| 646 | (fn STR PATTERN) | |
| 647 | (defalias 'helm-ff-score-candidate-for-pattern #[514 "\300\235\203 \301\207\302\"\207" [("." "..") 200 helm-score-candidate-for-pattern] 5 (#$ . 99326)]) | |
| 648 | #@125 Sort function for `helm-source-find-files'. | |
| 649 | Return candidates prefixed with basename of INPUT first. | |
| 650 | ||
| 651 | (fn CANDIDATES INPUT) | |
| 652 | (defalias 'helm-ff-sort-candidates-1 #[514 "\300!\203 \301\302\"\204 \301\303\"\204 \204 \207@\211:\203& \211A\202' \211\304!?\205/ \211\2038 A\2029 \305\306\307\"\310\311\312\313\314\315\f\"\316\"\317\320%\"\203Y B\202Z \211\207" [file-directory-p string-match "/\\'" "\\`\\$" file-exists-p make-hash-table :test equal sort make-byte-code 514 "\302\303:\203\f A\202 !\303:\203 A\202 !\304\301\"\206* \305\300\"\301#\304\301\"\2069 \305\300\"\301#U\203I \306!\306!W\202L V\207" vconcat vector [#[514 "\300\301!\"\207" [helm-ff-score-candidate-for-pattern helm-basename] 6 "\n\n(fn INPUT STR)"] helm-basename gethash puthash string-width] 11 "\n\n(fn S1 S2)"] 16 (#$ . 99510)]) | |
| 653 | #@133 Sort function for `helm-source-find-files'. | |
| 654 | Return candidates prefixed with basename of `helm-input' first. | |
| 655 | ||
| 656 | (fn CANDIDATES SOURCE) | |
| 657 | (defalias 'helm-ff-sort-candidates #[514 "\301\"\207" [helm-input helm-ff-sort-candidates-1] 5 (#$ . 100364)]) | |
| 658 | #@13 | |
| 659 | ||
| 660 | (fn FILE) | |
| 661 | (defalias 'helm-ff-boring-file-p #[257 "\301\302\"?\205\f \301\"\207" [helm-ff--boring-regexp string-match "\\.$"] 4 (#$ . 100615)]) | |
| 662 | #@83 `filter-one-by-one' Transformer function for `helm-source-find-files'. | |
| 663 | ||
| 664 | (fn FILE) | |
| 665 | (defalias 'helm-ff-filter-candidate-one-by-one #[257 "\306!\307\205 \310!?\205\361 \n\307\311\312#)\266\203\204% \313\n!\203\265 \307\f\203@ \314!\211\262\204@ \315!\211\262\206A \202A \316\317\320#\262\203T \321\322\323#\202\260 \324\325\326#\203g \321\322\327#B\202\260 \324\325\330#\203z \321\322\331#B\202\260 \324\325\332#\203\215 \321\322\333#B\202\260 \324\325\334#\203\240 \321\322\334#B\202\260 \335\321\322\334#\211?\205\255 \336#B\266\202\202\361\f\203\337 \314!\211\262\204\337 \203\315 \312 \"\204\337 \3124\"\204\337 \315!\206\340 \202\340 \337!\211@\307\316\317\320#\262\312\340\"\203\373 \202\357;\203\341!\204\312\342\"\204\321\322\343#B\202\357\203.;\203.\321\322\344#B\202\357\345!\203@\321\322\323#B\202\357;\203_\321\346\321\322\333#\347\321\350!\322\351#Q#B\202\357\311=\203p\321\322\327#B\202\357\203\216\312\352\3538\354\355O\211\262\"\203\216\321\322\356#B\202\357\203\244\312\357\"\203\244\321\322\360#B\202\357\203\272\312\361\"\203\272\321\322\331#B\202\357\203\320\312\362\"\203\320\321\322\363#B\202\357\203\343\204\343\321\322\334#B\202\357\335\321\322\334#\307\336#B\266\204\207" [helm-ff-skip-boring-files helm-tramp-file-name-regexp helm-pattern inhibit-changing-match-data helm-ff-transformer-show-only-basename helm--url-regexp helm-basename nil helm-ff-boring-file-p t string-match helm-file-on-mounted-network-p helm-dir-is-dot helm-ff--get-host-from-tramp-invalid-fname replace-regexp-in-string "[[:cntrl:]]" "?" propertize face helm-ff-dotted-directory get-text-property 1 helm-ff-dir helm-ff-directory helm-ff-exe helm-ff-executable helm-ff-sym helm-ff-symlink helm-ff-file helm-ff-prefix-filename new-file file-attributes "file-error" helm-ff-valid-symlink-p "^\\.#" helm-ff-invalid-symlink helm-ff-dotted-symlink-directory helm-ff-dot-file-p display " -> " abbreviate-file-name helm-ff-truename "\\`[cp]" 8 0 4 helm-ff-pipe "\\`[s]" helm-ff-socket "x\\'" "s\\'" helm-ff-suid helm-ff-url-regexp] 16 (#$ . 100769)]) | |
| 666 | #@74 Action transformer for `helm-source-find-files'. | |
| 667 | ||
| 668 | (fn ACTIONS CANDIDATE) | |
| 669 | (defalias 'helm-find-files-action-transformer #[514 "r\304!\203 \206 p\211q\210\305\306 \307 \")\310!\203$ \311\312\313#\262\314\315\316!\"\203I \317!\320\235\204I \321!\203I \322\323!\203I \311\324\325#\202\345 \203\213 \326\327\314#)\266\203\204\213 r\304!\203h \206k p\211q\210 )\330=\204\213 \331\326\327\314#)\266\203\203\213 \332\333\"\202\345 \314\334 \"\203\233 \311\335\336#\202\345 \314\337\340 \211\203\250 \211@\202\251 \262\"\203\267 \311\341\342#\202\345 \314\343\"\203\314 \321!\203\314 \311\344\342#\202\345 \345!\346\230\204\334 \345!\347\230\203\344 \311\350\313#\202\345 \207" [helm-current-buffer helm--url-regexp inhibit-changing-match-data major-mode buffer-live-p buffer-substring-no-properties point-at-bol point-at-eol file-regular-p helm-append-at-nth (("Checksum File" . helm-ff-checksum)) 4 string-match "Trash/files/?\\'" helm-basedir helm-basename ("." "..") file-exists-p executable-find "trash" (("Restore file(s) from trash" . helm-restore-file-from-trash) ("Delete file(s) from trash" . helm-ff-trash-rm)) 1 nil t dired-mode ":\\([0-9]+:?\\)" append (("Find file to line number" . helm-ff-goto-linum)) image-file-name-regexp (("Rotate image right `M-r'" . helm-ff-rotate-image-right) ("Rotate image left `M-l'" . helm-ff-rotate-image-left)) 3 "\\.el$" helm-marked-candidates (("Byte compile lisp file(s) `M-B, C-u to load'" . helm-find-files-byte-compile) ("Load File(s) `M-L'" . helm-find-files-load-files)) 2 "\\.html?$" (("Browse url file" . browse-url-of-file)) file-name-extension "pdf" "PDF" (("Pdfgrep File(s)" . helm-ff-pdfgrep))] 10 (#$ . 102961)]) | |
| 670 | #@191 Execute a trash action FN on marked files. | |
| 671 | ||
| 672 | Arg NAMES is a list of strings to pass to messages | |
| 673 | e.g. '("delete" "deleting"), ARGS are other args to be passed to FN. | |
| 674 | ||
| 675 | (fn FN NAMES &rest ARGS) | |
| 676 | (defalias 'helm-ff-trash-action #[642 "\305 \306\307!\310\n\311=\203 \312\202 \n\306\211 \306Crq\210\313\314\315\316\"!!\210)\317\320\321\322\323!\324\"\325$\216\326\327\330\"\240!r\317\320\331\322\323!\332\"\333$\216\334@\335\"\210\336\337\340\341\n@!G#!\203\234 \342\343\341 A@!\"\210\306:\203\232 @\262\3441\204 \345\n\n#0\202\222 \337\346A@\"B\262\306\262\210A\262\202l \266*\210-\266\211\203\343 \347\350\351\352!r\211q\210\317\320\353\322\323!\354\"\333$\216\355\356\357 \"c\210\337\360@GG$c\210\361\362\363#\364\261\210\365 *\262\366\367$\202\356 \342\370\341A@!G#\207" [helm-marked-buffer-name helm-always-two-windows helm-split-window-default-side helm-split-window-inside-p helm-reuse-last-window-split-state helm-marked-candidates nil temp-buffer-window-setup t same below helm-format-columns-of-files helm-ff--count-and-collect-dups mapcar helm-basename make-byte-code 0 "\301\302\300\242\"\207" vconcat vector [quit-window kill] 3 internal--before-with-selected-window temp-buffer-window-show (display-buffer-below-selected (window-height . fit-window-to-buffer)) "\301\300!\207" [internal--after-with-selected-window] 2 select-window norecord y-or-n-p format "%s %s files from trash? " capitalize message "%s files from trash..." (error) apply "%s" display-warning helm generate-new-buffer " *temp*" "\301\300!\205 \302\300!\207" [buffer-name kill-buffer] format-time-string "%Y-%m-%d %H:%M:%S\n" current-time "Failed to %s %s/%s files from trash\n" mapconcat identity "\n" "\n\f" buffer-string :error "*helm restore warnings*" "%s %s files from trash done"] 15 (#$ . 104673)]) | |
| 677 | #@263 Delete marked-files from a Trash directory. | |
| 678 | ||
| 679 | The Trash directory should be a directory compliant with | |
| 680 | <http://freedesktop.org/wiki/Specifications/trash-spec> and each file | |
| 681 | should have its '*.trashinfo' correspondent file in Trash/info | |
| 682 | directory. | |
| 683 | ||
| 684 | (fn CANDIDATE) | |
| 685 | (defalias 'helm-ff-trash-rm #[257 "\300\301\302\"\207" [helm-ff-trash-action helm-ff-trash-rm-1 ("delete" "deleting")] 4 (#$ . 106510)]) | |
| 686 | #@264 Restore marked-files from a Trash directory. | |
| 687 | ||
| 688 | The Trash directory should be a directory compliant with | |
| 689 | <http://freedesktop.org/wiki/Specifications/trash-spec> and each file | |
| 690 | should have its '*.trashinfo' correspondent file in Trash/info | |
| 691 | directory. | |
| 692 | ||
| 693 | (fn CANDIDATE) | |
| 694 | (defalias 'helm-restore-file-from-trash #[257 "\302!\303\304!r\211q\210\305\306\307\310\311!\312\"\313$\216\314\315\316\317\316$\210\320\321 \322\"*\262\323\324\325#)\207" [helm-ff-default-directory default-directory file-name-as-directory generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 process-file "trash-list" nil t split-string buffer-string "\n" helm-ff-trash-action helm-restore-file-from-trash-1 ("restore" "restoring")] 8 (#$ . 106916)]) | |
| 695 | #@13 | |
| 696 | ||
| 697 | (fn FILE) | |
| 698 | (defalias 'helm-ff-trash-rm-1 #[257 "\300\301\"\302\303!\304R\305!\204 \306\307\310\311\"\312\211$\210\305!\204* \306\313\310\311\"\312\211$\210\314!\210\314!\207" [helm-reduce-file-name 2 "info/" helm-basename ".trashinfo" file-exists-p cl--assertion-failed (file-exists-p file) format "No such file or directory `%s'" nil (file-exists-p info-file) delete-file] 7 (#$ . 107710)]) | |
| 699 | #@161 Restore FILE from a trash directory. | |
| 700 | Arg TRASHED-FILES is the list of files in the trash directory obtained | |
| 701 | with 'trash-list' command. | |
| 702 | ||
| 703 | (fn FILE TRASHED-FILES) | |
| 704 | (defalias 'helm-restore-file-from-trash-1 #[514 "\300\301\"\302\303!\304R\305\"\306!\203 \307\310\311\312\"\313\211$\210\211\204) \307\314\315\313\211$\210\316\"\210\317!\207" [helm-reduce-file-name 2 "info/" helm-basename ".trashinfo" helm-ff--get-dest-file-from-trash file-exists-p cl--assertion-failed (not (file-exists-p dest-file)) format "File `%s' already exists" nil dest-file "No such file in trash" rename-file delete-file] 9 (#$ . 108119)]) | |
| 705 | #@27 | |
| 706 | ||
| 707 | (fn TRASHED-FILES FILE) | |
| 708 | (defalias 'helm-ff--get-dest-file-from-trash #[514 "\300\301\300:\2034 @\262\302\303\304!!\305P\"\203) \306\307\310#\262\300\211\262\202* \301\2034 A\262\202 \207" [nil t string-match regexp-quote helm-basename "\\'" replace-regexp-in-string "\\`\\([0-9]\\{2,4\\}[-:][0-9]\\{2\\}[:-][0-9]\\{2\\} \\)\\{2\\}" ""] 10 (#$ . 108747)]) | |
| 709 | #@169 Find file CANDIDATE and maybe jump to line number found in fname at point. | |
| 710 | line number should be added at end of fname preceded with ":". | |
| 711 | e.g "foo:12". | |
| 712 | ||
| 713 | (fn CANDIDATE) | |
| 714 | (defalias 'helm-ff-goto-linum #[257 "r\301!\203 \206 p\211q\210\302\303 \304 \"\305\306\"\205! \307\310\"\262)\311!\210\211\2059 \211\312\230?\2059 \313\314!\315\"\207" [helm-current-buffer buffer-live-p buffer-substring-no-properties point-at-bol point-at-eol string-match ":\\([0-9]+:?\\)" match-string 1 find-file "" helm-goto-line string-to-number t] 5 (#$ . 109124)]) | |
| 715 | #@68 Run `mml-attach-file' on `helm-marked-candidates'. | |
| 716 | ||
| 717 | (fn CANDIDATE) | |
| 718 | (defalias 'helm-ff-mail-attach-files #[257 "\300\301!\210\302\303\304\"\305\306\307\"\205 p\310\204g \311 \310\211:\203< @\262rq\210\305\306\307\")\2035 \312!B\262A\262\202 \211\237\266\203\262\211\203a \313\314!\203a \211A\203Z \315\316\317\304$\202\\ \211@\262\202g \320 \210p\262\321!\210\214~\210\212db\210\310:\203\217 @\262\322\323!\206\206 \324\"\210A\262\202t \310\266\202*\207" [require mml helm-marked-candidates :with-wildcard t derived-mode-p message-mode mail-mode nil buffer-list buffer-name y-or-n-p "Attach files to existing mail composition buffer? " helm-comp-read "Attach to buffer: " :nomark compose-mail switch-to-buffer mml-attach-file mm-default-file-encoding "application/octet-stream"] 10 (#$ . 109681)]) | |
| 719 | #@142 Rotate current image at NUM-ARG degrees. | |
| 720 | This is a destructive operation on FILE made by external tool mogrify. | |
| 721 | ||
| 722 | (fn FILE &optional NUM-ARG) | |
| 723 | (defalias 'helm-ff-rotate-current-image-1 #[513 "\301!\262\302\303 \"\205= \304\305!\203: \306\307\310\206 \311\312!#!\210\313!\203, \314!\210\315!\210\316\317!\210\320\321!!\207\322\323!\207" [image-dired-display-image-buffer file-truename string-match image-file-name-regexp executable-find "mogrify" shell-command format "mogrify -rotate %s %s" 90 shell-quote-argument buffer-live-p kill-buffer image-dired-display-image message nil display-buffer get-buffer error "mogrify not found"] 8 (#$ . 110510)]) | |
| 724 | #@88 Rotate image file CANDIDATE left. | |
| 725 | This affect directly file CANDIDATE. | |
| 726 | ||
| 727 | (fn CANDIDATE) | |
| 728 | (defalias 'helm-ff-rotate-image-left #[257 "\300\301\"\207" [helm-ff-rotate-current-image-1 -90] 4 (#$ . 111175)]) | |
| 729 | #@89 Rotate image file CANDIDATE right. | |
| 730 | This affect directly file CANDIDATE. | |
| 731 | ||
| 732 | (fn CANDIDATE) | |
| 733 | (defalias 'helm-ff-rotate-image-right #[257 "\300!\207" [helm-ff-rotate-current-image-1] 3 (#$ . 111384)]) | |
| 734 | #@42 Rotate image left without quitting helm. | |
| 735 | (defalias 'helm-ff-rotate-left-persistent #[0 "\203 \301\302\303\"\210\304\302!\207\305\306!\207" [helm-alive-p helm-attrset image-action1 helm-ff-rotate-image-left helm-execute-persistent-action error "Running helm command outside of context"] 3 (#$ . 111586) nil]) | |
| 736 | (put 'helm-ff-rotate-left-persistent 'helm-only t) | |
| 737 | #@43 Rotate image right without quitting helm. | |
| 738 | (defalias 'helm-ff-rotate-right-persistent #[0 "\203 \301\302\303\"\210\304\302!\207\305\306!\207" [helm-alive-p helm-attrset image-action2 helm-ff-rotate-image-right helm-execute-persistent-action error "Running helm command outside of context"] 3 (#$ . 111953) nil]) | |
| 739 | (put 'helm-ff-rotate-right-persistent 'helm-only t) | |
| 740 | #@90 Extract exif data from file CANDIDATE using `helm-ff-exif-data-program'. | |
| 741 | ||
| 742 | (fn CANDIDATE) | |
| 743 | (defalias 'helm-ff-exif-data #[257 "\203 \302!\203 \303\304\305 $!\207\304\306\"\207" [helm-ff-exif-data-program helm-ff-exif-data-program-args executable-find shell-command-to-string format "%s %s %s" "No program %s found to extract exif"] 7 (#$ . 112324)]) | |
| 744 | #@308 Open subtree CANDIDATE without quitting helm. | |
| 745 | If CANDIDATE is not a directory expand CANDIDATE filename. | |
| 746 | If CANDIDATE is alone, open file CANDIDATE filename. | |
| 747 | That's mean: | |
| 748 | First hit on C-j expand CANDIDATE second hit open file. | |
| 749 | If a prefix arg is given or `helm-follow-mode' is on open file. | |
| 750 | ||
| 751 | (fn CANDIDATE) | |
| 752 | (defalias 'helm-find-files-persistent-action-if #[257 "\3062\250\307 \206\n \310 \311\312\313#)\266\203\314 r\nq\210\315ed\")\316\317\320\321\322!\323\"\324\325%\326\327 \"\210\204H \203H \330\331!\210\332\306\333\334!\"\210\335 \203i \313\f\"\203i \316\317\336\321\322\n\"\337\"\340\341%\342B\202\245\343!\203\213 \344!\203\213 \316\317\345\321\322\n\"\346\"\347\341%\342B\202\245\343!\203\246 \316\317\350\321\322\n\"\351\"\352\341%\342B\202\245\344!\203\311 \204\311 \204\311 \316\317\353\321\322\n\"\354\"\340\341%\342B\202\245\355Y\203\353 \204\353 \204\353 \316\317\356\321\322\"\357\"\355\341%\342B\202\245\203\377 \316\317\360\321\322\n!\361\"\362\341%\202\245@\211\205\"\363!\211\205 \313\364\365@!!\"\211\205 \366 !\262\262\262\203;\316\317\367\321\322\n\"\370\"\340\341%\342B\202\245\371!\204p\372!\204p\373\374!\311\312\313#)\266\203\203p\316\317\367\321\322\n\"\375\"\340\341%\342B\202\245\371!\204\224\376!\204\224\316\317\377\321\322\n\"\201A \"\352\341%\342B\202\245\316\317\201B \321\322\n!\201C \"\355\341%\266\2050\207" [helm--temp-follow-flag inhibit-changing-match-data helm-buffer helm-ff-candidate-number-limit helm-tramp-file-name-regexp current-prefix-arg --cl-block-helm-find-files-persistent-action-if-- helm-follow-mode-p image-file-name-regexp nil t string-match helm-get-selection count-lines make-byte-code 257 "\301\302 \206 \303 !r\304\305\306\307\310!\311\"\312$\216\313@\314\"\210\300?\205. \315 \210\316\305G\317$\210c*\207" vconcat vector [internal--before-with-selected-window active-minibuffer-window minibuffer-window make-byte-code 0 "\301\300!\207" vconcat vector [internal--after-with-selected-window] 2 select-window norecord delete-minibuffer-contents set-text-properties nil] 8 "\n\n(fn FNAME)" helm-attrset candidate-number-limit helm-follow-mode -1 throw message "Helm-follow-mode allowed only on images, disabling" helm-ff--invalid-tramp-name-p "\300\n\230\203\f \301\300\303P!\207\301\300!\207" [helm-pattern ":"] 4 "\n\n(fn CANDIDATE)" never-split file-directory-p file-symlink-p "\301\303\n\203 \304\305\300!!\202 \305\300!!!\207" [current-prefix-arg file-name-as-directory file-truename expand-file-name] 6 "\304\300!\305\230\203\n \n\301\306\307\300!!!\207" [helm-ff-default-directory helm-ff-last-expanded helm-basename ".." file-name-as-directory expand-file-name] 5 "\301\302\300!!\207" [file-truename] 3 "\303\301\300!\207" [helm-pattern ""] "\306\307!\210\310 \311\"\211\205) \312!r\313\314\315\316\317!\320\"\321$\216\322@\323\"\210\324e\325\"*\262\205; \211\205; r\326 q\210\327\300\")\211\203q \312\330 !r\313\314\315\316\317!\331\"\321$\216\322@\323\"\210\n\203j \332\333\334\"!\203j \335\n!\210\202o \336 \"\210*\210\337\340 !!\203} \341 !\210\211?\205\301 \342\f!\204\214 \343\f!\210\344 !\210\345\346!\210\345K\313\314\347\316\317!\350\"\321$\216\345\351M\210\352\300!\210)\210\345\353!\210r q\210\354\300! /\355\356\"\262)\207" [image-dired-display-image-buffer helm-persistent-action-display-window helm-current-buffer image-dired-dir helm-ff-default-directory require image-dired get-buffer-window visible internal--before-with-selected-window make-byte-code 0 "\301\300!\207" vconcat vector [internal--after-with-selected-window] 2 select-window norecord get-text-property original-file-name helm-buffer-get file-equal-p helm-window [internal--after-with-selected-window] window-dedicated-p next-window 1 delete-window set-window-buffer buffer-live-p get-buffer kill-buffer file-directory-p make-directory switch-to-buffer message "Resizing image..." "\301\300M\207" [message] ignore image-dired-display-image "Resizing image done" helm-ff-exif-data image-dired-update-property help-echo default-directory] 11 file-name-directory regexp-quote expand-file-name helm-ff-file-compressed-p "\301\300\302P!\207" ["#/"] file-exists-p file-remote-p "\\`\\([.]\\|\\s-\\)\\{2\\}[^/]+" helm-basename ["/"] helm-basedir "\301\303\300\n\"!\207" helm-ff-avfs-directory [default-directory expand-file-name] " \300!\207" [helm-ff-kill-or-find-buffer-fname-fn]] 13 (#$ . 112686)]) | |
| 753 | #@34 | |
| 754 | ||
| 755 | (fn DIRECTORY &optional INPUT) | |
| 756 | (defalias 'helm-find-files-recursive-dirs #[513 "\303\304\"\203 \305\306\307\310$\262\311\312\313!#\210\307\314\315\316\317\320\321\322 \307\310\303#)\266\203\2034 \2028 \323!\324\323 !\325\326\327\330\331\332\333\334\335\336\337\340\341\342!\343BBF\344BBBBBBBE\345\326\346\347\334EEE\350\351\352\353&\f\354\355\356\310\357\360\361\307\362\363&\f)\207" [helm-actions-inherit-frame-settings helm-locate-recursive-dirs-command inhibit-changing-match-data string-match "\\(\\s-+\\|[.]\\)\\{2\\}" replace-match "" nil t message "Recursively searching %s from %s ..." abbreviate-file-name helm :sources helm-make-source "Recursive directories" helm-locate-subdirs-source :basedir "\\`es" shell-quote-argument :subdir :candidate-transformer lambda (candidates) cl-loop for c in candidates when and (file-directory-p c) (null (helm-boring-directory-p c helm-boring-file-regexp-list)) string-match-p regexp-quote ((helm-basename c)) (collect (propertize c 'face 'helm-ff-dirs)) helm-w32-pathname-transformer (candidates) helm-ff-sort-candidates-1 :persistent-action ignore :action #[257 "\300\301\302!!!\207" [helm-set-pattern file-name-as-directory expand-file-name] 5 "\n\n(fn C)"] :candidate-number-limit 999999 :allow-nest :resume noresume :ff-transformer-show-only-basename :buffer "*helm recursive dirs*"] 26 (#$ . 117153)]) | |
| 757 | #@75 Launch a recursive search in `helm-ff-default-directory'. | |
| 758 | ||
| 759 | (fn CANDIDATE) | |
| 760 | (defalias 'helm-ff-recursive-dirs #[257 "\203\n \302!\206 \303\304 \305\306 !\")\207" [helm-ff-default-directory default-directory file-name-as-directory helm-find-files-recursive-dirs helm-current-directory helm-basename helm-get-selection] 5 (#$ . 118536)]) | |
| 761 | #@64 Whether CANDIDATE is a compressed file or not. | |
| 762 | ||
| 763 | (fn CANDIDATE) | |
| 764 | (defalias 'helm-ff-file-compressed-p #[257 "\301!\235\207" [helm-ff-file-compressed-list file-name-extension] 3 (#$ . 118881)]) | |
| 765 | #@30 Try to guess fname at point. | |
| 766 | (defalias 'helm-ff--fname-at-point #[0 "`\300\301!\211\203 \211@\202 `\262\212\302\303\304#\204 \305`\")\207" [bounds-of-thing-at-point filename re-search-backward "\\(~\\|/\\|[[:lower:][:upper:]]:/\\)" t buffer-substring-no-properties] 6 (#$ . 119080)]) | |
| 767 | #@376 Insert file name completion at point. | |
| 768 | ||
| 769 | When completing i.e. there is already something at point, insert | |
| 770 | filename abbreviated, relative or full according to initial input, | |
| 771 | whereas when inserting i.e. there is nothing at point, insert filename | |
| 772 | full, abbreviated or relative according to prefix arg, respectively no | |
| 773 | prefix arg, one prefix arg or two prefix arg. | |
| 774 | ||
| 775 | (fn CANDIDATE) | |
| 776 | (defalias 'helm-insert-file-name-completion-at-point #[257 "r\305!\203 \206 p\211q\210 \203 \306\307\310 \"\202\273 \311\312\313\"\211@`\314 \211;\205- \315!\211\2038 `GZ\2029 `;\205_ \316\317\320!P\321\313\322#)\266\203\206_ \323\321\313\322#)\266\203r\305!\203j \206m p\211q\210 \f>\203y \324\202z \325)\211\326 %!A\203\222 \327\202\223 \330\331 A\321\211:\203\261 @\262\326!B\262A\262\202\232 \211\237\266\203\327#\261\266\210)\207" [helm-current-buffer buffer-read-only inhibit-changing-match-data major-mode helm-modes-using-escaped-strings buffer-live-p error "Error: Buffer `%s' is read-only" buffer-name helm-marked-candidates :with-wildcard t helm-ff--fname-at-point substring-no-properties "^" getenv "HOME" nil string-match "\\`\\(/\\|[[:lower:][:upper:]]:/\\)" shell-quote-argument identity helm-ff--insert-fname " " "" mapconcat] 18 (#$ . 119377)]) | |
| 777 | #@52 | |
| 778 | ||
| 779 | (fn CANDIDATE &optional BEG END FULL-PATH GUESS) | |
| 780 | (defalias 'helm-ff--insert-fname #[1281 "\301\302G\303$\210\203J \203J \211\203J \211\304\230\204J \305\306\"\204) \307!\203J \2033 \310!\202E \311\312\"\313\230\203B \314!\202E \315!|\210\207\316\267\202X \314!\207\315!\207\207" [helm-current-prefix-arg set-text-properties 0 nil "" string-match "^\\(~/\\|/\\|[[:lower:][:upper:]]:/\\)" file-exists-p expand-file-name match-string 1 "~/" abbreviate-file-name file-relative-name #s(hash-table size 2 test equal rehash-size 1.5 rehash-threshold 0.8125 purecopy t data ((4) 80 (16) 84))] 10 (#$ . 120663)]) | |
| 781 | #@159 The `helm-find-files' history. | |
| 782 | Show the first `helm-ff-history-max-length' elements of | |
| 783 | `helm-ff-history' in an `helm-comp-read'. | |
| 784 | ||
| 785 | (fn ARG &key (COMP-READ t)) | |
| 786 | (defalias 'helm-find-files-history #[385 "\303\304\"\206 \305A@\211\2035 \211@\306>\203 \211AA\262\202 \307>A@\203, \310\262\202 \311\312@\"\210\202 \210\205? \313\314\315#\211\205\205 \211G Y\203R \316\317 #\202S \211\203\204 \320\321\322\323\324\325 \326\327\330\331\332\333\334\335\336\337!\340\"\341\342%&\f\343\344\345\346\347\n\350\331&\262\202\205 \262\207" [helm-ff-history helm-ff-history-max-length helm-ff-history-buffer-name plist-member :comp-read (nil t) (:comp-read :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:comp-read)" helm-fast-remove-dups :test equal cl-subseq 0 helm-make-source "Helm Find Files History" helm-source-sync :candidates :fuzzy-match helm-ff-fuzzy-matching-p :persistent-action ignore :migemo t :action make-byte-code 257 "\300\203\n \301\302!!\207\207" vconcat vector [helm-set-pattern expand-file-name] 4 "\n\n(fn CANDIDATE)" helm :sources :resume noresume :buffer :allow-nest] 22 (#$ . 121295) "p"]) | |
| 787 | (put 'helm-find-files-history 'helm-only t) | |
| 788 | #@147 Find FNAME filename with PRESELECT filename preselected. | |
| 789 | ||
| 790 | Use it for non--interactive calls of `helm-find-files'. | |
| 791 | ||
| 792 | (fn FNAME &optional PRESELECT) | |
| 793 | (defalias 'helm-find-files-1 #[513 "\306\307!\210\310\311\312#)\266\203\204 \313\314!!\262\315\n!\203% \316\n!\210\310\f\2050 \317\320 !? \321\322!\211\205A \323!\206A \313!\324\325\310\"\210 \204O \326\327\330\"\331\332 \"\203\\ \333\332\334 #\210\335 \210\336\337\340\"\210\341\216\342\343\305\344\345-\346\n\347.\350\f\351\352\353\354&*\207" [helm-ff-url-regexp inhibit-changing-match-data helm-action-buffer helm-find-files--toggle-bookmark helm-ff-auto-update-initial-value helm-source-find-files require tramp nil t string-match expand-file-name substitute-in-file-name get-buffer kill-buffer minibuffer-window-active-p minibuffer-window thing-at-point filename file-remote-p helm-set-local-variable helm-follow-mode-persistent helm-make-source "Find Files" helm-source-ffiles helm-attr follow helm-attrset -1 helm-ff-setup-update-hook add-hook helm-resume-after-hook helm-ff--update-resume-after-hook #[0 "\301\302\303\"\210\302\211\207" [helm-ff-default-directory helm-ff--update-resume-after-hook nil t] 3] helm :sources :input :case-fold-search :preselect :ff-transformer-show-only-basename :default :prompt "Find files or url: " :buffer "*helm find files*" helm-file-name-case-fold-search helm-ff-transformer-show-only-basename] 21 (#$ . 122503)]) | |
| 794 | #@176 Meant to be used in `helm-resume-after-hook'. | |
| 795 | When NOHOOK is non nil run inconditionally, otherwise only when source | |
| 796 | is helm-source-find-files. | |
| 797 | ||
| 798 | (fn SOURCES &optional NOHOOK) | |
| 799 | (defalias 'helm-ff--update-resume-after-hook #[513 "\211\204 \303\304@\"\305\230\205 \306\307\310\311\312\313\300\301 \257F\n#\207" [helm-ff-default-directory helm-ff-last-expanded helm-source-find-files assoc-default name "Find Files" helm-attrset resume lambda nil (helm-ff-setup-update-hook) setq] 12 (#$ . 123936)]) | |
| 800 | (defalias 'helm-ff-clean-initial-input #[0 "\301 p\302\303\304\305\306\"\307\"\310$\216\311\312\"\210\313 )\207" [helm-initial-frame selected-frame make-byte-code 0 "\302\300!\203 \303\300\304\"\210\305\301!\205 \301q\207" vconcat vector [frame-live-p select-frame norecord buffer-live-p] 3 select-frame norecord helm-clean-up-minibuffer] 9]) | |
| 801 | (defalias 'helm-ff-setup-update-hook #[0 "\300\211\205 \211@\301\302\"\210A\266\202\202 \207" [(helm-ff-clean-initial-input helm-ff-move-to-first-real-candidate helm-ff-update-when-only-one-matched helm-ff-auto-expand-to-home-or-root) add-hook helm-after-update-hook] 5]) | |
| 802 | (defalias 'helm-find-files-cleanup #[0 "\300\301\302\"\207" [mapc #[257 "\300\301\"\207" [remove-hook helm-after-update-hook] 4 "\n\n(fn HOOK)"] (helm-ff-auto-expand-to-home-or-root helm-ff-update-when-only-one-matched helm-ff-move-to-first-real-candidate helm-ff-clean-initial-input)] 3]) | |
| 803 | #@67 Toggle helm-bookmark for `helm-find-files' and `helm-find-files.' | |
| 804 | (defalias 'helm-find-files-toggle-to-bookmark #[0 "\302\303!\210\203, r\304 q\210 ?\211\203 \305\306\307\"\210\310\311!\202* \305\312\307\"\210\310\313!\210\314 )\207\315\316!\207" [helm-alive-p helm-find-files--toggle-bookmark require helm-bookmark helm-buffer-get helm-set-pattern "" t helm-set-sources (helm-source-bookmark-helm-find-files) "./" (helm-source-find-files) helm--maybe-update-keymap error "Running helm command outside of context"] 3 (#$ . 125359) nil]) | |
| 805 | (put 'helm-find-files-toggle-to-bookmark 'helm-only t) | |
| 806 | #@75 Return INPUT if present, otherwise try to guess it. | |
| 807 | ||
| 808 | (fn &optional INPUT) | |
| 809 | (defalias 'helm-find-files-initial-input #[256 "\301=?\205\" \211\203 \302!\203 \211\206\" \303!\206\" \304\305 \306\307!\"\207" [major-mode image-mode file-remote-p expand-file-name helm-find-files-input helm-ffap-guesser thing-at-point filename] 5 (#$ . 125960)]) | |
| 810 | #@64 Same as `ffap-guesser' but without gopher and machine support. | |
| 811 | (defalias 'helm-ffap-guesser #[0 "\306\307!\210\205 \n\f\310=\203B \212\311 )\212\312\313!)\205( \211\205( {\314\235\211\2037 \315\316 !!@P\202; \317\320\313\"\262\266\202\202} \321 \205I \322 \321 \205P \323 \205\\ \211\205\\ \324\"\203l \203l \325\326 !\206n \327 \203z \211\203z \202{ \211\266\204*\207" [helm-ff-guess-ffap-filenames ffap-alist helm--url-regexp ffap-url-regexp major-mode dired-directory require ffap dired-mode dired-move-to-filename dired-move-to-end-of-filename t ("." "..") file-name-as-directory expand-file-name dired-get-filename no-dir use-region-p region-beginning region-end buffer-substring-no-properties ffap-fixup-url ffap-url-at-point ffap-file-at-point helm-ff-guess-ffap-urls] 6 (#$ . 126311)]) | |
| 812 | #@82 Try to guess a default input for `helm-find-files'. | |
| 813 | ||
| 814 | (fn FILE-AT-PT THING-AT-PT) | |
| 815 | (defalias 'helm-find-files-input #[514 "\303\203\f \304!\206 \211\205 \304!\305 \205! \205! \306 \"\n\205' \307 \310 \205W \311\230?\205W ?\205W \312!\205W \205W \311\230?\205W \312\313\314\"!!\206\235 \206\235 \211\203} \205\235 \315!\316\235\204x \314!\202\235 \202\235 \203\210 \317!\202\235 \205\235 ?\205\235 \312!\205\235 \314!)\207" [non-essential helm--url-regexp helm-ff-search-library-in-sexp t file-remote-p helm-current-directory string-match helm-find-library-at-point helm-ff-find-url-at-point "" file-exists-p file-name-directory expand-file-name helm-basename ("." "..") helm-html-decode-entities-string] 12 (#$ . 127129)]) | |
| 816 | #@55 Try to find link to an url in text-property at point. | |
| 817 | (defalias 'helm-ff-find-url-at-point #[0 "\301`\302\"\303`!\211\205 \304\303`!@\302\"\301`\305\"\301`\306\";\2030 \307\310\"\2030 \311\312\313\211$\262F\314\313\314:\203c @\262;\205R \205R \307\"\205R \211\262?\211\262\203c A\262\2028 \266\203\207" [helm--url-regexp get-text-property help-echo overlays-at overlay-get w3m-href-anchor nt-link string-match "^LINK: " replace-match "" t nil] 12 (#$ . 127898)]) | |
| 818 | #@87 Try to find library path at point. | |
| 819 | Find inside `require' and `declare-function' sexp. | |
| 820 | (defalias 'helm-find-library-at-point #[0 "\301\302!\210\212\303\304\305 \306#)\212\307\310\311 \306#)\205\" \211\205\" \312TS\"\3131k \211\203C \314\315\"\203C \316\317\320\321\322\323\324\"!A@#!\202g \211\203f \325\326\306\314#)\266\203\203f \316\317\327\321\322!AA@#!\202g \3260\202m \210\326\207" [inhibit-changing-match-data require find-func search-backward "(" point-at-bol t search-forward ")" point-at-eol buffer-substring-no-properties (error) string-match "require '.+[^)]" find-library-name replace-regexp-in-string "'\\|)\\|(" "" split-string match-string 0 "^declare-function" nil "\"\\|ext:"] 11 (#$ . 128390)]) | |
| 821 | (defalias 'helm-ff--valid-default-directory #[0 "r\302!\203 \206 p\211q\210\303 \304\211\305\304:\203E @\262rq\210 )\262\306!@\305=\203: \262\304\211\262\202; \305\203E A\262\202 \266\204)\207" [helm-current-buffer default-directory buffer-live-p buffer-list nil t file-attributes] 7]) | |
| 822 | #@314 Execute ACTION on FILES to CANDIDATE. | |
| 823 | Where ACTION is a symbol that can be one of: | |
| 824 | 'copy, 'rename, 'symlink,'relsymlink, 'hardlink or 'backup. | |
| 825 | Argument FOLLOW when non--nil specify to follow FILES to destination for the actions | |
| 826 | copy and rename. | |
| 827 | ||
| 828 | (fn CANDIDATE &key ACTION FOLLOW (FILES (dired-get-marked-files))) | |
| 829 | (defalias 'helm-dired-action #[385 "\306\307\"A@\306\310\"A@\306\311\"\206 \312\313 DA@\211\203D \211@\314>\203- \211AA\262\202 \315>A@\203; \312\262\202 \316\317@\"\210\202 \210\320\321!\210\320\322!\210\323!\203W \324!\210\325 \326\267\202w \327\202x \330\202x \331\202x \332\202x \333\202x \334\202x \312\335\336\"\203\203 \202\241 \337\340\"\203\216 \n\202\241 \337\341\"\203\231 \202\241 \337\342\"\205\241 \fG\343U\205\264 \344@!\205\264 \344!?\345\305!\203\302 \203\302 \343\202\303 \346 @\203\325 \347\305!\203\325 \305\346!\210A\203\351 \344\n!\204\351 \316\350 \f#\210\351\352\353\354\355!\356\"\357$\216\360\361\n!\344!\203\351\362\363\354\355!\364\"\365\366%\202!\351\362\367\354\355!\370\"\357\366%%\210)\371\344 !\2035\372 !\2029\373 !!ABA\205\266\374>?\205\266\323!?\205\266\375\n!\376\216\377\f#B\201E \201F \201G \"\210\201F \201H BCBC\201I \201H \201F \"\210\203\251\201J =\203\251\201K \373!D\203\244\201L !\202\245\"\202\263\201K \371\372 !!!)\262)\266\205\207" [dired-log-buffer dired-keep-marker-copy dired-keep-marker-symlink dired-keep-marker-relsymlink dired-keep-marker-hardlink dired-async-mode plist-member :action :follow :files nil dired-get-marked-files (:action :follow :files :allow-other-keys) :allow-other-keys error "Keyword argument %s not one of (:action :follow :files)" require dired-async dired-x get-buffer kill-buffer helm-ff--valid-default-directory #s(hash-table size 6 test eql rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (copy 95 rename 99 symlink 103 relsymlink 107 hardlink 111 backup 115)) dired-copy-file dired-rename-file make-symbolic-link dired-make-relative-symlink dired-hardlink backup-file memql (copy rename backup) eql symlink relsymlink hardlink 1 file-directory-p boundp -1 fboundp "%s: target `%s' is not a directory" make-byte-code 0 "\301\302!\205 \302\300!\207" vconcat vector [fboundp dired-async-mode] 2 dired-create-files symbol-name 257 "\301\302!\300\"\207" [expand-file-name file-name-nondirectory] 4 "\n\n(fn FROM)" "\300\207" [] file-name-as-directory expand-file-name file-name-directory (symlink relsymlink hardlink) directory-file-name #[0 "\301\211\207" [helm-ff-cand-to-mark nil] 2] helm-get-dest-fnames-from-list default-directory helm-ff-history helm-ff-cand-to-mark helm--temp-hooks helm-ff-transformer-show-only-basename defalias #1=#:helm--hook40 #[0 "\300\216\301 )\207" [#[0 "\300\301\302\"\210\303\302!\207" [remove-hook helm-after-update-hook #1# fmakunbound] 3] helm-ff-maybe-mark-candidates] 1] helm-after-update-hook add-hook rename helm-find-files-1 helm-basename] 20 (#$ . 129425)]) | |
| 830 | #@187 Transform filenames of FLIST to abs of DEST-CAND. | |
| 831 | If RENAME-DIR-FLAG is non--nil collect the `directory-file-name' of transformed | |
| 832 | members of FLIST. | |
| 833 | ||
| 834 | (fn FLIST DEST-CAND RENAME-DIR-FLAG) | |
| 835 | (defalias 'helm-get-dest-fnames-from-list #[771 "\300!\301\211\211\211:\203H @\262\302!\262\203\" \303!\2023 \304!\2032 \305!P\2023 \262\306!\203A \211C\244\262A\262\202 \307\310\"\207" [expand-file-name nil helm-basename directory-file-name file-directory-p file-name-as-directory file-exists-p sort string<] 12 (#$ . 132422)]) | |
| 836 | #@142 Mark all candidates of list `helm-ff-cand-to-mark'. | |
| 837 | This is used when copying/renaming/symlinking etc... and | |
| 838 | following files to destination. | |
| 839 | (defalias 'helm-ff-maybe-mark-candidates #[0 "\302\303\304 \"\302\303\"\230\205R \205R \305\306 !r\307\310\311\312\313!\314\"\315$\216\316@\317\"\210 \203G @\320 \230\203A \321 \210\322 \210 A\211\202) \322 \210\202( \323 ?\205O \324 *\262\207" [helm-source-find-files helm-ff-cand-to-mark assoc-default name helm-get-current-source internal--before-with-selected-window helm-window make-byte-code 0 "\301\300!\207" vconcat vector [internal--after-with-selected-window] 2 select-window norecord helm-get-selection helm-make-visible-mark helm-next-line helm-this-visible-mark helm-prev-visible-mark] 8 (#$ . 132969)]) | |
| 840 | #@74 Returns a list of buffer names corresponding to FILENAME. | |
| 841 | ||
| 842 | (fn FILENAME) | |
| 843 | (defalias 'helm-file-buffers #[257 "\300!\301 \302\211\211:\203. @\262\303!\262\203' \230\203' \304!B\262A\262\202 \211\237\207" [expand-file-name buffer-list nil buffer-file-name buffer-name] 8 (#$ . 133740)]) | |
| 844 | #@91 Decide to trash or delete FILE. | |
| 845 | Returns non-nil when FILE needs to be trashed. | |
| 846 | ||
| 847 | (fn FILE) | |
| 848 | (defalias 'helm-ff--delete-by-moving-to-trash #[257 "\304!\203 \204 \n\204 \211\203 \2063 \211?\2063 ?\2053 \204) \n\2053 \211\2031 \2063 \211?\207" [delete-by-moving-to-trash helm-current-prefix-arg current-prefix-arg helm-trash-remote-files file-remote-p] 3 (#$ . 134045)]) | |
| 849 | #@138 Delete file CANDIDATE without quitting. | |
| 850 | ||
| 851 | When a prefix arg is given, meaning of `delete-by-moving-to-trash' is | |
| 852 | inversed. | |
| 853 | ||
| 854 | (fn CANDIDATE) | |
| 855 | (defalias 'helm-ff-quick-delete #[257 "\302\303 !r\304\305\306\307\310!\311\"\312$\216\313@\314\"\210\315 \316\216\317@!\320:\203p @\262\321\322\323\203= \324!\204= \325!\202> !P!\210\326\327\330\203M \331\202N \332\333!#!\203i \334 \335$\210\336 \210\337\320!\210\340!\210A\262\202! \320\266\203)\262*\207" [helm-ff-transformer-show-only-basename helm-ff-signal-error-on-dot-files internal--before-with-selected-window helm-window make-byte-code 0 "\301\300!\207" vconcat vector [internal--after-with-selected-window] 2 select-window norecord helm-marked-candidates #[0 "\303\211\304\305 \306\307\n\203 \310!\204 \311!\202 !P\262!\207" [helm-marked-candidates helm-visible-mark-overlays helm-ff-transformer-show-only-basename nil helm-force-update helm-get-selection "^" regexp-quote helm-ff-dot-file-p helm-basename] 7] helm-ff--delete-by-moving-to-trash nil helm-preselect "^" regexp-quote helm-ff-dot-file-p helm-basename y-or-n-p format "Really %s file `%s'? " "Trash" "Delete" abbreviate-file-name helm-delete-file synchro helm-delete-current-selection message helm--remove-marked-and-update-mode-line] 12 (#$ . 134429)]) | |
| 856 | #@608 Delete FILE after querying the user. | |
| 857 | ||
| 858 | When a prefix arg is given, meaning of `delete-by-moving-to-trash' is | |
| 859 | inversed. | |
| 860 | ||
| 861 | Return error when ERROR-IF-DOT-FILE-P is non nil and user tries to | |
| 862 | delete a dotted file i.e. "." or "..". | |
| 863 | ||
| 864 | Ask user when directory are not empty to allow recursive deletion | |
| 865 | unless `helm-ff-allow-recursive-deletes' is non nil. | |
| 866 | When user is asked and reply with "!" don't ask for remaining | |
| 867 | directories. | |
| 868 | ||
| 869 | Ask to kill buffers associated with that file, too. | |
| 870 | ||
| 871 | When TRASH is non nil, trash FILE even if `delete-by-moving-to-trash' | |
| 872 | is nil. | |
| 873 | ||
| 874 | (fn FILE &optional ERROR-IF-DOT-FILE-P SYNCHRO TRASH) | |
| 875 | (defalias 'helm-delete-file #[1025 "\304\305!\210\3062L\203 \307!\203 \310\311!\210\312!\313\314!\206& \315!@\313=\203\316\313\n#\203\203\\ \204R \211\204R \317\320\321\322 !\"!\203'\323\324#\210\202' \204d \211\203n \323\324#\210\202'\325\326\320\327\322\f!\"\330\"\211\232\204\220 \313=\204\220 <\203\232 \211\235\203\232 \323\n\324#\210\202 \331\211\232\204\263 \313=\204\263 <\203\300 \211\235\203\300 \313\323\f\324#\210\202 \332\211\232\204\331 \313=\204\331 <\203\341 \211\235\203\341 \333\306\334\"\210\202\335\211\232\204\372 \313=\204\372 <\203\211\235\203\333\336\337\340!\210\341\342!\"\210\266\266\266\266\202'@\313=\203!\323\343#\210\202'\344\"\210\205H\211\205F\211@\317\320\345\"!\203?\346!\210A\266\202\202,\262*\266\2040\207" [delete-by-moving-to-trash helm--reading-passwd-or-string dired-re-no-dot helm-ff-allow-recursive-deletes require dired --cl-block-nil-- helm-ff-dot-file-p error "Error: Cannot operate on `.' or `..'" helm-file-buffers t file-attributes helm-ff--delete-by-moving-to-trash directory-files y-or-n-p format "Recursive delete of `%s'? " abbreviate-file-name delete-directory recursive "y" helm-read-answer "Recursive delete of `%s'? [y,n,!,q]" ("y" "n" "!" "q") "!" "n" throw skip "q" helm-abort-delete-file message "Abort file deletion" sleep-for 1 nil delete-file "Kill buffer %s, too? " kill-buffer] 20 (#$ . 135730)]) | |
| 876 | #@140 Delete marked files with `helm-delete-file'. | |
| 877 | ||
| 878 | When a prefix arg is given, meaning of `delete-by-moving-to-trash' is | |
| 879 | inversed. | |
| 880 | ||
| 881 | (fn IGNORE) | |
| 882 | (defalias 'helm-delete-marked-files #[257 "\306\307\310\"\311\312@!\211\203 \313\202 \314\315 !\310 \316=\203\" \317\202# \320\211 \320Crq\210\321\322!!\210)\323\311\324\325\326!\327\"\330$\216\331\332\333\"\240!r\323\311\334\325\326!\335\"\336$\216\337@\340\"\210\341\342\343 G#!\204p \344\345!\202\313 \3462\273 \323\311\347\325\326!\350\"\336$\216\211\205\267 \211@\351\311G\320$\210\3522\320 $\211\353=\203\252 \344\354!\210\355\356!\210\202\257 T\262\n\210A\266\202\202\203 \262)0\210\344\357\203\311 \360\202\312 \361#*\262-\266\202\207" [helm-ff-allow-recursive-deletes helm-marked-buffer-name helm-always-two-windows helm-split-window-default-side helm-split-window-inside-p helm-reuse-last-window-split-state helm-marked-candidates :with-wildcard t 0 helm-ff--delete-by-moving-to-trash "Trash" "Delete" temp-buffer-window-setup same below nil helm-format-columns-of-files helm-ff--count-and-collect-dups make-byte-code "\301\302\300\242\"\207" vconcat vector [quit-window kill] 3 internal--before-with-selected-window temp-buffer-window-show (display-buffer-below-selected (window-height . fit-window-to-buffer)) "\301\300!\207" [internal--after-with-selected-window] 2 select-window norecord y-or-n-p format "%s *%s File(s)" message "(No deletions performed)" helm-abort-delete-file "\300\211\207" [helm-ff-allow-recursive-deletes] set-text-properties helm-delete-file skip "Directory is not empty, skipping" sleep-for 1 "%s File(s) %s" "trashed" "deleted" helm-ff-signal-error-on-dot-files] 17 (#$ . 137798)]) | |
| 883 | #@73 The file use to communicate with emacs child when deleting files async. | |
| 884 | (defvar helm-ff-delete-log-file (expand-file-name "helm-delete-file.log" user-emacs-directory) (#$ . 139502)) | |
| 885 | (defvar helm-ff--trash-flag nil) | |
| 886 | (byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313\314\315& \207" [custom-declare-variable helm-ff--delete-async-modeline-mode funcall function #[0 "\300\207" [nil] 1] "Non-nil if Helm-Ff--Delete-Async-Modeline mode is enabled.\nSee the `helm-ff--delete-async-modeline-mode' command\nfor a description of this minor mode.\nSetting this variable directly does not take effect;\neither customize it (see the info node `Easy Customization')\nor call the function `helm-ff--delete-async-modeline-mode'." :set custom-set-minor-mode :initialize custom-initialize-default :group dired-async :type boolean] 12) | |
| 887 | #@65 Notify mode-line that an async process run. | |
| 888 | ||
| 889 | (fn &optional ARG) | |
| 890 | (defalias 'helm-ff--delete-async-modeline-mode #[256 "\303 \304\300\305=\203 \306\300!?\202 \307!\310V\"\210\204$ \311\312 \210)\313\314\315\306\300!\2030 \316\2021 \317\"\210\320\321!\203[ \322\300!\210\303 \203I \211\303 \232\203[ \323\324\325\306\300!\203V \326\202W \327#\266\210\330 \210\306\300!\207" [helm-ff--delete-async-modeline-mode visible-bell helm-ff--trash-flag current-message set-default toggle default-value prefix-numeric-value 0 t ding nil run-hooks helm-ff--delete-async-modeline-mode-hook helm-ff--delete-async-modeline-mode-on-hook helm-ff--delete-async-modeline-mode-off-hook called-interactively-p any customize-mark-as-set "" message "Helm-Ff--Delete-Async-Modeline mode %sabled%s" "en" "dis" force-mode-line-update] 7 (#$ . 140338) (byte-code "\206 \301C\207" [current-prefix-arg toggle] 1)]) | |
| 891 | (defvar helm-ff--delete-async-modeline-mode-hook nil) | |
| 892 | (byte-code "\301\302N\204\f \303\301\302\304#\210\305\306\307\310\300!\205 \311\211%\207" [helm-ff--delete-async-modeline-mode-map helm-ff--delete-async-modeline-mode-hook variable-documentation put "Hook run after entering or leaving `helm-ff--delete-async-modeline-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" add-minor-mode helm-ff--delete-async-modeline-mode (:eval (propertize (format " %s file(s) async ..." (if helm-ff--trash-flag "Trashing" "Deleting")) 'face 'helm-delete-async-message)) boundp nil] 6) | |
| 893 | #@74 Notify end of async operation in `mode-line'. | |
| 894 | ||
| 895 | (fn TEXT FACE &rest ARGS) | |
| 896 | (defalias 'helm-delete-async-mode-line-message #[642 "\301\302!\210\303\304\203 \305\306#\202 \307#P\310 \210\311\312!\210\310 )\207" [mode-line-format message nil " " propertize apply format face force-mode-line-update sit-for 3] 9 (#$ . 141897)]) | |
| 897 | #@313 Same as `helm-delete-marked-files' but async. | |
| 898 | ||
| 899 | When a prefix arg is given, meaning of `delete-by-moving-to-trash' is | |
| 900 | inversed. | |
| 901 | ||
| 902 | This function is not using `helm-delete-file' and BTW not asking user | |
| 903 | for recursive deletion of directory, be warned that directories are | |
| 904 | always deleted with no warnings. | |
| 905 | ||
| 906 | (fn IGNORE) | |
| 907 | (defalias 'helm-delete-marked-files-async #[257 "\306\307\310\"\311@!\211\203 \312\202 \313\314\211\211:\2035 @\262\315!\262\203. \316!\244\262A\262\202 \211\237\266\204\317\320\321\322\323#\324\"\325\326%\327\330\n!\310\f\331=\203] \332\202^ \f \314\211 @\314Crq\210\333\334!!\210)\317\335\336\322\323!\337\"\340$\216\341\342\343\"\240!r\317\335\344\322\323!\345\"\346$\216\347@\350\"\210\351\352\353 G#!\204\254 \354\355!\202\364 \356\357\314\360\361 E\362\363\364\365\366D\367BB\370\371\372\373\374\365\375F\376BB\310\377\365E\201B BBE\201C \201D A\201E BBDFEEF\"\210\201F \201G !*\262-\266\202)\207" [async-quiet-switch helm-ff--trash-flag helm-marked-buffer-name helm-always-two-windows helm-split-window-default-side helm-split-window-inside-p helm-marked-candidates :with-wildcard t helm-ff--delete-by-moving-to-trash "Trash" "Delete" nil helm-file-buffers reverse make-byte-code 257 "\305\306!\210\307 !\2036 \310\311\312\313!r\211q\210\314\315\316\317\320!\321\"\322$\216\323 !\210\324 *\262\325\326$\210\327\330\326!!\210\331 !\210\302\203Y \302\211\203X \211@\332 \333\334\335\"!\203P \336!\210)A\266\202\202; \210\337\340\341\314\315\342\317\320\300\301\n#\343\"\344$#\207" vconcat vector [helm-ff-delete-log-file last-nonmenu-event helm-ff--delete-async-modeline-mode -1 file-exists-p display-warning helm generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 insert-file-contents buffer-string :error "*helm delete files*" fit-window-to-buffer get-buffer-window delete-file t y-or-n-p format "Kill buffer %s, too? " kill-buffer run-with-timer 0.1 nil "\303\304\305\301\203 \306\202\f \307\302\300G%\207" [helm-delete-async-mode-line-message "%s (%s/%s) file(s) async done" helm-delete-async-message "Trashing" "Deleting"] 6] 12 "\n\n(fn RESULT)" "-q" temp-buffer-window-setup same below helm-format-columns-of-files helm-ff--count-and-collect-dups 0 "\301\302\300\242\"\207" [quit-window kill] 3 internal--before-with-selected-window temp-buffer-window-show (display-buffer-below-selected (window-height . fit-window-to-buffer)) "\301\300!\207" [internal--after-with-selected-window] 2 select-window norecord y-or-n-p format "%s *%s File(s)" message "(No deletions performed)" async-start lambda setq delete-by-moving-to-trash let ((result 0)) dolist file quote (result) condition-case err cond (eq (nth 0 (file-attributes file)) t) delete-directory 'recursive ((setq result (1+ result))) delete-file helm-reuse-last-window-split-state helm-ff-delete-log-file ((setq result (1+ result))) error with-temp-file ((insert (format-time-string "%x:%H:%M:%S\n")) (insert (format "%s:%s\n\f" (car err) (mapconcat 'identity (cdr err) " ")))) helm-ff--delete-async-modeline-mode 1] 26 (#$ . 142235)]) | |
| 908 | #@239 Open file CANDIDATE or open helm marked files in separate windows. | |
| 909 | Called with one prefix arg open files in separate windows in a | |
| 910 | vertical split. | |
| 911 | Called with two prefix arg open files in background without selecting them. | |
| 912 | ||
| 913 | (fn CANDIDATE) | |
| 914 | (defalias 'helm-find-file-or-marked #[257 "\306\307\310\"\205\f \311\" \312\310 A\203- \313\232\203$ \314\315\"\202x \316\314\315\"!\202x \211?\2055 \317!\211\203G \320!\203G \321\322!!\202v \203Q \323!\202v \324!\204e \311\325\"\203e \326\327\"\202v \211\203s \326!\210\321!\202v \321!\262+\207" [helm--url-regexp helm-ff-newfile-prompt-p helm--reading-passwd-or-string find-file-wildcards ffap-newfile-prompt helm-current-prefix-arg helm-marked-candidates :with-wildcard t string-match nil (16) mapcar find-file-noselect helm-window-show-buffers helm-basedir file-directory-p find-file substitute-in-file-name find-file-at-point file-exists-p "/$" helm-ff--mkdir helm-ff] 7 (#$ . 145381)]) | |
| 915 | #@30 | |
| 916 | ||
| 917 | (fn DIR &optional HELM-FF) | |
| 918 | (defalias 'helm-ff--mkdir #[513 "\203 \303\304\305\306\307!!\"!\205D \310!\311!\203% \312\313\314!\"\210\202* \315\316\"\210\210\211\2039 \317\307!!\211\nB\211\203C \320!\206D \321\207" [confirm-nonexistent-file-or-buffer helm-ff-default-directory helm-ff-history y-or-n-p format "Create directory `%s'? " abbreviate-file-name expand-file-name directory-file-name file-exists-p error "Mkdir: Unable to create directory `%s': file exists." helm-basename make-directory parent file-name-as-directory helm-find-files-1 t] 9 (#$ . 146338)]) | |
| 919 | #@125 Add action to load the file CANDIDATE if it is an emacs lisp | |
| 920 | file. Else return ACTIONS unmodified. | |
| 921 | ||
| 922 | (fn ACTIONS CANDIDATE) | |
| 923 | (defalias 'helm-transform-file-load-el #[514 "\300!\301\235\203 \302\303\"\207\207" [file-name-extension ("el" "elc") append (("Load Emacs Lisp File" . load-file))] 5 (#$ . 146923)]) | |
| 924 | #@129 Add an action to browse the file CANDIDATE if it is a html file or URL. | |
| 925 | Else return ACTIONS unmodified. | |
| 926 | ||
| 927 | (fn ACTIONS CANDIDATE) | |
| 928 | (defalias 'helm-transform-file-browse-url #[514 "\300\301\302\"\203 \211B\202 \301\303\"\203 \304C\"\202 \207" [("Browse with Browser" . browse-url) string-match "^http\\|^ftp" "\\.html?$" append] 6 (#$ . 147241)]) | |
| 929 | #@145 Returns non-nil when FILE is part of a mounted remote directory. | |
| 930 | ||
| 931 | This function is checking `helm-mounted-network-directories' list. | |
| 932 | ||
| 933 | (fn FILE) | |
| 934 | (defalias 'helm-file-on-mounted-network-p #[257 "\205( \301\302\301:\203& @\262\303\"\211\262?\211\262\203& A\262\202 \266\203\207" [helm-mounted-network-directories nil t file-in-directory-p] 8 (#$ . 147601)]) | |
| 935 | #@18 | |
| 936 | ||
| 937 | (fn CANDIDATE) | |
| 938 | (defalias 'helm-ff-cache-add-file #[257 "\300\301!\210\302\303\304\"\305\306\"\207" [require filecache helm-marked-candidates :with-wildcard t mapc file-cache-add-file] 5 (#$ . 147974)]) | |
| 939 | #@49 Remove FILE from `file-cache-alist'. | |
| 940 | ||
| 941 | (fn FILE) | |
| 942 | (defalias 'helm-ff-file-cache-remove-file-1 #[257 "\301\302!\"\303!\304\305\"\262G\306U\203 \304\262\211\305\"B\211\207" [file-cache-alist assoc helm-basename helm-basedir nil remove 1] 8 (#$ . 148185)]) | |
| 943 | #@57 Remove marked files from `file-cache-alist.' | |
| 944 | ||
| 945 | (fn FILE) | |
| 946 | (defalias 'helm-ff-file-cache-remove-file #[257 "\300 \301\302\"\207" [helm-marked-candidates mapc helm-ff-file-cache-remove-file-1] 5 (#$ . 148455)]) | |
| 947 | (defvar helm-source-file-name-history (helm-make-source "File Name History" 'helm-source-sync :candidates 'file-name-history :persistent-action 'ignore :filtered-candidate-transformer 'helm-file-name-history-transformer :action 'helm-type-file-actions)) | |
| 948 | #@134 [Internal] This source is build to be used with `helm-find-files'. | |
| 949 | Don't use it in your own code unless you know what you are doing. | |
| 950 | (defvar helm-source--ff-file-name-history nil (#$ . 148924)) | |
| 951 | #@26 | |
| 952 | ||
| 953 | (fn CANDIDATES SOURCE) | |
| 954 | (defalias 'helm-file-name-history-transformer #[514 "\300\211:\203J @\262\301!\204 \302\303!\203( \303!\203( \304\305\306#B\202? \307!\2038 \304\305\310#B\202? \304\305\311#BB\262A\262\202 \211\237\207" [nil file-remote-p fboundp tramp-archive-file-name-p propertize face helm-history-remote file-exists-p helm-ff-file helm-history-deleted] 9 (#$ . 149124)]) | |
| 955 | #@67 Switch to `file-name-history' without quitting `helm-find-files'. | |
| 956 | (defalias 'helm-ff-file-name-history #[0 "\204 \302\303\304\305\306\307\310\311\312\313\314\315\312\316\317\320\321\322\323\324\325$& \203- \326\327\300\330\331\332\312\333\334&\207\335\336!\207" [helm-source--ff-file-name-history helm-alive-p helm-make-source "File name history" helm-source-sync :init #[0 "\203 \303\304\305\306#\210 \205 \303\307!\210\n\206 \302\310!\207\311\312!\207" [helm-alive-p helm-ff-file-name-history-use-recentf recentf-mode require tramp-archive nil t recentf 1 error #2="Running helm command outside of context"] 4] :candidates #[0 "\203 \207\n\207" [helm-ff-file-name-history-use-recentf recentf-list file-name-history] 1] :fuzzy-match t :persistent-action ignore :migemo :filtered-candidate-transformer helm-file-name-history-transformer :action helm-make-actions "Find file" #[257 "\301\302!!\210\303\304\305\"\210\304\306BB\307\306\304\"\207" [helm--temp-hooks helm-set-pattern expand-file-name defalias #1=#:helm--hook45 #[0 "\300\216\301 )\207" [#[0 "\300\301\302\"\210\303\302!\207" [remove-hook helm-after-update-hook #1# fmakunbound] 3] helm-exit-minibuffer] 1] helm-after-update-hook add-hook] 4 "\n\n(fn CANDIDATE)"] "Find file in helm" #[257 "\300\301!!\207" [helm-set-pattern expand-file-name] 4 "\n\n(fn CANDIDATE)"] helm :sources :buffer "*helm-file-name-history*" :allow-nest :resume noresume error #2#] 21 (#$ . 149533) nil]) | |
| 957 | (put 'helm-ff-file-name-history 'helm-only t) | |
| 958 | (defvar helm--browse-project-cache (make-hash-table :test 'equal)) | |
| 959 | #@23 | |
| 960 | ||
| 961 | (fn ROOT-DIRECTORY) | |
| 962 | (defalias 'helm-browse-project-get-buffers #[257 "\301 \302\211\211\211:\203H @\262rq\210)\262\303\304!!\262\203* \305\"\204< \204A \306!\204A \305\"\203A B\262A\262\202 \211\237\207" [default-directory helm-buffer-list nil buffer-file-name get-buffer file-in-directory-p file-remote-p] 9 (#$ . 151108)]) | |
| 963 | #@18 | |
| 964 | ||
| 965 | (fn DIRECTORY) | |
| 966 | (defalias 'helm-browse-project-build-buffers-source #[257 "\300\301\302\303\304\305\306\307\310 !\311\"\312\313%\314\304\315\316\307\310 !\317\"\320$&\207" [helm-make-source "Buffers in project" helm-source-buffers :header-name make-byte-code 257 "\301\302\303\300!#\207" vconcat vector [format "%s (%s)" abbreviate-file-name] 6 "\n\n(fn NAME)" :buffer-list 0 "\301\300!\207" [helm-browse-project-get-buffers] 2] 13 (#$ . 151464)]) | |
| 967 | #@83 Default function for `helm-browse-project-default-find-files-fn'. | |
| 968 | ||
| 969 | (fn DIRECTORY) | |
| 970 | (defalias 'helm-browse-project-walk-directory #[257 "\300\301\302\303\304\305\306&\207" [helm-walk-directory :directories nil :path full :skip-subdirs t] 9 (#$ . 151923)]) | |
| 971 | #@108 A suitable function for `helm-browse-project-default-find-files-fn'. | |
| 972 | ||
| 973 | Needs AG as backend. | |
| 974 | ||
| 975 | (fn DIRECTORY) | |
| 976 | (defalias 'helm-browse-project-ag-find-files #[257 "\300\301!r\211q\210\302\303\304\305\306!\307\"\310$\216\311\312\313\"\314\315\314$\210\316\302\317\320\305\306!\321\"\322\323%\324\325 \326\"\"*\207" [generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 call-process-shell-command format "ag --hidden -g '.*' %s" nil t mapcar 257 "\301\300\"\207" [expand-file-name] 4 "\n\n(fn F)" split-string buffer-string "\n"] 9 (#$ . 152186)]) | |
| 977 | #@36 | |
| 978 | ||
| 979 | (fn DIRECTORY &optional REFRESH) | |
| 980 | (defalias 'helm-browse-project-find-files #[513 "\211\203 \303\"\210\304\"\204 \305 !#\210\306\307\310!\311\312\313\314\304 \"\315\316\317\320\321\322!\323\"\324\325%\326\327\330\331\332\n\333\334&D\335\336\337\340&\207" [helm--browse-project-cache helm-browse-project-default-find-files-fn helm-generic-files-map remhash gethash puthash helm :sources helm-browse-project-build-buffers-source helm-make-source "Browse project" helm-source-in-buffer :data :header-name make-byte-code 257 "\301\302\303\300!#\207" vconcat vector [format "%s (%s)" abbreviate-file-name] 6 "\n\n(fn NAME)" :match-part #[257 "r\301 q\210)\203 \302!\207\207" [helm-ff-transformer-show-only-basename helm-buffer-get helm-basename] 3 "\n\n(fn C)"] :filter-one-by-one #[257 "r\301 q\210)\203 \302\303!\304\305#B\207\302\304\305#\207" [helm-ff-transformer-show-only-basename helm-buffer-get propertize helm-basename face helm-ff-file] 5 "\n\n(fn C)"] :keymap :action helm-type-file-actions :ff-transformer-show-only-basename nil :buffer "*helm browse project*"] 20 (#$ . 152806)]) | |
| 981 | (defvar helm-browse-project-history nil) | |
| 982 | (defalias 'helm-projects-history #[0 "\301\302\303\304\305\306\307\310&\311\312$\207" [helm-browse-project-history helm :sources helm-make-source "Project history" helm-source-sync :candidates :action #[257 "\211\203\n \301!\206 \302\303!)\207" [default-directory file-name-as-directory helm-browse-project nil] 3 "\n\n(fn CANDIDATE)"] :buffer "*helm browse project history*"] 9 nil nil]) | |
| 983 | #@639 Preconfigured helm to browse projects. | |
| 984 | Browse files and see status of project with its vcs. | |
| 985 | Only HG and GIT are supported for now. | |
| 986 | Fall back to `helm-browse-project-find-files' | |
| 987 | if current directory is not under control of one of those vcs. | |
| 988 | With a prefix ARG browse files recursively, with two prefix ARG | |
| 989 | rebuild the cache. | |
| 990 | If the current directory is found in the cache, start | |
| 991 | `helm-browse-project-find-files' even with no prefix ARG. | |
| 992 | NOTE: The prefix ARG have no effect on the VCS controlled directories. | |
| 993 | ||
| 994 | Needed dependencies for VCS: | |
| 995 | <https://github.com/emacs-helm/helm-ls-git> | |
| 996 | and | |
| 997 | <https://github.com/emacs-helm/helm-ls-hg>. | |
| 998 | ||
| 999 | (fn ARG) | |
| 1000 | (defalias 'helm-browse-project #[257 "\303\304\305\"\"\306\307\310\311\312\306#\205 \313\314!\205 \314 \211\211\203) !\210\315 \202{ \310\316\312\306#\2059 \313\317!\2059 \317 \211\211\203G !\210\320 \202w \321\322 !\211\211\205s \204\\ \323\n\"\203k !\210\324 \325\232\"\202s \326\327\330!\331\332$\262\262\262\262\262\262\262*\207" [helm-type-buffer-actions helm-buffers-in-project-p helm--browse-project-cache remove assoc "Browse project from buffer" t #[257 "\211\301\"B\211\207" [helm-browse-project-history delete] 5 "\n\n(fn ROOT)"] require helm-ls-git nil fboundp helm-ls-git-root-dir helm-ls-git-ls helm-ls-hg helm-hg-root helm-hg-find-files-in-project helm-browse-project-get--root-dir helm-current-directory gethash helm-browse-project-find-files (16) helm :sources helm-browse-project-build-buffers-source :buffer "*helm browse project*"] 13 (#$ . 154363) "P"]) | |
| 1001 | #@18 | |
| 1002 | ||
| 1003 | (fn DIRECTORY) | |
| 1004 | (defalias 'helm-browse-project-get--root-dir #[257 "\301!\211\203' \302\"\204' \303!\203 \304\262\202 \305\306GSO!\262\202 \211\206. \301!\207" [helm--browse-project-cache file-name-as-directory gethash file-remote-p nil helm-basedir 0] 6 (#$ . 155911)]) | |
| 1005 | #@81 Browse project in current directory. | |
| 1006 | See `helm-browse-project'. | |
| 1007 | ||
| 1008 | (fn CANDIDATE) | |
| 1009 | (defalias 'helm-ff-browse-project #[257 "\203\n \303!\206 \304\n!)\207" [helm-ff-default-directory default-directory helm-current-prefix-arg file-name-as-directory helm-browse-project] 3 (#$ . 156201)]) | |
| 1010 | (defalias 'helm-ff-run-browse-project #[0 "\203 \301\302!\207\303\304!\207" [helm-alive-p helm-exit-and-execute-action helm-ff-browse-project error "Running helm command outside of context"] 2 nil nil]) | |
| 1011 | (put 'helm-ff-run-browse-project 'helm-only t) | |
| 1012 | #@18 | |
| 1013 | ||
| 1014 | (fn CANDIDATE) | |
| 1015 | (defalias 'helm-ff-gid #[257 "\203\n \302!\206 \303 )\207" [helm-ff-default-directory default-directory file-name-as-directory helm-gid] 3 (#$ . 156747)]) | |
| 1016 | (defalias 'helm-ff-run-gid #[0 "\203 \301\302!\207\303\304!\207" [helm-alive-p helm-exit-and-execute-action helm-ff-gid error "Running helm command outside of context"] 2 nil nil]) | |
| 1017 | (put 'helm-ff-run-gid 'helm-only t) | |
| 1018 | #@57 Run `helm-find' from `helm-find-files'. | |
| 1019 | ||
| 1020 | (fn CANDIDATE) | |
| 1021 | (defalias 'helm-ff-find-sh-command #[257 "\301\302!\210\303!\207" [helm-ff-default-directory require helm-find helm-find-1] 3 (#$ . 157149)]) | |
| 1022 | #@64 Run find shell command action with key from `helm-find-files'. | |
| 1023 | (defalias 'helm-ff-run-find-sh-command #[0 "\203 \301\302!\207\303\304!\207" [helm-alive-p helm-exit-and-execute-action helm-ff-find-sh-command error "Running helm command outside of context"] 2 (#$ . 157354) nil]) | |
| 1024 | (put 'helm-ff-run-find-sh-command 'helm-only t) | |
| 1025 | #@252 Preconfigured `helm' for helm implementation of `find-file'. | |
| 1026 | Called with a prefix arg show history if some. | |
| 1027 | Don't call it from programs, use `helm-find-files-1' instead. | |
| 1028 | This is the starting point for nearly all actions you can do on files. | |
| 1029 | ||
| 1030 | (fn ARG) | |
| 1031 | (defalias 'helm-find-files #[257 "\211\205 \205 \306\307!\211\206 \310 \311\312 !\204! \203! \211\202P \n\313=\2035 \2035 \2045 \311 !\202P \n\314=\203E \203E \315!\202P \316\230\204O \206P \211\317!@?\206n \211\203a \206n \320p!\206n \n\314=\205n \211\205\221 \f\203\220 \204\220 \321\307\322 \323#)\266\203\204\220 \324!\202\221 \211\262\203\265 \325\326 !!\203\265 \327\330r q\210)\331r q\210)$\210\332\333G\307$\210\307 ?? !\334\205\327 \"?\205\327 \335\336!P\")\207" [helm-ff-history helm-find-files-ignore-thing-at-point major-mode org-directory helm-ff-transformer-show-only-basename inhibit-changing-match-data helm-find-files-history nil helm-find-files-initial-input expand-file-name helm-current-directory org-agenda-mode dired-mode file-name-directory "" file-attributes buffer-file-name "[.]\\{1,2\\}\\'" t string-match helm-basename buffer-live-p get-buffer helm-set-local-variable helm-display-function helm--last-frame-parameters set-text-properties 0 helm-find-files-1 "^" regexp-quote helm-ff-history-buffer-name current-prefix-arg helm--executing-helm-action helm-ff-no-preselect] 14 (#$ . 157689) "P"]) | |
| 1032 | #@252 Allow deleting tramp connection or marked tramp connections at once. | |
| 1033 | ||
| 1034 | This replace `tramp-cleanup-connection' which is partially broken in | |
| 1035 | emacs < to 25.1.50.1 (See Emacs Bug#24432). | |
| 1036 | ||
| 1037 | It allows additionally to delete more than one connection at once. | |
| 1038 | (defalias 'helm-delete-tramp-connection #[0 "\301\302\303\304\305\306\307\310 \311\312\313\314&\315\316$)\207" [helm-quit-if-no-candidate #[0 "\300\301!\207" [message "No Tramp connection found"] 2] helm :sources helm-make-source "Tramp connections" helm-source-sync :candidates tramp-list-connections :candidate-transformer #[257 "\211\300\211\211:\203U @\262\301\302\303!\211\304\300\211T\211\262GW\203. H\262B\262\202 \211\237\266\205\"\262\305\306!!\204G \307\310\311!!!\203N BB\262A\262\202 \211\237\207" [nil apply tramp-make-tramp-file-name helm-ff--tramp-cons-or-vector -1 processp tramp-get-connection-process buffer-live-p get-buffer tramp-buffer-name] 14 "\n\n(fn CANDIDATES)"] :action #[257 "\301 \211\302:\203 @\262\303!\210\304\"\210A\262\202 \302\266\202\207" [tramp-cache-data helm-marked-candidates nil tramp-cleanup-connection remhash] 7 "\n\n(fn VEC)"] :buffer "*helm tramp connections*"] 11 (#$ . 159110) nil]) | |
| 1039 | (provide 'helm-files) | |
