| commit | author | age | ||
| 5cb5f7 | 1 | ;ELC |
| C | 2 | ;;; Compiled |
| 3 | ;;; in Emacs version 26.1 | |
| 4 | ;;; with all optimizations. | |
| 5 | ||
| 6 | ;;; This file uses dynamic docstrings, first added in Emacs 19.29. | |
| 7 | ||
| 8 | ;;; This file does not contain utf-8 non-ASCII characters, | |
| 9 | ;;; and so can be loaded in Emacs versions earlier than 23. | |
| 10 | ||
| 11 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
| 12 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
| 13 | ||
| 14 | ||
| 15 | (byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\210\300\305!\210\300\306!\210\300\307!\210\300\310!\210\300\311!\210\312\313\314\315\316\317\320\302\320\305\321\322& \210\323\324\325\326\327DD\330\320\313\331\332&\210\323\333\325\326\334DD\335\320\313\331\332&\207" [require subr-x projectile cl-lib grep helm helm-types helm-locate helm-buffers helm-files custom-declare-group helm-projectile nil "Helm support for projectile." :prefix "helm-projectile-" :group :link (url-link :tag "GitHub" "https://github.com/bbatsov/helm-projectile") custom-declare-variable helm-projectile-truncate-lines funcall function #[0 "\300\207" [nil] 1] "Truncate lines in helm projectile commands when non--nil.\n\nSome `helm-projectile' commands have similar behavior with existing\nHelms. In these cases their respective custom var for truncation\nof lines will be honored. E.g. `helm-buffers-truncate-lines'\ndictates the truncation in `helm-projectile-switch-to-buffer'." :type boolean helm-projectile-fuzzy-match #[0 "\300\207" [t] 1] "Enable fuzzy matching for Helm Projectile commands.\nThis needs to be set before loading helm-projectile.el."] 12) | |
| 16 | #@105 In KEYMAP, define KEY - DEF sequence KEY1 as DEF1, KEY2 as DEF2 ... | |
| 17 | ||
| 18 | (fn KEYMAP KEY DEF &rest BINDINGS) | |
| 19 | (defalias 'helm-projectile-define-key '(macro . #[899 "\300\203( \301\302\303\304\305 DFFB\262\211A\262\242\262\211A\262\242\262\202 \306!\207" [(progn) define-key lambda nil (interactive) helm-exit-and-execute-action reverse] 13 (#$ . 1564)])) | |
| 20 | (byte-code "\300\301\302\303#\300\207" [function-put helm-projectile-define-key lisp-indent-function defun] 4) | |
| 21 | #@1025 Given a Helm action list and a prescription, return a hacked Helm action list, after applying the PRESCRIPTION. | |
| 22 | ||
| 23 | The Helm action list ACTIONS is of the form: | |
| 24 | ||
| 25 | ((DESCRIPTION1 . FUNCTION1) | |
| 26 | (DESCRIPTION2 . FUNCTION2) | |
| 27 | ... | |
| 28 | (DESCRIPTIONn . FUNCTIONn)) | |
| 29 | ||
| 30 | PRESCRIPTION is in the form: | |
| 31 | ||
| 32 | (INSTRUCTION1 INSTRUCTION2 ... INSTRUCTIONn) | |
| 33 | ||
| 34 | If an INSTRUCTION is a symbol, the action with function name | |
| 35 | INSTRUCTION is deleted. | |
| 36 | ||
| 37 | If an INSTRUCTION is of the form (FUNCTION1 . FUNCTION2), the | |
| 38 | action with function name FUNCTION1 will change it's function to | |
| 39 | FUNCTION2. | |
| 40 | ||
| 41 | If an INSTRUCTION is of the form (FUNCTION . DESCRIPTION), and | |
| 42 | if an action with function name FUNCTION exists in the original | |
| 43 | Helm action list, the action in the Helm action list, with | |
| 44 | function name FUNCTION will change it's description to | |
| 45 | DESCRIPTION. Otherwise, (FUNCTION . DESCRIPTION) will be added to | |
| 46 | the action list. | |
| 47 | ||
| 48 | Please check out how `helm-projectile-file-actions' is defined | |
| 49 | for an example of how this function is being used. | |
| 50 | ||
| 51 | (fn ACTIONS &rest PRESCRIPTION) | |
| 52 | (defalias 'helm-projectile-hack-actions #[385 "\300\301\"\302\303\304\305\306\307!\310\"\311\312%\313!\"\314\211\203A \211@\211A\236A\211\262\203: ;\2036 \211\240\210\202: \211\241\210A\266\202\202 \210\314\262\211\203u \211@\211<\203n \315@\"\204n \211@9\203n \211A;\203n \211A@BB\262A\266\202\202F \210\316\237\"\207" [cl-remove-if #[257 "\211<\207" #1=[] 2 "\n\n(fn ENTRY)"] cl-delete-if make-byte-code 257 "\211A\300>\207" vconcat vector #1# 3 "\n\n(fn ACTION)" copy-alist nil rassq append] 10 (#$ . 2046)]) | |
| 53 | #@112 A Helm action for jumping to project root using `vc-dir' or Magit. | |
| 54 | DIR is a directory to be switched | |
| 55 | ||
| 56 | (fn DIR) | |
| 57 | (defalias 'helm-projectile-vc #[257 "\301\302!)\207" [projectile-require-project-root nil projectile-vc] 3 (#$ . 3612)]) | |
| 58 | #@73 A Helm action for compile a project. | |
| 59 | DIR is the project root. | |
| 60 | ||
| 61 | (fn DIR) | |
| 62 | (defalias 'helm-projectile-compile-project #[257 "\303\304\n!*\207" [default-directory helm--reading-passwd-or-string helm-current-prefix-arg t projectile-compile-project] 3 (#$ . 3852)]) | |
| 63 | #@70 A Helm action for test a project. | |
| 64 | DIR is the project root. | |
| 65 | ||
| 66 | (fn DIR) | |
| 67 | (defalias 'helm-projectile-test-project #[257 "\303\304\n!*\207" [default-directory helm--reading-passwd-or-string helm-current-prefix-arg t projectile-test-project] 3 (#$ . 4121)]) | |
| 68 | #@69 A Helm action for run a project. | |
| 69 | DIR is the project root. | |
| 70 | ||
| 71 | (fn DIR) | |
| 72 | (defalias 'helm-projectile-run-project #[257 "\303\304\n!*\207" [default-directory helm--reading-passwd-or-string helm-current-prefix-arg t projectile-run-project] 3 (#$ . 4381)]) | |
| 73 | #@151 Remove selected projects from projectile project list. | |
| 74 | _IGNORE means the argument does not matter. | |
| 75 | It is there because Helm requires it. | |
| 76 | ||
| 77 | (fn IGNORE) | |
| 78 | (defalias 'helm-projectile-remove-known-project #[257 "\305\306\307\"\211G\310!\307\n\311=\203 \312\202 \n\313\211 \313Crq\210\314!\210)\315\316\317\320\321!\322\"\323$\216\324\325\326\"\240!r\315\316\327\320\321!\330\"\331$\216\332@\333\"\210\334\335\336\"!\204] \337\340!\202j \341\342\"\210\343 \210\337\344\"*\262-\266\202\207" [helm-marked-buffer-name helm-always-two-windows helm-split-window-default-side helm-split-window-inside-p helm-reuse-last-window-split-state helm-marked-candidates :with-wildcard t temp-buffer-window-setup same below nil helm-format-columns-of-files make-byte-code 0 "\301\302\300\242\"\207" vconcat vector [quit-window kill] 3 internal--before-with-selected-window temp-buffer-window-show (display-buffer-below-selected (window-height . fit-window-to-buffer)) "\301\300!\207" [internal--after-with-selected-window] 2 select-window norecord y-or-n-p format "Remove *%s projects(s)? " message "(No removal performed)" mapc #[257 "\301\"\207" [projectile-known-projects delete] 4 "\n\n(fn P)"] projectile-save-known-projects "%s projects(s) removed"] 13 (#$ . 4639)]) | |
| 79 | #@40 Mapping for known projectile projects. | |
| 80 | (defvar helm-projectile-projects-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\211\207" [helm-map make-sparse-keymap set-keymap-parent define-key "" #[0 "\300\301!\207" [helm-exit-and-execute-action dired] 2 nil nil] [134217831] #[0 "\300\301!\207" [helm-exit-and-execute-action helm-projectile-vc] 2 nil nil] [134217829] #[0 "\300\301!\207" [helm-exit-and-execute-action helm-projectile-switch-to-eshell] 2 nil nil] "" #[0 "\300\301!\207" [helm-exit-and-execute-action helm-projectile-grep] 2 nil nil] [134217827] #[0 "\300\301!\207" [helm-exit-and-execute-action helm-projectile-compile-project] 2 nil nil] [134217844] #[0 "\300\301!\207" [helm-exit-and-execute-action helm-projectile-test-project] 2 nil nil] [134217842] #[0 "\300\301!\207" [helm-exit-and-execute-action helm-projectile-run-project] 2 nil nil] [134217796] #[0 "\300\301!\207" [helm-exit-and-execute-action helm-projectile-remove-known-project] 2 nil nil]] 5) (#$ . 5915)) | |
| 81 | (byte-code "\300\301\302\303\304DD\305\306\307\310\311&\207" [custom-declare-variable helm-source-projectile-projects-actions funcall function #[0 "\300\301\302\303\304\305\306\307\310\311\312\313\314\315\316&\207" [helm-make-actions "Switch to project" #[257 "\301\302!)\207" [projectile-completion-system helm projectile-switch-project-by-name] 3 "\n\n(fn PROJECT)"] "Open Dired in project's directory `C-d'" dired "Open project root in vc-dir or magit `M-g'" helm-projectile-vc "Switch to Eshell `M-e'" helm-projectile-switch-to-eshell "Grep in projects `C-s'" helm-projectile-grep "Compile project `M-c'. With C-u, new compile command" helm-projectile-compile-project "Remove project(s) from project list `M-D'" helm-projectile-remove-known-project] 15] "Actions for `helm-source-projectile-projects'." :group helm-projectile :type (alist :key-type string :value-type function)] 8) | |
| 82 | #@44 Helm source for known projectile projects. | |
| 83 | (defvar helm-source-projectile-projects (helm-make-source "Projectile projects" 'helm-source-sync :candidates #[0 "r\302!\203 \206 p\211q\210 )\207" [helm-current-buffer projectile-known-projects buffer-live-p] 2] :fuzzy-match helm-projectile-fuzzy-match :keymap helm-projectile-projects-map :mode-line helm-read-file-name-mode-line-string :action 'helm-source-projectile-projects-actions) (#$ . 7926)) | |
| 84 | #@40 Mapping for dirty projectile projects. | |
| 85 | (defvar helm-projectile-dirty-projects-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\211\207" [helm-map make-sparse-keymap set-keymap-parent define-key "" #[0 "\300\301!\207" [helm-exit-and-execute-action dired] 2 nil nil] [134217839] #[0 "\300\301!\207" [helm-exit-and-execute-action #[257 "\301\302!)\207" [projectile-completion-system helm projectile-switch-project-by-name] 3 "\n\n(fn PROJECT)"]] 2 nil nil] [134217829] #[0 "\300\301!\207" [helm-exit-and-execute-action helm-projectile-switch-to-eshell] 2 nil nil] "" #[0 "\300\301!\207" [helm-exit-and-execute-action helm-projectile-grep] 2 nil nil] [134217827] #[0 "\300\301!\207" [helm-exit-and-execute-action helm-projectile-compile-project] 2 nil nil] [134217844] #[0 "\300\301!\207" [helm-exit-and-execute-action helm-projectile-test-project] 2 nil nil] [134217842] #[0 "\300\301!\207" [helm-exit-and-execute-action helm-projectile-run-project] 2 nil nil] [134217796] #[0 "\300\301!\207" [helm-exit-and-execute-action helm-projectile-remove-known-project] 2 nil nil]] 5) (#$ . 8383)) | |
| 86 | #@63 Helm source for dirty version controlled projectile projects. | |
| 87 | (defvar helm-source-projectile-dirty-projects (helm-make-source "Projectile dirty projects" 'helm-source-sync :candidates #[0 "r\301!\203 \206 p\211q\210\302 )\207" [helm-current-buffer buffer-live-p helm-projectile-get-dirty-projects] 2] :fuzzy-match helm-projectile-fuzzy-match :keymap helm-projectile-dirty-projects-map :mode-line helm-read-file-name-mode-line-string :action '(("Open project root in vc-dir or magit" . helm-projectile-vc) ("Switch to project `M-o'" lambda (project) (let ((projectile-completion-system 'helm)) (projectile-switch-project-by-name project))) ("Open Dired in project's directory `C-d'" . dired) ("Switch to Eshell `M-e'" . helm-projectile-switch-to-eshell) ("Grep in projects `C-s'" . helm-projectile-grep) ("Compile project `M-c'. With C-u, new compile command" . helm-projectile-compile-project))) (#$ . 9608)) | |
| 88 | #@92 Return dirty version controlled known projects as an alist to | |
| 89 | have a nice display in Helm. | |
| 90 | (defalias 'helm-projectile-get-dirty-projects #[0 "\300\301!\210\302 \211\303\211:\203 @\262@B\262A\262\202 \211\237\266\203\303\211:\203I @\262\304\305\306\307\310A@\311#\"\312\313#B\262A\262\202& \211\237\266\203\211\303\211:\203o @\262G\203e ]\202f \211\266\202A\262\202P \266\202\303\211:\203\225 @\262\305\314\315GZ\316\"#B\262A\262\202t \211\237\266\203\317\320#\321\"\207" [message "Checking for dirty known projects..." projectile-check-vcs-status-of-known-projects nil propertize format "[%s]" mapconcat identity ", " face helm-match "%s%s " make-string 32 cl-mapcar concat cl-pairlis] 13 (#$ . 10528)]) | |
| 91 | (define-key helm-etags-map "pf" #[0 "\300\301\302\"\207" [helm-run-after-exit helm-projectile-find-file nil] 3 nil nil]) | |
| 92 | #@123 Persistent action for file-related functionality. | |
| 93 | ||
| 94 | Previews the contents of a file in a temporary buffer. | |
| 95 | ||
| 96 | (fn CANDIDATE) | |
| 97 | (defalias 'helm-projectile-file-persistent-action #[257 "\300\301!\302\303\304!\203 \303\305!\230\203 \306!\210\307\304\310\"\210\202( \211\"\210\307\304\311\"\210\210\307\305\"\207" [get-buffer-create " *helm-projectile persistent*" #[514 "\302!\210\303\304 \210\305!\210\211\306 \210)\307 \210\310\211\207" [inhibit-read-only buffer-file-name switch-to-buffer t erase-buffer insert-file-contents set-auto-mode font-lock-ensure nil] 4 "\n\n(fn BUF CANDIDATE)"] helm-attr previewp current-candidate kill-buffer helm-attrset nil t] 6 (#$ . 11412)]) | |
| 98 | #@18 | |
| 99 | ||
| 100 | (fn CANDIDATE) | |
| 101 | (defalias 'helm-projectile-find-files-eshell-command-on-file-action #[257 "\301!\302!)\207" [helm-ff-default-directory file-name-directory helm-find-files-eshell-command-on-file] 3 (#$ . 12100) nil]) | |
| 102 | #@18 | |
| 103 | ||
| 104 | (fn CANDIDATE) | |
| 105 | (defalias 'helm-projectile-ff-etags-select-action #[257 "\301!\302!)\207" [helm-ff-default-directory file-name-directory helm-ff-etags-select] 3 (#$ . 12326) nil]) | |
| 106 | #@12 | |
| 107 | ||
| 108 | (fn DIR) | |
| 109 | (defalias 'helm-projectile-switch-to-eshell #[257 "\302\303\304!!\305!*\207" [projectile-require-project-root helm-ff-default-directory nil file-name-directory projectile-expand-root helm-ff-switch-to-eshell] 4 (#$ . 12516) nil]) | |
| 110 | #@60 Return a list of files (only) in the current dired buffer. | |
| 111 | (defalias 'helm-projectile-files-in-current-dired-buffer #[0 "\301C\302\212\301\211eb\210m\204, \212l\204% \303\304\211\"\211\262\203% \301\210\"\210)\305y\210\202\n )\210)\210\306\307\242\237\"\207" [buffer-read-only nil #[514 "\242B\240\207" [] 5 "\n\n(fn FLIST FNAME)"] dired-get-filename t 1 mapcar file-truename] 6 (#$ . 12767)]) | |
| 112 | #@32 Get all current Dired buffers. | |
| 113 | (defalias 'helm-projectile-all-dired-buffers #[0 "\300\301\302\303\304 \"\"\207" [mapcar #[257 "r\211q\210\300 )\207" [buffer-name] 2 "\n\n(fn B)"] cl-remove-if-not #[257 "r\211q\210\301=\205\f \302 )\207" [major-mode dired-mode buffer-name] 3 "\n\n(fn B)"] buffer-list] 5 (#$ . 13177)]) | |
| 114 | #@67 Enable virtual Dired manager on remote host. | |
| 115 | Disabled by default. | |
| 116 | (defvar helm-projectile-virtual-dired-remote-enable nil (#$ . 13503)) | |
| 117 | #@132 Create a Dired buffer from chosen files. | |
| 118 | CANDIDATE is the selected file, but choose the marked files if available. | |
| 119 | ||
| 120 | (fn CANDIDATE) | |
| 121 | (defalias 'helm-projectile-dired-files-new-action #[257 "\303\304 !\203 \204 \305\306\307\310\311\312#\"\207\313\314\315\316\317\320\321\"\"\"\322\323\324 \"\321\304 r\325\326!\2035 \2027 CB!q\210\327!\203E \330!\210\331!+\207" [helm-projectile-virtual-dired-remote-enable default-directory helm--reading-passwd-or-string file-remote-p projectile-project-root message "Virtual Dired manager is disabled in remote host. Enable with %s." propertize "helm-projectile-virtual-dired-remote-enable" face font-lock-keyword-face cl-remove-if-not #[257 "\211\300\230?\207" [#1=""] 3 "\n\n(fn F)"] mapcar #[257 "\300\301 \302#\207" [replace-regexp-in-string projectile-project-root #1#] 5 "\n\n(fn FILE)"] helm-marked-candidates :with-wildcard t completing-read "Select or enter a new buffer name: " helm-projectile-all-dired-buffers dired make-temp-name get-buffer kill-buffer rename-buffer] 8 (#$ . 13646)]) | |
| 122 | #@119 Add files to a Dired buffer. | |
| 123 | CANDIDATE is the selected file. Used when no file is explicitly marked. | |
| 124 | ||
| 125 | (fn CANDIDATE) | |
| 126 | (defalias 'helm-projectile-dired-files-add-action #[257 "\305\306 !\203 \204 \307\310\311\312\313\314#\"\207r\315 !\203 \206\" p\211q\210\n)\316=\203\220 \317\320\321\"\321\306 \n\316=\203> \322 \206C \323\324\325 \"r\211q\210\326 )\327\330\331\332\203X \202[ C\333\334$\"\335\"\336!\210 r\337\340!\203\204 \330\341\342\343\344\345 !\346\"\347\350%\"\202\207 CB!q\210\351!+\207\352\353!\207" [helm-projectile-virtual-dired-remote-enable helm-current-buffer major-mode helm--reading-passwd-or-string default-directory file-remote-p projectile-project-root message "Virtual Dired manager is disabled in remote host. Enable with %s." propertize "helm-projectile-virtual-dired-remote-enable" face font-lock-keyword-face buffer-live-p dired-mode helm-marked-candidates :with-wildcard t buffer-name completing-read "Select a Dired buffer:" helm-projectile-all-dired-buffers helm-projectile-files-in-current-dired-buffer sort mapcar #[257 "\300\301 \302#\207" [replace-regexp-in-string projectile-project-root #1=""] 5 "\n\n(fn FILE)"] cl-nunion :test string-equal string-lessp kill-buffer dired make-temp-name make-byte-code 257 "\301\300\302#\207" vconcat vector [replace-regexp-in-string #1#] 5 "\n\n(fn FILE)" rename-buffer error "You're not in a Dired buffer to add"] 15 (#$ . 14697)]) | |
| 127 | #@135 Delete selected entries from a Dired buffer. | |
| 128 | CANDIDATE is the selected file. Used when no file is explicitly marked. | |
| 129 | ||
| 130 | (fn CANDIDATE) | |
| 131 | (defalias 'helm-projectile-dired-files-delete-action #[257 "\304\305 !\203 \204 \306\307\310\311\312\313#\"\207\314\305 r\315\n!\203# \n\206& p\211q\210\316 )r\211q\210\317 )\320\321\322\323\314\"\324\325$\326\"\327!\210r\330\331!\203` \332\333\334\335\336\337 !\340\"\341\342%\"\202c CB!q\210\343!+\207" [helm-projectile-virtual-dired-remote-enable helm--reading-passwd-or-string helm-current-buffer default-directory file-remote-p projectile-project-root message "Virtual Dired manager is disabled in remote host. Enable with %s." propertize "helm-projectile-virtual-dired-remote-enable" face font-lock-keyword-face t buffer-live-p buffer-name helm-projectile-files-in-current-dired-buffer sort cl-set-exclusive-or helm-marked-candidates :with-wildcard :test string-equal string-lessp kill-buffer dired make-temp-name mapcar make-byte-code 257 "\301\300\302#\207" vconcat vector [replace-regexp-in-string ""] 5 "\n\n(fn FILE)" rename-buffer] 14 (#$ . 16131)]) | |
| 132 | #@80 Run `projectile-find-file-hook' if using projectile. | |
| 133 | ||
| 134 | (fn ORIG-FUN &rest ARGS) | |
| 135 | (defalias 'helm-projectile-run-projectile-hooks-after-find-file #[385 "\205\f \301 \205\f \302\303!\207" [projectile-mode projectile-project-p run-hooks projectile-find-file-hook] 4 (#$ . 17250)]) | |
| 136 | (advice-add 'helm-find-file-or-marked :after 'helm-projectile-run-projectile-hooks-after-find-file) | |
| 137 | #@47 Mapping for file commands in Helm Projectile. | |
| 138 | (defvar helm-projectile-find-file-map (byte-code "\301!\302\303\304#\210\302\305\306#\210\302\307\310#\210\302\311\312#\210\302\313\314#\210\302\315\316#\210\302\317\320#\210\321\211\203A \211@\322\323#\210A\266\202\202. \210\211\207" [helm-find-files-map copy-keymap define-key "f" #[0 "\300\301!\207" [helm-exit-and-execute-action helm-projectile-dired-files-new-action] 2 nil nil] "a" #[0 "\300\301!\207" [helm-exit-and-execute-action helm-projectile-dired-files-add-action] 2 nil nil] [134217829] #[0 "\300\301!\207" [helm-exit-and-execute-action helm-projectile-switch-to-eshell] 2 nil nil] [134217774] #[0 "\300\301!\207" [helm-exit-and-execute-action helm-projectile-ff-etags-select-action] 2 nil nil] [134217761] #[0 "\300\301!\207" [helm-exit-and-execute-action helm-projectile-find-files-eshell-command-on-file-action] 2 nil nil] [left] helm-previous-source [right] helm-next-source (helm-find-files-up-one-level helm-find-files-down-last-level) substitute-key-definition nil] 7) (#$ . 17633)) | |
| 139 | #@19 Action for files. | |
| 140 | (defvar helm-projectile-file-actions (helm-projectile-hack-actions helm-find-files-actions 'helm-ff-browse-project 'helm-insert-file-name-completion-at-point 'helm-ff-find-sh-command 'helm-ff-cache-add-file '(helm-ff-switch-to-eshell . helm-projectile-switch-to-eshell) '(helm-ff-etags-select . helm-projectile-ff-etags-select-action) '(helm-find-files-eshell-command-on-file . helm-projectile-find-files-eshell-command-on-file-action) '(helm-find-file-as-root . "Find file as root `C-c r'") '(helm-projectile-dired-files-new-action . "Create Dired buffer from files `C-c f'") '(helm-projectile-dired-files-add-action . "Add files to Dired buffer `C-c a'")) (#$ . 18702)) | |
| 141 | #@216 Return non-nil if should move Helm selector after SELECTION. | |
| 142 | ||
| 143 | SELECTION should be moved unless it's one of: | |
| 144 | ||
| 145 | - Non-string | |
| 146 | - Existing file | |
| 147 | - Non-remote file that matches `helm-tramp-file-name-regexp' | |
| 148 | ||
| 149 | (fn SELECTION) | |
| 150 | (defalias 'helm-projectile--move-selection-p #[257 "\211;?\206 \301!\206 \302\"\205 \303\304\305#??\207" [helm-tramp-file-name-regexp file-exists-p string-match file-remote-p nil t] 5 (#$ . 19399)]) | |
| 151 | #@120 Move to first real candidate. | |
| 152 | ||
| 153 | Similar to `helm-ff--move-to-first-real-candidate', but without | |
| 154 | unnecessary complexity. | |
| 155 | (defalias 'helm-projectile--move-to-real #[0 "\300 \301 ?\205 \302\303\211#\304 ?\205 \305!\266\202\205! \306 \210\202 \207" [helm-get-current-source helm-empty-source-p helm-get-selection nil helm-end-of-source-p helm-projectile--move-selection-p helm-next-line] 5 (#$ . 19827)]) | |
| 156 | #@143 Hook function to remove `helm-projectile--move-to-real'. | |
| 157 | ||
| 158 | Meant to be added to `helm-cleanup-hook', from which it removes | |
| 159 | itself at the end. | |
| 160 | (defalias 'helm-projectile--remove-move-to-real #[0 "\300\301\302\"\210\300\303\304\"\207" [remove-hook helm-after-update-hook helm-projectile--move-to-real helm-cleanup-hook helm-projectile--remove-move-to-real] 3 (#$ . 20239)]) | |
| 161 | #@46 Helm source definition for Projectile files. | |
| 162 | (defvar helm-source-projectile-files-list (helm-make-source "Projectile files" 'helm-source-sync :before-init-hook #[0 "\300\301\302\"\210\300\303\304\"\207" [add-hook helm-after-update-hook helm-projectile--move-to-real helm-cleanup-hook helm-projectile--remove-move-to-real] 3] :candidates #[0 "\301 \205; r\302!\203 \206 p\211q\210\303 \304 \305\211:\2036 @\262\306\"BB\262A\262\202 \211\237\266\204)\207" [helm-current-buffer projectile-project-p buffer-live-p projectile-project-root projectile-current-project-files nil expand-file-name] 8] :filtered-candidate-transformer #[514 "r\302!\203 \206 p\211q\210\303 \304\305 \"! \211\306\230\262\204( \307 \"\203, \202] \232\203E \310 \311\312#\305 !BB\266\203\202] \313\310 \311\312#\310\311\312#D\305 !\305 \"D#\266\202)\207" [helm-current-buffer helm-pattern buffer-live-p projectile-project-root file-relative-name expand-file-name "" assoc helm-ff-prefix-filename nil t cl-pairlis] 10 "\n\n(fn FILES SOURCE)"] :fuzzy-match helm-projectile-fuzzy-match :keymap helm-projectile-find-file-map :help-message 'helm-ff-help-message :mode-line helm-read-file-name-mode-line-string :action helm-projectile-file-actions :persistent-action 'helm-projectile-file-persistent-action :persistent-help "Preview file") (#$ . 20617)) | |
| 163 | #@66 Helm source definition for all Projectile files in all projects. | |
| 164 | (defvar helm-source-projectile-files-in-all-projects-list (helm-make-source "Projectile files in all Projects" 'helm-source-sync :candidates #[0 "r\302!\203 \206 p\211q\210\303\304 *\207" [helm-current-buffer projectile-require-project-root buffer-live-p nil projectile-all-project-files] 2] :keymap helm-projectile-find-file-map :help-message 'helm-ff-help-message :mode-line helm-read-file-name-mode-line-string :action helm-projectile-file-actions :persistent-action 'helm-projectile-file-persistent-action :persistent-help "Preview file") (#$ . 21977)) | |
| 165 | (defvar helm-projectile-dired-file-actions (helm-projectile-hack-actions helm-projectile-file-actions '(helm-projectile-dired-files-delete-action . "Remove entry(s) from Dired buffer `C-c d'"))) | |
| 166 | #@53 Helm source definition for Projectile delete files. | |
| 167 | (defvar helm-source-projectile-dired-files-list (byte-code "\303\304\305\306\307\310\311\312\313\314\315!\316\317\320#\210\211\262\321\322\323 \324\n&\207" [helm-projectile-find-file-map helm-read-file-name-mode-line-string helm-projectile-dired-file-actions helm-make-source "Projectile files in current Dired buffer" helm-source-in-buffer :data #[0 "\302\303 !\205 ??\205 \304=\205 \305 \207" [helm-projectile-virtual-dired-remote-enable major-mode file-remote-p projectile-project-root dired-mode helm-projectile-files-in-current-dired-buffer] 2] :filter-one-by-one #[257 "\301\302!)\207" [helm-ff-transformer-show-only-basename t helm-ff-filter-candidate-one-by-one] 3 "\n\n(fn FILE)"] :action-transformer helm-find-files-action-transformer :keymap copy-keymap define-key "d" #[0 "\300\301!\207" [helm-exit-and-execute-action helm-projectile-dired-files-delete-action] 2 nil nil] :help-message helm-ff-help-message :mode-line :action] 17) (#$ . 22806)) | |
| 168 | #@68 Jump to a selected directory DIR from `helm-projectile'. | |
| 169 | ||
| 170 | (fn DIR) | |
| 171 | (defalias 'helm-projectile-dired-find-dir #[257 "\300\301\302 \"!\210\303\304!\207" [dired expand-file-name projectile-project-root run-hooks projectile-find-dir-hook] 5 (#$ . 23833)]) | |
| 172 | #@68 Jump to a selected directory DIR from `helm-projectile'. | |
| 173 | ||
| 174 | (fn DIR) | |
| 175 | (defalias 'helm-projectile-dired-find-dir-other-window #[257 "\300\301\302 \"!\210\303\304!\207" [dired-other-window expand-file-name projectile-project-root run-hooks projectile-find-dir-hook] 5 (#$ . 24092)]) | |
| 176 | #@46 Helm source for listing project directories. | |
| 177 | (defvar helm-source-projectile-directories-list (byte-code "\303\304\305\306\307\310\311\312\313\314 \315 \"\210\316\317\320#\210\316\321\322#\210\316\323\324#\210\316\325\326#\210\316\327\330#\210\316\331\332#\210\316\333\334#\210\211\262\335\336\337\n\340\341&\207" [helm-projectile-fuzzy-match helm-map helm-read-file-name-mode-line-string helm-make-source "Projectile directories" helm-source-sync :candidates #[0 "\302 \205+ r\303!\203 \206 p\211q\210 \203! \304\305\306 \"\202# \306 \307\310 \"\262)\207" [helm-current-buffer projectile-find-dir-includes-top-level projectile-project-p buffer-live-p append ("./") projectile-current-project-dirs helm-projectile--files-display-real projectile-project-root] 4] :fuzzy-match :action-transformer helm-find-files-action-transformer :keymap make-sparse-keymap set-keymap-parent define-key [left] #[0 "\300\301!\207" [helm-exit-and-execute-action helm-previous-source] 2 nil nil] [right] #[0 "\300\301!\207" [helm-exit-and-execute-action helm-next-source] 2 nil nil] "o" #[0 "\300\301!\207" [helm-exit-and-execute-action helm-projectile-dired-find-dir-other-window] 2 nil nil] [134217829] #[0 "\300\301!\207" [helm-exit-and-execute-action helm-projectile-switch-to-eshell] 2 nil nil] "f" #[0 "\300\301!\207" [helm-exit-and-execute-action helm-projectile-dired-files-new-action] 2 nil nil] "a" #[0 "\300\301!\207" [helm-exit-and-execute-action helm-projectile-dired-files-add-action] 2 nil nil] "" #[0 "\300\301!\207" [helm-exit-and-execute-action helm-projectile-grep] 2 nil nil] :help-message helm-ff-help-message :mode-line :action (("Open Dired" . helm-projectile-dired-find-dir) ("Open Dired in other window `C-c o'" . helm-projectile-dired-find-dir) ("Switch to Eshell `M-e'" . helm-projectile-switch-to-eshell) ("Grep in projects `C-s'" . helm-projectile-grep) ("Create Dired buffer from files `C-c f'" . helm-projectile-dired-files-new-action) ("Add files to Dired buffer `C-c a'" . helm-projectile-dired-files-add-action))] 17) (#$ . 24377)) | |
| 178 | (defvar helm-projectile-buffers-list-cache nil) | |
| 179 | (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-projectile-buffer-p eieio-make-class-predicate helm-source-projectile-buffer helm-source-projectile-buffer--eieio-childp eieio-make-child-predicate helm-source-projectile-buffer-child-p make-obsolete "use (cl-typep ... \\='helm-source-projectile-buffer) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (helm-source-sync helm-type-buffer) ((init :initform (lambda nil (setq helm-projectile-buffers-list-cache (ignore-errors (cdr (projectile-project-buffer-names)))) (let ((result (cl-loop for b in helm-projectile-buffers-list-cache maximize (length b) into len-buf maximize (length (with-current-buffer b (symbol-name major-mode))) into len-mode finally return (cons len-buf len-mode)))) (unless helm-buffer-max-length (setq helm-buffer-max-length (car result))) (unless helm-buffer-max-len-mode (setq helm-buffer-max-len-mode (cdr result)))))) (candidates :initform helm-projectile-buffers-list-cache) (matchplugin :initform nil) (match :initform 'helm-buffers-match-function) (persistent-action :initform 'helm-buffers-list-persistent-action) (keymap :initform helm-buffer-map) (volatile :initform t) (persistent-help :initform "Show this buffer / C-u \\[helm-execute-persistent-action]: Kill this buffer")) nil] 6) | |
| 180 | #@86 Create a new object of class type `helm-source-projectile-buffer'. | |
| 181 | ||
| 182 | (fn &rest SLOTS) | |
| 183 | (defalias 'helm-source-projectile-buffer #[128 "\300\301\302#\207" [apply make-instance helm-source-projectile-buffer] 5 (#$ . 27911)]) | |
| 184 | (byte-code "\300\301\302\303#\300\207" [function-put helm-source-projectile-buffer compiler-macro helm-source-projectile-buffer--anon-cmacro] 4) | |
| 185 | #@26 | |
| 186 | ||
| 187 | (fn WHOLE &rest SLOTS) | |
| 188 | (defalias 'helm-source-projectile-buffer--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 (#$ . 28284)]) | |
| 189 | (defvar helm-source-projectile-buffers-list (helm-make-source "Project buffers" 'helm-source-projectile-buffer)) | |
| 190 | #@61 Helm source definition for recent files in current project. | |
| 191 | (defvar helm-source-projectile-recentf-list (helm-make-source "Projectile recent files" 'helm-source-sync :candidates #[0 "\301 \205 r\302!\203 \206 p\211q\210\303\304 \305 \")\207" [helm-current-buffer projectile-project-p buffer-live-p helm-projectile--files-display-real projectile-recentf-files projectile-project-root] 3] :fuzzy-match helm-projectile-fuzzy-match :keymap helm-projectile-find-file-map :help-message 'helm-ff-help-message :mode-line helm-read-file-name-mode-line-string :action helm-projectile-file-actions :persistent-action 'helm-projectile-file-persistent-action :persistent-help "Preview file") (#$ . 28646)) | |
| 192 | (defvar helm-source-projectile-files-and-dired-list '(helm-source-projectile-dired-files-list helm-source-projectile-files-list)) | |
| 193 | (defvar helm-source-projectile-directories-and-dired-list '(helm-source-projectile-dired-files-list helm-source-projectile-directories-list)) | |
| 194 | (byte-code "\300\301\302\303\304DD\305\306\307\310\311&\207" [custom-declare-variable helm-projectile-sources-list funcall function #[0 "\300\207" [(helm-source-projectile-buffers-list helm-source-projectile-files-list helm-source-projectile-projects)] 1] "Default sources for `helm-projectile'." :type list :group helm-projectile] 8) | |
| 195 | #@498 Template for generic `helm-projectile' commands. | |
| 196 | COMMAND is a command name to be appended with "helm-projectile" prefix. | |
| 197 | SOURCE is a Helm source that should be Projectile specific. | |
| 198 | PROMPT is a string for displaying as a prompt. | |
| 199 | NOT-REQUIRE-ROOT specifies the command doesn't need to be used in a | |
| 200 | project root. | |
| 201 | TRUNCATE-LINES-VAR is the symbol used dictate truncation of lines. | |
| 202 | Defaults is `helm-projectile-truncate-lines'. | |
| 203 | ||
| 204 | (fn COMMAND SOURCE PROMPT &optional NOT-REQUIRE-ROOT TRUNCATE-LINES-VAR) | |
| 205 | (defalias 'helm-projectile-command '(macro . #[1283 "\211\204 \300\262\301\302\303P!\304\305\306\307\310\311\312\n\313BBF\314\315\316\317 \320\321\322\323\324D\257 E\257\207" [helm-projectile-truncate-lines defun intern "helm-projectile-" (&optional arg) "Use projectile with Helm for finding files in project\n\nWith a prefix ARG invalidates the cache first." (interactive "P") if (projectile-project-p) (projectile-maybe-invalidate-cache arg) unless ((error "You're not in a project")) let ((helm-ff-transformer-show-only-basename nil) (helm-boring-file-regexp-list nil)) helm :sources :buffer (concat "*helm projectile: " (projectile-project-name) "*") :truncate-lines :prompt projectile-prepend-project-name] 23 (#$ . 29960)])) | |
| 206 | #@123 Use projectile with Helm for finding files in project | |
| 207 | ||
| 208 | With a prefix ARG invalidates the cache first. | |
| 209 | ||
| 210 | (fn &optional ARG) | |
| 211 | (defalias 'helm-projectile-switch-project #[256 "\303 \203 \304!\210\305\211\306\307\310\311\312\313 \314Q\315\n\316\317\320!&*\207" [helm-boring-file-regexp-list helm-ff-transformer-show-only-basename helm-projectile-truncate-lines projectile-project-p projectile-maybe-invalidate-cache nil helm :sources helm-source-projectile-projects :buffer "*helm projectile: " projectile-project-name "*" :truncate-lines :prompt projectile-prepend-project-name "Switch to project: "] 11 (#$ . 31207) "P"]) | |
| 212 | #@123 Use projectile with Helm for finding files in project | |
| 213 | ||
| 214 | With a prefix ARG invalidates the cache first. | |
| 215 | ||
| 216 | (fn &optional ARG) | |
| 217 | (defalias 'helm-projectile-find-file #[256 "\304 \203\f \305!\210\202 \306\307!\210\310\211\311\312\n\313\314\315 \316Q\317 \320\321\322!&*\207" [helm-boring-file-regexp-list helm-ff-transformer-show-only-basename helm-source-projectile-files-and-dired-list helm-projectile-truncate-lines projectile-project-p projectile-maybe-invalidate-cache error "You're not in a project" nil helm :sources :buffer "*helm projectile: " projectile-project-name "*" :truncate-lines :prompt projectile-prepend-project-name "Find file: "] 11 (#$ . 31837) "P"]) | |
| 218 | #@123 Use projectile with Helm for finding files in project | |
| 219 | ||
| 220 | With a prefix ARG invalidates the cache first. | |
| 221 | ||
| 222 | (fn &optional ARG) | |
| 223 | (defalias 'helm-projectile-find-file-in-known-projects #[256 "\303 \203 \304!\210\305\211\306\307\310\311\312\313 \314Q\315\n\316\317\320!&*\207" [helm-boring-file-regexp-list helm-ff-transformer-show-only-basename helm-projectile-truncate-lines projectile-project-p projectile-maybe-invalidate-cache nil helm :sources helm-source-projectile-files-in-all-projects-list :buffer "*helm projectile: " projectile-project-name "*" :truncate-lines :prompt projectile-prepend-project-name "Find file in projects: "] 11 (#$ . 32515) "P"]) | |
| 224 | #@123 Use projectile with Helm for finding files in project | |
| 225 | ||
| 226 | With a prefix ARG invalidates the cache first. | |
| 227 | ||
| 228 | (fn &optional ARG) | |
| 229 | (defalias 'helm-projectile-find-dir #[256 "\304 \203\f \305!\210\202 \306\307!\210\310\211\311\312\n\313\314\315 \316Q\317 \320\321\322!&*\207" [helm-boring-file-regexp-list helm-ff-transformer-show-only-basename helm-source-projectile-directories-and-dired-list helm-projectile-truncate-lines projectile-project-p projectile-maybe-invalidate-cache error "You're not in a project" nil helm :sources :buffer "*helm projectile: " projectile-project-name "*" :truncate-lines :prompt projectile-prepend-project-name "Find dir: "] 11 (#$ . 33180) "P"]) | |
| 230 | #@123 Use projectile with Helm for finding files in project | |
| 231 | ||
| 232 | With a prefix ARG invalidates the cache first. | |
| 233 | ||
| 234 | (fn &optional ARG) | |
| 235 | (defalias 'helm-projectile-recentf #[256 "\303 \203\f \304!\210\202 \305\306!\210\307\211\310\311\312\313\314\315 \316Q\317\n\320\321\322!&*\207" [helm-boring-file-regexp-list helm-ff-transformer-show-only-basename helm-projectile-truncate-lines projectile-project-p projectile-maybe-invalidate-cache error "You're not in a project" nil helm :sources helm-source-projectile-recentf-list :buffer "*helm projectile: " projectile-project-name "*" :truncate-lines :prompt projectile-prepend-project-name "Recently visited file: "] 11 (#$ . 33862) "P"]) | |
| 236 | #@123 Use projectile with Helm for finding files in project | |
| 237 | ||
| 238 | With a prefix ARG invalidates the cache first. | |
| 239 | ||
| 240 | (fn &optional ARG) | |
| 241 | (defalias 'helm-projectile-switch-to-buffer #[256 "\303 \203\f \304!\210\202 \305\306!\210\307\211\310\311\312\313\314\315 \316Q\317\n\320\321\322!&*\207" [helm-boring-file-regexp-list helm-ff-transformer-show-only-basename helm-buffers-truncate-lines projectile-project-p projectile-maybe-invalidate-cache error "You're not in a project" nil helm :sources helm-source-projectile-buffers-list :buffer "*helm projectile: " projectile-project-name "*" :truncate-lines :prompt projectile-prepend-project-name "Switch to buffer: "] 11 (#$ . 34545) "P"]) | |
| 242 | #@123 Use projectile with Helm for finding files in project | |
| 243 | ||
| 244 | With a prefix ARG invalidates the cache first. | |
| 245 | ||
| 246 | (fn &optional ARG) | |
| 247 | (defalias 'helm-projectile-browse-dirty-projects #[256 "\303 \203 \304!\210\305\211\306\307\310\311\312\313 \314Q\315\n\316\317\320!&*\207" [helm-boring-file-regexp-list helm-ff-transformer-show-only-basename helm-projectile-truncate-lines projectile-project-p projectile-maybe-invalidate-cache nil helm :sources helm-source-projectile-dirty-projects :buffer "*helm projectile: " projectile-project-name "*" :truncate-lines :prompt projectile-prepend-project-name "Select a project: "] 11 (#$ . 35229) "P"]) | |
| 248 | #@128 Create (DISPLAY . REAL) pairs with FILES and ROOT. | |
| 249 | ||
| 250 | DISPLAY is the short file name. REAL is the full path. | |
| 251 | ||
| 252 | (fn FILES ROOT) | |
| 253 | (defalias 'helm-projectile--files-display-real #[514 "\300\211:\203 @\262\301\"BB\262A\262\202 \211\237\207" [nil expand-file-name] 9 (#$ . 35871)]) | |
| 254 | #@38 Find file at point based on context. | |
| 255 | (defalias 'helm-projectile-find-file-dwim #[0 "\306 \307 \310!\211G\311U\203 \312\313@\306 \"!\202R \314\315\316\317\320\321G\311V\2030 \322\n\"\2026 \322\n\"\323\324\325\326 \327\n\330 \331\f\332\333\334\335&\336\337\340 \341\342\343!&\207" [helm-projectile-fuzzy-match helm-projectile-find-file-map helm-ff-help-message helm-read-file-name-mode-line-string helm-projectile-file-actions helm-projectile-truncate-lines projectile-project-root projectile-current-project-files projectile-select-files 1 find-file expand-file-name helm :sources helm-make-source "Projectile files" helm-source-sync :candidates helm-projectile--files-display-real :fuzzy-match :action-transformer helm-find-files-action-transformer :keymap :help-message :mode-line :action :persistent-action helm-projectile-file-persistent-action :persistent-help "Preview file" :buffer "*helm projectile*" :truncate-lines :prompt projectile-prepend-project-name "Find file: "] 26 (#$ . 36167) nil]) | |
| 256 | #@277 Switch between files with the same name but different extensions using Helm. | |
| 257 | With FLEX-MATCHING, match any file that contains the base name of current file. | |
| 258 | Other file extensions can be customized with the variable `projectile-other-file-alist'. | |
| 259 | ||
| 260 | (fn &optional FLEX-MATCHING) | |
| 261 | (defalias 'helm-projectile-find-other-file #[256 "\306 \307\310 \311 #\211\203H \211G\312U\203 \313\314@\"!\202K \315\316\317\320\321\322\323\324 \"\325 \326\n\327 \330\f\331\332\333\334&\335\336\337 \340\341\342!&)\202K \343\344!\207" [helm-ff-transformer-show-only-basename helm-projectile-find-file-map helm-ff-help-message helm-read-file-name-mode-line-string helm-projectile-file-actions helm-projectile-truncate-lines projectile-project-root projectile-get-other-files buffer-file-name projectile-current-project-files 1 find-file expand-file-name nil helm :sources helm-make-source "Projectile other files" helm-source-sync :candidates helm-projectile--files-display-real :keymap :help-message :mode-line :action :persistent-action helm-projectile-file-persistent-action :persistent-help "Preview file" :buffer "*helm projectile*" :truncate-lines :prompt projectile-prepend-project-name "Find other file: " error "No other file found"] 22 (#$ . 37189) "P"]) | |
| 262 | (byte-code "\300\301\302\303\304DD\305\306\307\310\311&\210\300\312\302\303\313DD\314\310\311\306\315&\207" [custom-declare-variable helm-projectile-grep-or-ack-actions funcall function #[0 "\300\207" [("Find file" helm-grep-action "Find file other frame" helm-grep-other-frame (lambda nil (and (locate-library "elscreen") "Find file in Elscreen")) helm-grep-jump-elscreen "Save results in grep buffer" helm-grep-save-results "Find file other window" helm-grep-other-window)] 1] "Available actions for `helm-projectile-grep-or-ack'.\nThe contents of this list are passed as the arguments to `helm-make-actions'." :type symbol :group helm-projectile helm-projectile-set-input-automatically #[0 "\300\207" [t] 1] "If non-nil, attempt to set search input automatically.\nAutomatic input selection uses the region (if there is an active\nregion), otherwise it uses the current symbol at point (if there\nis one). Applies to `helm-projectile-grep' and\n`helm-projectile-ack' only. If the `helm-ag' package is\ninstalled, then automatic input behavior for `helm-projectile-ag'\ncan be customized using `helm-ag-insert-at-point'." boolean] 8) | |
| 263 | #@393 Perform helm-grep at project root. | |
| 264 | DIR directory where to search | |
| 265 | USE-ACK-P indicates whether to use ack or not. | |
| 266 | ACK-IGNORED-PATTERN is a file regex to exclude from searching. | |
| 267 | ACK-EXECUTABLE is the actual ack binary name. | |
| 268 | It is usually "ack" or "ack-grep". | |
| 269 | If it is nil, or ack/ack-grep not found then use default grep command. | |
| 270 | ||
| 271 | (fn &optional DIR USE-ACK-P ACK-IGNORED-PATTERN ACK-EXECUTABLE) | |
| 272 | (defalias 'helm-projectile-grep-or-ack #[1024 "\206 \306 \211\307\310\311 \" \310\312\313\314 \" \" @\203' \211\315\316R\2028 A\2037 \317 \320=\2037 \321\2028 \322\211 B C\323\324\325\307!!\326\327\330\331\332\333\334 !\335\"\336\337%\340\341\342\343\344\345\346\307\347D\350\351\352\353\354E\"\355\356\357\360\361\362&5\363\364\365\366F\205\211 \367 \203\206 \370\371 \372 \"\202\211 \373\374!\375\376\377\n\203\227 \201H \202\232 \201I \"\201J \347D\350\351\201K G&.\207" [default-directory helm-ff-default-directory helm-grep-in-recurse grep-find-ignored-files helm-grep-ignored-files grep-find-ignored-directories projectile-project-root t cl-union projectile-ignored-files-rel mapcar directory-file-name projectile-ignored-directories-rel " -H --no-group --no-color " " %p %f" projectile-project-vcs git "git --no-pager grep --no-color -n%c -e %p -- %f" "grep -a -r %e -n%cH -e %p %f ." helm-make-source capitalize helm-grep-command helm-source-async :header-name make-byte-code 257 "\300\203 \301\202 \302\211\303\304Q\207" vconcat vector ["Helm Projectile Ack" "Helm Projectile Grep" " " "(C-c ? Help)"] 5 "\n\n(fn NAME)" :candidates-process helm-grep-collect-candidates :filter-one-by-one helm-grep-filter-one-by-one :candidate-number-limit 9999 :nohighlight :keymap :history helm-grep-history :action apply helm-make-actions :persistent-action helm-grep-persistent-action :persistent-help "Jump to line (`C-u' Record in mark ring)" :requires-pattern 2 helm :sources helm-source-grep :input region-active-p buffer-substring-no-properties region-beginning region-end thing-at-point symbol :buffer format "*helm %s*" helm-grep-ignored-directories projectile-use-git-grep helm-grep-default-command helm-grep-default-recurse-command helm-grep-map helm-projectile-grep-or-ack-actions helm-projectile-set-input-automatically helm-grep-truncate-lines "ack" "grep" :default-directory :truncate-lines] 30 (#$ . 39587)]) | |
| 273 | #@41 Turn on `helm-projectile' key bindings. | |
| 274 | (defalias 'helm-projectile-on #[0 "\300\301!\210\302\303!\207" [message "Turn on helm-projectile key bindings" helm-projectile-toggle 1] 2 (#$ . 41927) nil]) | |
| 275 | #@42 Turn off `helm-projectile' key bindings. | |
| 276 | (defalias 'helm-projectile-off #[0 "\300\301!\210\302\303!\207" [message "Turn off helm-projectile key bindings" helm-projectile-toggle -1] 2 (#$ . 42131) nil]) | |
| 277 | #@123 Helm version of `projectile-grep'. | |
| 278 | DIR is the project root, if not set then current directory is used | |
| 279 | ||
| 280 | (fn &optional DIR) | |
| 281 | (defalias 'helm-projectile-grep #[256 "\211\206\f \300 \206\f \301\302!\303\304\305\306\305%\207" [projectile-project-root error "You're not in a project" run-with-timer 0.01 nil helm-projectile-grep-or-ack] 8 (#$ . 42340) nil]) | |
| 282 | #@53 Helm version of projectile-ack. | |
| 283 | ||
| 284 | (fn &optional DIR) | |
| 285 | (defalias 'helm-projectile-ack #[256 "\211\206\f \300 \206\f \301\302!\303\304\305\306\307\310 \"\306\311\312\313 \314 \"\"\"\315#\316\317!\203* \317\2027 \316\320!\2034 \320\2027 \301\321!\322\323\324\325\326&\266\202\207" [projectile-project-root error "You're not in a project" mapconcat identity cl-union mapcar #[257 "\300\301\302!!P\207" ["--ignore-dir=" file-name-nondirectory directory-file-name] 5 "\n\n(fn PATH)"] projectile-ignored-directories #[257 "\300\301!P\207" ["--ignore-file=match:" shell-quote-argument] 4 "\n\n(fn PATH)"] append projectile-ignored-files projectile-patterns-to-ignore " " executable-find "ack" "ack-grep" "ack or ack-grep is not available" run-with-timer 0.01 nil helm-projectile-grep-or-ack t] 12 (#$ . 42698) nil]) | |
| 286 | #@58 Helm version of `projectile-ag'. | |
| 287 | ||
| 288 | (fn &optional OPTIONS) | |
| 289 | (defalias 'helm-projectile-ag #[256 "\304\305\306\307#\203< \310 \2038 \311\312 \"\311\313 \"\314\315\316 \317 A@#\320#\n\320\320\260\306\321\322 \317 @\",\207\323\324!\207\325\326!\205S \3271O \330\305!\210\331!0\207\210\323\332!\207" [grep-find-ignored-files grep-find-ignored-directories helm-ag-base-command current-prefix-arg require helm-ag nil t projectile-project-p cl-union projectile-ignored-files-rel projectile-ignored-directories-rel mapconcat #[257 "\300P\207" ["--ignore "] 3 "\n\n(fn I)"] append projectile-parse-dirconfig-file " " helm-do-ag projectile-project-root error "You're not in a project" yes-or-no-p "`helm-ag' is not installed. Install? " (error) package-install helm-projectile-ag "`helm-ag' is not available. Is MELPA in your `package-archives'?"] 7 (#$ . 43519) (byte-code "\205\n \301\302\303\304#C\207" [current-prefix-arg helm-read-string "option: " "" helm-ag--extra-options-history] 4)]) | |
| 290 | (defalias 'helm-projectile-rg--region-selection #[0 "\300 \205 \301\302 \303 \"\207" [use-region-p buffer-substring-no-properties region-beginning region-end] 3]) | |
| 291 | #@34 Projectile version of `helm-rg'. | |
| 292 | (defalias 'helm-projectile-rg #[0 "\302\303\304\305#\203# \306 \203 \304\305\303\307 \206 \310\304\311 C#*\207\312\313!\207\314\315!\2057 \31615 \317\303!\210\320 0\207\210\321\207" [helm-rg-include-file-on-every-match-line helm-rg-prepend-file-name-line-at-top-of-matches require helm-rg nil t projectile-project-p helm-projectile-rg--region-selection "" projectile-project-root error "You're not in a project" yes-or-no-p "`helm-rg' is not installed. Install? " (error) package-install helm-projectile-rg "`helm-rg' is not available. Is MELPA in your `package-archives'?"] 4 (#$ . 44684) nil]) | |
| 293 | (defalias 'helm-projectile-commander-bindings #[0 "\301\302\303\304\305E\306\303\"B!\307\"\301\302\310\311\312E\306\310\"B!\313\"\301\302\314\315\316E\306\314\"B!\317\"\301\302\320\321\322E\306\320\"B!\323\"\301\302\324\325\326E\306\324\"B!\327\"\301\302\330\331\332E\306\330\"B!\333\"\301\302\334\335\336E\306\334\"B!\337\"\301\302\340\341\342E\306\340\"B!\343\"\301\302\344\345\346E\306\344\"B!\347\"\211\207" [projectile-commander-methods cl-sort copy-sequence 97 "Run ack on project." #[0 "\300\301!\207" [call-interactively helm-projectile-ack] 2] assq-delete-all #[514 "@@W\207" #1=[] 4 "\n\n(fn A B)"] 65 "Find ag on project." #[0 "\300\301!\207" [call-interactively helm-projectile-ag] 2] #[514 "@@W\207" #1# 4 "\n\n(fn A B)"] 102 "Find file in project." #[0 "\300 \207" [helm-projectile-find-file] 1] #[514 "@@W\207" #1# 4 "\n\n(fn A B)"] 98 "Switch to project buffer." #[0 "\300 \207" [helm-projectile-switch-to-buffer] 1] #[514 "@@W\207" #1# 4 "\n\n(fn A B)"] 100 "Find directory in project." #[0 "\300 \207" [helm-projectile-find-dir] 1] #[514 "@@W\207" #1# 4 "\n\n(fn A B)"] 103 "Run grep on project." #[0 "\300 \207" [helm-projectile-grep] 1] #[514 "@@W\207" #1# 4 "\n\n(fn A B)"] 115 "Switch project." #[0 "\300 \207" [helm-projectile-switch-project] 1] #[514 "@@W\207" #1# 4 "\n\n(fn A B)"] 101 "Find recently visited file in project." #[0 "\300 \207" [helm-projectile-recentf] 1] #[514 "@@W\207" #1# 4 "\n\n(fn A B)"] 86 "Find dirty projects." #[0 "\300 \207" [helm-projectile-browse-dirty-projects] 1] #[514 "@@W\207" #1# 4 "\n\n(fn A B)"]] 6]) | |
| 294 | #@58 Toggle Helm version of Projectile commands. | |
| 295 | ||
| 296 | (fn TOGGLE) | |
| 297 | (defalias 'helm-projectile-toggle #[257 "\211\302V\203_ \303=\203 \304\305 \306\307#\210\305 \310\304#\210\305 \311\312#\210\305 \313\314#\210\305 \315\316#\210\305 \317\320#\210\305 \321\322#\210\305 \323\324#\210\305 \325\326#\210\305 \327\330#\210\305 \331\332#\210\305 \333\334#\210\305 \335\336#\210\337 \207\304=\203g \303\305 \340\341#\210\305 \342\341#\210\305 \343\341#\210\305 \344\341#\210\305 \345\341#\210\305 \346\341#\210\305 \347\341#\210\305 \350\341#\210\305 \351\341#\210\305 \352\341#\210\305 \353\341#\210\305 \354\341#\210\355 \207" [projectile-switch-project-action projectile-mode-map 0 projectile-find-file helm-projectile-find-file define-key [remap projectile-find-other-file] helm-projectile-find-other-file [remap projectile-find-file] [remap projectile-find-file-in-known-projects] helm-projectile-find-file-in-known-projects [remap projectile-find-file-dwim] helm-projectile-find-file-dwim [remap projectile-find-dir] helm-projectile-find-dir [remap projectile-switch-project] helm-projectile-switch-project [remap projectile-recentf] helm-projectile-recentf [remap projectile-switch-to-buffer] helm-projectile-switch-to-buffer [remap projectile-grep] helm-projectile-grep [remap projectile-ack] helm-projectile-ack [remap projectile-ag] helm-projectile-ag [remap projectile-ripgrep] helm-projectile-rg [remap projectile-browse-dirty-projects] helm-projectile-browse-dirty-projects helm-projectile-commander-bindings [remap projectile-find-other-file] nil [remap projectile-find-file] [remap projectile-find-file-in-known-projects] [remap projectile-find-file-dwim] [remap projectile-find-dir] [remap projectile-switch-project] [remap projectile-recentf] [remap projectile-switch-to-buffer] [remap projectile-grep] [remap projectile-ag] [remap projectile-ripgrep] [remap projectile-browse-dirty-projects] projectile-commander-bindings] 5 (#$ . 46923)]) | |
| 298 | #@186 Use projectile with Helm instead of ido. | |
| 299 | ||
| 300 | With a prefix ARG invalidates the cache first. | |
| 301 | If invoked outside of a project, displays a list of known projects to jump. | |
| 302 | ||
| 303 | (fn &optional ARG) | |
| 304 | (defalias 'helm-projectile #[256 "\303 \204 \304!\207\305!\210\306\307\310 \311\312\313\n\314\315\303 \203! \316\202\" \317!&)\207" [helm-ff-transformer-show-only-basename helm-projectile-sources-list helm-projectile-truncate-lines projectile-project-p helm-projectile-switch-project projectile-maybe-invalidate-cache nil helm :sources :buffer "*helm projectile*" :truncate-lines :prompt projectile-prepend-project-name "pattern: " "Switch to project: "] 11 (#$ . 48876) "P"]) | |
| 305 | (byte-code "\300\301\302\"\210\303\304!\207" [eval-after-load projectile #[0 "\301\302\303#\207" [projectile-command-map define-key "h" helm-projectile] 4] provide helm-projectile] 3) | |
