;ELC
|
;;; Compiled
|
;;; in Emacs version 26.1
|
;;; with all optimizations.
|
|
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
|
|
;;; This file does not contain utf-8 non-ASCII characters,
|
;;; and so can be loaded in Emacs versions earlier than 23.
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
|
(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)
|
#@105 In KEYMAP, define KEY - DEF sequence KEY1 as DEF1, KEY2 as DEF2 ...
|
|
(fn KEYMAP KEY DEF &rest BINDINGS)
|
(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)]))
|
(byte-code "\300\301\302\303#\300\207" [function-put helm-projectile-define-key lisp-indent-function defun] 4)
|
#@1025 Given a Helm action list and a prescription, return a hacked Helm action list, after applying the PRESCRIPTION.
|
|
The Helm action list ACTIONS is of the form:
|
|
((DESCRIPTION1 . FUNCTION1)
|
(DESCRIPTION2 . FUNCTION2)
|
...
|
(DESCRIPTIONn . FUNCTIONn))
|
|
PRESCRIPTION is in the form:
|
|
(INSTRUCTION1 INSTRUCTION2 ... INSTRUCTIONn)
|
|
If an INSTRUCTION is a symbol, the action with function name
|
INSTRUCTION is deleted.
|
|
If an INSTRUCTION is of the form (FUNCTION1 . FUNCTION2), the
|
action with function name FUNCTION1 will change it's function to
|
FUNCTION2.
|
|
If an INSTRUCTION is of the form (FUNCTION . DESCRIPTION), and
|
if an action with function name FUNCTION exists in the original
|
Helm action list, the action in the Helm action list, with
|
function name FUNCTION will change it's description to
|
DESCRIPTION. Otherwise, (FUNCTION . DESCRIPTION) will be added to
|
the action list.
|
|
Please check out how `helm-projectile-file-actions' is defined
|
for an example of how this function is being used.
|
|
(fn ACTIONS &rest PRESCRIPTION)
|
(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)])
|
#@112 A Helm action for jumping to project root using `vc-dir' or Magit.
|
DIR is a directory to be switched
|
|
(fn DIR)
|
(defalias 'helm-projectile-vc #[257 "\301\302!)\207" [projectile-require-project-root nil projectile-vc] 3 (#$ . 3612)])
|
#@73 A Helm action for compile a project.
|
DIR is the project root.
|
|
(fn DIR)
|
(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)])
|
#@70 A Helm action for test a project.
|
DIR is the project root.
|
|
(fn DIR)
|
(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)])
|
#@69 A Helm action for run a project.
|
DIR is the project root.
|
|
(fn DIR)
|
(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)])
|
#@151 Remove selected projects from projectile project list.
|
_IGNORE means the argument does not matter.
|
It is there because Helm requires it.
|
|
(fn IGNORE)
|
(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)])
|
#@40 Mapping for known projectile projects.
|
(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))
|
(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)
|
#@44 Helm source for known projectile projects.
|
(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))
|
#@40 Mapping for dirty projectile projects.
|
(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))
|
#@63 Helm source for dirty version controlled projectile projects.
|
(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))
|
#@92 Return dirty version controlled known projects as an alist to
|
have a nice display in Helm.
|
(defalias 'helm-projectile-get-dirty-projects #[0 "\300\301!\210\302 \211\303\211:\203 @\262@B\262A\262\202 |