;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\301\302!\210\301\303!\210\301\304!\210\301\305!\210\301\306!\210\301\307!\210\301\310!\210\301\311!\210\301\312!\210\301\313!\210\301\314!\210\315\316\317\320\321\303%\210\322\323\324\325\326DD\327\330\331\321\316&\210\322\332\324\325\333DD\334\321\316\330\335&\210\322\336\324\325\337DD\340\321\316\330\331&\210\322\341\324\325\342DD\343\321\316\330\335&\210\322\344\324\325\345DD\346\321\316\330\347&\210\322\350\324\325\351DD\352\321\316\330\347&\210\322\353\324\325\354DD\355\330\335\321\316&\210\322\356\324\325\357DD\360\330\347\321\316&\210\322\361\324\325\362DD\363\330\364\321\316&\210\322\365\324\325\366DD\367\330\370\321\316&\210\322\371\324\325\372DD\373\330\335\321\316&\210\322\374\324\325\375DD\376\321\316\330\335&\210\322\377\324\325\201@DD\201A\321\316\330\335&\210\322\201B\324\325\201CDD\201D\321\316\330\331&\210\322\201E\324\325\201FDD\201G\321\316\330\335&\210\322\201H\324\325\201IDD\201J\321\316\330\335&\210\322\201K\324\325\201LDD\201M\321\316\330\335&\210\322\201N\324\325\201ODD\201P\321\316\330\331&\210\322\201Q\324\325\201RDD\201S\321\316\330\335&\210\322\201T\324\325\201UDD\201V\321\316\330\201W&\210\322\201X\324\325\201YDD\201Z\321\316\330\201[&\210\322\201\\\324\325\201]DD\201^\321\316\330\201[&\210\322\201_\324\325\201`DD\201a\321\316\330\347&\210\322\201b\324\325\201cDD\201d\321\316\330\335&\210\322\201e\324\325\201fDD\201g\321\316\330\335&\210\322\201h\324\325\201iDD\201j\321\316\330\335&\210\322\201k\324\325\201lDD\201m\321\316\330\335&\210\322\201n\324\325\201oDD\201p\321\316\330\335&\210\322\201q\324\325\201rDD\201s\321\316\330\335&\210\322\201t\324\325\201uDD\201v\321\316\330\201w&\210\322\201x\324\325\201yDD\201z\321\316\330\201{&\210\322\201|\324\325\201}DD\201~\321\316\330\325&\210\322\201\324\325\201\200DD\201\201\321\316\330\325&\210\322\201\202\324\325\201\203DD\201\204\321\316\330\201\205&\210\322\201\206\324\325\201\207DD\201\210\321\316\330\201\211&\210\322\201\212\324\325\201\213DD\201\214\321\316\330\201\215&\210\322\201\216\324\325\201\217DD\201\220\321\316\330\335&\210\322\201\221\324\325\201\222DD\201\223\330\325\321\316&\210\322\201\224\324\325\201\225DD\201\226\321\316\330\201\227&\210\322\201\230\324\325\201\231DD\201\232\321\316\330\201\233&\210\322\201\234\324\325\201\235DD\201\236\321\316\330\201\237&\210\322\201\240\324\325\201\241DD\201\242\321\316\330\201\243&\210\322\201\244\324\325\201\245DD\201\246\330\335\321\316&\210\322\201\247\324\325\201\250DD\201\251\330\201\252\321\316&\210\322\201\253\324\325\201\254DD\201\255\330\347\321\316&\210\322\201\256\324\325\201\257DD\201\260\330\347\321\316&\210\315\201\261\317\201\262\201\263\201\264\321\316\321\201\265& \210\201\266\201\267\201\270\201\271\201\272Y\205\370\201\273\201\274\"BC\201\275\321\201\261%\210\201\266\201\276\201\270\201\271\201\272Y\205\201\277\201\300\"BC\201\301\321\201\261%\210\201\266\201\302\201\270\201\271\201\272Y\205D\201\303\201\304\"BC\201\305\321\201\261%\210\201\266\201\306\201\270\201\271\201\272Y\205j\201\307\201\310\"BC\201\311\321\201\261%\210\201\266\201\312\201\270\201\271\201\272Y\205\220\201\313\201\314\"BC\201\315\321\201\261%\210\201\266\201\316\201\270\201\271\201\272Y\205\266\201\317\201\320\"BC\201\321\321\201\261%\210\201\266\201\322\201\270\201\271\201\272Y\205\334\201\323\201\324\"BC\201\325\321\201\261%\210\201\266\201\326\201\270\201\271\201\272Y\205\201\327\201\330\"BC\201\331\321\201\261%\210\201\266\201\332\201\270\201\271\201\272Y\205(\201\333\201\334\"BC\201\335\321\201\261%\210\201\266\201\336\201\270\201\271\201\272Y\205N\201\337\201\340\"BC\201\341\321\201\261%\210\201\266\201\342\201\270\201\271\201\272Y\205t\201\343\201\344\"BC\201\345\321\201\261%\210\201\266\201\346\201\270\201\271\201\272Y\205\232\201\347\201\350\"BC\201\351\321\201\261%\210\201\266\201\352\201\270\201\271\201\272Y\205\300\201\353\201\354\"BC\201\355\321\201\261%\210\201\266\201\356\201\270\201\271\201\272Y\205\346\201\357\201\360\"BC\201\361\321\201\261%\210\201\266\201\362\201\270\201\271\201\272Y\205\f\201\363\201\364\"BC\201\365\321\201\261%\210\201\266\201\366\201\270\201\271\201\272Y\2052\201\367\201\370\"BC\201\371\321\201\261%\210\201\266\201\372\201\270\201\271\201\272Y\205X\201\373\201\374\"BC\201\375\321\201\261%\210\201\266\201\376\201\270\201\271\201\272Y\205~\201\377\201\"BC\201\321\201\261%\210\201\266\201\201\270\201\271\201\272Y\205\244\201\201\"BC\201\321\201\261%\210\201\266\201\201\270\201\271\201\272Y\205\312\201\201\"BC\201 \321\201\261%\207" [emacs-major-version require cl-lib helm helm-types helm-utils helm-grep helm-help helm-locate helm-tags helm-buffers tramp filenotify 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 to not\nconfuse new users.\nFor a better experience with `helm-find-files' set this to\nnon-nil and use C- to toggle it." boolean 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\nwith `C-j' inside an avfs directory mounted with mountavfs.\nSee ." 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\nset this, `helm-ff-find-printers' will find a list of available\nprinters 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-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\na 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 boring files.\nI.e. the files matching regexps in `helm-boring-file-regexp-list'.\nThis takes effect in `helm-find-files' and file completion used by\n`helm-mode' i.e. `helm-read-file-name'.\nNote that when non-nil this will slow down slightly `helm-find-files'." helm-ff-skip-git-ignored-files #[0 "\300\207" [nil] 1] "Non-nil to skip git ignored files.\nThis take effect only in `helm-find-files'.\nCheck is not done on remote files.\nNote that when non-nil this will slow down slightly\n`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\n`\\\\[helm-find-files-up-one-level]' the\nlength of directory will be used instead if it is higher than\nthis value. This is to avoid failing to preselect the previous\ndirectory/file if this one is situated lower than\n`helm-ff-candidate-number-limit' num candidate." 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\n`helm-ff-candidate-number-limit'.\n\nIt can be helpful to disable this and reduce\n`helm-ff-candidate-number-limit' if you often navigate across\nvery large 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, see\n`helm-ff-guess-ffap-filenames' for this.\nSee also `ffap-url-unwrap-remote' that may override this\nvariable." helm-ff-no-preselect #[0 "\300\207" [nil] 1] "When non-nil `helm-find-files' starts at root of current directory." helm-ff-allow-non-existing-file-at-point #[0 "\300\207" [nil] 1] "Use non existing file-at-point as initial input in `helm-find-files'." 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\npoint in `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\notherwise check 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\301!\203\302\207\300\303!\203\304\207\300\305!\203\306\207\307\207" [executable-find "fd" helm-browse-project-fd-find-files "rg" helm-browse-project-rg-find-files "ag" helm-browse-project-ag-find-files helm-browse-project-walk-directory] 2] "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\naffects the behavior of persistent-action on filenames and\nnon-existing filenames.\n\nThe default is to expand filename on first hit on\n\\\\[helm-execute-persistent-action], pop buffer in\nother window on second hit and finally kill this buffer on third\nhit. This is very handy to create several new buffers, or when\nnavigating, show quickly the buffer of file to see its contents\nbriefly before killing it and continue navigating.\n\nHowever some users may not want this, so to disable this behaviour\njust set this to `ignore' function.\n\nOf course you can also write your own function to do something\nelse." 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 !\nwhen prompted to avoid being asked for next directories, so it\nis probably better 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\ndelete files asynchronously.\n\nBE AWARE that when deleting async you will not be warned about\nrecursive deletion of directories, IOW non-empty directories will\nbe deleted with no warnings in background!!!\n\nIt is the function that will be used when using\n`\\\\[helm-ff-run-delete-file]' from\n`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\nTrashing remote files with tramp doesn't work out of the box\nunless the 'trash-cli' package is installed. This is why trashing\nremote files from Helm is disabled by default.\n\nTramp is using external 'trash' command in its `delete-file' and\n`delete-directory' handlers when using\n`delete-by-moving-to-trash', which is documented nowhere in\nEmacs.\n\nIf you want to enable this you will have to install the 'trash'\ncommand on remote (and/or locally if you want to trash as root).\nOn Ubuntu-based distributions it is 'trash-cli'." helm-list-directory-function #[0 "\301\267\202\f\302\207\303\207\303\207\303\207" [system-type #s(hash-table size 3 test eq 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:\n`helm-list-dir-lisp' and `helm-list-dir-external'.\n\nUsing `helm-list-dir-external' will provide a similar display to\nwhat is provided with local files i.e. colorized symlinks,\nexecutables files etc., whereas using `helm-list-dir-lisp' will\nallow colorizing only directories but it is more portable.\n\nNOTE: `helm-list-dir-external' needs ls and awk as dependencies.\nAlso the ls version installed on the remote side should support\nthe same arguments as the GNU/ls version, which are -A -1 -F -b\nand -Q. So even if you are using a GNU/ls version locally and you\nwant to connect e.g. on a Freebsd server, you may have failures\ndue to the incompatible ls version installed on remote server. In\nsuch case use `helm-list-dir-lisp' which works everywhere but is\nslower and less featured (only directories colorized)." helm-ff-initial-sort-method #[0 "\300\207" [nil] 1] "Sort method to use when initially listing a directory.\nNote that this doesn't affect the listing when matching inside\nthe directory (i.e. filenames)." (choice (const :tag "alphabetically" nil) (const :tag "newest" newest) (const :tag "size" size)) helm-ff-rotate-image-program #[0 "\300\207" [#5="exiftran"] 1 #5#] "External program used to rotate images.\nWhen nil and `helm-ff-display-image-native' is enabled, fallback to\n`image-rotate' without modification of exif data i.e. rotation is not\npersistent otherwise an error is returned when not using\n`helm-ff-display-image-native' i.e. using image-dired." (choice (const :tag "Mogrify" "mogrify") (const :tag "Exiftran" "exiftran") (const :tag "Jpegtran" "jpegtran")) helm-ff-rotate-image-switch #[0 "\300\207" [("-i")] 1] "Options used with `helm-ff-rotate-image-program'.\nIf you are using Mogrify or Jpegtran mandatory option is\n\"-rotate\", with Exiftran mandatory option is \"-i\"." (repeat string) helm-ff-preferred-shell-mode #[0 "\300\207" [eshell-mode] 1] "Shell to use to switch to a shell buffer from `helm-find-files'.\nPossible values are `shell-mode', `eshell-mode' and `term-mode'.\nThis affects `\\\\[helm-ff-run-switch-to-shell]' keybinding." (choice (const :tag "Use Eshell" eshell-mode) (const :tag "Use Shell" shell-mode) (const :tag "Use Shell" term-mode)) helm-rsync-no-mode-line-update #[0 "\300\207" [nil] 1] "When non nil don't update mode-line when rsync is running.\nThis is useful if you display the progress bar somewhere else,\ne.g. with minibuffer-line in minibuffer, in this case updating\nmode-line may create flickering in other frame's mode-line." helm-rsync-switches #[0 "\300\207" [("-a" "-z" "-h" "-s" "--info=all2")] 1] "Rsync options to use with HFF Rsync action.\nNote: Using \"--info=all2\" allows having the name of the file\ncurrently transfered in an help-echo in mode-line, if you use\n\"--info=progress2\" you will not have this information." (repeat string) helm-rsync-percent-sign #[0 "\300\207" [#6="％"] 1 #6#] "Percentage unicode sign to use in Rsync reporter." helm-trash-default-directory #[0 "\300\207" [nil] 1] "The default trash directory.\nYou probably don't need to set this when using a Linux system using\nstandard settings.\nShould be the directory file name i.e. don't add final slash.\nWhen nil helm will compute a default value according to freedesktop\nspecs.\nIt is generally \"~/.local/share/Trash\"." helm-files-faces "Customize the appearance of helm-files." :prefix "helm-" helm-faces custom-declare-face helm-ff-prefix t append 27 (:extend t) (:background "yellow" :foreground "black") "Face used to prefix new file or url paths in `helm-find-files'." helm-ff-executable (:extend t) (:foreground "green") "Face used for executable files in `helm-find-files'." helm-ff-suid (:extend t) (:background "red" :foreground "white") "Face used for suid files in `helm-find-files'." helm-ff-directory (:extend t) (:foreground "DarkRed" :background "LightGray") "Face used for directories in `helm-find-files'." helm-ff-dotted-directory (:extend t) (:foreground "black" :background "DimGray") "Face used for dotted directories in `helm-find-files'." helm-ff-dotted-symlink-directory (:extend t) (:foreground "DarkOrange" :background "DimGray") "Face used for dotted symlinked directories in `helm-find-files'." helm-ff-symlink (:extend t) (:inherit font-lock-comment-face) "Face used for symlinks in `helm-find-files'." helm-ff-invalid-symlink (:extend t) (:foreground "black" :background "red") "Face used for invalid symlinks in `helm-find-files'." helm-ff-denied (:extend t) (:foreground "red" :background "black") "Face used for non accessible files in `helm-find-files'." helm-ff-file (:extend t) (:inherit font-lock-builtin-face) "Face used for file names in `helm-find-files'." helm-ff-truename (:extend t) (:inherit font-lock-string-face) "Face used for symlink truenames in `helm-find-files'." helm-ff-dirs (:extend t) (:inherit font-lock-function-name-face) "Face used for file names in recursive dirs completion in `helm-find-files'." helm-ff-socket (:extend t) (:foreground "DeepPink") "Face used for socket files in `helm-find-files'." helm-ff-pipe (:extend t) (:foreground "yellow" :background "black") "Face used for named pipes and character device files in `helm-find-files'." helm-ff-file-extension (:extend t) (:foreground "magenta") "Face used for file extensions in `helm-find-files'." helm-ff-backup-file (:extend t) (:foreground "DimGray") "Face used for backup files in `helm-find-files'." helm-history-deleted (:extend t) (:inherit helm-ff-invalid-symlink) "Face used for deleted files in `file-name-history'." helm-history-remote (:extend t) (:foreground "Indianred1") "Face used for remote files in `file-name-history'." helm-delete-async-message (:extend t) (:foreground "yellow") "Face used for mode-line message." helm-ff-rsync-progress (:extend t) (:inherit font-lock-warning-face) "Face used for rsync mode-line indicator."] 10) #@31 Keymap for `helm-find-files'. (defvar helm-find-files-map (byte-code "\301 \302\"\210\303\304\305#\210\303\306\307#\210\303\310\311#\210\303\312\313#\210\303\314\315#\210\303\316\317#\210\303\320\321#\210\303\322\323#\210\303\324\323#\210\303\325\326#\210\303\327\330#\210\303\331\332#\210\303\333\334#\210\303\335\336#\210\303\337\340#\210\303\341\342#\210\303\343\344#\210\345\346!\203y\303\347\350#\210\303\351\352#\210\303\353\354#\210\303\355\356#\210\303\357\360#\210\303\361\362#\210\303\363\364#\210\303\365\366#\210\303\367\370#\210\303\371\372#\210\303\373\374#\210\303\375\376#\210\303\377\201@#\210\303\201A\201B#\210\303\201C\201D#\210\303\201E\201F#\210\303\201G\201H#\210\303\201I\201J#\210\303\201K\201L#\210\303\201M\201N#\210\303\201O\201P#\210\303\201Q\201R#\210\303\201S\201T#\210\303\201U\201V#\210\303\201W\201X#\210\303\201Y\201Z#\210\303\201[\201\\#\210\303\201]\201^#\210\303\201_\201`#\210\303\201a\201`#\210\303\201b\201c#\210\303\201d\201e#\210\303\201f\201g#\210\303\201h\201i#\210\303\201j\201k#\210\303\201l\201m#\210\303\201n\201o#\210\303\201p\201q#\210\303\201r\201s#\210\303\201t\201u#\210\303\201v\201w#\210\303\201x\201y#\210\303\201z\201{#\210\303\201|\201}#\210\303\201~\201#\210\303\201\200\201\201#\210\303\201\202\201\203#\210\303\201\204\201\205#\210\303\201\206\201\207#\210\201\210\201\211\201\212\201\213\201\214\201\215\201\216&\210\201\217\201\220!\203X\303\201\221\201\222#\210\207" [helm-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-switch-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 executable-find "rsync" [134217814] helm-ff-run-rsync-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-shell "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 [67108911] helm-ff-run-fd [134217836] helm-ff-rotate-left-persistent [134217842] helm-ff-rotate-right-persistent [134217771] helm-ff-increase-image-size-persistent [134217773] helm-ff-decrease-image-size-persistent "\f" helm-find-files-up-one-level "" helm-ff-undo "" 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 [S-f1] helm-ff-sort-alpha [S-f2] helm-ff-sort-by-newest [S-f3] helm-ff-sort-by-size [S-f4] helm-ff-toggle-dirs-only [S-f5] helm-ff-toggle-files-only 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 fboundp tab-bar-mode "" helm-ff-find-file-other-tab] 9) (#$ . 21220)) #@35 Keymap for `helm-read-file-name'. (defvar helm-read-file-map (byte-code "\301 \302\"\210\303\304\305#\210\303\306\305#\210\303\307\310#\210\303\311\312#\210\303\313\312#\210\303\314\315#\210\303\316\317#\210\303\320\321#\210\303\322\323#\210\303\324\323#\210\303\325\326#\210\327\330\331\332\333\334\335&\210\207" [helm-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-ff-undo "" helm-find-files-down-last-level "h" helm-ff-file-name-history [C-backspace] helm-ff-run-toggle-auto-update "" " " helm-ff-RET 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] 9) (#$ . 25471)) (byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313& \210\300\314\302\303\315DD\316\306\307\310\311&\210\300\317\302\303\320DD\321\306\307\310\311&\210\300\322\302\303\323DD\324\310\311\306\307&\207" [custom-declare-variable helm-ff-lynx-style-map funcall function #[0 "\300\207" [t] 1] "Use arrow keys to navigate with `helm-find-files'.\nNote that if you define this variable with `setq' your change\nwill have no effect, use customize instead." :group helm-files :type boolean :set #[514 "L\210\211\203 \302\303\304#\210\302\305\306#\210\302 \307\304#\210\302 \310\306#\207\302\311\312#\210\302\313\312#\210\302 \314\312#\210\302 \315\312#\207" [helm-find-files-map helm-read-file-map define-key [right] helm-execute-persistent-action [left] helm-find-files-up-one-level [right] [left] [right] nil [left] [right] [left]] 6 "\n\n(fn VAR VAL)"] helm-ff-DEL-up-one-level-maybe #[0 "\300\207" [nil] 1] "Use DEL to maybe go up one level when non nil.\n\nGoing up one level works only when pattern is a directory endings\nwith \"/\", otherwise this command deletes char backward.\n\nWhen nil always delete char backward." helm-ff-display-image-native #[0 "\300\207" [nil] 1] "Use native `image-mode' when non nil.\n\nYou should use this only with Emacs>= 27 and `image-auto-resize'\nenabled to have images resized properly. When this is enabled,\nyou have new commands to zoom in/out images. See\n`image-transform-resize' and `image-auto-resize'. Otherwise,\nwhen nil `image-dired' is used, using imagemagick as backend.\nNOTE: If you see image-mode is eating too much memory, you better have\nto set this to nil (default)." helm-ff-reset-filters-on-update #[0 "\300\207" [t] 1] "Reset filter variables when changing directory.\nWhen filtering directories/files only, switch back to a \"show all\" view\nwhen moving out of directory when non nil."] 10) #@79 *The doc that is inserted in the Name header of a find-files or dired source. (defvar helm-find-files-doc-header " (\\\\[helm-find-files-up-one-level]: Go up one level)" (#$ . -28229)) #@137 Internal, flag to turn on/off auto-update in `helm-find-files'. Don't set it directly, use instead `helm-ff-auto-update-initial-value'. (defvar helm-ff-auto-update-flag nil (#$ . 28442)) #@40 Store last expanded directory or file. (defvar helm-ff-last-expanded nil (#$ . 28635)) (defvar helm-ff-default-directory nil) (defvar helm-ff-history nil) (defvar helm-ff-cand-to-mark nil) #@59 Same as `ffap-url-regexp' but match earlier possible url. (defvar helm-ff-url-regexp "\\`\\(news\\(post\\)?:\\|nntp:\\|mailto:\\|file:\\|\\(ftp\\|https?\\|telnet\\|gopher\\|www\\|wais\\):/?/?\\).*" (#$ . 28830)) (defvar helm-tramp-file-name-regexp "\\`/\\([^/:|]+\\):") (defvar helm-marked-buffer-name "*helm marked*") (defvar helm-ff--auto-update-state nil) (defvar helm-ff--deleting-char-backward nil) (defvar helm-multi-files--toggle-locate nil) (defvar helm-ff--move-to-first-real-candidate t) (defvar helm-find-files--toggle-bookmark nil) (defvar helm-ff--tramp-methods nil) #@154 Used to count number of candidates in directory. candidate-number-limit is set to this value if this value is bigger than `helm-candidate-number-limit'. (defvar helm-ff--directory-files-length (make-hash-table :test 'equal) (#$ . 29417)) #@41 Cache for `helm-find-files' candidates. (defvar helm-ff--list-directory-cache (make-hash-table :test 'equal) (#$ . 29661)) #@61 File-notify watchers for `helm-find-files' are stored here. (defvar helm-ff--file-notify-watchers (make-hash-table :test 'equal) (#$ . 29790)) (defvar helm-ff-history-buffer-name "*helm-find-files history*") (defvar helm-rsync-command-history nil) #@46 Used to store last valid rsync progress bar. (defvar helm-rsync--last-progress-bar-alist nil (#$ . 30044)) (defvar helm-rsync-process-buffer "*helm-rsync*") (defvar helm-rsync-progress-str-alist nil) (defvar helm-ff--trash-directory-regexp "\\.?Trash[/0-9]+files/?\\'") (defvar helm-ff--show-directories-only nil) (defvar helm-ff--show-files-only nil) #@108 [INTERNAL] Files already trashed are stored here during file deletion. This is used only as a let binding. (defvar helm-ff--trashed-files nil (#$ . 30403)) (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\201W\201X\201Y\201Z\201[\201\\\201]\201^&^\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 "Fd shell command (C-/)" helm-ff-fd "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 "Pdf Grep File(s)" helm-ff-pdfgrep "Gid `M-g i'" helm-ff-gid "Switch to Eshell `M-e'" helm-ff-switch-to-shell "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 #[0 "\300\301!\205\302\207" [executable-find "rsync" "Rsync file(s) `M-V' (C-u edit command)"] 2] helm-find-files-rsync "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 #[0 "\300\301!\205\302\207" [fboundp tab-bar-mode "Find file other tab `C-c C-t'"] 2] find-file-other-tab "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] 95] "Actions for `helm-find-files'." :group helm-files :type (alist :key-type string :value-type function)] 8) #@74 The main source to browse files. Should not be used among other sources. (defvar helm-source-find-files nil (#$ . 34198)) (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) (update :initform (lambda nil (remhash helm-ff-default-directory helm-ff--list-directory-cache))) (match-on-real :initform t) (filtered-candidate-transformer :initform '(helm-ff-fct helm-ff-directories-only helm-ff-files-only helm-ff-sort-candidates)) (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) #@75 Create a new object of class type `helm-source-ffiles'. (fn &rest SLOTS) (defalias 'helm-source-ffiles #[128 "\300\301\302#\207" [apply make-instance helm-source-ffiles] 5 (#$ . 36221)]) (byte-code "\300\301\302\303#\300\207" [function-put helm-source-ffiles compiler-macro helm-source-ffiles--anon-cmacro] 4) #@26 (fn WHOLE &rest SLOTS) (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 (#$ . 36539)]) #@60 The `bookmark-make-record-function' for `helm-find-files'. (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 (#$ . 36776)]) #@56 bookmark handler for `helm-find-files'. (fn BOOKMARK) (defalias 'helm-ff-bookmark-jump #[257 "\301\302\"\301\303\"\304!\205\"\305\203\306\307\310!!P\202!\307!\"\207" [helm-ff-transformer-show-only-basename bookmark-prop-get filename presel file-directory-p helm-find-files-1 "^" regexp-quote helm-basename] 9 (#$ . 37058)]) #@48 Record `helm-find-files' session in bookmarks. (defalias 'helm-ff-bookmark-set #[0 "\203r\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 (#$ . 37400) nil]) (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\ntarget directory 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) #@69 Try to return a suitable directory according to `helm-dwim-target'. (defalias 'helm-dwim-target-directory #[0 "r\305!\203 \206p\211q\210\306\307 !\310 \"\211G\311\312V\203e\n\313=\203e\314\315\316 \242\206/\f\fD\317\211:\203\\@\262\320!r\321\322\"\216\323@\324\"\210\f*\262B\262A\262\2025\211\237\266\203\"\"\202\231\312V\203\210\n\325=\203\210\320\325 !r\321\326\"\216\323@\324\"\210\f*\262\202\231\312U\204\223\n?\205\231 \242\206\231\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-closure #[0 "\301\300!\207" [V0 internal--after-with-selected-window] 2] select-window norecord next-window #[0 "\301\300!\207" [V0 internal--after-with-selected-window] 2]] 14 (#$ . 38611)]) #@14 (fn FILES) (defalias 'helm-ff--count-and-collect-dups #[257 "\300\301\302\"\303\211\211\211:\203L@\262\304!\203 \305!\306P\202#\305!\262\307\"\262\203;\310T#\210\202B\310\311#\210A\262\303\262\202 \303C\312\313\314\"\"\210\211\242\237\207" [make-hash-table :test equal nil file-directory-p helm-basename "/" gethash puthash 1 maphash make-closure #[514 "\211\301V\203\300\302\303#\300\242B\240\207\300\300\242B\240\207" [V0 1 format "%s(%s)"] 7 "\n\n(fn K V)"]] 12 (#$ . 39578)]) #@153 Generic function for creating actions from `helm-source-find-files'. ACTION can be `rsync' or any action supported by `helm-dired-action'. (fn ACTION) (defalias 'helm-find-files-do-action #[257 "\306\307!\210\211\310=\203\311\312!\204\313\314\315\316\211$\210\211\310=\205/\205/\317\320\321\322\323\312 B\324#\325#!A\326\327\330\331\332\"\"\333 \334\335\336\302!\203Y\n\203Y\310=\204Y\204Y\337\340!P\202_\341\340!!G\342>\203l\343\202m\344$\316\211\316\211@\332A\316B\345C!D\332EF\346=\203\221\347\202\223FF\316\211GH\316Crq\210\350\351!!\210)\352\353#\216\354\355\356\"\240!r\352\357\"\216\360@\361\"\210r\362I!\203\320I\206\324p\211Iq\210\363\364\nA?\205\362\365\366J\203\356\367\f!\202\360 !P\370\371 \372\373\316\374\316#&+\262-\266\203\375!\376!\204%\375!\204%\377\334\201K\"!\203%\201L\332\"\210\310=\2038\201M\n#\202M\201N\201O \201P \201Q &.\207" [helm-current-prefix-arg helm-rsync-switches dired-async-mode helm-ff--move-to-first-real-candidate helm-display-source-at-screen-top helm-ff-auto-update-initial-value require dired-async rsync executable-find #1="rsync" cl--assertion-failed (executable-find #1#) "No command named rsync" nil split-string read-string "Run rsync like this: " mapconcat identity " " helm-rsync-command-history mapcar expand-file-name helm-marked-candidates :with-wildcard t helm-get-selection format "%s %s file(s) %s: " fboundp "Async " symbol-name capitalize (symlink relsymlink hardlink) "from" "to" temp-buffer-window-setup same below helm-format-columns-of-files helm-ff--count-and-collect-dups make-closure #[0 "\302\303\301\242\"\210\300\205 \304\300!\207" [V0 V1 quit-window kill set-window-configuration] 3] internal--before-with-selected-window temp-buffer-window-show (display-buffer-below-selected (window-height . fit-window-to-buffer)) #[0 "\301\300!\207" [V0 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 helm-ff-skip-boring-files helm-actions-inherit-frame-settings helm-use-frame-when-more-than-two-windows helm-marked-buffer-name helm-last-frame-or-window-configuration 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 "Create directory `%s'? " make-directory helm-rsync-copy-files helm-dired-action :files :action :follow] 22 (#$ . 40104)]) #@13 (fn FILE) (defalias 'helm-rsync-remote2rsync #[257 "\300!\2032\301\302\300\303\"!!\300\304\"\305\306\307\300\310\"#\203)\311\312\313!$\207\311\314\313!#\207\313\301\302!!!\207" [file-remote-p directory-file-name expand-file-name localname user replace-regexp-in-string "#[0-9]+" "" host format "%s@%s:%s" shell-quote-argument "%s:%s"] 10 (#$ . 42749)]) #@13 (fn PROC) (defalias 'helm-rsync-format-mode-line-str #[257 "\302!\205\n\303\"\211\205)\211\304\232\204B B\305\306\307\303 \"\206%\304\310\311#\"\207" [helm-rsync-progress-str-alist helm-rsync--last-progress-bar-alist process-live-p assoc-default "" format " [%s]" propertize face helm-ff-rsync-progress] 8 (#$ . 43126)]) #@49 Add Rsync progress to the mode line. (fn PROC) (defalias 'helm-rsync-mode-line #[257 "\204\301\302\303DD\235?\205\304\302\303DDC\"\211\207" [global-mode-string ("") :eval helm-rsync-format-mode-line-str append] 6 (#$ . 43467)]) #@55 Restore the mode line when Rsync finishes. (fn PROC) (defalias 'helm-rsync-restore-mode-line #[257 "\302\303\304DD\"\305\306 \207" [global-mode-string helm-rsync--last-progress-bar-alist remove :eval helm-rsync-format-mode-line-str nil force-mode-line-update] 5 (#$ . 43713)]) #@184 Send FILES to DEST using Rsync with SWITCHES as arguments. DEST must be a directory. SWITCHES when unspecified default to `helm-rsync-switches'. (fn FILES DEST &optional SWITCHES) (defalias 'helm-rsync-copy-files #[770 "\303!\204\304\305\306C\306$\210\306\211:\203(@\262\307!B\262A\262\202\211\237\266\203\262\307!\262\310!\311\312\"\211\205B\313\314\"\262\205J\315\316!\317\320\321\322\323\324\325\n\206X  \205\232 \205\232 \306\326:\203\212@\262\327\306\326\313#)\266\203?\211\262\203\212A\262\202f\211\205\217\326\266\203\205\232\321\330 \"CC$\331#\"#\332!\210\333\334\335\336\337\340\341\342GFD\343BB\344BBB\"\210\345\346\"\207" [helm-rsync-process-buffer helm-rsync-switches inhibit-changing-match-data file-directory-p cl--assertion-failed (file-directory-p dest) nil helm-rsync-remote2rsync generate-new-buffer-name file-remote-p host string-match "#\\([0-9]+\\)" match-string 1 start-process-shell-command "rsync" format "rsync %s" mapconcat identity append t "\\`-e" "-e 'ssh -p %s'" " " helm-rsync-mode-line set-process-sentinel lambda (process event) cond (string= event "finished\n") message "%s copied %s files" (capitalize (process-name process)) ((t (error "Process %s %s with code %s" (process-name process) (process-status process) (process-exit-status process)))) ((setq helm-rsync-progress-str-alist (delete (assoc process helm-rsync-progress-str-alist) helm-rsync-progress-str-alist)) (helm-rsync-restore-mode-line process) (force-mode-line-update)) set-process-filter helm-rsync-process-filter] 24 (#$ . 44002)]) #@76 Filter process function used by `helm-rsync-copy-files'. (fn PROC OUTPUT) (defalias 'helm-rsync-process-filter #[514 "\305\306\211r\307!q\210\310 \"\203\311\312\313\314\"!\315P\"\210\316\317\305\"r\211q\210\320\321\"\216c\210\322\323\306\305#\203>\324\314\225d\"\262*\210\212\325!b\210c\210\325!`\306\223\210)\325!b\210\212\322\326\306\305#\203h\327\324`\330 \"!\262)\331\332\333\334\335\n#\336\305#\336#\337\340\341\342\343 !##\262\344 \"\211\203\227\211\241\266\202\242B B\211\266)\f?\205\252\345 )\207" [inhibit-read-only comint-password-prompt-regexp helm-rsync-percent-sign helm-rsync-progress-str-alist helm-rsync-no-mode-line-update t nil process-buffer string-match process-send-string read-passwd match-string 0 "\n" generate-new-buffer " *temp*" make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] re-search-backward "[[:cntrl:]]" buffer-substring-no-properties process-mark "^[^[:cntrl:]]" helm-basename point-at-eol mapconcat identity split-string replace-regexp-in-string "%" " " propertize help-echo format "%s->%s" process-name assoc force-mode-line-update] 13 (#$ . 45604)]) #@126 Kill rsync process PROCESS. When called interactively prompt user with completion when more than one process. (fn PROCESS) (defalias 'helm-ff-kill-rsync-process #[257 "r\301!q\210\302!\210\303 \210)\304\305\"\"\211\207" [helm-rsync-progress-str-alist process-buffer delete-process kill-buffer delete assoc] 5 (#$ . 46770) (byte-code "\301\302\303\304\305\"\306\307$!C\207" [helm-rsync-progress-str-alist get-process helm-comp-read "Kill rsync process: " mapcar #[257 "\300@!\207" [process-name] 3 "\n\n(fn X)"] :exec-when-only-one t] 6)]) #@53 Rsync files from `helm-find-files'. (fn CANDIDATE) (defalias 'helm-find-files-rsync #[257 "\300\301!\207" [helm-find-files-do-action rsync] 3 (#$ . 47325)]) #@52 Copy files from `helm-find-files'. (fn CANDIDATE) (defalias 'helm-find-files-copy #[257 "\300\301!\207" [helm-find-files-do-action copy] 3 (#$ . 47489)]) #@117 Backup files from `helm-find-files'. This reproduce the behavior of "cp --backup=numbered from to". (fn CANDIDATE) (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 (#$ . 47651)]) #@54 Rename files from `helm-find-files'. (fn CANDIDATE) (defalias 'helm-find-files-rename #[257 "\300\301!\207" [helm-find-files-do-action rename] 3 (#$ . 48089)]) #@55 Symlink files from `helm-find-files'. (fn CANDIDATE) (defalias 'helm-find-files-symlink #[257 "\300\301!\207" [helm-find-files-do-action symlink] 3 (#$ . 48256)]) #@58 Relsymlink files from `helm-find-files'. (fn CANDIDATE) (defalias 'helm-find-files-relsymlink #[257 "\300\301!\207" [helm-find-files-do-action relsymlink] 3 (#$ . 48426)]) #@56 Hardlink files from `helm-find-files'. (fn CANDIDATE) (defalias 'helm-find-files-hardlink #[257 "\300\301!\207" [helm-find-files-do-action hardlink] 3 (#$ . 48605)]) #@150 Keep current-buffer and open files in separate windows. When a prefix arg is detected files are opened in a vertical windows layout. (fn CANDIDATE) (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 (#$ . 48779)]) #@66 Byte compile elisp files from `helm-find-files'. (fn CANDIDATE) (defalias 'helm-find-files-byte-compile #[257 "\301\302\303\"\304:\2031@\262\3051\306\"0\210\202*\306!\210\205(\307!\266A\262\202\266\304\207" [helm-current-prefix-arg helm-marked-candidates :with-wildcard t nil (wrong-number-of-arguments) byte-compile-file load] 8 (#$ . 49109)]) #@58 Load elisp files from `helm-find-files'. (fn CANDIDATE) (defalias 'helm-find-files-load-files #[257 "\300\301\302\"\211\303:\203@\262\304!\210A\262\202\266\303\207" [helm-marked-candidates :with-wildcard t nil load] 6 (#$ . 49482)]) #@93 Generic function to ediff/merge files in `helm-find-files'. (fn CANDIDATE &optional MERGE) (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 (#$ . 49733)]) #@18 (fn CANDIDATE) (defalias 'helm-find-files-ediff-files #[257 "\300!\207" [helm-find-files-ediff-files-1] 3 (#$ . 50380)]) #@18 (fn CANDIDATE) (defalias 'helm-find-files-ediff-merge-files #[257 "\300\301\"\207" [helm-find-files-ediff-files-1 merge] 4 (#$ . 50510)]) #@70 Default action to grep files from `helm-find-files'. (fn CANDIDATE) (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 (#$ . 50657)]) #@73 Default action to git-grep `helm-ff-default-directory'. (fn CANDIDATE) (defalias 'helm-ff-git-grep #[257 "\302 \"\207" [helm-ff-default-directory helm-current-prefix-arg helm-grep-git-1] 4 (#$ . 50896)]) #@18 (fn CANDIDATE) (defalias 'helm-find-files-ag #[257 "\302 \"\207" [helm-ff-default-directory helm-current-prefix-arg helm-grep-ag] 4 (#$ . 51108)]) #@71 Default action to zgrep files from `helm-find-files'. (fn CANDIDATE) (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 (#$ . 51264)]) #@73 Default action to pdfgrep files from `helm-find-files'. (fn CANDIDATE) (defalias 'helm-ff-pdfgrep #[257 "\300\301\302\303\"\300\211\211\211:\203A@\262\304!\262\203\303\262\2042\305!\306\230\2042\305!\307\230\2037B\262A\262\300\262\202 \237\266\205\211\205M\310\"\207" [nil helm-marked-candidates :with-wildcard t file-directory-p file-name-extension "pdf" "PDF" helm-do-pdfgrep-1] 9 (#$ . 51498)]) #@73 Default action to jump to etags from `helm-find-files'. (fn CANDIDATE) (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 (#$ . 51930)]) (defvar eshell-command-aliases-list nil) (defvar helm-eshell-command-on-file-input-history nil) #@1026 Run `eshell-command' on CANDIDATE or marked candidates. This is done possibly with an Eshell alias. If no alias found, you can type in an Eshell command. Only aliases accepting a file as argument at the end of command line are collected, i.e. aliases ending with "$1" or "$*". Basename of CANDIDATE can be a wild-card. E.g. you can do "eshell-command command *.el" Where "*.el" is the CANDIDATE. It is possible to do eshell-command command like this: "command %s some more args". If MAP is given run `eshell-command' on all marked files at once, Otherwise, run `eshell-command' on each marked files. In other terms, with a prefix arg do on the three marked files "foo" "bar" "baz": "eshell-command command foo bar baz" otherwise do "eshell-command command foo" "eshell-command command bar" "eshell-command command baz" Note: You have to setup some aliases in Eshell with the `alias' command or by editing yourself the file `eshell-aliases-file' to make this working. (fn &optional MAP) (defalias 'helm-find-files-eshell-command-on-file-1 #[256 "\306\307!\210\310 \210\311\312\313\314#\210\204\315\316!\205\325\317\320\321\" \206 \n\322\321\322\323@!A\321BC\324=\203;\325\202=CC\322\211DE\322Crq\210\326\327\330\331\"!!\210)\332\333#\216\334\335\336\"\240!r\332\337\"\216\340@\341\"\210r\342F!\203}F\206\201p\211Fq\210\343\344\310 \322\211\211\211:\203\271@\262\211A\262\242\262@\262\345\346\"\203\262\211\347\350#C\244\262A\262\202\213\351\352\"\266\205\353\354\355\356\357\360\361\362\363\364&\f+\262-\266\203\365\"@\322G\366\232\204\344\367\232\203\352\370H\202\355\322H\203\367\371\232\204 G\372\232\204 \203:\345\373\"\203:A\203:\374\375\376#\345\377\"\203%\201J\"\262\2020\201J\201K#\262\201L!\262\202\322\201M\216\322\201N\322\211\211\211\211:\203\316@\262\345I\"?\205c\201O!\262\375\331!!\262\201P\201Q\201R\201S!!\201P\201T\201J\201U\f\"\321\211%\321\211%\262\345\377\"\203\246\201J\"\202\260\201J\201K#\262\206\267\n\201L!\210)A\262T\262\322\262\202H\266)\322,\266\204\207" [eshell-command-aliases-list helm-ff-default-directory default-directory helm-display-source-at-screen-top helm-actions-inherit-frame-settings helm-use-frame-when-more-than-two-windows require em-alias eshell-read-aliases-list advice-add eshell-eval-command :override helm--advice-eshell-eval-command y-or-n-p "No eshell aliases found, run eshell-command without alias anyway? " helm-marked-candidates :with-wildcard t nil temp-buffer-window-setup same below helm-format-columns-of-files helm-ff--count-and-collect-dups mapcar helm-basename make-closure #[0 "\302\303\301\242\"\210\300\205 \304\300!\207" [V0 V1 quit-window kill set-window-configuration] 3] internal--before-with-selected-window temp-buffer-window-show (display-buffer-below-selected (window-height . fit-window-to-buffer)) #[0 "\301\300!\207" [V0 internal--after-with-selected-window] 2] select-window norecord buffer-live-p helm-comp-read "Command: " string-match "[\"]?.*\\(\\$1\\|\\$\\*\\)[\"]?\\s-*&?\\'" 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 shell-quote-argument " " "%s" helm-marked-buffer-name helm-last-frame-or-window-configuration helm-always-two-windows helm-split-window-default-side helm-split-window-inside-p helm-reuse-last-window-split-state helm-current-buffer helm-current-prefix-arg current-prefix-arg helm--url-regexp format "%s %s" eshell-command #[0 "\300\301\302\"\207" [advice-remove eshell-eval-command helm--advice-eshell-eval-command] 3] 1 helm-basedir replace-regexp-in-string "\\\\@" regexp-quote file-name-sans-extension "\\\\#" "%03d"] 23 (#$ . 52451)]) #@76 Fix return value when command ends with "&". (fn COMMAND &optional INPUT) (defalias 'helm--advice-eshell-eval-command #[513 "\203\302A!\303\304\205\305\306PD\307\310\311DD\257C\241\207 \2033r\312\313!q\210\314 \210\315\316\261\210)\3172<\320 0\211@\211\203S\321!\204S\211\322=\204S\323\324\"\207\321!\203]\206^\211\207" [eshell-current-command eshell-debug-command last let ((here (and (eobp) (point)))) insert-and-inherit "\n" (if here (eshell-update-markers here)) eshell-do-eval quote get-buffer-create "*eshell last cmd*" erase-buffer "command: \"" "\"\n" eshell-incomplete eshell-resume-eval processp t error "Unmatched delimiter: %S"] 10 (#$ . 56474)]) #@135 Run `eshell-command' on CANDIDATE or marked candidates. See `helm-find-files-eshell-command-on-file-1' for more info. (fn CANDIDATE) (defalias 'helm-find-files-eshell-command-on-file #[257 "\301!\207" [helm-current-prefix-arg helm-find-files-eshell-command-on-file-1] 3 (#$ . 57167)]) #@30 (fn BUFFER &optional MODE) (defalias 'helm-ff--shell-interactive-buffer-p #[513 "rq\210\206\n\301=\2051\302\267\202 \303\202!\304\202!\305\202!\306\212eb\210\211\307!\210\310`e\")?\262)\207" [major-mode eshell-mode #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (shell-mode 20 eshell-mode 24 term-mode 28)) comint-next-prompt eshell-next-prompt term-next-prompt nil 1 eql] 6 (#$ . 57460)]) #@474 Switch to a shell buffer and cd to `helm-ff-default-directory'. Set your preferred shell mode in `helm-ff-preferred-shell-mode'. With a numeric prefix arg switch to numbered shell buffer, if no prefix arg provided and more than one shell buffer exists, provide completions on those buffers. If only one shell buffer exists, switch to this one, if no shell buffer exists or if the numeric prefix arg shell buffer doesn't exists, create it and switch to it. (fn CANDIDATE) (defalias 'helm-ff-switch-to-shell #[257 "\305\211\306\307\310\311\312 \"\305\211:\203'@\262\313\"\203 B\262A\262\202 \211\237\266\203 ?\205D\211A\203B\314\315\316\317$\202D\211@\211\203Q\320\321\"\266\202\223\322\267\210\202\223\323 !\266\202\223\324 \205h\325 !\211\205p\326\327\"\262!\266\202\223\330\331\332! \205\203\325 !\211\205\213\326\333\"\262\"\210\334 \266\f\335>\205\234\336p!\211\203\245\337\340\"\210\210\341\f!?\205\271\f\342=\203\267\202\270 *\207" [helm-ff-preferred-shell-mode term-char-mode-point-at-process-mark term-char-mode-buffer-read-only helm-current-prefix-arg major-mode nil #[0 "\301!\210\302 \207" [helm-ff-default-directory eshell/cd eshell-reset] 2] #[0 "db\210\302=\203\f\303 \210\304\305\306\307 \310\"\206 !\"c\210\311\267\202*\312 \207\313 \210\314 \207\315\207" [helm-ff-preferred-shell-mode helm-ff-default-directory shell-mode comint-delete-input format "cd %s" shell-quote-argument file-remote-p localname #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (shell-mode 33 term-mode 36)) comint-send-input term-char-mode term-send-input nil] 6] mapcar buffer-name buffer-list helm-ff--shell-interactive-buffer-p helm-comp-read "Switch to shell buffer: " :must-match t pop-to-buffer (display-buffer-same-window) #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (eshell-mode 88 shell-mode 96 term-mode 120)) eshell shell prefix-numeric-value format "*shell<%s>*" ansi-term getenv "SHELL" "*ansi-term<%s>*" term-line-mode (shell-mode term-mode) get-buffer-process accept-process-output 0.1 helm-ff-shell-alive-p eshell-mode] 13 (#$ . 57908)]) #@82 Returns non nil when a process is running inside `shell-mode' buffer. (fn MODE) (defalias 'helm-ff-shell-alive-p #[257 "\211\301\267\202+\212\302 \210?\206\303`\304A!\"?)\207\305p!\207\212\306 b\210\307\310`\311Z\")?\207\312\313\314#\2054\315\207" [comint-last-prompt #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (shell-mode 6 eshell-mode 25 term-mode 29)) comint-goto-process-mark eql marker-position get-buffer-process term-process-mark looking-back "\\$ " 2 error "cl-ecase failed: %s, %s" (shell-mode eshell-mode term-mode) nil] 5 (#$ . 60092)]) #@61 The touch files action for helm-find-files. (fn CANDIDATE) (defalias 'helm-ff-touch-files #[257 "\303 \211\304\211\211\211:\203]@\262?\205\305!\306\307\"B\262\203N\310@A\304\211:\203B@\262\311\"B\262A\262\202*\211\237\266\204!\244\262\202SB\262A\262\304\262\202\237\266\205\312\313\304\211\211\211\211:\203\240@\262\314!\262\205\202\315\316\3178\"\262\203\226\320\321\322!#BB\262A\262\304\262\202i\237\266\206\323\315\316\324 \"$ \304\211\211\211:\203\345@\262\325\326\"\206\303\262\327\330\304\211\211\331  &\332V\203\333B\262A\262\304\262\202\262\237)\266\205\211\205\370\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)"] ""] 17 (#$ . 60696)]) #@60 Used to interactively run touch file action from keyboard. (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 (#$ . 61880) nil]) (put 'helm-ff-run-touch-files 'helm-only t) (defalias 'helm-ff-sort-by-size #[0 "\302=\204\302\303\304\305 \"!\210\306\307!\207" [helm-ff-initial-sort-method helm-ff-transformer-show-only-basename size helm-force-update helm-get-selection nil message "Sorting by size"] 4 nil nil]) (put 'helm-ff-sort-by-size 'helm-only t) (defalias 'helm-ff-sort-by-newest #[0 "\302=\204\302\303\304\305 \"!\210\306\307!\207" [helm-ff-initial-sort-method helm-ff-transformer-show-only-basename newest helm-force-update helm-get-selection nil message "Sorting by newest"] 4 nil nil]) (put 'helm-ff-sort-by-newest 'helm-only t) (defalias 'helm-ff-sort-alpha #[0 "\302=\204\302\303\304\302 \"!\210\305\306!\207" [helm-ff-initial-sort-method helm-ff-transformer-show-only-basename nil helm-force-update helm-get-selection message "Sorting alphabetically"] 4 nil nil]) (put 'helm-ff-sort-alpha 'helm-only t) #@26 (fn CANDIDATES SOURCE) (defalias 'helm-ff-directories-only #[514 "\2030\301\211\211:\203-@\262\211A\262\242\262\302!\203&BB\262A\262\202\211\237\207\207" [helm-ff--show-directories-only nil file-directory-p] 8 (#$ . 63052)]) #@26 (fn CANDIDATES SOURCE) (defalias 'helm-ff-files-only #[514 "\2030\301\211\211:\203-@\262\211A\262\242\262\302!\204&BB\262A\262\202\211\237\207\207" [helm-ff--show-files-only nil file-directory-p] 8 (#$ . 63306)]) #@43 Show only directories in helm-find-files. (defalias 'helm-ff-toggle-dirs-only #[0 "\203 ?\303\304\305\303\306\"!\207\307\310!\207" [helm-alive-p helm-ff--show-directories-only helm-ff--show-files-only nil helm-update helm-get-selection t error "Running helm command outside of context"] 4 (#$ . 63548) nil]) (put 'helm-ff-toggle-dirs-only 'helm-only t) #@37 Show only files in helm-find-files. (defalias 'helm-ff-toggle-files-only #[0 "\203 ?\303\304\305\303\306\"!\207\307\310!\207" [helm-alive-p helm-ff--show-files-only helm-ff--show-directories-only nil helm-update helm-get-selection t error "Running helm command outside of context"] 4 (#$ . 63912) nil]) (put 'helm-ff-toggle-files-only 'helm-only t) (defalias 'helm-ff-after-persistent-show-all #[0 "\205 \303\211\211\207" [helm-ff-reset-filters-on-update helm-ff--show-directories-only helm-ff--show-files-only nil] 3]) #@113 Rename all marked files in `helm-ff-default-directory' with METHOD. See `helm-ff-serial-rename-1'. (fn METHOD) (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 \334=\203A\335\202B \332\21123\332Crq\210\336\337 !!\210)\340\341#\216\342\343\344\"\240!r\340\345\"\216\346@\347\"\210\350\351\352 G \351\353\316@!%$!\203\244\354\f   \355&\210\306\262\356\332!\210*\210-\266\211\203\307r\3574!\203\2724\206\276p\2114q\210\360!)\202\312\356\361!)\207" [helm--reading-passwd-or-string helm-ff-default-directory helm-marked-buffer-name helm-last-frame-or-window-configuration helm-always-two-windows helm-split-window-default-side 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-closure #[0 "\302\303\301\242\"\210\300\205 \304\300!\207" [V0 V1 quit-window kill set-window-configuration] 3] internal--before-with-selected-window temp-buffer-window-show (display-buffer-below-selected (window-height . fit-window-to-buffer)) #[0 "\301\300!\207" [V0 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-split-window-inside-p helm-reuse-last-window-split-state helm-current-buffer] 24 (#$ . 64448)]) #@23 (fn FILE DIRECTORY) (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 (#$ . 66280)]) #@490 Rename files in COLLECTION to DIRECTORY with the prefix name NEW-NAME. Rename start at number START-AT-NUM - ex: prefixname-01.jpg. EXTENSION is the file extension to use. In empty prompt, reuse the original extension of file. METHOD can be one of rename, copy or symlink. Files will be renamed if they are files of current directory, otherwise they will be treated with METHOD. Default METHOD is rename. (fn DIRECTORY COLLECTION NEW-NAME START-AT-NUM EXTENSION &key (METHOD \='rename)) (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\"\216\306\306\211\211:\203\316@\262\327W\203\203\330\202\204\331\262 \332\" \333\230\204\242\332\334\335\336\333#\"\202\247\337\340\"R\262\341\"\203\272\322\"\210\202\300\"\210A\262T\262\306\262\202p\266\342\343#\211\306:\203@\262\344!\203\367\321\345!\313!\346!P\"\210\202\375\322 \"\210A\262\202\327\266)\266\306\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 eq 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-closure #[0 "\301\300\302\"\207" [V0 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] 24 (#$ . 66472)]) #@199 Serial rename all marked files to `helm-ff-default-directory'. Rename only file of current directory, and symlink files coming from other directories. See `helm-ff-serial-rename-1'. (fn CANDIDATE) (defalias 'helm-ff-serial-rename #[257 "\300\301!\207" [helm-ff-serial-rename-action rename] 3 (#$ . 68346)]) #@199 Serial rename all marked files to `helm-ff-default-directory'. Rename only file of current directory, and symlink files coming from other directories. See `helm-ff-serial-rename-1'. (fn CANDIDATE) (defalias 'helm-ff-serial-rename-by-symlink #[257 "\300\301!\207" [helm-ff-serial-rename-action symlink] 3 (#$ . 68661)]) #@196 Serial rename all marked files to `helm-ff-default-directory'. Rename only file of current directory, and copy files coming from other directories. See `helm-ff-serial-rename-1'. (fn CANDIDATE) (defalias 'helm-ff-serial-rename-by-copying #[257 "\300\301!\207" [helm-ff-serial-rename-action copy] 3 (#$ . 68988)]) (defvar helm-ff-query-replace-fnames-history-from nil) (defvar helm-ff-query-replace-fnames-history-to nil) #@122 Query replace on filenames of CANDIDATES. This doesn't replace inside the files, only modify filenames. (fn CANDIDATES) (defalias 'helm-ff-query-replace-on-filenames #[257 "\306! \307 \310=\203\311\202 \312\211\312Crq\210\313\314\315\"!\210)\316\317#\216\320\321\322\"\240!r\316\323\"\216\324@\325\"\210\326\327\312\330\315 @!$\326\331\332\"\312\333#\312\3342j\335\336\312\n\312\211\211:\203^@\262\337!\340\341 \316\342\"\216\f\343\230\203\211\344\262 \345\315\307\"\211\262\n!\202\341\f\346\230\203\237\344\262 \345\347!\211\262\n!\202\341\f\350\230\203\262\351\315!\211\262\n!\202\341\352\353\"\203\337\344\262 \354\344\"\354\355\"\315!\211\356!\356!O\262 \345#\266\203\202\341\f)\262\341 \316\357\"\216\352\360\"\203 \361\354\344\"\354\362\"\331\363T\"P #\202\332\364 \312\307@\352#)\266\203\2039\352\365\"\2039\361\364\331\363 T\"\366\f\307\211$#\202\332\352\364\"\203P\366\331\363\fT\"\307\211$\202\332\352\367\"\203\204\366 \356\354\344\"!\354\355\"\211\370\230\203s\fG\202y\211\356!\262\262O\307\211$\202\332\352\371\"\203\244\366\361\354\344\"\354\355\"\f\307$\307\211$\202\332\352\365\"\203\267\366 \307\211$\202\332\f\372\230\203\302\373\202\332\f\374\230\203\315\375\202\332\f\376\230\203\330\377\202\332\f)\262\315!\307\312&P\262\230\204T\201A!\203 \201B!\331\201C\"\347\307\"Q\262\201D\230\204*\201E\331\201F\315!\315!#\201G\"\262\201H\230\203@\201I\334\201J\201K!\"\210\201L\230\204T\201M\"\210T\262A\262\312\262\202^\201J\201N\"\266\2070\266*\210-\266\201O\201P!\210r\201Q\201R !q\210\201S )\207" [helm-marked-buffer-name helm-last-frame-or-window-configuration helm-always-two-windows helm-split-window-default-side helm-split-window-inside-p helm-reuse-last-window-split-state temp-buffer-window-setup t same below nil helm-format-columns-of-files mapcar helm-basename make-closure #[0 "\302\303\301\242\"\210\300\205 \304\300!\207" [V0 V1 quit-window kill set-window-configuration] 3] internal--before-with-selected-window temp-buffer-window-show (display-buffer-below-selected (window-height . fit-window-to-buffer)) #[0 "\301\300!\207" [V0 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" 0 helm-basedir helm--replace-regexp-in-buffer-string match-data #[0 "\301\300\302\"\207" [V0 set-match-data evaporate] 3] "%." 1 helm-ff--prepare-str-with-regexp ".%" file-name-extension "%" regexp-quote string-match "%:\\([0-9]+\\):\\([0-9]+\\)" match-string 2 string-to-number #[0 "\301\300\302\"\207" [V0 set-match-data evaporate] 3] "\\\\@/\\(.*\\)/\\(\\(?99:.*\\)\\\\#\\)/" replace-regexp-in-string 99 "%03d" "\\\\#" "\\\\@" replace-match "\\\\@:\\([0-9]*\\):\\([0-9]*\\)" "" "\\\\@/\\(.*\\)/\\(.*\\)/" "%u" upcase "%d" downcase "%c" capitalize inhibit-changing-match-data 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] 28 (#$ . 69417)]) #@32 (fn STR &optional REP1 REP2) (defalias 'helm-ff--prepare-str-with-regexp #[769 "\203\n\300!\206 \301\203\300!\206G\302\303O!\304Q\301U?\205/\303\301O!GU?\205A\303 GO!Q\207" [string-to-number 0 "\\(" regexp-quote "\\)"] 11 (#$ . 72780)]) #@18 (fn CANDIDATE) (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 (#$ . 73056)]) (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]) (put 'helm-ff-run-query-replace-fnames-on-marked 'helm-only t) #@18 (fn CANDIDATE) (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 (#$ . 73556)]) #@18 (fn CANDIDATE) (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 (#$ . 73842)]) (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]) (put 'helm-ff-run-query-replace 'helm-only t) (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]) (put 'helm-ff-run-query-replace-regexp 'helm-only t) #@18 (fn CANDIDATE) (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 (#$ . 74661)]) (defalias 'helm-ff-run-toggle-auto-update #[0 "\203 \301\302\303\"\210\304\302!\207\305\306!\207" [helm-alive-p helm-set-attr toggle-auto-update (helm-ff-toggle-auto-update . never-split) helm-execute-persistent-action error "Running helm command outside of context"] 3 nil nil]) (put 'helm-ff-run-toggle-auto-update 'helm-only t) #@350 Go up one level or disable HFF auto update and delete char backward. Going up one level works only when pattern is a directory endings with "/", otherwise this command deletes char backward. Going up one level can be disabled if necessary by deleting "/" at end of pattern using \\[backward-char] and \[helm-delete-minibuffer-contents]. (defalias 'helm-ff-delete-char-backward #[0 "\203* \203\305\306\n\"\203\307\n!\203\310\311!\207\312\313\310\314\315 \316\317!\"!\210\320 \207\321\322!\207" [helm-alive-p helm-ff-DEL-up-one-level-maybe helm-pattern helm-ff-auto-update-flag helm-ff--deleting-char-backward string-match "/\\'" file-directory-p call-interactively helm-find-files-up-one-level nil t lookup-key current-global-map read-kbd-macro "DEL" helm--update-header-line error "Running helm command outside of context"] 5 (#$ . 75365) nil]) (put 'helm-ff-delete-char-backward 'helm-only t) (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]) (defvar helm-ff--RET-disabled nil) #@208 Used for RET action in `helm-find-files'. See `helm-ff-RET' for details. If MUST-MATCH is specified exit with `helm-confirm-and-exit-minibuffer' which handle must-match mechanism. (fn &optional MUST-MATCH) (defalias 'helm-ff-RET-1 #[256 "\305 \306\211\204\307\310\311\306\211$\210\312!\204\313!\203N \204N\n\204N\314!\203A\315!\316\230\203A\317 \306\320\321#)\266\203\204I\315!\316\230\204N\322 \202Y\203W\323 \202Y\324 )\207" [non-essential current-prefix-arg helm-ff--RET-disabled helm-pattern inhibit-changing-match-data helm-get-selection nil cl--assertion-failed sel "Trying to exit with no candidates" file-directory-p helm-ff--invalid-tramp-name-p file-remote-p helm-basename "." "\\`[/].*:.*:\\'" t string-match helm-execute-persistent-action helm-confirm-and-exit-minibuffer helm-maybe-exit-minibuffer] 9 (#$ . 76488)]) #@233 Default action for RET in `helm-find-files'. Behave differently depending on `helm-selection': - candidate basename is "." => open it in dired. - candidate is a directory => expand it. - candidate is a file => open it. (defalias 'helm-ff-RET #[0 "\300 \207" [helm-ff-RET-1] 1 (#$ . 77350) nil]) (put 'helm-ff-RET 'helm-only t) #@70 Used for TAB action in `helm-find-files'. (fn &optional FORCE-MENU) (defalias 'helm-ff-TAB-1 #[256 "\300 \204\301!\203\302!\303\230\204\304 \207\305 \207" [helm-get-selection file-directory-p helm-basename "." helm-execute-persistent-action helm-select-action] 4 (#$ . 77696)]) #@309 Default action for TAB in `helm-find-files'. Behave differently depending on `helm-selection': - candidate basename is "." => open the action menu. - candidate is a directory => expand it. - candidate is a file => open action menu. Called with a prefix arg open menu unconditionally. (fn ARG) (defalias 'helm-ff-TAB #[257 "\300!\207" [helm-ff-TAB-1] 3 (#$ . 77991) "P"]) (put 'helm-ff-TAB 'helm-only t) #@51 Same as `helm-ff-RET' but used in must-match map. (defalias 'helm-ff-RET-must-match #[0 "\300\301!\207" [helm-ff-RET-1 t] 2 (#$ . 78416) nil]) #@48 Run Grep action from `helm-source-find-files'. (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 (#$ . 78565) nil]) (put 'helm-ff-run-grep 'helm-only t) #@52 Run git-grep action from `helm-source-find-files'. (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 (#$ . 78857) nil]) (put 'helm-ff-run-git-grep 'helm-only t) (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]) (put 'helm-ff-run-grep-ag 'helm-only t) #@51 Run Pdfgrep action from `helm-source-find-files'. (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 (#$ . 79391) nil]) (put 'helm-ff-run-pdfgrep 'helm-only t) #@48 Run Grep action from `helm-source-find-files'. (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 (#$ . 79687) nil]) (put 'helm-ff-run-zgrep 'helm-only t) #@53 Run Copy file action from `helm-source-find-files'. (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 (#$ . 79974) nil]) (put 'helm-ff-run-copy-file 'helm-only t) #@54 Run Rsync file action from `helm-source-find-files'. (defalias 'helm-ff-run-rsync-file #[0 "\203\301\302!\207\303\304!\207" [helm-alive-p helm-exit-and-execute-action helm-find-files-rsync error "Running helm command outside of context"] 2 (#$ . 80281) nil]) (put 'helm-ff-run-rsync-file 'helm-only t) #@55 Run Rename file action from `helm-source-find-files'. (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 (#$ . 80592) nil]) (put 'helm-ff-run-rename-file 'helm-only t) #@61 Run Byte compile file action from `helm-source-find-files'. (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 (#$ . 80907) nil]) (put 'helm-ff-run-byte-compile-file 'helm-only t) #@53 Run Load file action from `helm-source-find-files'. (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 (#$ . 81246) nil]) (put 'helm-ff-run-load-file 'helm-only t) #@66 Run eshell command on file action from `helm-source-find-files'. (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 (#$ . 81559) nil]) (put 'helm-ff-run-eshell-command-on-file 'helm-only t) #@54 Run Ediff file action from `helm-source-find-files'. (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 (#$ . 81923) nil]) (put 'helm-ff-run-ediff-file 'helm-only t) #@60 Run Ediff merge file action from `helm-source-find-files'. (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 (#$ . 82240) nil]) (put 'helm-ff-run-ediff-merge-file 'helm-only t) #@56 Run Symlink file action from `helm-source-find-files'. (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 (#$ . 82581) nil]) (put 'helm-ff-run-symlink-file 'helm-only t) #@56 Run Symlink file action from `helm-source-find-files'. (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 (#$ . 82900) nil]) (put 'helm-ff-run-relsymlink-file 'helm-only t) #@57 Run Hardlink file action from `helm-source-find-files'. (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 (#$ . 83228) nil]) (put 'helm-ff-run-hardlink-file 'helm-only t) #@46 Delete files default action. (fn CANDIDATE) (defalias 'helm-ff-delete-files #[257 "!\207" [helm-ff-delete-files-function] 3 (#$ . 83551)]) #@55 Run Delete file action from `helm-source-find-files'. (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 (#$ . 83699) nil]) (put 'helm-ff-run-delete-file 'helm-only t) #@62 Run complete file name action from `helm-source-find-files'. (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 (#$ . 84012) nil]) (put 'helm-ff-run-complete-fn-at-point 'helm-only t) #@60 Run switch to eshell action from `helm-source-find-files'. (defalias 'helm-ff-run-switch-to-shell #[0 "\203\301\302!\207\303\304!\207" [helm-alive-p helm-exit-and-execute-action helm-ff-switch-to-shell error "Running helm command outside of context"] 2 (#$ . 84371) nil]) (put 'helm-ff-run-switch-to-shell 'helm-only t) #@123 Run switch to other window action from `helm-source-find-files'. When a prefix arg is provided, split is done vertically. (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 (#$ . 84701) nil]) (put 'helm-ff-run-switch-other-window 'helm-only t) #@65 Run switch to other frame action from `helm-source-find-files'. (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 (#$ . 85106) nil]) (put 'helm-ff-run-switch-other-frame 'helm-only t) #@72 Run open file externally command action from `helm-source-find-files'. (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 (#$ . 85444) nil]) (put 'helm-ff-run-open-file-externally 'helm-only t) #@72 Run open file externally command action from `helm-source-find-files'. (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 (#$ . 85797) nil]) (put 'helm-ff-run-open-file-with-default-tool 'helm-only t) #@63 Locate action function for `helm-find-files'. (fn CANDIDATE) (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 (#$ . 86171)]) #@50 Run locate action from `helm-source-find-files'. (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 (#$ . 86601) nil]) (put 'helm-ff-run-locate 'helm-only t) #@18 (fn CANDIDATE) (defalias 'helm-files-insert-as-org-link #[257 "\300\301\"c\210`\302Zb\207" [format "[[%s][]]" 2] 4 (#$ . 86893)]) (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]) (put 'helm-ff-run-insert-org-link 'helm-only t) (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]) (put 'helm-ff-run-find-file-as-root 'helm-only t) (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]) (put 'helm-ff-run-find-alternate-file 'helm-only t) #@69 Run mail attach files command action from `helm-source-find-files'. (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 (#$ . 87810) nil]) (put 'helm-ff-run-mail-attach-files 'helm-only t) #@57 Run Etags command action from `helm-source-find-files'. (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 (#$ . 88154) nil]) (put 'helm-ff-run-etags 'helm-only t) #@381 Print marked files. You may to set in order variables `lpr-command',`lpr-switches' and/or `printer-name', but with no settings Helm should detect your printer(s) and print with the default `lpr' settings. NOTE: DO NOT set the "-P" flag in `lpr-switches'. If you really have to modify this, do it in `lpr-printer-switch'. Same as `dired-do-print' but for Helm. (fn CANDIDATE) (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 (#$ . 88458)]) #@54 Run Print file action from `helm-source-find-files'. (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 (#$ . 89669) nil]) (put 'helm-ff-run-print-file 'helm-only t) #@329 Calculate the checksum of FILE. The checksum is copied to `kill-ring'. Checksum is calculated with the md5sum, sha1sum, sha224sum, sha256sum, sha384sum and sha512sum when available, otherwise the Emacs function `secure-hash' is used but it is slow and may crash Emacs and even the whole system as it eats all memory. (fn FILE) (defalias 'helm-ff-checksum #[257 "\300!\204\301\302\303\304C$\210\305\306\307\310\"!\311!\312P\313!\304\314\315#\210\316!\203L\317\320\304\321\n%\211\262\322\"\210\323\324\325\326\327\314\330\311\f!\nFEE\"\207\331\332\333#\332\334#\"\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) symbol-name "sum" helm-basename message "Calculating %s checksum for %s..." executable-find set-process-filter start-file-process "-b" #[514 "\211\205\300!\207" [kill-new] 4 "\n\n(fn PROCESS OUTPUT)"] set-process-sentinel lambda (_process event) when (string= event "finished\n") "Calculating %s checksum for `%s' done and copied to kill-ring" async-start make-closure #[0 "\302\303\304\"r\211q\210\305\306\"\216\307\300!\210\310\301p\"*\207" [V0 V1 generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] insert-file-contents-literally secure-hash] 4] #[257 "\302!\210\303\304\300\301#\207" [V0 V1 kill-new message "Calculating %s checksum for `%s' done and copied to kill-ring"] 5 "\n\n(fn SUM)"]] 15 (#$ . 89973)]) #@18 (fn CANDIDATE) (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 (#$ . 91519)]) (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]) (put 'helm-ff-run-toggle-basename 'helm-only t) #@20 (fn FNAME LEVEL) (defalias 'helm-reduce-file-name-1 #[514 "\300\301\302!!\211S\211\262\303Y\203\304!\262\202\206 \302\305!\207" [nil helm-iter-reduce-fname expand-file-name 0 helm-iter-next "/"] 7 (#$ . 92076)]) #@20 (fn FNAME LEVEL) (defalias 'helm-reduce-file-name-2 #[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 (#$ . 92307)]) #@58 Reduce FNAME by number LEVEL from end. (fn FNAME LEVEL) (defalias 'helm-reduce-file-name #[514 "\300\301\"\211\205 \211\302\230\262\203\303\"\207\304\"\207" [file-remote-p method "ftp" helm-reduce-file-name-1 helm-reduce-file-name-2] 5 (#$ . 92546)]) #@60 Yield FNAME reduced by one level at each call. (fn FNAME) (defalias 'helm-iter-reduce-fname #[257 "\300\301\302#C\211\242\203\303\304\242@\"\204\211\301\242B\240\210\305\306\"\207" [split-string "/" t string-match "\\`\\(~\\|[[:alpha:]]:\\)" make-closure #[0 "\300\242\2056\300\242A\2056\300\301\300\242!\240\302\303:\2034@\262\211\304\230\203'\202*\304PP\262A\262\202\266\202\207" [V0 butlast nil "" "/"] 6]] 5 (#$ . 92813)]) (defvar helm-find-files--level-tree nil) (defvar helm-find-files--level-tree-iterator nil) #@102 Go up one level like unix command `cd ..'. If prefix numeric arg is given go ARG level up. (fn ARG) (defalias 'helm-find-files-up-one-level #[257 "\203\243\306 \210\307 \310!\205\242\311 ?\205\242\312\313 !r\314\315\"\216\316@\317\"\210\320 \2032\321\322!\210\323\324!\210*\210\325\324\211#\326 \"\327\330\n\203M\331 \f#\f]\202N\f\"\210\332 !\203\\ $\202u\333 !\203h $\202u\203u\333!\203u$%\204\200 %B%\324&\211%B%\334'\"\210\335\336\337\"\210\336\340B(B(\341\340\336\"\266\202\207\342\343!\207" [helm-alive-p helm-pattern helm-ff-up-one-level-preselect helm-ff--directory-files-length helm-ff-candidate-number-limit helm-ff-default-directory helm-ff-after-persistent-show-all helm-get-current-source helm-file-completion-source-p helm-ff--invalid-tramp-name-p internal--before-with-selected-window helm-window make-closure #[0 "\301\300!\207" [V0 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-set-attr candidate-number-limit gethash file-directory-p file-exists-p helm-set-pattern defalias #1=#:helm--hook80 #[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 (#$ . 93363) "p"]) (put 'helm-find-files-up-one-level 'helm-only t) #@62 Retrieve previous paths reached by `C-l' in helm-find-files. (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 (#$ . 94966) nil]) (put 'helm-find-files-down-last-level 'helm-only t) (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]) (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) #@145 Move overlay to last visited directory `helm-ff-last-expanded'. This happen after using `helm-find-files-up-one-level', or hitting C-j on "..". (defalias 'helm-ff-retrieve-last-expanded #[0 "\205= \203\302\303!!\202\303!\304\305 !r\306\307\"\216\310@\311\"\210\312\313\314!\315Q\316\317#\2036\320y\210\321 \210*\210\316\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-closure #[0 "\301\300!\207" [V0 internal--after-with-selected-window] 2] select-window norecord re-search-forward "^" regexp-quote "$" nil t 0 helm-mark-current-line] 6 (#$ . 95841)]) #@73 When candidate is an incomplete file name move to first real candidate. (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 (#$ . 96529)]) #@99 Undo minibuffer in `helm-find-files'. Ensure disabling `helm-ff-auto-update-flag' before undoing. (defalias 'helm-ff-undo #[0 "\302\211\303\304\"\216\305 \210\306 )\207" [helm-ff-auto-update-flag helm-ff--auto-update-state nil make-closure #[0 "\300\211\211\207" [V0 helm-ff-auto-update-flag helm-ff--auto-update-state] 3] undo helm-check-minibuffer-input] 5 (#$ . 97205) nil]) #@230 Expand to directory when sole completion. When only one candidate is remaining and it is a directory, expand to this directory. This happen only when `helm-ff-auto-update-flag' is non-nil or when `helm-pattern' is equal to "~/". (defalias 'helm-ff-update-when-only-one-matched #[0 "\306 \307!\205\351\310\311\"?\205\351\312 ?\205\351\313\314 !\315\316\317#)\266\203?\205\351r\320 q\210\321\322\"\323\230\324 !\325\326\327!!! \230\330 \211\331X\205O\332\314 !!\331Y\204d\333!\204d\204d\211\203d\334 \210\335\315\211#\f\203\200 \204\200\317\336 \"\204\200+\337=\203\234 \340\230\204\234\341U\205\346,\205\346\342!\205\346 ?\205\346\204\244\205\346?\205\346\211;\205\346\342!\205\346\343!\204\316\331X\203\316\344\325\345!!!\210\346 \210\202\335\317\347 \"\204\335\344\326\325 !!!\210\350-\315\351#\210\352 \266\206)\207" [helm-action-buffer helm-pattern inhibit-changing-match-data helm-ff-default-directory helm-ff-auto-update-flag helm-ff--deleting-char-backward 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-set-pattern 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 substring-no-properties helm-ff-after-persistent-show-all "\\`.*[.]\\{1\\}\\'" run-at-time undo-boundary helm-check-minibuffer-input last-command helm-ff--auto-update-state helm-input-idle-delay] 11 (#$ . 97596)]) #@384 Allow expanding to $HOME or "/" or text yanked after pattern. Argument PATTERN default to `helm-pattern' and should _not_ be used for other purpose than debugging the second cond clause of this function. When PATTERN is specified, specific helm functions are not called to avoid errors when called outside helm for debugging purpose. (fn &optional (PATTERN helm-pattern SPATTERN)) (defalias 'helm-ff-auto-expand-to-home-or-root #[128 "\211\205\306\203\211A\262\242\202\203 \307\310\311GTD\"\210\204=\312 \205r\313\314 !q\210l)\205\315 \"?\205\316!\204v\317!\204v\320\321!\322\306\315#)\266\203\203v\323\322\306\315#)\266\203\203v\204v\324!\210\325 \207\315\326\"\203\363\327\330\"\211\331\230\203\215\332 !\202\301\333\230\203\227\334\202\301\335\322\306\315#)\266\203\203\276\336!\337!\203\264\211\202\271\340\323\341#\262\202\301\342!\337!\203\344\343\322\306\315#)\266\203\204\344\344!\211\262\345 \210\202\352\344\346!!\203\357\207\325!\207\315\347\"\205?\205\325\350 \306\211\351%!\207" [helm-pattern helm-ff-url-regexp inhibit-changing-match-data default-directory helm-ff-default-directory tramp-default-method t signal wrong-number-of-arguments helm-ff-auto-expand-to-home-or-root helm-file-completion-source-p window-buffer minibuffer-window string-match file-remote-p file-exists-p "\\`\\([.]\\)\\{2\\}[^/]+" helm-basename nil "/\\'" helm-ff-recursive-dirs helm-ff--maybe-set-pattern-and-update "\\(?:\\`~/\\)\\|/?\\$.*/\\|/\\./\\|/\\.\\./\\|/~.*/\\|//\\|\\(/[[:alpha:]]:/\\)" match-string 0 "/./" expand-file-name "/../" "/" "\\`/\\$" substitute-in-file-name file-directory-p replace-regexp-in-string "" helm-ff--expand-substitued-pattern "[^.]\\.\\'" file-name-as-directory helm-ff-after-persistent-show-all file-name-directory "\\`/\\(-\\):.*" replace-match 1] 12 (#$ . 99351)]) #@22 (fn &optional STR) (defalias 'helm-ff--maybe-set-pattern-and-update #[256 "\300\301 !r\302\303\"\216\304@\305\"\210\203\306!\210\307 *\207" [internal--before-with-selected-window helm-window make-closure #[0 "\301\300!\207" [V0 internal--after-with-selected-window] 2] select-window norecord helm-set-pattern helm-check-minibuffer-input] 5 (#$ . 101238)]) #@82 Prevent expanding "/home/user/." to "/home/user". (fn NAME &optional DIRECTORY) (defalias 'helm-ff--expand-file-name-no-dot #[513 "\300\"\301\302\"\205\f\303P\207" [expand-file-name string-match "[^.]\\.\\'" "/."] 6 (#$ . 101608)]) #@16 (fn PATTERN) (defalias 'helm-ff--expand-substitued-pattern #[257 "\302>\205 \303\304!\305!\203\306\202\307\211\310\311\312\313#)\266\203\203*\202+\"\207" [system-type inhibit-changing-match-data (windows-nt ms-dos) getenv "SystemDrive" helm-substitute-in-filename expand-file-name helm-ff--expand-file-name-no-dot "\\`~[^/]" nil t string-match] 12 (#$ . 101851)]) #@299 Substitute all parts of FNAME from start up to "~/" or "/". On windows system substitute from start up to "/[[:lower:]]:/". This function is needed for `helm-ff-auto-expand-to-home-or-root' and should be used carefully elsewhere, or not at all, using `substitute-in-file-name' instead. (fn FNAME) (defalias 'helm-substitute-in-filename #[257 "\203\304\305\306#)\266\203\203\207\307!\203/\n\203/\310!\311!\203)\207\312\313\314#\207\315\316\305\"r\211q\210\317\320\"\216c\210eb\210 \321>\203L\322\304w\210\323\324\304\305#\203\201\325\326!\211\327\230\204m\330\304\305\306#)\266\203\203s\326\224T\202u\326\224b\210\331`\332 \"\262\202\202*\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-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] (windows-nt ms-dos) "/" re-search-forward "~.*/?\\|//\\|/[[:alpha:]]:/" match-string 0 "//" "/[[:alpha:]]:/" buffer-substring-no-properties point-at-eol] 10 (#$ . 102242)]) #@56 Put point on filename FILE in dired buffer. (fn FILE) (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 (#$ . 103418)]) #@116 Open a dired buffer with only marked files. With a prefix arg toggle dired buffer to wdired mode. (fn CANDIDATE) (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 (#$ . 103779)]) #@53 Execute `helm-marked-files-in-dired' interactively. (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 (#$ . 104549) nil]) (put 'helm-ff-run-marked-files-in-dired 'helm-only t) #@71 Build filename from `helm-pattern' like /su:: or /sudo::. (fn FNAME) (defalias 'helm-ff--create-tramp-name #[257 "\300\301\302\303!!\211\304\305\211T\211\262\203'GW\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 (#$ . 104887)]) #@57 Return VECTOR-OR-CONS as a vector. (fn VECTOR-OR-CONS) (defalias 'helm-ff--tramp-cons-or-vector #[257 "\211:\203\211\242\243\300\301!\207\302!\205\211\211\262\207" [nil vconcat vectorp] 7 (#$ . 105231)]) #@46 Return a list of the car of `tramp-methods'. (defalias 'helm-ff--get-tramp-methods #[0 "\206\n\302\303 \"\211\207" [helm-ff--tramp-methods tramp-methods mapcar car] 3 (#$ . 105451)]) #@12 (fn STR) (defalias 'helm-ff--previous-mh-tramp-method #[257 "\300 \301\302\"\216\303\304\305\"r\211q\210\301\306\"\216c\210\307\310\311\312\313 \314#\315Q\316\305#\2054\317\320 \321\224\"\317\321\224\321\225\"D*\262)\207" [match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data evaporate] 3] generate-new-buffer " *temp*" t #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] re-search-backward "\\([|]\\)\\(" mapconcat identity helm-ff--get-tramp-methods "\\|" "\\):" nil buffer-substring-no-properties point-at-bol 2] 9 (#$ . 105643)]) #@111 Extract hostname from an incomplete tramp file name. Return nil on valid file name remote or not. (fn FNAME) (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 (#$ . 106223)]) #@186 Get a list of hosts for tramp method found in `helm-pattern'. Argument PATTERN default to `helm-pattern'. It is here only for debugging purpose. (fn &optional (PATTERN helm-pattern)) (defalias 'helm-ff--tramp-hostnames #[128 "\211\203 \211A\262\242\202\203\302\303\304GTD\"\210\305 \"\205\312\306!\211A@\206/\307\310\"\2056\311!\211\205E@\312\313\314\315#@R\262\316 \317!\320\211\211:\203\265@\262\211A\262\242\262\321@!\320\211\211\211:\203\245@\262:\205zA@\262;\203\233 \235\204\233\322@\206\220\323\312R!B\262A\262\320\262\202i\237\266\205!\244\262A\262\202O\211\237\266\204\324\325\205\303\322!C\"\326\327#\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-ff-filter-candidate-one-by-one "/" helm-fast-remove-dups append :test equal] 21 (#$ . 106735)]) #@70 Exit Helm when user try to execute action on an invalid tramp fname. (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 (#$ . 107834)]) (add-hook 'helm-before-action-hook 'helm-ff-before-action-hook-fn) #@98 Return non-nil when PATTERN is an invalid tramp filename. (fn &optional (PATTERN helm-pattern)) (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 "@@TRAMP@@"] 6 (#$ . 108277)]) #@12 (fn STR) (defalias 'helm-ff--tramp-postfixed-p #[257 "\300 \301\302 \303\304\"\216\305\306\307\"r\211q\210\303\310\"\216\212c\210)\307\211\203N\311\312\301\307#\211\203H\212\313u\210\314\315\316\317#\320 \")\203C\301\262\210\202\262\202\301\266\202\202\210*\210)\210\207" [helm-ff--get-tramp-methods nil match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data evaporate] 3] generate-new-buffer " *temp*" t #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] search-forward ":" -1 looking-back mapconcat #[257 "\300\301\"\207" [format "[/|]%s"] 4 "\n\n(fn M)"] "\\|" point-at-bol] 12 (#$ . 108637)]) #@57 Handle tramp filenames in `helm-pattern'. (fn PATTERN) (defalias 'helm-ff-set-pattern #[257 "\304 \305!\306\211\307\310\"\203\311\312\211\313%\262\204 \314\262\307 \"\203*\207\307\315\"\2036\316!\207\314\230\203>\314\207\307\317\"\203J\320!\207\307\321\"\203V\320!\207\307\322\"\203b\320\n!\207\307\323\"\203n\320\324!\207\307\325\"\203z\320\326!\207\307\327\"\203\206\320!\207\307\330\"\203\266\203\266\331\313\"\211\262\203\266\235\203\266\320\332\331\333\"!!\262\311\306\312$\207\307\334\"\203\344\203\344\331\313\"\211\262\203\344\235\203\344\332\331\333\"!\262\311\306\312$\207\307 \"\203\203\331\313\"\211\262\203\203\235\204\332\331\333\"!\262\311\306\312$\207\204.\307 \"\203.\331\313\"\235\203.\335\207\207" [tramp-default-method helm-ff-url-regexp default-directory helm-tramp-file-name-regexp helm-ff--get-tramp-methods helm-ff--tramp-postfixed-p nil string-match "\\`/\\(-\\):" replace-match t 1 "" "\\`\\$" substitute-in-file-name "\\`[.]\\{1,2\\}/\\'" expand-file-name "[^/][.]/\\'" ".*\\(~?/?[.]\\{1\\}/\\)\\'" ".*\\(~//\\|//\\)\\'" "/" "\\`\\(~/\\|.*/~/\\)\\'" "~/" "\\`~/" "\\`/\\([^[/:]+\\|[^/]+]\\):.*:~" match-string helm-ff--create-tramp-name 0 "\\`/\\([^[/:]+\\|[^/]+]\\):.*:" "@@TRAMP@@"] 11 (#$ . 109288)]) #@83 Create candidate list for `helm-source-find-files'. (fn &optional REQUIRE-MATCH) (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\373\335 \202\204\336!\203/\337=\204.\320,\"\204.\211\204.\340!\204!\320\341\"\204.-\2037\320-\"\2037\342\310\317#C\202\204\315\230\203C\343\333!\202\204\323!\203Y\344!\204Y\345\346\"BC\202\204\203h*\203h\343!\202\204\347\317=\206v\340!\206v?\205\200\342\310\317#C\343!\"*\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 "@@TRAMP@@" "" ":\\'" 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-filter-candidate-one-by-one 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 (#$ . 110640)]) #@136 List directory DIRECTORY. If DIRECTORY is remote use `helm-list-directory-function', otherwise use `directory-files'. (fn DIRECTORY) (defalias 'helm-list-directory #[257 "\303\304\"\211\203\211\305\230\204\202\306\211\307= \310\267\202=\203)\211\203)\311\202>\312\202>\2039\211\2039\313\202>\314\202>\315\203I\"\202]\211\203X\316\317\320\n#\"\202]\317\320\n#)\207" [helm-list-directory-function helm-ff-initial-sort-method directory-files-no-dot-files-regexp file-remote-p method "ftp" helm-list-dir-lisp helm-list-dir-external #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (newest 29 size 45)) "-t" file-newer-than-file-p "-S" helm-ff-file-larger-that-file-p nil sort directory-files t] 10 (#$ . 112560)]) #@14 (fn F1 F2) (defalias 'helm-ff-file-larger-that-file-p #[514 "\300!\300!\3018\3018V\207" [file-attributes 7] 7 (#$ . 113345)]) (byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put helm-ff-file-larger-that-file-p speed -1 put byte-optimizer byte-compile-inline-expand] 5) #@160 List DIRECTORY with `file-name-all-completions' as backend. Add a `helm-ff-dir' property on each fname ending with "/". (fn DIRECTORY &optional SORT-METHOD) (defalias 'helm-list-dir-lisp #[513 "\300\301\302\"\206\n\303\"\304\211:\203p@\262\302\230\206*\305\235\206*\306\211GSH\307\"\211\204h\306\211GSH\310\"\262\205J\311\312GSO\"\266\202\211\203Z\313\314\315#B\266\203\202i\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] 12 (#$ . 113641)]) #@247 List directory DIR with external shell command as backend. This function is fast enough to be used for remote files and save the type of files at the same time in a property for using it later in the transformer. (fn DIR &optional SORT-METHOD) (defalias 'helm-list-dir-external #[513 "\301\302!!\303\304\305\"r\211q\210\306\307\"\216\310\311\312\206\313\314!#\315\305\315$\316=\205\274eb\210\212\317\320\315\305#\203\240\321\316!\211\322\232\203N\323\313!\210\324\325 \326 \327\305$\266\202,\211\211\330\232\203f\323\313!\210\324\325 \326 \331\305$\266\202,\211\211\332\232\203~\323\313!\210\324\325 \326 \333\305$\266\202,\334\211\232\204\227<\203\221\211\235\204\227\305=\203\233\323\313!\210\266\202,)\317\335\315\305#\203\260\323\313!\210\202\241\336ed\337#\210\340\341 \342\305#*\262)\207" [default-directory file-name-as-directory expand-file-name generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] process-file-shell-command format "ls -A -1 -F -b -Q %s | awk -v dir=%s '{print dir $0}'" "" shell-quote-argument nil 0 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"] 11 (#$ . 114274)]) (byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313& \207" [custom-declare-variable helm-ff-use-notify funcall function #[0 "\300\207" [t] 1] "Watch directories visited with `helm-find-files' when non nil.\nIf your system have no file notification package available turn this\nto nil to avoid error messages when using `helm-find-files'." :type boolean :group helm-files :set #[514 "\301\"\210J?\205\302\303\"\210\304\207" [helm-ff--file-notify-watchers set-default maphash #[514 "\301\"\207" [helm-ff--list-directory-cache remhash] 5 "\n\n(fn DIR --CL-VAR--)"] nil] 5 "\n\n(fn VAR VAL)"]] 10) #@312 List contents of DIRECTORY. Argument FULL mean absolute path. It is same as `directory-files' but always returns the dotted filename '.' and '..' even on root directories in Windows systems. When FORCE-UPDATE is non nil recompute candidates even if DIRECTORY is in cache. (fn DIRECTORY &optional FORCE-UPDATE) (defalias 'helm-ff-directory-files #[513 "\304\305!!\262\211\204\306\"\206\237\307\3101\311!0\202/\312\313@\314\315A\316##C\317\262\262\320P\321P\322?\205>D\"\323G\324\\ #\210\323\307\211:\203m@\262\325!\211\203e\211B\262\210A\262\202P\211\237\266\203#\n\203\235\306 \"\204\235\3261\224\323\327\n\330\331 !# #0\210\207\332\333@A#\266\266\205\207" [helm-ff--list-directory-cache helm-ff--directory-files-length helm-ff-use-notify helm-ff--file-notify-watchers file-name-as-directory expand-file-name gethash nil (file-error) helm-list-directory format "@@@@%s:%s" mapconcat identity " " t "." ".." append puthash 2 helm-ff-filter-candidate-one-by-one (debug file-notify-error) file-notify-add-watch (change attribute-change) helm-ff--inotify-make-callback user-error "Error: %S %S"] 15 (#$ . 116273)]) #@64 Return a callback for `file-notify-add-watch'. (fn DIRECTORY) (defalias 'helm-ff--inotify-make-callback #[257 "\300\301\"\207" [make-closure #[257 "\211A@\211\303>\205\304\300 \"\210\305\306\300\n\"!\210\304\300\n\"\207" [V0 helm-ff--list-directory-cache helm-ff--file-notify-watchers (created deleted renamed attribute-changed) remhash file-notify-rm-watch gethash] 6 "\n\n(fn EVENT)"]] 4 (#$ . 117443)]) #@14 (fn FNAME) (defalias 'helm-ff-handle-backslash #[257 "\300\301\302\303T\211\262\2033GW\2033H\262\236\211\203)AP\266\202\202\304!P\266\202\202\207" [((92 . #1="")) -1 nil #1# string] 10 (#$ . 117859)]) (defalias 'helm-ff-fuzzy-matching-p #[0 "\205 \302>?\207" [helm-ff-fuzzy-matching helm-mm-matching-method (multi1 multi3p)] 2]) #@463 Maybe return PATTERN with it's basename modified as a regexp. This happens only when `helm-ff-fuzzy-matching' is enabled. This provides a similar behavior as `ido-enable-flex-matching'. See also `helm--mapconcat-pattern'. If PATTERN is an url return it unmodified. When PATTERN contains a space fallback to multi-match. If basename contains one or more space fallback to multi-match. If PATTERN is a valid directory name, return PATTERN unchanged. (fn PATTERN) (defalias 'helm-ff--transform-pattern-for-completion #[257 "\303!\304!\206\n\305\306!\307\211\211\211:\2039@\262\211A\262\242\262\310\n\"\211\262?\211\262\2039A\262\202\266\204\203K\211\203K\310\311\"\204i\305\230\204i\203\\G\312X\204i\203m\310\313!\"\203m\313!\207\203{\313!\314\313!Q\207\315 \203\207\310\316\"\203\215\313!P\207\310\317\"\204\256\310\320\"\204\256\310 \"\204\256\n\321\230\203\266\211\203\266\313!\313!P\207\313!G\312Y\203\347\322\305\"\211@\323\230\203\332\324\325\326\"A\305#\266\202\202\355\324\325\327\"\305#\266\202\202\355\330\313!PP\207" [tramp-methods helm-ff-url-regexp helm-ff-default-directory helm-basename helm-basedir "" file-directory-p nil string-match ":\\'" 2 regexp-quote " " helm-ff-fuzzy-matching-p "\\s-" "[*][.]?.*" "/$" "/" split-string-and-unquote "^" mapconcat make-closure #[257 "\211\301\230\203\302\303\300\"\203\207\304!\207" [V0 "$" string-match "$\\'" regexp-quote] 4 "\n\n(fn C)"] #[257 "\211\301\230\203\302\303\300\"\203\207\304\305\306!#\207" [V0 "$" string-match "$\\'" format "[^%s]*%s" regexp-quote] 6 "\n\n(fn C)"] ".*"] 12 (#$ . 118221)]) #@12 (fn DIR) (defalias 'helm-dir-is-dot #[257 "\300\301\"\207" [string-match "\\(?:/\\|\\`\\)\\.\\{1,2\\}\\'"] 4 (#$ . 119874)]) #@127 Store the last value of `helm-ff-default-directory' in `helm-ff-history'. Note that only existing directories are saved here. (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 (#$ . 120009)]) (add-hook 'helm-cleanup-hook 'helm-ff-save-history) #@65 Save marked files to `file-name-history'. (fn &optional FORCE) (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\266)\311\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 (#$ . 120429)]) (add-hook 'helm-exit-minibuffer-hook 'helm-files-save-file-name-history) #@13 (fn FILE) (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 (#$ . 121102)]) #@58 Return the default mode to open FILENAME. (fn FILENAME) (defalias 'helm-get-default-mode-for-file #[257 "\301\211\211\211:\2030@\262\211A\262\242\262\302\"\205\211\262?\211\262\2030A\262\202\266\204\2119\203;\211\206<\303\207" [auto-mode-alist nil string-match "Fundamental"] 9 (#$ . 121278)]) #@76 Show file properties of CANDIDATE in a tooltip or message. (fn CANDIDATE) (defalias 'helm-ff-properties #[257 "\304\305!\210\306!\211\203\306\307\310\311\310%\312\313\"\312\314\"\312\315\"\312\316\310#\312\317\"\312\320\"\312\321\"\322\n!\205C\323\324 \325\326\327#\"\330\312 \331\"!\312 \332\"\312\f\333\"\334!\206] \335 \203\374\n\203\374\336\337!\340\340\341\342\343!\"\341\344\203\207\325\345\327 #\206\210\346\"\341\347#\350\230\205\267\341\351\352\353\337!\"\203\247\354\202\266\355!\203\265\356!\202\266\357\"\341\360#\341\361#\341\362\"\341\363\"\364\230\205\337\341\365\366 \310#\"\341\367\"\341\370\";\205\366\341\371\372!\"\260!\202\373 !\210\374\375!)\207\373\376!\207" [helm-tooltip-hide-delay tooltip-hide-delay tooltip-mode current-prefix-arg require helm-external helm-file-attributes :dired t :human-size cl-getf :type :mode-type :uid :user :gid :group :other helm-ff-trash-file-p helm-ff--get-dest-file-from-trash helm-ff-trash-list replace-regexp-in-string "\\.trashinfo\\'" "" 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" " %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" "directory" "Size used in directory: %s\n" helm-directory-size "Modified: %s\n" "Accessed: %s\n" "Trash: %s\n" abbreviate-file-name message sit-for 5 "Permission denied, file not readable"] 35 (#$ . 121602)]) #@40 Show properties without quitting helm. (defalias 'helm-ff-properties-persistent #[0 "\203 \301\302\303\"\210\304\302!\207\305\306!\207" [helm-alive-p helm-set-attr properties-action (helm-ff-properties . never-split) helm-execute-persistent-action error "Running helm command outside of context"] 3 (#$ . 123332) nil]) (put 'helm-ff-properties-persistent 'helm-only t) #@44 Delete current candidate without quitting. (defalias 'helm-ff-persistent-delete #[0 "\203 \301\302\303\"\210\304\302!\207\305\306!\207" [helm-alive-p helm-set-attr quick-delete (helm-ff-quick-delete . never-split) helm-execute-persistent-action error "Running helm command outside of context"] 3 (#$ . 123709) nil]) (put 'helm-ff-persistent-delete 'helm-only t) #@42 Check if FILE is `.' or `..'. (fn FILE) (defalias 'helm-ff-dot-file-p #[257 "\300!\301\235\207" [helm-basename ("." "..")] 3 (#$ . 124079)]) #@18 (fn CANDIDATE) (defalias 'helm-ff-kill-buffer-fname #[257 "\301!\302!\203\303!=\203\304\305!\207\203#\306!\210\307\310\"\207\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 (#$ . 124228)]) #@264 Find file CANDIDATE or kill its buffer if it is visible. Never kill `helm-current-buffer'. Never kill buffer modified. This is called normally on third hit of \\[helm-execute-persistent-action] in `helm-find-files-persistent-action-if'. (fn CANDIDATE) (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 (#$ . 124600)]) #@55 Execute `helm-ff-kill-buffer-fname' without quitting. (defalias 'helm-ff-run-kill-buffer-persistent #[0 "\203 \301\302\303\"\210\304\302!\207\305\306!\207" [helm-alive-p helm-set-attr kill-buffer-fname helm-ff-kill-buffer-fname helm-execute-persistent-action error "Running helm command outside of context"] 3 (#$ . 125575) nil]) (put 'helm-ff-run-kill-buffer-persistent 'helm-only t) #@13 (fn FILE) (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 (#$ . 125968)]) (defalias 'helm-ff-run-preview-file-externally #[0 "\203 \301\302\303\"\210\304\302!\207\305\306!\207" [helm-alive-p helm-set-attr 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]) (put 'helm-ff-run-preview-file-externally 'helm-only t) #@394 Add display property to FNAME. Display property presents a string maybe prefixed with [?] or [@]. If FILE-OR-SYMLINKP is non-nil this means we assume FNAME is an existing filename or valid symlink and there is no need to test it. NEW-FILE when non-nil means FNAME is a non existing file and return FNAME with display property prefixed with [?]. (fn FNAME &optional FILE-OR-SYMLINKP NEW-FILE) (defalias 'helm-ff-prefix-filename #[769 "\302\303\304\302\305\306\307##\302\303\304\302\310\306\307##\203\207\311\"\204, \2032\311 \"\2032\211\303Q\207\205;\303Q\207" [helm-ff-url-regexp helm--url-regexp propertize " " display "[?]" face helm-ff-prefix "[@]" string-match] 11 (#$ . 126692)]) #@26 (fn REAL DISP PATTERN) (defalias 'helm-ff-score-candidate-for-pattern #[771 "\301\235\204\302\303\304\305#)\266\203\203!\306\307\"\230\203!\310\207\311\"\207" [inhibit-changing-match-data ("." "..") "\\`\\s-\\{2\\}" nil t string-match substring-no-properties 2 900000 helm-score-candidate-for-pattern] 10 (#$ . 127403)]) #@125 Sort function for `helm-source-find-files'. Return candidates prefixed with basename of INPUT first. (fn CANDIDATES INPUT) (defalias 'helm-ff-sort-candidates-1 #[514 "\300!\203 \301\302\"\204\301\303\"\204\204\207\304\305\306\"\307\310\311#\"\207" [file-directory-p string-match "/\\'" "\\`\\$" make-hash-table :test equal sort make-closure #[514 "\302\303:\203\fA\202 !\303:\203A\202!\303:\203&@\202'!\303:\2033@\2024!\304\301\"\206H\305\300#\301#\304\301\"\206[\305\300#\301#U\203k\306!\306!W\207V\207" [V0 V1 #[771 "\300\301!#\207" [helm-ff-score-candidate-for-pattern helm-basename] 8 "\n\n(fn INPUT DISP REAL)"] helm-basename gethash puthash string-width] 14 "\n\n(fn S1 S2)"]] 9 (#$ . 127747)]) #@133 Sort function for `helm-source-find-files'. Return candidates prefixed with basename of `helm-input' first. (fn CANDIDATES SOURCE) (defalias 'helm-ff-sort-candidates #[514 "\301\"\207" [helm-input helm-ff-sort-candidates-1] 5 (#$ . 128524)]) #@66 Returns non nil when FILE is matching boring regexps. (fn FILE) (defalias 'helm-ff-boring-file-p #[257 "\205\302\303\"?\205\302 \"\207" [helm-ff-skip-boring-files helm-ff--boring-regexp string-match "\\.$"] 4 (#$ . 128775)]) (defvar helm-ff--git-found-p nil) #@71 Returns non nil when FILE is matched in ".gitignore" file. (fn FILE) (defalias 'helm-ff-git-ignored-p #[257 "\205$\302!?\205$ \204\303\304!\211\205$\305\304\306\211\211\307\310&\311U\207" [helm-ff-skip-git-ignored-files helm-ff--git-found-p file-remote-p executable-find "git" call-process nil "check-ignore" "-q" 0] 9 (#$ . 129048)]) #@252 Filter in charge of displaying basename or full path in HFF. Because CANDIDATES are directly stored as (basename . full_path), when `helm-ff-transformer-show-only-basename' is non nil do nothing and return directly CANDIDATES. (fn CANDIDATES SOURCE) (defalias 'helm-ff-fct #[514 "\2047\301\211\211\211\211:\2034@\262\211A\262\242\262\302\303\"\262\203*B\262A\262\301\262\202\n\237\207\207" [helm-ff-transformer-show-only-basename nil helm-ff-filter-candidate-one-by-one reverse] 11 (#$ . 129402)]) #@58 Returns FILE extension if it is not a number. (fn FILE) (defalias 'helm-ff-file-extension #[257 "\300!\211\205\301\302\"?\205\303!\304U\205\211\207" [file-name-extension string-match "\\`0+\\'" string-to-number 0] 5 (#$ . 129930)]) (byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put helm-ff-file-extension speed -1 put byte-optimizer byte-compile-inline-expand] 5) #@281 Transform file in a cons cell like (DISPLAY . REAL). DISPLAY is shown as basename of FILE and REAL as full path of FILE. If REVERSE is non nil DISPLAY is shown as full path. If SKIP-BORING-CHECK is non nil don't filter boring files. (fn FILE &optional REVERSE SKIP-BORING-CHECK) (defalias 'helm-ff-filter-candidate-one-by-one #[769 "\304!\305!\306\307\310#)\266\203\311!\206-\312\313\314\204&\203+\202,#\211G\315!?\205C\316!\206C\317 !?\205\272\211?\205l?\205l\320!\211\205j\310\321\"?\205j\322!\323U\205j\211\266\202\211\203\220\3241\310\325\326\"\"0\202\202\306\262\203\220\327\330\224\330\225\331\307%\210\210\n \306\307\310#)\266\203\204\247\332 !\2034\311 !\203\271\333\n\334\335#\nB\207\336\330\337\f#\203\313\333\334\340#\nB\207\203\330\333\334\341#\nB\207\336\330\342\f#\203\357\327\323\343\307%\210\nB\207\336\330\344\f#\203\327\323\345\307%\210\nB\207\336\330\346\f#\203\327\323\346\307%\210\nB\207\327\323\346\307%\210\347\211?\205/\350#\nB\207\3511@\352 !0\202K\353\354@A#\210\306\262\211@\306\310\355 \"\203Y \207;\203|\356\f!\204|\310\357\n\"\204|\327\323\360\307\n%\210\fB\207\203\220;\203\220\333\f\334\361#\fB\207\203\237\333\f\334\335#\fB\207\203\255\333\334\341#\fB\207;\203\362!\211G\320!\211\205\320\310\321\"?\205\320\322!\323U\205\320\211\266\202\211\203\353\310\325\326\"\"\203\353\327\330\224\330\225\331\307%\210\210\327\323\363\307%\210\327\323\345\306\f%\210\333\364\n\365Q#B\207\307=\203\333\334\340#\fB\207\203@\310\366\3678\323\370O\211\262\"\203@\327\323\371\307\n%\210\fB\207\203Z\310\372\"\203Z\327\323\373\307\n%\210\fB\207\203t\310\374\"\203t\327\323\343\307\n%\210\fB\207\203\216\310\375\"\203\216\327\323\376\307\n%\210\fB\207\203\245\204\245\327\323\346\307\n%\210\fB\207\327\323\346\307\n%\210\347\306\350#\fB\266\203\207" [helm-ff-url-regexp inhibit-changing-match-data helm-tramp-file-name-regexp helm-pattern helm-basename helm-ff-dot-file-p nil t string-match helm-ff--get-host-from-tramp-invalid-fname replace-regexp-in-string "[[:cntrl:]]" "?" backup-file-name-p helm-ff-boring-file-p helm-ff-git-ignored-p file-name-extension "\\`0+\\'" string-to-number 0 (invalid-regexp) format "\\.\\(%s\\)\\'" add-face-text-property 1 helm-ff-file-extension helm-file-on-mounted-network-p propertize face helm-ff-dotted-directory get-text-property helm-ff-dir helm-ff-directory helm-ff-backup-file helm-ff-exe helm-ff-executable helm-ff-sym helm-ff-symlink helm-ff-file helm-ff-prefix-filename new-file (file-error) file-attributes message "%s:%s" "\\`@@@@file-error:" helm-ff-valid-symlink-p "^\\.#" helm-ff-invalid-symlink helm-ff-dotted-symlink-directory abbreviate-file-name helm-ff-truename display " -> " "\\`[cp]" 8 4 helm-ff-pipe "\\`[s]" helm-ff-socket "x\\'" "s\\'" helm-ff-suid] 21 (#$ . 130327)]) #@74 Action transformer for `helm-source-find-files'. (fn ACTIONS CANDIDATE) (defalias 'helm-find-files-action-transformer #[514 "r\306!\203 \206p\211q\210\307\310 \311 \")\312!\203$\313\314\315#\262\316!\203I\317 \320\321!!\"\203I\322!\323\235\204I\324\325!\203I\313\326\327#\207\n\203\211\n\330\331\317#)\266\203\204\211r\306!\203h\206kp\211q\210\f)\332=\204\211\333\330\331\317#)\266\203\203\211\334\335\"\207\317\336 \"\203\227\313\337\340#\207\317\341\342 \211\203\244\211@\202\245\262\"\203\261\313\343\344#\207\317\345 !\346P\342 \211\203\302\211@\202\303\262\"\203\317\313\347\344#\207\317\350\"\203\342\316!\203\342\313\351\344#\207\207" [helm-current-buffer helm-ff--trash-directory-regexp helm--url-regexp inhibit-changing-match-data major-mode load-suffixes 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 file-exists-p string-match helm-basedir expand-file-name helm-basename ("." "..") 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 regexp-opt "\\'" (("Load File(s) `M-L'" . helm-find-files-load-files)) "\\.html?$" (("Browse url file" . browse-url-of-file))] 10 (#$ . 133300)]) #@197 Execute a trash action FN on marked files. Arg NAMES is a list of strings to pass to messages. E.g. '("delete" "deleting") ARGS are other arguments to be passed to FN. (fn FN NAMES &rest ARGS) (defalias 'helm-ff-trash-action #[642 "\306 \307\211\310! \311 \312=\203\313\202 \307\211\307Crq\210\314\203y@\315\230\203y\307\211\211\211\211:\203r@\262\316!\262\317@\"\262\203h\320@\321\307\211\311%\322\320\323A!\321\307\211\311%QB\262A\262\307\262\2025\237\266\206\202\200\324\325\316 \"!!\210)\326\327#\216\330\331\332\"\240!r\326\333\"\216\334@\335\"\210\336\337\340\341\f@!\nG#!\203\355\342\343\341 A@!\"\210\307:\203\350@\262\3441\323\345\f\f#0\210\202\341\337\346A@\" B\211\262\n\266A\262\202\272\266\202\372\342\347\341 A@!\"\210\311\262*\210-\266\203D\350\351\352\353\311\"r\211q\210\326\354\"\216\355\356\357 \"c\210\337\360 @G G$c\210\361\362\363#\364\261\210\365 *\262\366\367$\210\342\347\341A@!\"\207\211?\205T\342\370\341A@!G#\207" [helm-marked-buffer-name helm-last-frame-or-window-configuration 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 "restore" helm-basename assoc truncate-string-to-width 40 " -> " helm-basedir helm-ff--count-and-collect-dups mapcar make-closure #[0 "\302\303\301\242\"\210\300\205 \304\300!\207" [V0 V1 quit-window kill set-window-configuration] 3] internal--before-with-selected-window temp-buffer-window-show (display-buffer-below-selected (window-height . fit-window-to-buffer)) #[0 "\301\300!\207" [V0 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" "%s files from trash aborted" display-warning helm generate-new-buffer " *temp*" #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] 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"] 25 (#$ . 135050)]) #@263 Delete marked-files from a Trash directory. The Trash directory should be a directory compliant with and each file should have its '*.trashinfo' correspondent file in Trash/info directory. (fn CANDIDATE) (defalias 'helm-ff-trash-rm #[257 "\300\301\302\"\207" [helm-ff-trash-action helm-ff-trash-rm-1 ("delete" "deleting")] 4 (#$ . 137301)]) #@13 (fn FILE) (defalias 'helm-ff-trash-rm-1 #[257 "\300\301\"\302\303\304\"\305R\306!\204\307\310\311\312\"\313\211$\210\306!\204+\307\314\311\312\"\313\211$\210\315!\2039\316\317\"\210\202=\320!\210\320!\207" [helm-reduce-file-name 2 "info/" helm-basename "trashinfo" ".trashinfo" file-exists-p cl--assertion-failed (file-exists-p file) format "No such file or directory `%s'" nil (file-exists-p info-file) file-directory-p delete-directory t delete-file] 7 (#$ . 137706)]) #@264 Restore marked-files from a Trash directory. The Trash directory should be a directory compliant with and each file should have its '*.trashinfo' corresponding file in Trash/info directory. (fn CANDIDATE) (defalias 'helm-restore-file-from-trash #[257 "\302!\303 \304\305\306#)\207" [helm-ff-default-directory default-directory file-name-as-directory helm-ff-trash-list helm-ff-trash-action helm-restore-file-from-trash-1 ("restore" "restoring")] 6 (#$ . 138201)]) #@156 Restore FILE from a trash directory. Arg TRASHED-FILES is an alist of (fname_in_trash . dest) obtained with `helm-ff-trash-list'. (fn FILE TRASHED-FILES) (defalias 'helm-restore-file-from-trash-1 #[514 "\300\301\302#\303\304\"\305\306!\307R\310\"\311!\203#\312\313\314\315\"\316\211$\210\211\204.\312\317\320\316\211$\210\321\322\306!\323!#\210\324\"\210\321\325\306!\323!#\210\326!\207" [replace-regexp-in-string "\\.trashinfo\\'" "" 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" message "Restoring %s to %s..." helm-basedir rename-file "Restoring %s to %s done" delete-file] 10 (#$ . 138733)]) #@50 Return t when FILE is a trashed file. (fn FILE) (defalias 'helm-ff-trash-file-p #[257 "\301!\205\302\303!\"\205\304!\305\235?\207" [helm-ff--trash-directory-regexp file-exists-p string-match helm-basedir helm-basename ("." "..")] 5 (#$ . 139540)]) #@27 (fn TRASHED-FILES FILE) (defalias 'helm-ff--get-dest-file-from-trash #[514 "\300\301!\"\207" [assoc-default helm-basename] 5 (#$ . 139803)]) #@387 Return an alist of trashed files basename and dest name. Assume the trash system in use is freedesktop compatible, see This function is intended to be used from a trash directory i.e. it use `helm-ff-default-directory', but it may be used elsewhere by specifying the trash directory with TRASH-DIR arg. (fn &optional TRASH-DIR) (defalias 'helm-ff-trash-list #[256 "\302\303!?\205o\304\305\306\307\310\206!!\"\311 #\312\211:\203k@\262\313\314\315\316#!\317\320\311\"r\211q\210\321\322\"\216\212\323!\210)\324\325\312\311#\205\\\326\327`\330 \"!\331\332\"\203V\211\202Z\305\333\"\262*\262BB\262A\262\202\211\237\266\203\207" [helm-ff-default-directory directory-files-no-dot-files-regexp fboundp system-move-file-to-trash directory-files expand-file-name "info" helm-basedir directory-file-name t nil helm-basename replace-regexp-in-string "\\.trashinfo\\'" "" generate-new-buffer " *temp*" make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] insert-file-contents re-search-forward "^path=" helm-url-unhex-string buffer-substring-no-properties point-at-eol string-match "\\`/" "/home"] 10 (#$ . 139955)]) #@170 Find file CANDIDATE and maybe jump to line number found in fname at point. Line number should be added at end of fname preceded with ":". E.g. "foo:12". (fn CANDIDATE) (defalias 'helm-ff-goto-linum #[257 "r\301!\203 \206p\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 (#$ . 141176)]) #@68 Run `mml-attach-file' on `helm-marked-candidates'. (fn CANDIDATE) (defalias 'helm-ff-mail-attach-files #[257 "\300\301!\210\302\303\304\"\305\306\307\"\205p\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\266*\310\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 (#$ . 141734)]) #@57 Rotate current image at ANGLE degrees. (fn FILE ANGLE) (defalias 'helm-ff-rotate-current-image-1 #[514 "\305!\203\306\307 \"\204\310\311\312\313\211$\210\314!\262\315!\316!\317\230\2038\320\267\2024\321\202;\322\202;\313\202;\323!\313\203\\\324!\203\\\325\326\313\211\211\327\n  D\"&\210\202_\330\262 \203\224\211\203\215\331\332 !r\333\334\"\216\335@\336\"\210\3371\203\340!0\202\207\340 \262*\262\202\270\341!\202\270\211\203\241\342\343\206\237\344\"\210\345\f!\203\253\346\f!\210\347!\210\350\313!\210\351\352\f!!)\207" [helm-ff-rotate-image-program default-directory helm-ff-rotate-image-switch helm-ff-display-image-native image-dired-display-image-buffer file-exists-p string-match image-file-name-regexp cl--assertion-failed (and (file-exists-p file) (string-match (image-file-name-regexp) file)) "Can't rotate non image file" nil file-truename file-name-directory helm-basename "exiftran" #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (90 44 270 48)) "-9" "-2" number-to-string executable-find apply process-file append t internal--before-with-selected-window helm-persistent-action-display-window make-closure #[0 "\301\300!\207" [V0 internal--after-with-selected-window] 2] select-window norecord (wrong-number-of-arguments) image-rotate helm-ff--display-image-native error "%s not found" "`helm-ff-rotate-image-program'" buffer-live-p kill-buffer image-dired-display-image message display-buffer get-buffer] 16 (#$ . 142559)]) #@89 Rotate image file CANDIDATE left. This affects directly file CANDIDATE. (fn CANDIDATE) (defalias 'helm-ff-rotate-image-left #[257 "\300\301\"\207" [helm-ff-rotate-current-image-1 270] 4 (#$ . 144093)]) #@90 Rotate image file CANDIDATE right. This affects directly file CANDIDATE. (fn CANDIDATE) (defalias 'helm-ff-rotate-image-right #[257 "\300\301\"\207" [helm-ff-rotate-current-image-1 90] 4 (#$ . 144303)]) #@42 Rotate image left without quitting helm. (defalias 'helm-ff-rotate-left-persistent #[0 "\203 \301\302\303\"\210\304\302!\207\305\306!\207" [helm-alive-p helm-set-attr image-action1 helm-ff-rotate-image-left helm-execute-persistent-action error "Running helm command outside of context"] 3 (#$ . 144514) nil]) (put 'helm-ff-rotate-left-persistent 'helm-only t) #@43 Rotate image right without quitting helm. (defalias 'helm-ff-rotate-right-persistent #[0 "\203 \301\302\303\"\210\304\302!\207\305\306!\207" [helm-alive-p helm-set-attr image-action2 helm-ff-rotate-image-right helm-execute-persistent-action error "Running helm command outside of context"] 3 (#$ . 144882) nil]) (put 'helm-ff-rotate-right-persistent 'helm-only t) #@12 (fn ARG) (defalias 'helm-ff-resize-image-1 #[257 "\301\302!\203\n\204\303\304\305\306\211$\210\211\307V\203\310\311\306\312#\207\310\311\306\313#\207" [helm-ff-display-image-native fboundp image--change-size cl--assertion-failed (and (fboundp 'image--change-size) helm-ff-display-image-native) "Resizing image not available" nil 0 run-with-idle-timer 0.3 #[0 "\300\301 !r\302\303\"\216\304@\305\"\210\306\307!*\207" [internal--before-with-selected-window helm-persistent-action-display-window make-closure #[0 "\301\300!\207" [V0 internal--after-with-selected-window] 2] select-window norecord image--change-size 1.2] 4] #[0 "\300\301 !r\302\303\"\216\304@\305\"\210\306\307!*\207" [internal--before-with-selected-window helm-persistent-action-display-window make-closure #[0 "\301\300!\207" [V0 internal--after-with-selected-window] 2] select-window norecord image--change-size 0.8] 4]] 6 (#$ . 145254)]) #@18 (fn CANDIDATE) (defalias 'helm-ff-increase-image-size #[257 "\300\301!\207" [helm-ff-resize-image-1 1] 3 (#$ . 146178)]) #@18 (fn CANDIDATE) (defalias 'helm-ff-decrease-image-size #[257 "\300\301!\207" [helm-ff-resize-image-1 -1] 3 (#$ . 146307)]) #@44 Increase image size without quitting helm. (defalias 'helm-ff-increase-image-size-persistent #[0 "\203 \301\302\303\"\210\304\302!\207\305\306!\207" [helm-alive-p helm-set-attr image-action3 helm-ff-increase-image-size helm-execute-persistent-action error "Running helm command outside of context"] 3 (#$ . 146437) nil]) (put 'helm-ff-increase-image-size-persistent 'helm-only t) #@44 Decrease image size without quitting helm. (defalias 'helm-ff-decrease-image-size-persistent #[0 "\203 \301\302\303\"\210\304\302!\207\305\306!\207" [helm-alive-p helm-set-attr image-action4 helm-ff-decrease-image-size helm-execute-persistent-action error "Running helm command outside of context"] 3 (#$ . 146825) nil]) (put 'helm-ff-decrease-image-size-persistent 'helm-only t) #@90 Extract exif data from file CANDIDATE using `helm-ff-exif-data-program'. (fn CANDIDATE) (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 (#$ . 147213)]) (defvar helm-ff-image-native-buffer "*image-native-display*") (defvar helm-ff-sound-file-extensions '("wav" "au")) #@316 Open subtree CANDIDATE without quitting helm. If CANDIDATE is not a directory expand CANDIDATE filename. If CANDIDATE is alone, open file CANDIDATE filename. That means: First hit on C-j expands CANDIDATE, second hit opens file. If a prefix arg is given or `helm-follow-mode' is on, then open file. (fn CANDIDATE) (defalias 'helm-find-files-persistent-action-if #[257 "\3062c\307 \206\n\310 \311\312\313#)\266\203\314!\n\235\315 \316\317\"\320\321 \"\210\204=\203=\322\323!\210\324\306\325\326\327!\210\"\210\330 \203W\313\f\"\203W\316\331#\332B\266\205\202b\333!\203r\334!\203r\316\335#\332B\266\205\202b\333!\203\206\316\336#\332B\266\205\202b\334!\203\242 \204\242\204\242\316\337#\332B\266\205\202b\3402\"\204\276 \204\276\204\276\316\341#\332B\266\205\202b\203\310\266\342\202b\203\3413\203\327\266\343\202b\316\344\"\266\205\202b4\211\205\345!\211\205\313\346\3474!!\"\211\205\350 !\262\262\262\203\316\351#\332B\266\205\202b\352!\204D\353!\204D\354\355!\311\312\313#)\266\203\203D\316\356#\332B\266\205\202b\352!\204_\357!\204_\316\360#\332B\266\205\202b\266\3610\207" [helm--temp-follow-flag inhibit-changing-match-data helm-ff-sound-file-extensions 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 file-name-extension helm-get-selection make-closure #[257 "\301\302 \206\303 !r\304\305\"\216\306@\307\"\210\300?\205'\310 \210\311\312G\313$\210c*\207" [V0 internal--before-with-selected-window active-minibuffer-window minibuffer-window make-closure #[0 "\301\300!\207" [V0 internal--after-with-selected-window] 2] select-window norecord delete-minibuffer-contents set-text-properties 0 nil] 7 "\n\n(fn FNAME)"] helm-set-attr candidate-number-limit helm-follow-mode -1 throw ignore message "Helm-follow-mode allowed only on images, disabling" helm-ff--invalid-tramp-name-p #[257 "\300\n\230\203\f\301\300\303P!\207\301\300!\207" [V0 V1 helm-pattern ":"] 4 "\n\n(fn CANDIDATE)"] never-split file-directory-p file-symlink-p #[257 "\303 \210\301\304\n\203\305\306\300!!\202\306\300!!!\207" [V0 V1 current-prefix-arg helm-ff-after-persistent-show-all file-name-as-directory file-truename expand-file-name] 6 "\n\n(fn CANDIDATE)"] #[257 "\305 \210\306\300!\307\230\203 \n\301\310\311\300!!!\210\312\313\314\"\210\313\315B\fB\316\315\313\"\207" [V0 V1 helm-ff-default-directory helm-ff-last-expanded helm--temp-hooks helm-ff-after-persistent-show-all helm-basename ".." file-name-as-directory expand-file-name defalias #1=#:helm--hook85 #[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] 5 "\n\n(fn CANDIDATE)"] #[257 "\301\302\300!!\210\303 \207" [V0 V1 file-truename helm-check-minibuffer-input] 4 "\n\n(fn CANDIDATE)"] file-equal-p #[257 "\301\300!\210\302 \207" [V0 V1 helm-check-minibuffer-input] 3 "\n\n(fn CANDIDATE)"] #[257 "\300!\207" [play-sound-file] 3 "\n\n(fn CANDIDATE)"] helm-ff--display-or-kill-image-native #[257 "\306\307!\210\310 \311\"\211\205\"\312!r\313\314\"\216\315@\316\"\210\317e\320\"*\262\2054\211\2054r\321 q\210\322\300\")\211\203c\312\323 !r\313\324\"\216\315@\316\"\210\n\203\\\325\326\327\"!\203\\\330\n!\210\202a\331 \"\210*\210\332\333 !!\203o\334 !\210\211?\205\254\335\f!\204~\336\f!\210\337 !\210\340\341!\210\340K\313\342\"\216\340\343M\210\344\300!\210)\210\340\345!\210r q\210\346\300! )\347\350\"\262)\207" [V0 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-closure #[0 "\301\300!\207" [V0 internal--after-with-selected-window] 2] select-window norecord get-text-property original-file-name helm-buffer-get file-equal-p helm-window #[0 "\301\300!\207" [V0 internal--after-with-selected-window] 2] 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..." #[0 "\301\300M\207" [V0 message] 2] ignore image-dired-display-image "Resizing image done" helm-ff-exif-data image-dired-update-property help-echo default-directory] 9 "\n\n(fn CANDIDATE)"] file-name-directory regexp-quote expand-file-name helm-ff-file-compressed-p #[257 "\301\300\302P!\207" [V0 V1 "#/"] 4 "\n\n(fn CANDIDATE)"] file-exists-p file-remote-p "\\`\\([.]\\|\\s-\\)\\{2\\}[^/]+" helm-basename #[257 "\301\300\302P!\207" [V0 V1 "/"] 4 "\n\n(fn CANDIDATE)"] helm-basedir #[257 "\301\303\300\n\"!\207" [V0 V1 default-directory expand-file-name] 5 "\n\n(fn CANDIDATE)"] #[257 "!\207" [helm-ff-kill-or-find-buffer-fname-fn] 3 "\n\n(fn CANDIDATE)"] helm-pattern helm-ff-display-image-native helm-ff-avfs-directory] 13 (#$ . 147690)]) #@18 (fn CANDIDATE) (defalias 'helm-ff--display-or-kill-image-native #[257 "\303\304!!\203#\305\306\304!!\"\203#\307\310\"\203#\311 \n\"\210\312!\207\313!\207" [helm-ff-image-native-buffer helm-persistent-action-display-window helm-current-buffer buffer-live-p get-buffer file-equal-p buffer-file-name get-buffer-window visible set-window-buffer kill-buffer helm-ff--display-image-native] 5 (#$ . 152773)]) #@18 (fn CANDIDATE) (defalias 'helm-ff--display-image-native #[257 "\301\302!!\203\f\303!\210\304K\305\306\"\216\304\307M\210\310!\210)\210r\311!q\210\312!)\207" [helm-ff-image-native-buffer buffer-live-p get-buffer kill-buffer message make-closure #[0 "\301\300M\207" [V0 message] 2] ignore find-file get-file-buffer rename-buffer] 5 (#$ . 153192)]) #@34 (fn DIRECTORY &optional INPUT) (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 "\\([.]\\)\\{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 (#$ . 153553)]) #@75 Launch a recursive search in `helm-ff-default-directory'. (fn CANDIDATE) (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 (#$ . 154928)]) #@64 Whether CANDIDATE is a compressed file or not. (fn CANDIDATE) (defalias 'helm-ff-file-compressed-p #[257 "\301!\235\207" [helm-ff-file-compressed-list file-name-extension] 3 (#$ . 155273)]) #@30 Try to guess fname at point. (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 (#$ . 155472)]) #@376 Insert file name completion at point. When completing i.e. there is already something at point, insert filename abbreviated, relative or full according to initial input, whereas when inserting i.e. there is nothing at point, insert filename full, abbreviated or relative according to prefix arg, respectively no prefix arg, one prefix arg or two prefix arg. (fn CANDIDATE) (defalias 'helm-insert-file-name-completion-at-point #[257 "r\306!\203 \206p\211q\210 \203\307\310\311 \"\202\320\312\313\314\"\211@`\315 \211;\205-\316!\211\205?\212\317\320!\321 \314#\205>`)\211\203G\211\202H`\262;\205p\322\323\324!P\325\314\326#)\266\203\206p\327\325\314\326#)\266\203 \f>\203z\330\202{\331\203\210\203\210|\210\211\332  &!A\203\241\333\202\242\334\335 A\325\211:\203\306@\262\332\325\211\211\211 &B\262A\262\202\251\211\237\266\203\333#\261\266\210)\207" [helm-current-buffer buffer-read-only inhibit-changing-match-data major-mode helm-modes-using-escaped-strings helm-current-prefix-arg buffer-live-p error "Error: Buffer `%s' is read-only" buffer-name helm-marked-candidates :with-wildcard t helm-ffap-guesser substring-no-properties re-search-backward regexp-quote point-at-bol "^" getenv "HOME" nil string-match "\\`\\(/\\|[[:lower:][:upper:]]:/\\)" shell-quote-argument identity helm-ff--format-fname-to-insert " " "" mapconcat] 23 (#$ . 155769)]) #@60 (fn CANDIDATE &optional BEG END FULL-PATH GUESS PREFARG) (defalias 'helm-ff--format-fname-to-insert #[1537 "\300\301G\302 $\210\203J\203J\203J\303\230\204J\211\204J\304\305\"\204.\306!\203J\2037\307!\207\310\311\"\312\230\203E\313!\207\314!\207\315\211\232\204c<\203]\211\235\204c\316=\203h\313!\207\317\211\232\204\201<\203{\211\235\204\201\316=\203\206\314\n!\207\320\211\232\204\237<\203\231\211\235\204\237\316=\203\244\321\f!\207\211\f\207" [set-text-properties 0 nil "" string-match "^\\(~/\\|/\\|[[:lower:][:upper:]]:/\\)" file-exists-p expand-file-name match-string 1 "~/" abbreviate-file-name file-relative-name '(4) t '(16) '(64) helm-basename] 15 (#$ . 157191)]) #@159 The `helm-find-files' history. Show the first `helm-ff-history-max-length' elements of `helm-ff-history' in an `helm-comp-read'. (fn ARG &key (COMP-READ t)) (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\205y\211G Y\203R\316\317 #\202S\211\203x\320\321\322\323\324\325 \326\327\330\331\332\333\334\"&\f\335\336\337\340\341\n\342\331&\207\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-closure #[257 "\300\203\n\301\302!!\207\207" [V0 helm-set-pattern expand-file-name] 4 "\n\n(fn CANDIDATE)"] helm :sources :resume noresume :buffer :allow-nest] 19 (#$ . 157933) "p"]) (put 'helm-find-files-history 'helm-only t) #@146 Find FNAME filename with PRESELECT filename preselected. Use it for non-interactive calls of `helm-find-files'. (fn FNAME &optional PRESELECT) (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-get-attr follow helm-set-attr -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 (#$ . 159083)]) #@178 Meant to be used in `helm-resume-after-hook'. When NOHOOK is non-nil run inconditionally, otherwise only when source is `helm-source-find-files'. (fn SOURCES &optional NOHOOK) (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-set-attr resume lambda nil (helm-ff-setup-update-hook) setq] 12 (#$ . 160520)]) (defalias 'helm-ff-clean-initial-input #[0 "\301 p\302\303#\216\304\305\"\210\306 )\207" [helm-initial-frame selected-frame make-closure #[0 "\302\300!\203 \303\300\304\"\210\305\301!\205\301q\207" [V0 V1 frame-live-p select-frame norecord buffer-live-p] 3] select-frame norecord helm-clean-up-minibuffer] 6]) (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]) (defalias 'helm-find-files-cleanup #[0 "\302\303\304\"\210\305\211\211\207" [helm-ff--show-directories-only helm-ff--show-files-only 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) nil] 4]) (defalias 'helm-ff-bookmark #[0 "\300\301\302\303\304$\207" [helm :sources helm-source-bookmark-helm-find-files :buffer "*helm ff bookmarks*"] 5]) #@71 Switch to helm-bookmark for `helm-find-files' from `helm-find-files.' (defalias 'helm-find-files-switch-to-bookmark #[0 "\301\302!\210\203\f\303\304!\207\305\306!\207" [helm-alive-p require helm-bookmark helm-run-after-exit helm-ff-bookmark error "Running helm command outside of context"] 2 (#$ . 162137) nil]) (put 'helm-find-files-switch-to-bookmark 'helm-only t) #@75 Return INPUT if present, otherwise try to guess it. (fn &optional INPUT) (defalias 'helm-find-files-initial-input #[256 "\304 \211\305\232?\205 \211\211\262\262\306=?\205Z\203-\307!\204'\310 \"\203)\207\311!\207\312\n\203U\203U\310 \"\204U\211\205P\313\314!\211\205N\315\316\305#\262\262\202V\313\314!\"\207" [major-mode helm-ff-url-regexp helm-ff-allow-non-existing-file-at-point ffap-url-regexp helm-ffap-guesser "" image-mode file-remote-p string-match expand-file-name helm-find-files-input thing-at-point filename replace-regexp-in-string ":[0-9]+\\'"] 9 (#$ . 162512)]) #@64 Same as `ffap-guesser' but without gopher and machine support. (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\223\321 \205I\322 \321 \205P\323 \205\\\211\205\\\324\"\211\205{ \211\205y\325\326 !\211\205w\327 \"\205w\211\262\262\262\206\202\330 \203\220\211\203\220\266\204\202\223\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 string-match ffap-file-at-point helm-ff-guess-ffap-urls] 9 (#$ . 163121)]) #@82 Try to guess a default input for `helm-find-files'. (fn FILE-AT-PT THING-AT-PT) (defalias 'helm-find-files-input #[514 "\304\203\f\305!\206\211\205\305!\306 \205! \205!\307 \"\n\205'\310 \311 \205`\312\230?\205`?\205`\313!\204F \205`?\205`\205`\312\230?\205`\313\314\315\"!!\206\252\206\252\211\203\206\205\252\316!\317\235\204\201\315!\202\252\202\252\203\221\320!\202\252\205\252?\205\252 \204\246\313!\205\252\315!)\207" [non-essential helm--url-regexp helm-ff-search-library-in-sexp helm-ff-allow-non-existing-file-at-point 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 (#$ . 164026)]) #@55 Try to find link to an url in text-property at point. (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\211\211:\203c@\262;\205R\205R\307\"\205R\211\262?\211\262\203cA\262\2028\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 (#$ . 164867)]) #@87 Try to find library path at point. Find inside `require' and `declare-function' sexp. (defalias 'helm-find-library-at-point #[0 "\301\302!\210\212\303\304\305 \306#)\212\307\310\311 \306#)\205\"\211\205\"\312TS\"\3131i\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\207\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 (#$ . 165351)]) (defalias 'helm-ff--valid-default-directory #[0 "r\302!\203 \206p\211q\210\303 \304\211\211\211\211:\203I@\262rq\210 )\262\305!@\306=\203;\262\304\211\262\202<\306\203IA\262\304\262\202\266\205)\207" [helm-current-buffer default-directory buffer-live-p buffer-list nil file-attributes t] 8]) #@319 Execute ACTION on FILES to DESTINATION. Where ACTION is a symbol that can be one of: 'copy, 'rename, 'symlink,'relsymlink, 'hardlink or 'backup. Argument FOLLOW when non-nil specifies to follow FILES to DESTINATION for the actions copy and rename. (fn DESTINATION &key ACTION FOLLOW (FILES (dired-get-marked-files))) (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\267\202\216 \202\217\n\202\217 \202\217\f\202\217\312G\336U\205\242\337@!\205\242\337!?\340\305!\203\260 \203\260\336\202\261\3419\203\303\342\305!\203\303\305\341!\210A\203\327\337\n!\204\327\316\343 \f#\210\344\345\"\216\346\347\n!\337!\203\363\344\350\"\202\370\344\351\"%\210)\352\337 !\203\f\353 !\202\354 !!:B:\205`\355>?\205`\323!?\205`\356\n!\357\216\360\f#;\361\362\363\"\210\362\364B\204C\306!\204C\305\"\203CB\262A\262\302\262\202\237\207" [default-directory helm-buffer-list nil buffer-file-name get-buffer file-in-directory-p file-remote-p] 10 (#$ . 193191)]) #@18 (fn DIRECTORY) (defalias 'helm-browse-project-build-buffers-source #[257 "\300\301\302\303\304\305\"\306\304\307\"&\207" [helm-make-source "Buffers in project" helm-source-buffers :header-name make-closure #[257 "\301\302\303\300!#\207" [V0 format "%s (%s)" abbreviate-file-name] 6 "\n\n(fn NAME)"] :buffer-list #[0 "\301\300!\207" [V0 helm-browse-project-get-buffers] 2]] 10 (#$ . 193559)]) #@83 Default function for `helm-browse-project-default-find-files-fn'. (fn DIRECTORY) (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 (#$ . 193965)]) #@84 List files in DIRECTORY recursively with external PROGRAM. (fn DIRECTORY PROGRAM) (defalias 'helm-browse-project-find-files-1 #[514 "\211\300\267\202\301\202\302\202\303\202\304\305\306#\205\307\310\311\312\"r\211q\210\313\314\"\216\315\316\"\307\312\307$\210\317\313\320\"\321\322 \323\"\"*\207" [#s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (ag 6 rg 10 fd 14)) "ag --hidden -g '.*' %s" "rg --files --hidden -g '*' %s" "fd --hidden --type f --glob '*' %s" error "cl-ecase failed: %s, %s" (ag rg fd) nil generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] call-process-shell-command format mapcar #[257 "\301\300\"\207" [V0 expand-file-name] 4 "\n\n(fn F)"] split-string buffer-string "\n"] 9 (#$ . 194227)]) #@105 A suitable function for `helm-browse-project-default-find-files-fn'. Use AG as backend. (fn DIRECTORY) (defalias 'helm-browse-project-ag-find-files #[257 "\300\301\"\207" [helm-browse-project-find-files-1 ag] 4 (#$ . 195062)]) #@105 A suitable function for `helm-browse-project-default-find-files-fn'. Use RG as backend. (fn DIRECTORY) (defalias 'helm-browse-project-rg-find-files #[257 "\300\301\"\207" [helm-browse-project-find-files-1 rg] 4 (#$ . 195298)]) #@105 A suitable function for `helm-browse-project-default-find-files-fn'. Use FD as backend. (fn DIRECTORY) (defalias 'helm-browse-project-fd-find-files #[257 "\300\301\"\207" [helm-browse-project-find-files-1 fd] 4 (#$ . 195534)]) #@68 A `helm-grep' AG action for `helm-browse-project'. (fn CANDIDATE) (defalias 'helm-browse-project-ag #[257 "r\301 q\210\302\303!)\304\"\207" [helm-current-prefix-arg helm-buffer-get helm-get-attr root-dir helm-grep-ag] 5 (#$ . 195769)]) #@48 Run `helm-grep' AG from `helm-browse-project'. (defalias 'helm-browse-project-run-ag #[0 "\203\301\302!\207\303\304!\207" [helm-alive-p helm-exit-and-execute-action helm-browse-project-ag error "Running helm command outside of context"] 2 (#$ . 196014) nil]) (byte-code "\300\301\302\303#\210\304\305\306\307!\"\210\304\310\311\307!\"\210\304\312\310\"\210\313\312\314\315#\210\316\307\317\310#\320\307\321\322\211$\207" [put helm-browse-project-run-ag helm-only t defalias helm-browse-project-override-inheritor-p eieio-make-class-predicate helm-browse-project-override-inheritor helm-browse-project-override-inheritor--eieio-childp eieio-make-child-predicate helm-browse-project-override-inheritor-child-p make-obsolete "use (cl-typep ... \\='helm-browse-project-override-inheritor) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (helm-type-file) nil] 6) #@95 Create a new object of class type `helm-browse-project-override-inheritor'. (fn &rest SLOTS) (defalias 'helm-browse-project-override-inheritor #[128 "\300\301\302#\207" [apply make-instance helm-browse-project-override-inheritor] 5 (#$ . 196913)]) (byte-code "\300\301\302\303#\300\207" [function-put helm-browse-project-override-inheritor compiler-macro helm-browse-project-override-inheritor--anon-cmacro] 4) #@26 (fn WHOLE &rest SLOTS) (defalias 'helm-browse-project-override-inheritor--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 (#$ . 197332)]) (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-browse-project-source-p eieio-make-class-predicate helm-browse-project-source helm-browse-project-source--eieio-childp eieio-make-child-predicate helm-browse-project-source-child-p make-obsolete "use (cl-typep ... \\='helm-browse-project-source) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (helm-source-in-buffer helm-browse-project-override-inheritor) ((root-dir :initarg :root-dir :initform nil :custom 'file) (match-part :initform (lambda (c) (if (with-helm-buffer helm-ff-transformer-show-only-basename) (helm-basename c) c))) (filter-one-by-one :initform (lambda (c) (if (with-helm-buffer helm-ff-transformer-show-only-basename) (cons (propertize (helm-basename c) 'face 'helm-ff-file) c) (propertize c 'face 'helm-ff-file))))) (:documentation "Class to define a source in `helm-browse-project' handling non\nVC handled directories.")] 6) #@83 Create a new object of class type `helm-browse-project-source'. (fn &rest SLOTS) (defalias 'helm-browse-project-source #[128 "\300\301\302#\207" [apply make-instance helm-browse-project-source] 5 (#$ . 198626)]) (byte-code "\300\301\302\303#\300\207" [function-put helm-browse-project-source compiler-macro helm-browse-project-source--anon-cmacro] 4) #@26 (fn WHOLE &rest SLOTS) (defalias 'helm-browse-project-source--anon-cmacro #[385 "\211@;\204\207\300\301\302@@#@\303@DABB\"\207" [macroexp-warn-and-return format "Obsolete name arg %S to constructor %S" identity] 7 (#$ . 198985)]) (cl-generic-define-method 'helm--setup-source '(:after) '((source helm-browse-project-override-inheritor)) nil #[257 "\301\302\"\303\302\304J\305\306##\266\303\307#\207" [helm-browse-project-map slot-value action eieio-oset helm-append-at-nth (("Grep project with AG `M-g a, C-u select type'" . helm-browse-project-ag)) 7 keymap] 10 "\n\n(fn SOURCE)"]) #@78 Browse non VC handled directory DIRECTORY. (fn DIRECTORY &optional REFRESH) (defalias 'helm-browse-project-find-files #[513 "\211\203 \302\"\210\303\"\204\304 !#\210\305\306\307!\310\311\312\313\314\303 \"\315\316\317\"&D\320\321\322\323&\207" [helm--browse-project-cache helm-browse-project-default-find-files-fn remhash gethash puthash helm :sources helm-browse-project-build-buffers-source helm-make-source "Browse project" helm-browse-project-source :root-dir :data :header-name make-closure #[257 "\301\302\303\300!#\207" [V0 format "%s (%s)" abbreviate-file-name] 6 "\n\n(fn NAME)"] :ff-transformer-show-only-basename nil :buffer "*helm browse project*"] 16 (#$ . 199592)]) (defvar helm-browse-project-history nil) #@12 (fn ARG) (defalias 'helm-projects-history #[257 "\301\302\303\304\305\306\307\310\311\n\"&\312\313$\207" [helm-browse-project-history helm :sources helm-make-source "Project history" helm-source-sync :candidates :action make-closure #[257 "\211\203\n\303!\206 \304\300\206\n!)\207" [V0 default-directory helm-current-prefix-arg file-name-as-directory helm-browse-project] 3 "\n\n(fn CANDIDATE)"] :buffer "*helm browse project history*"] 12 (#$ . 200340) "P"]) #@639 Preconfigured helm to browse projects. Browse files and see status of project with its VCS. Only HG and GIT are supported for now. Fall back to `helm-browse-project-find-files' if current directory is not under control of one of those VCS. With a prefix ARG browse files recursively, with two prefix ARG rebuild the cache. If the current directory is found in the cache, start `helm-browse-project-find-files' even with no prefix ARG. NOTE: The prefix ARG have no effect on the VCS controlled directories. Needed dependencies for VCS: and . (fn ARG) (defalias 'helm-browse-project #[257 "\303\304!\210\305\306\307\"\"\310\311\303\312\313\310#\205\314\315!\205\315 \211\211\203-!\210\316 \202\303\317\313\310#\205=\314\320!\205=\320 \211\211\203K!\210\321 \202{\322\323 !\211\211\205w\204`\324\n\"\203o!\210\325 \326\232\"\202w\327\330\331!\332\333$\262\262\262\262\262\262\262*\207" [helm-type-buffer-actions helm-buffers-in-project-p helm--browse-project-cache require helm-x-files remove assoc "Browse project from buffer" t #[257 "\211\301\"B\211\207" [helm-browse-project-history delete] 5 "\n\n(fn ROOT)"] 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 (#$ . 200819) "P"]) #@18 (fn DIRECTORY) (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 (#$ . 202392)]) #@81 Browse project in current directory. See `helm-browse-project'. (fn CANDIDATE) (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 (#$ . 202682)]) (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]) (put 'helm-ff-run-browse-project 'helm-only t) #@18 (fn CANDIDATE) (defalias 'helm-ff-gid #[257 "\203\n\302!\206 \303 )\207" [helm-ff-default-directory default-directory file-name-as-directory helm-gid] 3 (#$ . 203228)]) (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]) (put 'helm-ff-run-gid 'helm-only t) #@57 Run `helm-find' from `helm-find-files'. (fn CANDIDATE) (defalias 'helm-ff-find-sh-command #[257 "\301\302!\210\303!\207" [helm-ff-default-directory require helm-find helm-find-1] 3 (#$ . 203630)]) #@64 Run find shell command action with key from `helm-find-files'. (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 (#$ . 203835) nil]) (put 'helm-ff-run-find-sh-command 'helm-only t) #@62 Run fd shell command from `helm-find-files'. (fn CANDIDATE) (defalias 'helm-ff-fd #[257 "\301\302!\210\303!\207" [helm-ff-default-directory require helm-fd helm-fd-1] 3 (#$ . 204169)]) #@62 Run fd shell command action with key from `helm-find-files'. (defalias 'helm-ff-run-fd #[0 "\203\301\302!\207\303\304!\207" [helm-alive-p helm-exit-and-execute-action helm-ff-fd error "Running helm command outside of context"] 2 (#$ . 204362) nil]) (put 'helm-ff-run-fd 'helm-only t) #@252 Preconfigured `helm' for helm implementation of `find-file'. Called with a prefix arg show history if some. Don't call it from programs, use `helm-find-files-1' instead. This is the starting point for nearly all actions you can do on files. (fn ARG) (defalias 'helm-find-files #[257 "\306\211\205 \205 \307\306!\211\206\310 \311\312 !\204#\n\203#\211\202T \313=\2039\f\2039\2049\314\311\f!!\202T \315=\203I\203I\316!\202T\317\230\204S\206T\211\320!?\206q\211\203d\206q\321p!\206q \315=\205q\211\205\225 \203\224\204\224\322\306\323 \324#)\266\203\204\224\325!\202\225\211\262\203\271\326\327!!!\203\271\330\331r!q\210)\332r!q\210)$\210\333\334G\306$\210\306\"??#\335\205\333$?\205\333\336\337!P\"*\207" [tramp-archive-enabled helm-ff-history helm-find-files-ignore-thing-at-point major-mode org-directory helm-ff-transformer-show-only-basename nil helm-find-files-history helm-find-files-initial-input expand-file-name helm-current-directory org-agenda-mode file-name-as-directory dired-mode file-name-directory "" file-directory-p 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 inhibit-changing-match-data helm-ff-history-buffer-name current-prefix-arg helm--executing-helm-action helm-ff-no-preselect] 14 (#$ . 204656) "P"]) #@297 Allow deleting tramp connection or marked tramp connections at once. This replace `tramp-cleanup-connection' which is partially broken in Emacs < to 25.1.50.1 (See Emacs bug http://debbugs.gnu.org/cgi/bugreport.cgi?bug=24432). It allows additionally to delete more than one connection at once. (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\211:\203_@\262\301\302\303!\211\304\300\211T\211\262\2034GW\2034H\262B\262\202\211\237\266\205\"\262\305\306!!\204N\307\310\311!!!\203UBB\262A\262\300\262\202\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] 15 "\n\n(fn CANDIDATES)"] :action #[257 "\301 \211\302:\203@\262\303!\210\304\"\210A\262\202\266\302\207" [tramp-cache-data helm-marked-candidates nil tramp-cleanup-connection remhash] 7 "\n\n(fn VEC)"] :buffer "*helm tramp connections*"] 11 (#$ . 206132) nil]) (provide 'helm-files)