Files
emacsd/elpa/projectile-20191127.1829/projectile.elc

1524 lines
169 KiB
Plaintext
Raw Normal View History

2019-10-09 20:36:55 +02:00
;ELC
;;; Compiled
2019-10-27 19:05:34 +01:00
;;; in Emacs version 26.3
2019-10-09 20:36:55 +02:00
;;; 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\307\310\311\312\313\314\313\315\316\317\316\320\316\321& \210\322\323\324\325\326DD\327\313\310\330\331&\210\322\332\324\325\333DD\334\313\310\330\335&\210\322\336\324\325\337DD\340\313\310\330\341&\210\322\342\324\325\343DD\344\313\310\330\345&\210\322\346\324\325\347DD\350\313\310\330\351&\210\322\352\324\325\353DD\354\313\310\330\355&\210\322\356\324\325\357DD\360\313\310\330\335&\210\322\361\324\325\362DD\363\313\310\330\364&\210\322\365\324\325\366DD\367\313\310\330\370&\210\322\371\324\325\372DD\373\313\310\330\374&\210\375\371\376\377#\210\322\201@\324\325\201ADD\201B\313\310\330\374&\210\322\201C\324\325\201DDD\201E\313\310\330\374&\210\322\201F\324\325\201GDD\201H\313\310\330\374&\210\322\201I\324\325\201JDD\201K\313\310\330\201L\201M\201N& \210\322\201O\324\325\201PDD\201Q\313\310\330\201R&\210\322\201S\324\325\201TDD\201U\313\310\330\335&\210\322\201V\324\325\201WDD\201X\313\310\330\325&\210\322\201Y\324\325\201ZDD\201[\313\310\330\374\201M\201\\& \210\322\201]\324\325\201^DD\201_\313\310\330\325\201M\201`& \210\322\201a\324\325\201bDD\201c\313\310\330\201d&\210\322\201e\324\325\201fDD\201g\313\310\330\201h&\210\322\201i\324\325\201jDD\201k\313\310\330\201l&\210\322\201m\324\325\201nDD\201o\313\310\330\201p&\210\322\201q\324\325\201rDD\201s\313\310\330\201t&\210\322\201u\324\325\201vDD\201w\313\310\330\201x\201M\201y& \210\322\201z\324\325\201{DD\201|\313\310\330\201}&\210\322\201~\324\325\201DD\201\200\201\201\201\202\313\310\330\201\203& \210\322\201\204\324\325\201\205DD\201\206\313\310\330\201\207\201M\201\210& \210\322\201\211\324\325\201\212DD\201\213\313\310\330\201\214&\210\322\201\215\324\325\201\216DD\201\217\313\310\330\201\220\201M\201\221& \210\322\201\222\324\325\201\223DD\201\224\313\310\330\201\225&\210\322\201\226\324\325\201\227DD\201\230\313\310\330\201\225&\210\322\201\231\324\325\201\232DD\201\233\313\310\330\325&\210\322\201\234\324\325\201\235DD\201\236\313\310\330\335&\210\322\201\237\324\325\201\240DD\201\241\313\310\330\335&\210\322\201\242\324\325\201\243DD\201\244\313\310\330\201\225\201M\201\245& \210\322\201\246\324\325\201\247DD\201\250\313\310\330\325&\210\322\201\251\324\325\201\252DD\201\253\313\310\330\325&\210\322\201\254\324\325\201\255DD\201\256\313\310\330\325&\210\322\201\257\324\325\201\260DD\201\261\313\310\330\335\201M\201\262& \210\322\201\263\324\325\201\264DD\201\265\313\310\330\325\201M\201\266& \207" [require cl-lib thingatpt ibuffer ibuf-ext compile grep custom-declare-group projectile nil "Manage and navigate projects easily." :group tools convenience :link (url-link :tag "GitHub" "https://github.com/bbatsov/projectile") (url-link :tag "Online Manual" "https://docs.projectile.mx/") (emacs-commentary-link :tag "Commentary" "projectile") custom-declare-variable projectile-indexing-method funcall function #[0 "\301=\203\302\207\303\207" [system-type windows-nt native alien] 2] "Specifies the indexing method used by Projectile.\n\nThere are three indexing methods - native, hybrid and alien.\n\nThe native method is implemented in Emacs Lisp (therefore it is\nnative to Emacs). Its advantage is that it is portable and will\nwork everywhere that Emacs does. Its disadvantage is that it is a\nbit slow (especially for large projects). Generally it's a good\nidea to pair the native indexing method with caching.\n\nThe hybrid indexing method uses external tools (e.g. git, find,\netc) to speed up the indexing process. Still, the files will be\npost-processed by Projectile for sorting/filtering purposes.\nIn this sense that approach is a hybrid between native indexing\nand alien indexing.\n\nThe alien indexing method optimizes to the limit the speed\nof the hybrid indexing method. This means that Projectile will\nnot do any processing of the files returned by the external\ncommands and you're going to get the maximum pe
#@74 The timer object created when `projectile-enable-idle-timer' is non-nil.
(defvar projectile-idle-timer nil (#$ . 14961))
(byte-code "\300\301\302\303\304DD\305\306\307\310\311&\210\300\312\302\303\313DD\314\306\307\310\315&\210\300\316\302\303\317DD\320\306\307\321\322\310\323& \207" [custom-declare-variable projectile-idle-timer-seconds funcall function #[0 "\300\207" [30] 1] "The idle period to use when `projectile-enable-idle-timer' is non-nil." :group projectile :type number projectile-idle-timer-hook #[0 "\300\207" [(projectile-regenerate-tags)] 1] "The hook run when `projectile-enable-idle-timer' is non-nil." (repeat symbol) projectile-enable-idle-timer #[0 "\300\207" [nil] 1] "Enables idle timer hook `projectile-idle-timer-functions'.\n\nWhen `projectile-enable-idle-timer' is non-nil, the hook\n`projectile-idle-timer-hook' is run each time Emacs has been idle\nfor `projectile-idle-timer-seconds' seconds and we're in a\nproject." :set #[514 "L\210\203\f\303!\210\304 \205\305\n\306\307#\211\207" [projectile-idle-timer projectile-enable-idle-timer projectile-idle-timer-seconds cancel-timer nil run-with-idle-timer t #[0 "\300 \205\301\302!\207" [projectile-project-p run-hooks projectile-idle-timer-hook] 2]] 6 "\n\n(fn SYMBOL VALUE)"] boolean] 10)
#@76 A hashmap used to cache project file names to speed up related operations.
(defvar projectile-projects-cache nil (#$ . 16250))
#@73 A hashmap used to record when we populated `projectile-projects-cache'.
(defvar projectile-projects-cache-time nil (#$ . 16383))
#@53 Cached value of function `projectile-project-root`.
(defvar projectile-project-root-cache (make-hash-table :test 'equal) (#$ . 16518))
#@70 A hashmap used to cache project type to speed up related operations.
(defvar projectile-project-type-cache (make-hash-table :test 'equal) (#$ . 16659))
#@248 List of locations where we have previously seen projects.
The list of projects is ordered by the time they have been accessed.
See also `projectile-remove-known-project',
`projectile-cleanup-known-projects' and `projectile-clear-known-projects'.
(defvar projectile-known-projects nil (#$ . 16818))
#@158 List of known projects reference point.
Contains a copy of `projectile-known-projects' when it was last
synchronized with `projectile-known-projects-file'.
(defvar projectile-known-projects-on-file nil (#$ . 17124))
(byte-code "\300\301\302\303\304DD\305\306\307\310\311&\210\300\312\302\303\313DD\314\306\307\310\315\316\317& \210\300\320\302\303\321DD\322\306\307\310\323\316\324& \210\300\325\302\303\326DD\327\306\307\310\330\316\331& \210\300\332\302\303\333DD\334\306\307\310\335\316\336& \210\300\337\302\303\340DD\341\306\307\310\311&\210\300\342\302\303\343DD\344\306\307\310\311&\210\300\345\302\303\346DD\347\306\307\310\311\316\350& \210\300\351\302\303\352DD\353\306\307\310\311&\210\300\354\302\303\355DD\356\306\307\310\311&\210\300\357\302\303\360DD\361\306\307\310\311&\210\300\362\302\303\363DD\364\306\307\310\311&\210\300\365\302\303\366DD\367\306\307\310\311&\210\300\370\302\303\371DD\372\306\307\310\311&\210\300\373\302\303\374DD\375\306\307\310\376\316\377& \210\300\201@\302\303\201ADD\201B\310\201C%\210\300\201D\302\303\201EDD\201F\306\307\310\330&\210\300\201G\302\303\201HDD\201I\306\307\310\201J&\210\300\201K\302\303\201LDD\201M\306\307\310\201J&\210\300\201N\302\303\201ODD\201P\306\307\310\201Q&\207" [custom-declare-variable projectile-known-projects-file funcall function #[0 "\301\302\"\207" [user-emacs-directory expand-file-name "projectile-bookmarks.eld"] 3] "Name and location of the Projectile's known projects file." :group projectile :type string projectile-ignored-projects #[0 "\300\207" [nil] 1] "A list of projects not to be added to `projectile-known-projects'." (repeat :tag "Project list" directory) :package-version (projectile . "0.11.0") projectile-ignored-project-function #[0 "\300\207" [nil] 1] "Function to decide if a project is added to `projectile-known-projects'.\n\nCan be either nil, or a function that takes the truename of the\nproject root as argument and returns non-nil if the project is to\nbe ignored or nil otherwise.\n\nThis function is only called if the project is not listed in\n`projectile-ignored-projects'.\n\nA suitable candidate would be `file-remote-p' to ignore remote\nprojects." (choice (const :tag "Nothing" nil) (const :tag "Remote files" file-remote-p) function) (projectile . "0.13.0") projectile-track-known-projects-automatically #[0 "\300\207" [t] 1] "Controls whether Projectile will automatically register known projects.\n\nWhen set to nil you'll have always add projects explicitly with\n`projectile-add-known-project'." boolean (projectile . "1.0.0") projectile-project-search-path #[0 "\300\207" [nil] 1] "List of folders where projectile is automatically going to look for projects.\nYou can think of something like $PATH, but for projects instead of executables.\nExamples of such paths might be ~/projects, ~/work, etc." list (projectile . "1.0.0") projectile-git-command #[0 "\300\207" [#1="git ls-files -zco --exclude-standard"] 1 #1#] "Command used by projectile to get the files in a git project." projectile-git-submodule-command #[0 "\300\207" [#2="git submodule --quiet foreach 'echo $path' | tr '\\n' '\\0'"] 1 #2#] "Command used by projectile to list submodules of a given git repository.\nSet to nil to disable listing submodules contents." projectile-git-ignored-command #[0 "\300\207" [#3="git ls-files -zcoi --exclude-standard"] 1 #3#] "Command used by projectile to get the ignored files in a git project." (projectile . "0.14.0") projectile-hg-command #[0 "\300\207" [#4="hg locate -f -0 -I ."] 1 #4#] "Command used by projectile to get the files in a hg project." projectile-fossil-command #[0 "\301\302\230\205\303\304Q\207" [system-type "fossil ls | " "windows-nt" "dos2unix | " "tr '\\n' '\\0'"] 3] "Command used by projectile to get the files in a fossil project." projectile-bzr-command #[0 "\300\207" [#5="bzr ls -R --versioned -0"] 1 #5#] "Command used by projectile to get the files in a bazaar project." projectile-darcs-command #[0 "\300\207" [#6="darcs show files -0 . "] 1 #6#] "Command used by projectile to get the files in a darcs project." projectile-svn-command #[0 "\300\207" [#7="svn list -R . | grep -v '$/' | tr '\\n' '\\0'"] 1 #7#] "Command used by projectile to get the files in a svn project." projectile-generic-command #[0 "\300\301
#@453 Get the Projectile version as string.
If called interactively or if SHOW-VERSION is non-nil, show the
version in the echo area and the messages buffer.
The returned string includes both, the version from package.el
and the library version, if both a present and different.
If the version number could not be determined, signal an error,
if called interactively, or if SHOW-VERSION is non-nil, otherwise
just return nil.
(fn &optional SHOW-VERSION)
(defalias 'projectile-version #[256 "\300\301\302\303#\203\304\305!\203\306\307\"\210\211\207\310\311!\207" [require pkg-info nil t pkg-info-version-info projectile message "Projectile %s" error "Cannot determine version without package pkg-info"] 5 (#$ . 23566) (list t)])
#@20
(fn LIST1 LIST2)
(defalias 'projectile-difference #[514 "\300\301\302\303\304\305!\306\"\307\310%\"\207" [cl-remove-if make-byte-code 257 "\211\300\235\207" vconcat vector [] 3 "\n\n(fn X)"] 9 (#$ . 24304)])
#@53 Check to see if unixy text utilities are installed.
(defalias 'projectile-unixy-system-p #[0 "\300\301\302\"\207" [cl-every #[257 "\300!\207" [executable-find] 3 "\n\n(fn X)"] ("grep" "cut" "uniq")] 3 (#$ . 24523)])
#@43 Get the symbol or selected text at point.
(defalias 'projectile-symbol-or-selection-at-point #[0 "\300 \203\f\301\302 \303 \"\207\304 \207" [use-region-p buffer-substring-no-properties region-beginning region-end projectile-symbol-at-point] 3 (#$ . 24746)])
#@51 Get the symbol at point and strip its properties.
(defalias 'projectile-symbol-at-point #[0 "\300\301\302!\206\303!\207" [substring-no-properties thing-at-point symbol ""] 3 (#$ . 25011)])
#@112 Serialize DATA to FILENAME.
The saved data can be restored with `projectile-unserialize'.
(fn DATA FILENAME)
(defalias 'projectile-serialize #[514 "\301!\2053\211\302\303\304!!\305\306\307\310\311!\312\"\313$\216r\211q\210\314\315!)c)rq\210\316\314\211\314\306%\210*\266\202\207" [print-length file-writable-p get-buffer-create generate-new-buffer-name " *temp file*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 nil prin1-to-string write-region] 11 (#$ . 25209)])
#@78 Read data serialized by `projectile-serialize' from FILENAME.
(fn FILENAME)
(defalias 'projectile-unserialize #[257 "\3001*\301!\205(\302\303!r\211q\210\304\305\306\307\310!\311\"\312$\216\313!\210\314\315 !*\2620\207\316\317\"\210\320\207" [(debug error) file-exists-p generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 insert-file-contents read buffer-string message "Error during file deserialization: %S" nil] 8 (#$ . 25735)])
#@44 Cached `projectile-file-exists-p' results.
(defvar projectile-file-exists-cache (make-hash-table :test 'equal) (#$ . 26250))
#@61 Timer for scheduling`projectile-file-exists-cache-cleanup'.
(defvar projectile-file-exists-cache-timer nil (#$ . 26381))
#@104 Removed timed out cache entries and reschedules or remove the
timer if no more items are in the cache.
(defalias 'projectile-file-exists-cache-cleanup #[0 "\302 \303\304\305\306\307\310!\311\"\312\313%\"\210\314!\315V\205 \316\317\320\321#\211\207" [projectile-file-exists-cache projectile-file-exists-cache-timer current-time maphash make-byte-code 514 "\302A\300\"\205\f\303 \"\207" vconcat vector [projectile-file-exists-cache time-less-p remhash] 5 "\n\n(fn KEY VALUE)" hash-table-count 0 run-with-timer 10 nil projectile-file-exists-cache-cleanup] 8 (#$ . 26509)])
#@115 Return t if file FILENAME exist.
A wrapper around `file-exists-p' with additional caching support.
(fn FILENAME)
(defalias 'projectile-file-exists-p #[257 "\305!\211\203\205 \306V\205 \202 \205 \306V\205 \211\203(\211\202)\n\211\2044\307!\202\215\310 \311 \"\211\205@\211@\205FA\203Q\312\"\202R\313\211\204Z\206f\307!\203e\314\202f\315\203n\203~\316 \317 \320\f!\"B #\210\f\204\210\321\322\323\324#\211\314\232\266\206)\207" [projectile-file-exists-remote-cache-expire projectile-file-exists-local-cache-expire remote-file-name-inhibit-cache projectile-file-exists-cache projectile-file-exists-cache-timer file-remote-p 0 file-exists-p current-time gethash time-less-p t found notfound puthash time-add seconds-to-time run-with-timer 10 nil projectile-file-exists-cache-cleanup] 16 (#$ . 27095)])
#@177 Remove the current project's files from `projectile-projects-cache'.
With a prefix argument PROMPT prompts for the name of the project whose cache
to invalidate.
(fn PROMPT)
(defalias 'projectile-invalidate-cache #[257 "\211\203#\305\306\307C\310\311\312\313\314\315!\316\"\317\320%\"\210\211\242\237\266\202\"\202'\321\322 !\323\324\325\"\326\n\"\210\326\"\210\326 \"\210\327 \210\f\203K\330\331\332\333\334#\"\210\210\335\336!\205T\336 \207" [projectile-projects-cache projectile-project-root-cache projectile-project-type-cache projectile-projects-cache-time projectile-verbose completing-read "Remove cache for: " nil maphash make-byte-code 514 "\300\300\242B\240\207" vconcat vector [] 5 "\n\n(fn K --CL-VAR--)" projectile-ensure-project projectile-project-root make-hash-table :test equal remhash projectile-serialize-cache message "Invalidated Projectile cache for %s." propertize face font-lock-keyword-face fboundp recentf-cleanup] 12 (#$ . 27947) "P"])
#@52 Return the number of seconds since the unix epoch.
(defalias 'projectile-time-seconds #[0 "\300 \211G\301U\203\211A\262\242\202\302\303\304GD\"\211A\262\242\211A\262\242@\305\306\"\\\207" [current-time 4 signal wrong-number-of-arguments nil lsh 16] 8 (#$ . 28933)])
#@102 Cache PROJECTs FILES.
The cache is created both in memory and on the hard drive.
(fn PROJECT FILES)
(defalias 'projectile-cache-project #[514 "\205\303 #\210\303\304 \n#\210\305 \207" [projectile-enable-caching projectile-projects-cache projectile-projects-cache-time puthash projectile-time-seconds projectile-serialize-cache] 6 (#$ . 29220)])
#@62 Purge FILE from the cache of the current project.
(fn FILE)
(defalias 'projectile-purge-file-from-cache #[257 "\302 \303\"\304\"\203$\305\306\"#\210\307 \210 \205(\310\311\"\202(\312\313\"\207" [projectile-projects-cache projectile-verbose projectile-project-root gethash projectile-file-cached-p puthash remove projectile-serialize-cache message "%s removed from cache" error "%s is not in the cache"] 8 (#$ . 29578) (byte-code "\300\301\302 \"C\207" [projectile-completing-read "Remove file from cache: " projectile-current-project-files] 3)])
#@60 Purge DIR from the cache of the current project.
(fn DIR)
(defalias 'projectile-purge-dir-from-cache #[257 "\301 \302\"\303\304\305\306\307\310\311\n!\312\"\313\314%\"#\207" [projectile-projects-cache projectile-project-root gethash puthash cl-remove-if make-byte-code 257 "\301\300\"\207" vconcat vector [string-prefix-p] 4 "\n\n(fn STR)"] 12 (#$ . 30144) (byte-code "\300\301\302 \"C\207" [projectile-completing-read "Remove directory from cache: " projectile-current-project-dirs] 3)])
#@63 Check if FILE is already in PROJECT cache.
(fn FILE PROJECT)
(defalias 'projectile-file-cached-p #[514 "\301\"\235\207" [projectile-projects-cache gethash] 6 (#$ . 30647)])
#@46 Add the currently visited file to the cache.
(defalias 'projectile-cache-current-file #[0 "\301 \302 \205L\303\301 \"\205L\304\302 !\305\"\306\"\206)\307\310!!\206)\311!?\205J\312\303\"B#\210\313 \210\314\315\316\317\320#\316\317\320##\266\202\207" [projectile-projects-cache projectile-project-root buffer-file-name gethash file-truename file-relative-name projectile-file-cached-p projectile-ignored-directory-p file-name-directory projectile-ignored-file-p puthash projectile-serialize-cache message "File %s added to project %s cache." propertize face font-lock-keyword-face] 10 (#$ . 30830) nil])
#@51 Function for caching files with `find-file-hook'.
(defalias 'projectile-cache-files-find-file-hook #[0 "\301 \205\211\205\302!?\205\303 \207" [projectile-enable-caching projectile-project-p projectile-ignored-project-p projectile-cache-current-file] 3 (#$ . 31459)])
#@54 Function for caching projects with `find-file-hook'.
(defalias 'projectile-track-known-projects-find-file-hook #[0 "\205 \301 \205 \302\303 !\207" [projectile-track-known-projects-automatically projectile-project-p projectile-add-known-project projectile-project-root] 2 (#$ . 31740)])
#@74 Invalidate if FORCE or project's dirconfig newer than cache.
(fn FORCE)
(defalias 'projectile-maybe-invalidate-cache #[257 "\211\204\f\301\302 \"\205\303\304!\207" [projectile-cache-file file-newer-than-file-p projectile-dirconfig-file projectile-invalidate-cache nil] 4 (#$ . 32035)])
#@186 Discover any projects in DIRECTORY and add them to the projectile cache.
This function is not recursive and only adds projects with roots
at the top level of DIRECTORY.
(fn DIRECTORY)
(defalias 'projectile-discover-projects-in-directory #[257 "\300\301\"\302\303\"\207" [directory-files t mapcar #[257 "\300!\205\301!\302\235?\205\303!\205\304!\207" [file-directory-p file-name-nondirectory (".." ".") projectile-project-p projectile-add-known-project] 3 "\n\n(fn DIR)"]] 5 (#$ . 32333) (byte-code "\300\301!C\207" [read-directory-name "Starting directory: "] 2)])
#@113 Discover projects in `projectile-project-search-path'.
Invoked automatically when `projectile-mode' is enabled.
(defalias 'projectile-discover-projects-in-search-path #[0 "\301\302\"\207" [projectile-project-search-path mapcar projectile-discover-projects-in-directory] 3 (#$ . 32918) nil])
#@33
(fn FILENAME &optional TRASH)
(defalias 'delete-file-projectile-remove-from-cache #[513 "\205\" \205\"\302 \205\"\303 \304!\305\"\306\"\205 \307!\266\203\207" [projectile-enable-caching projectile-auto-update-cache projectile-project-p projectile-project-root file-truename file-relative-name projectile-file-cached-p projectile-purge-file-from-cache] 8 (#$ . 33216)])
#@123 Return the parent directory of PATH.
PATH may be a file or directory and directory paths may end with a slash.
(fn PATH)
(defalias 'projectile-parent #[257 "\300\301\300\302!!!!\207" [directory-file-name file-name-directory expand-file-name] 6 (#$ . 33605)])
#@371 Look up the directory hierarchy from FILE for a directory containing NAME.
Stop at the first parent directory containing a file NAME,
and return the directory. Return nil if not found.
Instead of a string, NAME can also be a predicate taking one argument
(a directory) and returning a non-nil value if that directory is the one for
which we're looking.
(fn FILE NAME)
(defalias 'projectile-locate-dominating-file #[514 "\301!\262\302\211\204H\203H\303\"\204H;\203%\304\305\"!\202(!\262\211\2034\262\202\306\307!!\211\262\232\203\302\262\202\205Q\305\310!!\207" [locate-dominating-stop-dir-regexp abbreviate-file-name nil string-match projectile-file-exists-p expand-file-name file-name-directory directory-file-name file-name-as-directory] 8 (#$ . 33873)])
#@97 Defines a custom Projectile project root.
This is intended to be used as a file local variable.
(defvar projectile-project-root nil (#$ . 34673))
(make-variable-buffer-local 'projectile-project-root)
#@62 A simple wrapper around `projectile-project-root'.
(fn DIR)
(defalias 'projectile-root-local #[257 "\207" [projectile-project-root] 2 (#$ . 34879)])
#@222 Identify a project root in DIR by top-down search for files in LIST.
If LIST is nil, use `projectile-project-root-files' instead.
Return the first (topmost) matched directory or nil if not found.
(fn DIR &optional LIST)
(defalias 'projectile-root-top-down #[513 "\300\301\302\303\304\305!\306\"\307\310%\"\207" [projectile-locate-dominating-file make-byte-code 257 "\302\303\304\305\306\307!\310\"\311\312%\300\206 \"\207" vconcat vector [projectile-project-root-files cl-find-if make-byte-code 257 "\301\302\300\"!\207" vconcat vector [projectile-file-exists-p expand-file-name] 5 "\n\n(fn F)"] 8 "\n\n(fn DIR)"] 10 (#$ . 35037)])
#@236 Identify a project root in DIR by bottom-up search for files in LIST.
If LIST is nil, use `projectile-project-root-files-bottom-up' instead.
Return the first (bottommost) matched directory or nil if not found.
(fn DIR &optional LIST)
(defalias 'projectile-root-bottom-up #[513 "\301\302\303\304\305\306!\307\"\310\311%\206\"\207" [projectile-project-root-files-bottom-up cl-some make-byte-code 257 "\301\300\"\207" vconcat vector [projectile-locate-dominating-file] 4 "\n\n(fn NAME)"] 9 (#$ . 35685)])
#@297 Identify a project root in DIR by recurring top-down search for files in LIST.
If LIST is nil, use `projectile-project-root-files-top-down-recurring'
instead. Return the last (bottommost) matched directory in the
topmost sequence of matched directories. Nil otherwise.
(fn DIR &optional LIST)
(defalias 'projectile-root-top-down-recurring #[513 "\301\302\303\304\305\306!\307\"\310\311%\206\"\207" [projectile-project-root-files-top-down-recurring cl-some make-byte-code 257 "\301\300\302\303\304\305\306!\307\"\310\311%\"\207" vconcat vector [projectile-locate-dominating-file make-byte-code 257 "\302\303\300\"!\205\304 \305!\"\206\302\303\300\305!\"!?\207" vconcat vector [locate-dominating-stop-dir-regexp projectile-file-exists-p expand-file-name string-match projectile-parent] 6 "\n\n(fn DIR)"] 9 "\n\n(fn F)"] 9 (#$ . 36202)])
#@145 Retrieves the root directory of a project if available.
If DIR is not supplied its set to the current directory by default.
(fn &optional DIR)
(defalias 'projectile-project-root #[256 "\211\206\302\303\304\305!?\305\303\306#\204\211\205)\307\310\311\312\313\314 !\315\"\316\317% \"\266\202\206/\304#\207" [default-directory projectile-project-root-files-functions cl-subst nil none file-remote-p t cl-some make-byte-code 257 "\302\303\300#\304 \"\211\203\305!\203\211\202%\306\300!!\307 #\210\211\262\207" vconcat vector [projectile-project-root-cache format "%s-%s" gethash file-exists-p file-truename puthash] 8 "\n\n(fn FUNC)"] 14 (#$ . 37062)])
#@147 Ensure that DIR is non-nil.
Useful for commands that expect the presence of a project.
Controlled by `projectile-require-project-root'.
(fn DIR)
(defalias 'projectile-ensure-project #[257 "\211\203\207\303=\203\304\305 \"\207\203\306\307\"\207\n\207" [projectile-require-project-root projectile-known-projects default-directory prompt projectile-completing-read "Switch to project: " error "Projectile can't find a project definition in %s"] 4 (#$ . 37742)])
#@110 Check if DIR is a project.
Defaults to the current directory if not provided
explicitly.
(fn &optional DIR)
(defalias 'projectile-project-p #[256 "\301\206!\207" [default-directory projectile-project-root] 3 (#$ . 38218)])
#@114 Default function used create project name to be displayed based on the value of PROJECT-ROOT.
(fn PROJECT-ROOT)
(defalias 'projectile-default-project-name #[257 "\300\301!!\207" [file-name-nondirectory directory-file-name] 4 (#$ . 38453)])
#@103 Return project name.
If PROJECT is not specified acts on the current project.
(fn &optional PROJECT)
(defalias 'projectile-project-name #[256 "\206\211\206\n\302 \211\203 !\202\303\262\207" [projectile-project-name projectile-project-name-function projectile-project-root "-"] 4 (#$ . 38702)])
#@93 Get the list of PROJECT-DIR directories that are of interest to the user.
(fn PROJECT-DIR)
(defalias 'projectile-get-project-directories #[257 "\300\301\302\303\304\305!\306\"\307\310%\311 @\206\312\"\207" [mapcar make-byte-code 257 "\300P\207" vconcat vector [] 3 "\n\n(fn SUBDIR)" projectile-parse-dirconfig-file ("")] 8 (#$ . 39013)])
#@80 Checks if DIRECTORY is a string designating a valid directory.
(fn DIRECTORY)
(defalias 'projectile--directory-p #[257 "\211;\205\300!\207" [file-directory-p] 3 (#$ . 39363)])
#@124 List the files in DIRECTORY and in its sub-directories.
Files are returned as relative paths to DIRECTORY.
(fn DIRECTORY)
2019-10-27 19:05:34 +01:00
(defalias 'projectile-dir-files #[257 "\303!\204 \304\305\"\210\205\306 \"\211\206I\307!\n\310=\203&\311!\202G\n\312=\2037\313\314!#\202G\n\315=\203C\314!\202G\316\317\n\"\262\207" [projectile-enable-caching projectile-projects-cache projectile-indexing-method projectile--directory-p error "Directory %S does not exist" gethash projectile-project-vcs native projectile-dir-files-native hybrid projectile-adjust-files projectile-dir-files-alien alien user-error "Unsupported indexing method `%S'"] 8 (#$ . 39550)])
2019-10-09 20:36:55 +02:00
#@79 Get the files for ROOT under DIRECTORY using just Emacs Lisp.
(fn DIRECTORY)
2019-10-27 19:05:34 +01:00
(defalias 'projectile-dir-files-native #[257 "\300\301\302\303\304\305#\"!\306\307\310\311\312\313!\314\"\315\316%\317\320 #\"\207" [make-progress-reporter format "Projectile is indexing %s" propertize face font-lock-keyword-face mapcar make-byte-code 257 "\301\300\"\207" vconcat vector [file-relative-name] 4 "\n\n(fn FILE)" projectile-index-directory projectile-filtering-patterns] 9 (#$ . 40216)])
2019-10-09 20:36:55 +02:00
#@240 Index DIRECTORY taking into account PATTERNS.
The function calls itself recursively until all sub-directories
have been indexed. The PROGRESS-REPORTER is updated while the
function is executing.
(fn DIRECTORY PATTERNS PROGRESS-REPORTER)
2019-10-27 19:05:34 +01:00
(defalias 'projectile-index-directory #[771 "\300\301\302\303\304\305\306\307\n\n\n#\310\"\311\312%\313\314\"\"\"\207" [apply append mapcar make-byte-code 257 "\301\203\f\303\300\301#\206\304\305!!\306\235?\205I\302\307\211\247\203%\211@Y\205)\310\"\266\311!\203@\312\313!!?\205I\314\301\302#\207\315!?\205I\211C\207" vconcat vector [projectile-ignored-rel-p file-name-nondirectory directory-file-name ("." ".." ".svn" ".cvs") nil progress-reporter-do-update file-directory-p projectile-ignored-directory-p file-name-as-directory projectile-index-directory projectile-ignored-file-p] 6 "\n\n(fn F)" directory-files t] 14 (#$ . 40709)])
2019-10-09 20:36:55 +02:00
#@67 Get the files for DIRECTORY using external tools.
(fn DIRECTORY)
2019-10-27 19:05:34 +01:00
(defalias 'projectile-dir-files-alien #[257 "\300!\211\301=\203\302\303!\"\304\"\244\202\302\303!\"\207" [projectile-project-vcs git projectile-files-via-ext-command projectile-get-ext-command projectile-get-sub-projects-files] 6 (#$ . 41614)])
2019-10-09 20:36:55 +02:00
(byte-code "\300\301\302\303#\210\304\301\302\305#\210\300\306\302\303#\210\304\306\302\305#\207" [defalias projectile-dir-files-external projectile-dir-files-alien nil make-obsolete "2.0.0" projectile-get-repo-files] 4)
#@150 Determine which external command to invoke based on the project's VCS.
Fallback to a generic command when not in a VCS-controlled project.
(fn VCS)
2019-10-27 19:05:34 +01:00
(defalias 'projectile-get-ext-command #[257 "\211\306=\203\207\211\307=\203 \207\211\310=\203\n\207\211\311=\203 \207\211\312=\203(\f\207\211\313=\2030 \207\f\207" [projectile-git-command projectile-hg-command projectile-fossil-command projectile-bzr-command projectile-darcs-command projectile-svn-command git hg fossil bzr darcs svn projectile-generic-command] 3 (#$ . 42164)])
2019-10-09 20:36:55 +02:00
#@133 Get the sub-projects command for VCS.
Currently that's supported just for Git (sub-projects being Git
sub-modules there).
(fn VCS)
2019-10-27 19:05:34 +01:00
(defalias 'projectile-get-sub-projects-command #[257 "\211\301=\203\207\302\207" [projectile-git-submodule-command git ""] 3 (#$ . 42712)])
2019-10-09 20:36:55 +02:00
#@82 Determine which external command to invoke based on the project's VCS.
(fn VCS)
2019-10-27 19:05:34 +01:00
(defalias 'projectile-get-ext-ignored-command #[257 "\211\301=\205\207" [projectile-git-ignored-command git] 3 (#$ . 42993)])
2019-10-09 20:36:55 +02:00
#@82 Take a nested list LST and return its contents as a single, flat list.
(fn LST)
2019-10-27 19:05:34 +01:00
(defalias 'projectile-flatten #[257 "\211<\203\211A<\203\300\301\"\207\211C\207" [cl-mapcan projectile-flatten] 4 (#$ . 43209)])
2019-10-09 20:36:55 +02:00
#@113 Get all sub-projects for a given project.
PROJECT is base directory to start search recursively.
(fn PROJECT)
2019-10-27 19:05:34 +01:00
(defalias 'projectile-get-all-sub-projects #[257 "\300!\211\204 \301\202\211\302\303\304\"!\244\207" [projectile-get-immediate-sub-projects nil projectile-flatten mapcar #[257 "\300!\207" [projectile-get-all-sub-projects] 3 "\n\n(fn S)"]] 7 (#$ . 43431)])
2019-10-09 20:36:55 +02:00
#@341 Get immediate sub-projects for a given project without recursing.
PATH is the vcs root or project root from which to start
searching, and should end with an appropriate path delimiter, such as
'/' or a '\'.
If the vcs get-sub-projects query returns results outside of path,
they are excluded from the results of this function.
(fn PATH)
2019-10-27 19:05:34 +01:00
(defalias 'projectile-get-immediate-sub-projects #[257 "\300!\301\302\303\304\305\306!\307\"\310\311%\312\313!\"\"\314\315!P\316\302\303\317\305\306!\320\"\321\322%\"\207" [projectile-project-vcs mapcar make-byte-code 257 "\301\302\300\"!\207" vconcat vector [file-name-as-directory expand-file-name] 5 "\n\n(fn S)" projectile-files-via-ext-command projectile-get-sub-projects-command "\\`" regexp-quote cl-remove-if-not "\300\302\303\304#)\207" [inhibit-changing-match-data nil t string-match] 8 "\n\n(fn SUBMODULE)"] 11 (#$ . 43812)])
2019-10-09 20:36:55 +02:00
#@82 Get files from sub-projects for PROJECT-ROOT recursively.
(fn PROJECT-ROOT VCS)
2019-10-27 19:05:34 +01:00
(defalias 'projectile-get-sub-projects-files #[514 "\300\301\302\303\304\305\306!\307\"\310\311%\312!\"!\207" [projectile-flatten mapcar make-byte-code 257 "\302\303\300\"!\304\305\306\307\310\311!\312\"\313\314%\315 \"\"\207" vconcat vector [projectile-git-command file-name-as-directory file-relative-name mapcar make-byte-code 257 "\300P\207" vconcat vector [] 3 "\n\n(fn FILE)" projectile-files-via-ext-command] 9 "\n\n(fn SUB-PROJECT)" projectile-get-all-sub-projects] 10 (#$ . 44710)])
2019-10-09 20:36:55 +02:00
#@77 Get a list of the files ignored in the PROJECT using VCS.
(fn PROJECT VCS)
2019-10-27 19:05:34 +01:00
(defalias 'projectile-get-repo-ignored-files #[514 "\300!\211\205 \301\"\207" [projectile-get-ext-ignored-command projectile-files-via-ext-command] 6 (#$ . 45297)])
2019-10-09 20:36:55 +02:00
#@123 Get a list of the files ignored in the PROJECT in the directory DIR.
VCS is the VCS of the project.
(fn PROJECT DIR VCS)
2019-10-27 19:05:34 +01:00
(defalias 'projectile-get-repo-ignored-directory #[771 "\300!\211\205\301\302Q\"\207" [projectile-get-ext-ignored-command projectile-files-via-ext-command " "] 9 (#$ . 45549)])
2019-10-09 20:36:55 +02:00
#@186 Get a list of relative file names in the project ROOT by executing COMMAND.
If `command' is nil or an empty string, return nil.
This allows commands to be disabled.
(fn ROOT COMMAND)
2019-10-27 19:05:34 +01:00
(defalias 'projectile-files-via-ext-command #[514 "\211;\205\301\302!\303\304#)\207" [default-directory split-string shell-command-to-string "" t] 6 (#$ . 45862)])
2019-10-09 20:36:55 +02:00
#@95 First remove ignored files from FILES, then add back unignored files.
(fn PROJECT VCS FILES)
2019-10-27 19:05:34 +01:00
(defalias 'projectile-adjust-files #[771 "\300\301!#\207" [projectile-add-unignored projectile-remove-ignored] 8 (#$ . 46223)])
2019-10-09 20:36:55 +02:00
#@211 Remove ignored files and folders from FILES.
If ignored directory prefixed with '*', then ignore all
directories/subdirectories with matching filename,
otherwise operates relative to project root.
(fn FILES)
2019-10-27 19:05:34 +01:00
(defalias 'projectile-remove-ignored #[257 "\300 \301 \302\303\304\305\306\307\"\310\"\311\312%\"\207" [projectile-ignored-files-rel projectile-ignored-directories-rel cl-remove-if make-byte-code 257 "\303\304\305\306\307\310!\311\"\312\313%\300\"\2066\303\304\305\314\307\310!\315\"\316\317%\301\"\2066\303\304\305\320\307\310!\321\"\322\323%\n\"\207" vconcat vector [projectile-globally-ignored-file-suffixes cl-some make-byte-code 257 "\211\301\300!\230\207" vconcat vector [file-name-nondirectory] 4 "\n\n(fn F)" "\301\302\"\2031\211\303\304\305O\306\232\205\304O\307\310\311\312\313\314!\315\"\316\317%\320\321\322\323\300!\206,\321\306\"\"\"\207\301\300\"\207" [string-prefix-p "*" 1 -1 nil "/" cl-some make-byte-code 257 "\300\230\207" vconcat vector [] 3 "\n\n(fn P)" delete "" split-string file-name-directory] 9 "\n\n(fn DIR)" "\301\300\302#\207" [string-suffix-p t] 5 "\n\n(fn SUF)"] 8 "\n\n(fn FILE)"] 11 (#$ . 46455)])
2019-10-09 20:36:55 +02:00
#@77 Filter FILES to retain only those that are ignored.
(fn PROJECT VCS FILES)
2019-10-27 19:05:34 +01:00
(defalias 'projectile-keep-ignored-files #[771 "\211\205\300\301\302\303\304\305!\306\"\307\310%\311\"\"\207" [cl-remove-if-not make-byte-code 257 "\301\302\303\304\305\306!\307\"\310\311%\300\"\207" vconcat vector [cl-some make-byte-code 257 "\301\300\"\207" vconcat vector [string-prefix-p] 4 "\n\n(fn F)"] 8 "\n\n(fn FILE)" projectile-get-repo-ignored-files] 10 (#$ . 47627)])
2019-10-09 20:36:55 +02:00
#@77 Get ignored files within each of DIRECTORIES.
(fn PROJECT VCS DIRECTORIES)
2019-10-27 19:05:34 +01:00
(defalias 'projectile-keep-ignored-directories #[771 "\211\205#\300\211\203\211@\301\302#\"\262A\266\202\202\210\211\262\207" [nil append projectile-get-repo-ignored-directory] 12 (#$ . 48098)])
2019-10-09 20:36:55 +02:00
#@179 This adds unignored files to FILES.
Useful because the VCS may not return ignored files at all. In
this case unignored files will be absent from FILES.
(fn PROJECT VCS FILES)
2019-10-27 19:05:34 +01:00
(defalias 'projectile-add-unignored #[771 "\300\301 #\302\303\304 #!\305#\207" [projectile-keep-ignored-files projectile-unignored-files-rel projectile-remove-ignored projectile-keep-ignored-directories projectile-unignored-directories-rel append] 9 (#$ . 48391)])
2019-10-09 20:36:55 +02:00
#@58 Return only those BUFFERS backed by files.
(fn BUFFERS)
2019-10-27 19:05:34 +01:00
(defalias 'projectile-buffers-with-file #[257 "\300\301\"\207" [cl-remove-if-not #[257 "\300!\207" [buffer-file-name] 3 "\n\n(fn B)"]] 4 (#$ . 48847)])
2019-10-09 20:36:55 +02:00
#@71 Return only those BUFFERS backed by files or processes.
(fn BUFFERS)
2019-10-27 19:05:34 +01:00
(defalias 'projectile-buffers-with-file-or-process #[257 "\300\301\"\207" [cl-remove-if-not #[257 "\300!\206 \301!\207" [buffer-file-name get-buffer-process] 3 "\n\n(fn B)"]] 4 (#$ . 49064)])
2019-10-09 20:36:55 +02:00
#@129 Get a list of a project's buffers.
If PROJECT is not specified the command acts on the current project.
(fn &optional PROJECT)
2019-10-27 19:05:34 +01:00
(defalias 'projectile-project-buffers #[256 "\211\206\301 \302\303\304\305\306\307!\310\"\311\312%\313 \"\203!!\202\"\211\207" [projectile-buffers-filter-function projectile-project-root cl-remove-if-not make-byte-code 257 "\301\300\"\207" vconcat vector [projectile-project-buffer-p] 4 "\n\n(fn BUFFER)" buffer-list] 9 (#$ . 49337)])
2019-10-09 20:36:55 +02:00
#@66 Process the current project's buffers using ACTION.
(fn ACTION)
2019-10-27 19:05:34 +01:00
(defalias 'projectile-process-current-project-buffers #[257 "\300 \211\211\205\211@!\210A\266\202\202\262\207" [projectile-project-buffers] 6 (#$ . 49816)])
2019-10-09 20:36:55 +02:00
#@134 Get a list of a project's buffer files.
If PROJECT is not specified the command acts on the current project.
(fn &optional PROJECT)
2019-10-27 19:05:34 +01:00
(defalias 'projectile-project-buffer-files #[256 "\211\206\300 \301\302\303\304\305\306!\307\"\310\311%\312\313!!\"\207" [projectile-project-root mapcar make-byte-code 257 "\301\302!\300\"\207" vconcat vector [file-relative-name buffer-file-name] 4 "\n\n(fn BUFFER)" projectile-buffers-with-file projectile-project-buffers] 9 (#$ . 50053)])
2019-10-09 20:36:55 +02:00
#@66 Check if BUFFER is under PROJECT-ROOT.
(fn BUFFER PROJECT-ROOT)
2019-10-27 19:05:34 +01:00
(defalias 'projectile-project-buffer-p #[514 "rq\210\303\304\305!\"?\205=\306!?\205=\205=\307!\307!\230\205=\310\311\312\313#)\266\203?\205=\303\314!\n\315=#)\207" [default-directory inhibit-changing-match-data system-type string-prefix-p " " buffer-name projectile-ignored-buffer-p file-remote-p "^http\\(s\\)?://" nil t string-match file-truename windows-nt] 9 (#$ . 50539)])
2019-10-09 20:36:55 +02:00
#@82 Check if BUFFER should be ignored.
Regular expressions can be use.
(fn BUFFER)
2019-10-27 19:05:34 +01:00
(defalias 'projectile-ignored-buffer-p #[257 "r\211q\210\302\303\")\206r\211q\210\302\304 \")\207" [projectile-globally-ignored-buffers projectile-globally-ignored-modes cl-some #[257 "\211\301 \302\303\304#)\207" [inhibit-changing-match-data buffer-name nil t string-match] 8 "\n\n(fn NAME)"] #[257 "\302\303Q\304!\305\306\307#)\207" [major-mode inhibit-changing-match-data "^" "$" symbol-name nil t string-match] 8 "\n\n(fn MODE)"]] 4 (#$ . 51006)])
2019-10-09 20:36:55 +02:00
#@132 Get list of recently active files.
Files are ordered by recently active buffers, and then recently
opened through use of recentf.
2019-10-27 19:05:34 +01:00
(defalias 'projectile-recently-active-files #[0 "\300 \301\302\303 \"\"\207" [projectile-project-buffer-files append projectile-difference projectile-recentf-files] 6 (#$ . 51559)])
2019-10-09 20:36:55 +02:00
#@37 Get a list of project buffer names.
2019-10-27 19:05:34 +01:00
(defalias 'projectile-project-buffer-names #[0 "\300\301\302 \"\207" [mapcar buffer-name projectile-project-buffers] 3 (#$ . 51880)])
2019-10-09 20:36:55 +02:00
#@60 Prepend the current project's name to STRING.
(fn STRING)
2019-10-27 19:05:34 +01:00
(defalias 'projectile-prepend-project-name #[257 "\300\301\302 #\207" [format "[%s] %s" projectile-project-name] 5 (#$ . 52056)])
2019-10-09 20:36:55 +02:00
#@146 Read the name of a buffer to switch to, prompting with PROMPT.
This function excludes the current buffer from the offered
choices.
(fn PROMPT)
2019-10-27 19:05:34 +01:00
(defalias 'projectile-read-buffer-to-switch #[257 "\300\301\302p!\303 \"\"\207" [projectile-completing-read delete buffer-name projectile-project-buffer-names] 6 (#$ . 52253)])
2019-10-09 20:36:55 +02:00
#@29 Switch to a project buffer.
2019-10-27 19:05:34 +01:00
(defalias 'projectile-switch-to-buffer #[0 "\300\301\302!!\207" [switch-to-buffer projectile-read-buffer-to-switch "Switch to buffer: "] 3 (#$ . 52582) nil])
2019-10-09 20:36:55 +02:00
#@59 Switch to a project buffer and show it in another window.
2019-10-27 19:05:34 +01:00
(defalias 'projectile-switch-to-buffer-other-window #[0 "\300\301\302!!\207" [switch-to-buffer-other-window projectile-read-buffer-to-switch "Switch to buffer: "] 3 (#$ . 52774) nil])
2019-10-09 20:36:55 +02:00
#@59 Switch to a project buffer and show it in another window.
2019-10-27 19:05:34 +01:00
(defalias 'projectile-switch-to-buffer-other-frame #[0 "\300\301\302!!\207" [switch-to-buffer-other-frame projectile-read-buffer-to-switch "Switch to buffer: "] 3 (#$ . 53022) nil])
2019-10-09 20:36:55 +02:00
#@66 Display a project buffer in another window without selecting it.
2019-10-27 19:05:34 +01:00
(defalias 'projectile-display-buffer #[0 "\300\301\302\303 \"!\207" [display-buffer projectile-completing-read "Display buffer: " projectile-project-buffer-names] 4 (#$ . 53268) nil])
2019-10-09 20:36:55 +02:00
#@111 Switch to the most recently selected buffer project buffer.
Only buffers not visible in windows are returned.
2019-10-27 19:05:34 +01:00
(defalias 'projectile-project-buffers-other-buffer #[0 "\300\301 @!\210\302\207" [switch-to-buffer projectile-project-buffers-non-visible t] 2 (#$ . 53524) nil])
2019-10-09 20:36:55 +02:00
#@44 Get a list of non visible project buffers.
2019-10-27 19:05:34 +01:00
(defalias 'projectile-project-buffers-non-visible #[0 "\300\301\302 \"\207" [cl-remove-if-not #[257 "\300\301\"?\207" [get-buffer-window visible] 4 "\n\n(fn BUFFER)"] projectile-project-buffers] 3 (#$ . 53802)])
2019-10-09 20:36:55 +02:00
#@117 Do a `multi-occur' in the project's buffers.
With a prefix argument, show NLINES of context.
(fn &optional NLINES)
2019-10-27 19:05:34 +01:00
(defalias 'projectile-multi-occur #[256 "\300\301 !\302\303!\304 @#\207" [projectile-ensure-project projectile-project-root multi-occur projectile-project-buffers occur-read-primary-args] 6 (#$ . 54065) "P"])
2019-10-09 20:36:55 +02:00
#@66 Remove leading `/' from the elements of PATTERNS.
(fn PATTERNS)
2019-10-27 19:05:34 +01:00
(defalias 'projectile-normalise-paths #[257 "\300\301\302\303\"\"\207" [delq nil mapcar #[257 "\300\301\"\205 \211\302\303O\207" [string-prefix-p "/" 1 nil] 4 "\n\n(fn PAT)"]] 6 (#$ . 54398)])
2019-10-09 20:36:55 +02:00
#@197 Expand the elements of PATHS.
Elements containing wildcards are expanded and spliced into the
resulting paths. The returned PATHS are absolute, based on the
projectile project root.
(fn PATHS)
2019-10-27 19:05:34 +01:00
(defalias 'projectile-expand-paths #[257 "\301 \302\303\304\"!)\207" [default-directory projectile-project-root projectile-flatten mapcar #[257 "\300\301\"\206\n\302!\207" [file-expand-wildcards t projectile-expand-root] 4 "\n\n(fn PATTERN)"]] 5 (#$ . 54666)])
2019-10-09 20:36:55 +02:00
#@44 Remove paths from PATTERNS.
(fn PATTERNS)
2019-10-27 19:05:34 +01:00
(defalias 'projectile-normalise-patterns #[257 "\300\301\"\207" [cl-remove-if #[257 "\300\301\"\207" [string-prefix-p "/"] 4 "\n\n(fn PAT)"]] 4 (#$ . 55134)])
2019-10-09 20:36:55 +02:00
#@54 Make FILES relative to the project root.
(fn FILES)
2019-10-27 19:05:34 +01:00
(defalias 'projectile-make-relative-to-root #[257 "\300 \301\302\303\304\305\306!\307\"\310\311%\"\207" [projectile-project-root mapcar make-byte-code 257 "\301\300\"\207" vconcat vector [file-relative-name] 4 "\n\n(fn F)"] 9 (#$ . 55344)])
2019-10-09 20:36:55 +02:00
#@89 Check if DIRECTORY should be ignored.
Regular expressions can be used.
(fn DIRECTORY)
2019-10-27 19:05:34 +01:00
(defalias 'projectile-ignored-directory-p #[257 "\300\301\302\303\304\305!\306\"\307\310%\311 \"\207" [cl-some make-byte-code 257 "\211\300\302\303\304#)\207" vconcat vector [inhibit-changing-match-data nil t string-match] 8 "\n\n(fn NAME)" projectile-ignored-directories] 8 (#$ . 55648)])
2019-10-09 20:36:55 +02:00
#@79 Check if FILE should be ignored.
Regular expressions can be used.
(fn FILE)
2019-10-27 19:05:34 +01:00
(defalias 'projectile-ignored-file-p #[257 "\300\301\302\303\304\305!\306\"\307\310%\311 \"\207" [cl-some make-byte-code 257 "\211\300\302\303\304#)\207" vconcat vector [inhibit-changing-match-data nil t string-match] 8 "\n\n(fn NAME)" projectile-ignored-files] 8 (#$ . 56038)])
2019-10-09 20:36:55 +02:00
#@49 Check if FILE meets PATTERN.
(fn FILE PATTERN)
2019-10-27 19:05:34 +01:00
(defalias 'projectile-check-pattern-p #[514 "\300\301!\301!\"\206\302\303\"\235\207" [string-suffix-p directory-file-name file-expand-wildcards t] 6 (#$ . 56407)])
2019-10-09 20:36:55 +02:00
#@130 Check if FILE should be ignored relative to DIRECTORY
according to PATTERNS: (ignored . unignored)
(fn FILE DIRECTORY PATTERNS)
2019-10-27 19:05:34 +01:00
(defalias 'projectile-ignored-rel-p #[771 "\301\302\303\304\305\306!\307\"\310\311%@\"\205/\302\303\304\305\306!\312\"\310\311%A\313\314\301$?\266\203)\207" [default-directory cl-some make-byte-code 257 "\301\300\"\207" vconcat vector [projectile-check-pattern-p] 4 "\n\n(fn PAT)" [projectile-check-pattern-p] nil apply] 11 (#$ . 56632)])
2019-10-09 20:36:55 +02:00
#@31 Return list of ignored files.
2019-10-27 19:05:34 +01:00
(defalias 'projectile-ignored-files #[0 "\301\302\303\304\305 \"\"\306 \"\207" [projectile-globally-ignored-files projectile-difference mapcar projectile-expand-root append projectile-project-ignored-files projectile-unignored-files] 6 (#$ . 57119)])
2019-10-09 20:36:55 +02:00
#@37 Return list of ignored directories.
2019-10-27 19:05:34 +01:00
(defalias 'projectile-ignored-directories #[0 "\301\302\303\302\304\305\306 \"\"\"\307 \"\207" [projectile-globally-ignored-directories projectile-difference mapcar file-name-as-directory projectile-expand-root append projectile-project-ignored-directories projectile-unignored-directories] 8 (#$ . 57407)])
2019-10-09 20:36:55 +02:00
#@59 Return list of ignored directories, relative to the root.
2019-10-27 19:05:34 +01:00
(defalias 'projectile-ignored-directories-rel #[0 "\300\301 !\207" [projectile-make-relative-to-root projectile-ignored-directories] 2 (#$ . 57758)])
2019-10-09 20:36:55 +02:00
#@53 Return list of ignored files, relative to the root.
2019-10-27 19:05:34 +01:00
(defalias 'projectile-ignored-files-rel #[0 "\300\301 !\207" [projectile-make-relative-to-root projectile-ignored-files] 2 (#$ . 57972)])
2019-10-09 20:36:55 +02:00
#@73 Return list of project ignored files.
Unignored files are not included.
2019-10-27 19:05:34 +01:00
(defalias 'projectile-project-ignored-files #[0 "\300\301\302 \"\207" [cl-remove-if file-directory-p projectile-project-ignored] 3 (#$ . 58168)])
2019-10-09 20:36:55 +02:00
#@85 Return list of project ignored directories.
Unignored directories are not included.
2019-10-27 19:05:34 +01:00
(defalias 'projectile-project-ignored-directories #[0 "\300\301\302 \"\207" [cl-remove-if-not file-directory-p projectile-project-ignored] 3 (#$ . 58392)])
2019-10-09 20:36:55 +02:00
#@41 Return a list of ignored project paths.
2019-10-27 19:05:34 +01:00
(defalias 'projectile-paths-to-ignore #[0 "\300\301 A@!\207" [projectile-normalise-paths projectile-parse-dirconfig-file] 2 (#$ . 58638)])
2019-10-09 20:36:55 +02:00
#@42 Return a list of relative file patterns.
2019-10-27 19:05:34 +01:00
(defalias 'projectile-patterns-to-ignore #[0 "\300\301 A@!\207" [projectile-normalise-patterns projectile-parse-dirconfig-file] 2 (#$ . 58823)])
2019-10-09 20:36:55 +02:00
#@97 Return list of project ignored files/directories.
Unignored files/directories are not included.
2019-10-27 19:05:34 +01:00
(defalias 'projectile-project-ignored #[0 "\300 \301!\207" [projectile-paths-to-ignore projectile-expand-paths] 3 (#$ . 59015)])
2019-10-09 20:36:55 +02:00
#@33 Return list of unignored files.
2019-10-27 19:05:34 +01:00
(defalias 'projectile-unignored-files #[0 "\301\302\303\304 \"\"\207" [projectile-globally-unignored-files mapcar projectile-expand-root append projectile-project-unignored-files] 5 (#$ . 59247)])
2019-10-09 20:36:55 +02:00
#@39 Return list of unignored directories.
2019-10-27 19:05:34 +01:00
(defalias 'projectile-unignored-directories #[0 "\301\302\301\303\304\305 \"\"\"\207" [projectile-globally-unignored-directories mapcar file-name-as-directory projectile-expand-root append projectile-project-unignored-directories] 7 (#$ . 59483)])
2019-10-09 20:36:55 +02:00
#@61 Return list of unignored directories, relative to the root.
2019-10-27 19:05:34 +01:00
(defalias 'projectile-unignored-directories-rel #[0 "\300\301 !\207" [projectile-make-relative-to-root projectile-unignored-directories] 2 (#$ . 59776)])
2019-10-09 20:36:55 +02:00
#@55 Return list of unignored files, relative to the root.
2019-10-27 19:05:34 +01:00
(defalias 'projectile-unignored-files-rel #[0 "\300\301 !\207" [projectile-make-relative-to-root projectile-unignored-files] 2 (#$ . 59996)])
2019-10-09 20:36:55 +02:00
#@41 Return list of project unignored files.
2019-10-27 19:05:34 +01:00
(defalias 'projectile-project-unignored-files #[0 "\300\301\302 \"\207" [cl-remove-if file-directory-p projectile-project-unignored] 3 (#$ . 60198)])
2019-10-09 20:36:55 +02:00
#@47 Return list of project unignored directories.
2019-10-27 19:05:34 +01:00
(defalias 'projectile-project-unignored-directories #[0 "\300\301\302 \"\207" [cl-remove-if-not file-directory-p projectile-project-unignored] 3 (#$ . 60394)])
2019-10-09 20:36:55 +02:00
#@43 Return a list of unignored project paths.
2019-10-27 19:05:34 +01:00
(defalias 'projectile-paths-to-ensure #[0 "\300\301\302 8!\207" [projectile-normalise-paths 2 projectile-parse-dirconfig-file] 3 (#$ . 60606)])
2019-10-09 20:36:55 +02:00
(defalias 'projectile-files-to-ensure #[0 "\300\301\302\303 \"!\207" [projectile-flatten mapcar #[257 "\300\301\"\207" [file-expand-wildcards t] 4 "\n\n(fn PAT)"] projectile-patterns-to-ensure] 4])
#@42 Return a list of relative file patterns.
2019-10-27 19:05:34 +01:00
(defalias 'projectile-patterns-to-ensure #[0 "\300\301\302 8!\207" [projectile-normalise-patterns 2 projectile-parse-dirconfig-file] 3 (#$ . 60997)])
2019-10-09 20:36:55 +02:00
(defalias 'projectile-filtering-patterns #[0 "\300 \301 B\207" [projectile-patterns-to-ignore projectile-patterns-to-ensure] 2])
#@51 Return list of project ignored files/directories.
2019-10-27 19:05:34 +01:00
(defalias 'projectile-project-unignored #[0 "\300\301\302\303 !\302\304 !\"!\207" [delete-dups append projectile-expand-paths projectile-paths-to-ensure projectile-files-to-ensure] 5 (#$ . 61323)])
2019-10-09 20:36:55 +02:00
#@59 Return the absolute path to the project's dirconfig file.
2019-10-27 19:05:34 +01:00
(defalias 'projectile-dirconfig-file #[0 "\300\301\302 \"\207" [expand-file-name ".projectile" projectile-project-root] 3 (#$ . 61577)])
2019-10-09 20:36:55 +02:00
#@544 Parse project ignore file and return directories to ignore and keep.
The return value will be a list of three elements, the car being
the list of directories to keep, the cadr being the list of files
or directories to ignore, and the caddr being the list of files
or directories to ensure.
Strings starting with + will be added to the list of directories
to keep, and strings starting with - will be added to the list of
directories to ignore. For backward compatibility, without a
prefix the string will be assumed to be an ignore string.
2019-10-27 19:05:34 +01:00
(defalias 'projectile-parse-dirconfig-file #[0 "\300\211\211\301 \302!\205\217\303\304!r\211q\210\305\306\307\310\311!\312\"\313$\216\314!\210m\204n\300f\211\315=\203;`T\316 {B\262\202g\211\317=\203M`T\316 {B\262\202g\211\320=\203_`T\316 {B\262\202g`\316 {B\262\210\300y\210\202\"*\210\321\322\323\324\325!\"\"\321\326\323\324\325!\"\"\321\326\323\324\325!\"\"E\207" [nil projectile-dirconfig-file projectile-file-exists-p generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 insert-file-contents 43 line-end-position 45 33 mapcar #[257 "\300\301!!\207" [file-name-as-directory string-trim] 4 "\n\n(fn F)"] delete "" reverse string-trim] 12 (#$ . 61779)])
2019-10-09 20:36:55 +02:00
#@131 Expand NAME to project root.
Never use on many files since it's going to recalculate the
project-root for every file.
(fn NAME)
2019-10-27 19:05:34 +01:00
(defalias 'projectile-expand-root #[257 "\300\301 \"\207" [expand-file-name projectile-project-root] 4 (#$ . 63081)])
2019-10-09 20:36:55 +02:00
#@96 Present a project tailored PROMPT with CHOICES.
(fn PROMPT CHOICES &key INITIAL-INPUT ACTION)
2019-10-27 19:05:34 +01:00
(defalias 'projectile-completing-read #[642 "\301\302\"A@\301\303\"A@\211\2037\211@\304>\203 \211AA\262\202 \305>A@\203.\306\262\202 \307\310@\"\210\202 \210\311!\306\312=\203N\313\306\211%\202\310\314=\203`\315\306\211%\202\310\316=\203\235\317\316!\203\227\317\320!\203\227\316\321\320\322\323\324 \303\n\203\210\n\306\262\f\202\211\325&\326\327 \330\331&\202\310\332\333!\202\310\334=\203\303\317\335!\203\275\335\302\303\306\262\n\336\337&\202\310\332\340!\202\310\"\262\203\324!\202\325\211\266\202\207" [projectile-completion-system plist-member :initial-input :action (:initial-input :action :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:initial-input :action)" projectile-prepend-project-name ido ido-completing-read default completing-read helm fboundp helm-make-source :sources "Projectile" helm-source-sync :candidates identity :prompt :input :buffer "*helm-projectile*" user-error "Please install helm from https://github.com/emacs-helm/helm" ivy ivy-read :caller projectile-completing-read "Please install ivy from https://github.com/abo-abo/swiper"] 17 (#$ . 63336)])
2019-10-09 20:36:55 +02:00
#@65 Return a list of files for the PROJECT-ROOT.
(fn PROJECT-ROOT)
2019-10-27 19:05:34 +01:00
(defalias 'projectile-project-files #[257 "\305\203!\306 \"\211\203\211\\\307 W\203 \310\n\"\210\310 \"\210\210 \203+\306\n\"\262\211\204a \2038\311\312\"\210\f\313=\203D\314!\202V\315\316\317\320\321\322!\323\"\324\325%\326!\"\262 \203a\327\"\210\f\313=\203k\211\202n\330!\207" [projectile-files-cache-expire projectile-projects-cache-time projectile-projects-cache projectile-enable-caching projectile-indexing-method nil gethash projectile-time-seconds remhash message "Projectile is initializing cache for %s ..." alien projectile-dir-files-alien cl-mapcan make-byte-code 257 "\301\302\303\304\305\306\300\"\307\"\310\311%\312!\"\207" vconcat vector [mapcar make-byte-code 257 "\302\301P\300\"\207" vconcat vector [file-relative-name] 4 "\n\n(fn F)" projectile-dir-files] 9 "\n\n(fn DIR)" projectile-get-project-directories projectile-cache-project projectile-sort-files] 9 (#$ . 64622)])
2019-10-09 20:36:55 +02:00
#@52 Return a list of the files in the current project.
2019-10-27 19:05:34 +01:00
(defalias 'projectile-current-project-files #[0 "\300\301 !\207" [projectile-project-files projectile-project-root] 2 (#$ . 65617)])
2019-10-09 20:36:55 +02:00
#@64 Process the current project's files using ACTION.
(fn ACTION)
2019-10-27 19:05:34 +01:00
(defalias 'projectile-process-current-project-files #[257 "\301 \302 \211\211\205\211@!\210A\266\202\202\262)\207" [default-directory projectile-current-project-files projectile-project-root] 6 (#$ . 65807)])
2019-10-09 20:36:55 +02:00
#@50 Return a list of dirs for PROJECT.
(fn PROJECT)
2019-10-27 19:05:34 +01:00
(defalias 'projectile-project-dirs #[257 "\300\301\302\303\304\305!\"\"!\207" [delete-dups delq nil mapcar file-name-directory projectile-project-files] 8 (#$ . 66094)])
2019-10-09 20:36:55 +02:00
#@48 Return a list of dirs for the current project.
2019-10-27 19:05:34 +01:00
(defalias 'projectile-current-project-dirs #[0 "\300\301\302 !!\207" [projectile-project-dirs projectile-ensure-project projectile-project-root] 3 (#$ . 66321)])
2019-10-09 20:36:55 +02:00
#@241 Return a list of other files for FILE-NAME.
The list depends on `:related-files-fn' project option and
`projectile-other-file-alist'. For the latter, FLEX-MATCHING can be used
to match any basename.
(fn FILE-NAME &optional FLEX-MATCHING)
2019-10-27 19:05:34 +01:00
(defalias 'projectile-get-other-files #[513 "\300\301\"\211\203\302!\202\303\304 #\207" [projectile--related-files-plist-by-kind :other projectile--related-files-from-plist projectile--other-extension-files projectile-current-project-files] 7 (#$ . 66537)])
2019-10-09 20:36:55 +02:00
#@440 Switch between files with the same name but different extensions.
With FLEX-MATCHING, match any file that contains the base name of current file.
Other file extensions can be customized with the variable
`projectile-other-file-alist'. With FF-VARIANT set to a defun, use that
instead of `find-file'. A typical example of such a defun would be
`find-file-other-window' or `find-file-other-frame'
(fn &optional FLEX-MATCHING FF-VARIANT)
2019-10-27 19:05:34 +01:00
(defalias 'projectile--find-other-file #[512 "\211\206\300\301\302 \"\211\203\303!\304\305 \"!\262\202 \306\307!\207" [find-file projectile-get-other-files buffer-file-name projectile--choose-from-candidates expand-file-name projectile-project-root error "No other file found"] 9 (#$ . 67050)])
2019-10-09 20:36:55 +02:00
#@266 Switch between files with the same name but different extensions.
With FLEX-MATCHING, match any file that contains the base name of current file.
Other file extensions can be customized with the variable `projectile-other-file-alist'.
(fn &optional FLEX-MATCHING)
2019-10-27 19:05:34 +01:00
(defalias 'projectile-find-other-file #[256 "\300!\207" [projectile--find-other-file] 3 (#$ . 67801) "P"])
2019-10-09 20:36:55 +02:00
#@282 Switch between files with the same name but different extensions in other window.
With FLEX-MATCHING, match any file that contains the base name of current file.
Other file extensions can be customized with the variable `projectile-other-file-alist'.
(fn &optional FLEX-MATCHING)
2019-10-27 19:05:34 +01:00
(defalias 'projectile-find-other-file-other-window #[256 "\300\301\"\207" [projectile--find-other-file find-file-other-window] 4 (#$ . 68181) "P"])
2019-10-09 20:36:55 +02:00
#@282 Switch between files with the same name but different extensions in other window.
With FLEX-MATCHING, match any file that contains the base name of current file.
Other file extensions can be customized with the variable `projectile-other-file-alist'.
(fn &optional FLEX-MATCHING)
2019-10-27 19:05:34 +01:00
(defalias 'projectile-find-other-file-other-frame #[256 "\300\301\"\207" [projectile--find-other-file find-file-other-frame] 4 (#$ . 68618) "P"])
2019-10-09 20:36:55 +02:00
#@154 Return FILE-NAME sans any extensions.
The extensions, in a filename, are what follows the first '.', with the exception of a leading '.'
(fn FILE-NAME)
2019-10-27 19:05:34 +01:00
(defalias 'projectile--file-name-sans-extensions #[257 "\300!\262\211\301\302\303\304#O\207" [file-name-nondirectory 0 string-match "\\..*" 1] 7 (#$ . 69053)])
2019-10-09 20:36:55 +02:00
#@147 Return FILE-NAME's extensions.
The extensions, in a filename, are what follows the first '.', with the exception of a leading '.'
(fn FILE-NAME)
2019-10-27 19:05:34 +01:00
(defalias 'projectile--file-name-extensions #[257 "\300!\262\301\302\303\304#\211\262\203T\202G\301O\207" [file-name-nondirectory nil string-match "\\..*" 1] 7 (#$ . 69376)])
2019-10-09 20:36:55 +02:00
#@253 Return projectile-other-file-extensions associated to FILE-NAME's extensions.
If no associated other-file-extensions for the complete (nested) extension are found, remove subextensions from FILENAME's extensions until a match is found.
(fn FILE-NAME)
2019-10-27 19:05:34 +01:00
(defalias 'projectile-associated-file-name-extensions #[257 "\301\302!!\303\3042*\305\230?\205)\306\"A\211\262\203!\307\304\"\210\301!\262\202\n0\207" [projectile-other-file-alist projectile--file-name-extensions file-name-nondirectory nil break "" assoc throw] 6 (#$ . 69715)])
2019-10-09 20:36:55 +02:00
#@258 Narrow to files with the same names but different extensions.
Returns a list of possible files for users to choose.
With FLEX-MATCHING, match any file that contains the base name of current file
(fn CURRENT-FILE PROJECT-FILE-LIST &optional FLEX-MATCHING)
2019-10-27 19:05:34 +01:00
(defalias 'projectile--other-extension-files #[770 "\300!\301!\203\301!\202\302\303\304!!\305\306!!\307\310\311\312\313\314\n\"\315\"\316\317%\"\320\310\311\321\313\314!\322\"\323\324%\"\325\307\310\311\326\313\314!\327\"\330\331%\"!\320\332\"\333\334!\310\335\336\313\314  \"\337\"\340\341%\"\207" [projectile-associated-file-name-extensions file-name-directory "./" file-name-nondirectory directory-file-name regexp-quote projectile--file-name-sans-extensions mapcar make-byte-code 257 "\300\203 \302\301\302\303\304\260\207\305\301\306\232?\205\303P\304R\207" vconcat vector [".*" "." "\\'" "^" ""] 7 "\n\n(fn EXT)" cl-remove-if-not "\301\300\"\207" [string-match] 4 "\n\n(fn PROJECT-FILE)" projectile-flatten "\301\302\303\304\305\306!\307\"\310\311%\300\"\207" [cl-remove-if-not make-byte-code 257 "\301\300\302!\303!\304\232?\205\305\303!PP\"\207" vconcat vector [string-match file-name-base file-name-extension nil "."] 7 "\n\n(fn PROJECT-FILE)"] 8 "\n\n(fn FILE)" #[257 "\300!?\207" [backup-file-name-p] 3 "\n\n(fn FILE)"] cl-sort copy-sequence 514 "\302\303\304!!!\300\304!\232?\205\301\232\207" [file-name-nondirectory directory-file-name file-name-directory] 6 "\n\n(fn FILE _)"] 20 (#$ . 70265)])
2019-10-09 20:36:55 +02:00
#@164 Select a list of files based on filename at point.
With a prefix arg INVALIDATE-CACHE invalidates the cache first.
(fn PROJECT-FILES &optional INVALIDATE-CACHE)
2019-10-27 19:05:34 +01:00
(defalias 'projectile-select-files #[513 "\300!\210\301 \203\302 \303 {\202\304\305!\206\306\307\310\"\203)\311\312!\313 \"\202*\211\211\205>\314\315\316\317\320\321!\322\"\323\324%\"\207" [projectile-maybe-invalidate-cache region-active-p region-beginning region-end thing-at-point filename "" string-match "\\.?\\./" file-relative-name file-truename projectile-project-root cl-remove-if-not make-byte-code 257 "\301\300\"\207" vconcat vector [string-match] 4 "\n\n(fn PROJECT-FILE)"] 11 (#$ . 71784)])
2019-10-09 20:36:55 +02:00
#@410 Jump to a project's files using completion based on context.
With a INVALIDATE-CACHE invalidates the cache first.
With FF-VARIANT set to a defun, use that instead of `find-file'.
A typical example of such a defun would be `find-file-other-window' or
`find-file-other-frame'
Subroutine for `projectile-find-file-dwim' and
`projectile-find-file-dwim-other-window'
(fn INVALIDATE-CACHE &optional FF-VARIANT)
2019-10-27 19:05:34 +01:00
(defalias 'projectile--find-file-dwim #[513 "\300 \301!\302\"\211G\303U\203\211@\202'\211G\303V\203#\304\305\"\202'\304\305\"\206,\306\211\307\"!\210\310\311!\207" [projectile-project-root projectile-project-files projectile-select-files 1 projectile-completing-read "Switch to: " find-file expand-file-name run-hooks projectile-find-file-hook] 11 (#$ . 72474)])
2019-10-09 20:36:55 +02:00
#@1285 Jump to a project's files using completion based on context.
With a prefix arg INVALIDATE-CACHE invalidates the cache first.
If point is on a filename, Projectile first tries to search for that
file in project:
- If it finds just a file, it switches to that file instantly. This works even
if the filename is incomplete, but there's only a single file in the current project
that matches the filename at point. For example, if there's only a single file named
"projectile/projectile.el" but the current filename is "projectile/proj" (incomplete),
`projectile-find-file-dwim' still switches to "projectile/projectile.el" immediately
because this is the only filename that matches.
- If it finds a list of files, the list is displayed for selecting. A list of
files is displayed when a filename appears more than one in the project or the
filename at point is a prefix of more than two files in a project. For example,
if `projectile-find-file-dwim' is executed on a filepath like "projectile/", it lists
the content of that directory. If it is executed on a partial filename like
"projectile/a", a list of files with character 'a' in that directory is presented.
- If it finds nothing, display a list of all files in project for selecting.
(fn &optional INVALIDATE-CACHE)
2019-10-27 19:05:34 +01:00
(defalias 'projectile-find-file-dwim #[256 "\300!\207" [projectile--find-file-dwim] 3 (#$ . 73269) "P"])
2019-10-09 20:36:55 +02:00
#@1325 Jump to a project's files using completion based on context in other window.
With a prefix arg INVALIDATE-CACHE invalidates the cache first.
If point is on a filename, Projectile first tries to search for that
file in project:
- If it finds just a file, it switches to that file instantly. This works even
if the filename is incomplete, but there's only a single file in the current project
that matches the filename at point. For example, if there's only a single file named
"projectile/projectile.el" but the current filename is "projectile/proj" (incomplete),
`projectile-find-file-dwim-other-window' still switches to "projectile/projectile.el"
immediately because this is the only filename that matches.
- If it finds a list of files, the list is displayed for selecting. A list of
files is displayed when a filename appears more than one in the project or the
filename at point is a prefix of more than two files in a project. For example,
if `projectile-find-file-dwim-other-window' is executed on a filepath like "projectile/", it lists
the content of that directory. If it is executed on a partial filename
like "projectile/a", a list of files with character 'a' in that directory
is presented.
- If it finds nothing, display a list of all files in project for selecting.
(fn &optional INVALIDATE-CACHE)
2019-10-27 19:05:34 +01:00
(defalias 'projectile-find-file-dwim-other-window #[256 "\300\301\"\207" [projectile--find-file-dwim find-file-other-window] 4 (#$ . 74667) "P"])
2019-10-09 20:36:55 +02:00
#@1322 Jump to a project's files using completion based on context in other frame.
With a prefix arg INVALIDATE-CACHE invalidates the cache first.
If point is on a filename, Projectile first tries to search for that
file in project:
- If it finds just a file, it switches to that file instantly. This works even
if the filename is incomplete, but there's only a single file in the current project
that matches the filename at point. For example, if there's only a single file named
"projectile/projectile.el" but the current filename is "projectile/proj" (incomplete),
`projectile-find-file-dwim-other-frame' still switches to "projectile/projectile.el"
immediately because this is the only filename that matches.
- If it finds a list of files, the list is displayed for selecting. A list of
files is displayed when a filename appears more than one in the project or the
filename at point is a prefix of more than two files in a project. For example,
if `projectile-find-file-dwim-other-frame' is executed on a filepath like "projectile/", it lists
the content of that directory. If it is executed on a partial filename
like "projectile/a", a list of files with character 'a' in that directory
is presented.
- If it finds nothing, display a list of all files in project for selecting.
(fn &optional INVALIDATE-CACHE)
2019-10-27 19:05:34 +01:00
(defalias 'projectile-find-file-dwim-other-frame #[256 "\300\301\"\207" [projectile--find-file-dwim find-file-other-frame] 4 (#$ . 76146) "P"])
2019-10-09 20:36:55 +02:00
#@302 Jump to a project's file using completion.
With INVALIDATE-CACHE invalidates the cache first. With FF-VARIANT set to a
defun, use that instead of `find-file'. A typical example of such a defun
would be `find-file-other-window' or `find-file-other-frame'
(fn INVALIDATE-CACHE &optional FF-VARIANT)
2019-10-27 19:05:34 +01:00
(defalias 'projectile--find-file #[513 "\300!\210\301\302 !\303\304\305!\"\206\306\205!\211\307\"!\210\310\311!\207" [projectile-maybe-invalidate-cache projectile-ensure-project projectile-project-root projectile-completing-read "Find file: " projectile-project-files find-file expand-file-name run-hooks projectile-find-file-hook] 9 (#$ . 77619) "P"])
2019-10-09 20:36:55 +02:00
#@141 Jump to a project's file using completion.
With a prefix arg INVALIDATE-CACHE invalidates the cache first.
(fn &optional INVALIDATE-CACHE)
2019-10-27 19:05:34 +01:00
(defalias 'projectile-find-file #[256 "\300!\207" [projectile--find-file] 3 (#$ . 78289) "P"])
2019-10-09 20:36:55 +02:00
#@172 Jump to a project's file using completion and show it in another window.
With a prefix arg INVALIDATE-CACHE invalidates the cache first.
(fn &optional INVALIDATE-CACHE)
2019-10-27 19:05:34 +01:00
(defalias 'projectile-find-file-other-window #[256 "\300\301\"\207" [projectile--find-file find-file-other-window] 4 (#$ . 78532) "P"])
2019-10-09 20:36:55 +02:00
#@171 Jump to a project's file using completion and show it in another frame.
With a prefix arg INVALIDATE-CACHE invalidates the cache first.
(fn &optional INVALIDATE-CACHE)
2019-10-27 19:05:34 +01:00
(defalias 'projectile-find-file-other-frame #[256 "\300\301\"\207" [projectile--find-file find-file-other-frame] 4 (#$ . 78847) "P"])
2019-10-09 20:36:55 +02:00
#@27 Toggle project read only.
2019-10-27 19:05:34 +01:00
(defalias 'projectile-toggle-project-read-only #[0 "\304?\305\306 !\307\310\300#\210\311 \210\312 \210 \2054\313\203#\314\202$\315!\210\316\317\320 \2032\321\2023\322#*\207" [buffer-read-only default-directory inhibit-read-only buffer-file-name t projectile-ensure-project projectile-project-root add-dir-local-variable nil save-buffer kill-buffer read-only-mode 1 -1 message "[%s] read-only-mode is %s" projectile-project-name "on" "off"] 6 (#$ . 79158) nil])
2019-10-09 20:36:55 +02:00
#@62 Sort FILES according to `projectile-sort-order'.
(fn FILES)
2019-10-27 19:05:34 +01:00
(defalias 'projectile-sort-files #[257 "\301\302\"\203\207\301\303\"\203\304!\207\301\305\"\203\306!\207\301\307\"\203)\310!\207\301\311\"\2053\312!\207" [projectile-sort-order eql default recentf projectile-sort-by-recentf-first recently-active projectile-sort-by-recently-active-first modification-time projectile-sort-by-modification-time access-time projectile-sort-by-access-time] 4 (#$ . 79663)])
2019-10-09 20:36:55 +02:00
#@50 Sort FILES by a recent first scheme.
(fn FILES)
2019-10-27 19:05:34 +01:00
(defalias 'projectile-sort-by-recentf-first #[257 "\300 \301\302\"\"\207" [projectile-recentf-files append projectile-difference] 7 (#$ . 80150)])
2019-10-09 20:36:55 +02:00
#@73 Sort FILES by most recently active buffers or opened files.
(fn FILES)
2019-10-27 19:05:34 +01:00
(defalias 'projectile-sort-by-recently-active-first #[257 "\300 \301\302\"\"\207" [projectile-recently-active-files append projectile-difference] 7 (#$ . 80355)])
2019-10-09 20:36:55 +02:00
#@46 Sort FILES by modification time.
(fn FILES)
2019-10-27 19:05:34 +01:00
(defalias 'projectile-sort-by-modification-time #[257 "\301 \302\303!\304\")\207" [default-directory projectile-project-root cl-sort copy-sequence #[514 "\300\301!8\300\301!8\302\"?\207" [5 file-attributes time-less-p] 7 "\n\n(fn FILE1 FILE2)"]] 4 (#$ . 80599)])
2019-10-09 20:36:55 +02:00
#@40 Sort FILES by access time.
(fn FILES)
2019-10-27 19:05:34 +01:00
(defalias 'projectile-sort-by-access-time #[257 "\301 \302\303!\304\")\207" [default-directory projectile-project-root cl-sort copy-sequence #[514 "\300\301!8\300\301!8\302\"?\207" [4 file-attributes time-less-p] 7 "\n\n(fn FILE1 FILE2)"]] 4 (#$ . 80919)])
2019-10-09 20:36:55 +02:00
#@301 Jump to a project's directory using completion.
With INVALIDATE-CACHE invalidates the cache first. With DIRED-VARIANT set to a
defun, use that instead of `dired'. A typical example of such a defun would be
`dired-other-window' or `dired-other-frame'
(fn INVALIDATE-CACHE &optional DIRED-VARIANT)
2019-10-27 19:05:34 +01:00
(defalias 'projectile--find-dir #[513 "\300!\210\301\302 !\303!\206\304\211\305\"!\210\306\307!\207" [projectile-maybe-invalidate-cache projectile-ensure-project projectile-project-root projectile-complete-dir dired expand-file-name run-hooks projectile-find-dir-hook] 9 (#$ . 81228)])
2019-10-09 20:36:55 +02:00
#@147 Jump to a project's directory using completion.
With a prefix arg INVALIDATE-CACHE invalidates the cache first.
(fn &optional INVALIDATE-CACHE)
2019-10-27 19:05:34 +01:00
(defalias 'projectile-find-dir #[256 "\300!\207" [projectile--find-dir] 3 (#$ . 81828) "P"])
2019-10-09 20:36:55 +02:00
#@163 Jump to a project's directory in other window using completion.
With a prefix arg INVALIDATE-CACHE invalidates the cache first.
(fn &optional INVALIDATE-CACHE)
2019-10-27 19:05:34 +01:00
(defalias 'projectile-find-dir-other-window #[256 "\300\301\"\207" [projectile--find-dir dired-other-window] 4 (#$ . 82075) "P"])
2019-10-09 20:36:55 +02:00
#@163 Jump to a project's directory in other window using completion.
With a prefix arg INVALIDATE-CACHE invalidates the cache first.
(fn &optional INVALIDATE-CACHE)
2019-10-27 19:05:34 +01:00
(defalias 'projectile-find-dir-other-frame #[256 "\300\301\"\207" [projectile--find-dir dired-other-frame] 4 (#$ . 82375) "P"])
2019-10-09 20:36:55 +02:00
#@16
(fn PROJECT)
2019-10-27 19:05:34 +01:00
(defalias 'projectile-complete-dir #[257 "\301!\302\303\203\304\305\"\202\"\207" [projectile-find-dir-includes-top-level projectile-project-dirs projectile-completing-read "Find dir: " append ("./")] 7 (#$ . 82672)])
2019-10-09 20:36:55 +02:00
#@147 Jump to a project's test file using completion.
With a prefix arg INVALIDATE-CACHE invalidates the cache first.
(fn &optional INVALIDATE-CACHE)
2019-10-27 19:05:34 +01:00
(defalias 'projectile-find-test-file #[256 "\300!\210\301\302\303 \"\304\305\306 \"!\207" [projectile-maybe-invalidate-cache projectile-completing-read "Find test file: " projectile-current-project-test-files find-file expand-file-name projectile-project-root] 6 (#$ . 82919) "P"])
2019-10-09 20:36:55 +02:00
#@41 Return only the test FILES.
(fn FILES)
2019-10-27 19:05:34 +01:00
(defalias 'projectile-test-files #[257 "\300\301\"\207" [cl-remove-if-not projectile-test-file-p] 4 (#$ . 83355)])
2019-10-09 20:36:55 +02:00
#@77 Merge multiple RELATED-FILES-FNS into one function.
(fn RELATED-FILES-FNS)
2019-10-27 19:05:34 +01:00
(defalias 'projectile--merge-related-files-fns #[257 "\300\301\302\303\304!\305\"\306\307%\207" [make-byte-code 257 "\301\300\211\203[\211@\211!\211\301\211\211:\203R\262\211A\262\242\262\211@\262:\203,\202.C\302 \"\203A\303 \"\244\210\202I\304 #\262 \210AA\262\202\266A\266\202\202\262\207" vconcat vector [nil plist-member plist-get plist-put] 14 "\n\n(fn PATH)"] 7 (#$ . 83517)])
2019-10-09 20:36:55 +02:00
#@107 Return a plist containing all related files information for FILE in PROJECT-ROOT.
(fn PROJECT-ROOT FILE)
2019-10-27 19:05:34 +01:00
(defalias 'projectile--related-files-plist #[514 "\301!\203 \302\"\202\211\211\205\303 !\211\2054\304!\203$\211\2022\211:\203/\305!\2022\306\307!!\207" [projectile-related-files-fn-function file-name-absolute-p file-relative-name projectile-project-type functionp projectile--merge-related-files-fns error "Unsupported value type of :related-files-fn"] 6 (#$ . 84019)])
2019-10-09 20:36:55 +02:00
#@86 Return a plist containing :paths and/or :predicate of KIND for FILE.
(fn FILE KIND)
2019-10-27 19:05:34 +01:00
(defalias 'projectile--related-files-plist-by-kind #[514 "\300 \211\205\n\301\"\211\205\302\"\211\205u\303\"\211;\204%\304!\203*\211C\202+\211\305\306\307\"!\305\306\304\"!\310\204A?\205S\311\306\312\313\314\315\316!\317\"\320\321%\"D\205r\322G\323U\203d@\202q\312\313\324\315\316!\325\"\326\327%D\"\266\204\207" [projectile-project-root projectile--related-files-plist plist-member plist-get functionp delete-dups cl-remove-if-not stringp append :paths make-byte-code 257 "\301\302\300\"!\207" vconcat vector [projectile-file-exists-p expand-file-name] 5 "\n\n(fn F)" :predicate 1 "\301\302\303\304\305\306!\307\"\310\311%\300\"\207" [cl-some make-byte-code 257 "\211\300!\207" vconcat vector [] 3 "\n\n(fn PREDICATE)"] 8 "\n\n(fn OTHER-FILE)"] 18 (#$ . 84518)])
2019-10-09 20:36:55 +02:00
#@82 Return a list of files matching to PLIST from current project files.
(fn PLIST)
2019-10-27 19:05:34 +01:00
(defalias 'projectile--related-files-from-plist #[257 "\300\301\"\300\302\"\303\304\205\305\306 \"\"!\207" [plist-get :predicate :paths delete-dups append cl-remove-if-not projectile-current-project-files] 9 (#$ . 85407)])
2019-10-09 20:36:55 +02:00
#@79 Return a list o keywords meaning available related kinds for FILE.
(fn FILE)
2019-10-27 19:05:34 +01:00
(defalias 'projectile--related-files-kinds #[257 "\300 \211\205\n\301\"\211\205+\211\302\211:\203'@\262B\262AA\262\202\211\237\266\203\207" [projectile-project-root projectile--related-files-plist nil] 8 (#$ . 85724)])
2019-10-09 20:36:55 +02:00
#@66 Return a list of related files of KIND for FILE.
(fn FILE KIND)
2019-10-27 19:05:34 +01:00
(defalias 'projectile--related-files #[514 "\300\301\"!\207" [projectile--related-files-from-plist projectile--related-files-plist-by-kind] 6 (#$ . 86042)])
2019-10-09 20:36:55 +02:00
#@142 Choose a file from files related to FILE as KIND.
If KIND is not provided, a list of possible kinds can be chosen.
(fn FILE &optional KIND)
2019-10-27 19:05:34 +01:00
(defalias 'projectile--find-related-file #[513 "\211\204'\300!\211\203\"\211G\301U\203\211@\202\302\303\304\"!\262\202&\305\306!\210\210\307\"\211\2037\310\311!!\202=\305\312\313 #\207" [projectile--related-files-kinds 1 intern projectile-completing-read "Kind :" error "No related files found" projectile--related-files projectile-expand-root projectile--choose-from-candidates "No matching related file as `%s' found for project type `%s'" projectile-project-type] 7 (#$ . 86273)])
2019-10-09 20:36:55 +02:00
#@36 Open related file in other window.
2019-10-27 19:05:34 +01:00
(defalias 'projectile-find-related-file-other-window #[0 "\300\301\302 !!\207" [find-file-other-window projectile--find-related-file buffer-file-name] 3 (#$ . 86920) nil])
2019-10-09 20:36:55 +02:00
#@35 Open related file in other frame.
2019-10-27 19:05:34 +01:00
(defalias 'projectile-find-related-file-other-frame #[0 "\300\301\302 !!\207" [find-file-other-frame projectile--find-related-file buffer-file-name] 3 (#$ . 87133) nil])
2019-10-09 20:36:55 +02:00
#@20 Open related file.
2019-10-27 19:05:34 +01:00
(defalias 'projectile-find-related-file #[0 "\300\301\302 !!\207" [find-file projectile--find-related-file buffer-file-name] 3 (#$ . 87343) nil])
2019-10-09 20:36:55 +02:00
#@98 Generate a related-files-fn which relates as KIND for files in each of GROUPS.
(fn KIND GROUPS)
2019-10-27 19:05:34 +01:00
(defalias 'projectile-related-files-fn-groups #[514 "\300\301\302\303\304\"\305\"\306\307%\207" [make-byte-code 257 "\302\303\304\305\306\307!\310\"\311\312%\301\"\211\205\300\313\314\315$D\207" vconcat vector [cl-find-if make-byte-code 257 "\300\235\207" vconcat vector [] 3 "\n\n(fn GROUP)" cl-remove :test equal] 8 "\n\n(fn PATH)"] 9 (#$ . 87514)])
2019-10-09 20:36:55 +02:00
#@102 Generate a related-files-fn which relates as KIND for files having EXTENSIONS.
(fn KIND EXTENSIONS)
2019-10-27 19:05:34 +01:00
(defalias 'projectile-related-files-fn-extensions #[514 "\300\301\302\303\304\"\305\"\306\307%\207" [make-byte-code 257 "\302!\303!\304!\301\235\205#\300\305\306\307\310\311\301   $\312\"\313\314%D\207" vconcat vector [file-name-extension file-name-base regexp-quote make-byte-code 257 "\303\305\306\307#)\266\203\205'\302\310!\232\205'\311!\211\300\235\205%\211\301\232?\262\207" vconcat vector [inhibit-changing-match-data nil t string-match file-name-base file-name-extension] 8 "\n\n(fn OTHER-PATH)"] 14 "\n\n(fn PATH)"] 9 (#$ . 87981)])
2019-10-09 20:36:55 +02:00
#@133 Generate a related-files-fn which relates tests and impl for files with EXTENSION based on TEST-PREFIX.
(fn EXTENSION TEST-PREFIX)
2019-10-27 19:05:34 +01:00
(defalias 'projectile-related-files-fn-test-with-prefix #[514 "\300\301\302\303\304\"\305\"\306\307%\207" [make-byte-code 257 "\302!\300\232\2057\303!\304\301\"\211\203\301G\305O\202\301P\203&\306\202'\307\310\311\312\313\314!\315\"\316\317%D\266\203\207" vconcat vector [file-name-extension file-name-nondirectory string-prefix-p nil :impl :test make-byte-code 257 "\301\300\"\205\f\302!\300\232\207" vconcat vector [string-suffix-p file-name-nondirectory] 4 "\n\n(fn OTHER-PATH)"] 11 "\n\n(fn PATH)"] 9 (#$ . 88654)])
2019-10-09 20:36:55 +02:00
#@133 Generate a related-files-fn which relates tests and impl for files with EXTENSION based on TEST-SUFFIX.
(fn EXTENSION TEST-SUFFIX)
2019-10-27 19:05:34 +01:00
(defalias 'projectile-related-files-fn-test-with-suffix #[514 "\300\301\302\303\304\"\305\"\306\307%\207" [make-byte-code 257 "\302!\300\232\205E\303!\304\300P\301P\305\"\211\203$\306G[OP\202,\306G[OP\2034\307\2025\310\311\312\313\314\315!\316\"\317\320%D\266\205\207" vconcat vector [file-name-extension file-name-nondirectory "." string-suffix-p 0 :impl :test make-byte-code 257 "\301\300\"\205\f\302!\300\232\207" vconcat vector [string-suffix-p file-name-nondirectory] 4 "\n\n(fn OTHER-PATH)"] 13 "\n\n(fn PATH)"] 9 (#$ . 89335)])
2019-10-09 20:36:55 +02:00
#@42 Check if FILE is a test file.
(fn FILE)
2019-10-27 19:05:34 +01:00
(defalias 'projectile-test-file-p #[257 "\302!\303\235\203 \304\202H\305\235\203\306\202H\307\310\311\312\313\314!\315\"\316\317%\320\306\321 !C\"\"\206H\307\310\311\322\313\314!\323\"\324\317%\320\306 \321 !C\"\"\207" [projectile-test-prefix-function projectile-test-suffix-function projectile--related-files-kinds :impl t :test nil cl-some make-byte-code 257 "\301\302\300!\"\207" vconcat vector [string-prefix-p file-name-nondirectory] 5 "\n\n(fn PAT)" delq projectile-project-type "\301\302\303\300!!\"\207" [string-suffix-p file-name-sans-extension file-name-nondirectory] 6] 9 (#$ . 90034)])
2019-10-09 20:36:55 +02:00
#@54 Return a list of test files for the current project.
2019-10-27 19:05:34 +01:00
(defalias 'projectile-current-project-test-files #[0 "\300\301 !\207" [projectile-test-files projectile-current-project-files] 2 (#$ . 90695)])
2019-10-09 20:36:55 +02:00
#@179 An alist holding all project types that are known to Projectile.
The project types are symbols and they are linked to plists holding
the properties of the various project types.
2019-10-27 19:05:34 +01:00
(defvar projectile-project-types nil (#$ . 90899))
2019-10-09 20:36:55 +02:00
#@1304 Register a project type with projectile.
A project type is defined by PROJECT-TYPE, a set of MARKER-FILES,
and optional keyword arguments:
COMPILATION-DIR the directory to run the tests- and compilations in,
CONFIGURE which specifies a command that configures the project
`%s' in the command will be substituted with (projectile-project-root)
before the command is run,
COMPILE which specifies a command that builds the project,
TEST which specified a command that tests the project,
RUN which specifies a command that runs the project,
TEST-SUFFIX which specifies test file suffix, and
TEST-PREFIX which specifies test file prefix.
SRC-DIR which specifies the path to the source relative to the project root.
TEST-DIR which specifies the path to the tests relative to the project root.
RELATED-FILES-FN which specifies a custom function to find the related files such as
test/impl/other files as below:
CUSTOM-FUNCTION accepts FILE as relative path from the project root and returns
a plist containing :test, :impl or :other as key and the relative path/paths or
predicate as value. PREDICATE accepts a relative path as the input.
(fn PROJECT-TYPE MARKER-FILES &key COMPILATION-DIR CONFIGURE COMPILE TEST RUN TEST-SUFFIX TEST-PREFIX SRC-DIR TEST-DIR RELATED-FILES-FN)
2019-10-27 19:05:34 +01:00
(defalias 'projectile-register-project-type #[642 "\301\302\"A@\301\303\"A@\301\304\"A@\301\305\"A@\301\306\"A@\301\307\"A@\301\310\"A@\301\311\"A@\301 \312\"A@\301\n\313\"A@\n\211\203n\211@\314>\203V\211AA\262\202C\315\f>A@\203e\316\262\202C\317\320@\"\210\202C\210\321\f\322\f\323 \324\325\326\257\f\203\216\327\330#\210\203\231\327\331#\210\203\244\327\332#\210\203\256\327\333#\210\203\270\327\334#\210 BB\211\262\207" [projectile-project-types plist-member :compilation-dir :configure :compile :test :run :test-suffix :test-prefix :src-dir :test-dir :related-files-fn (:compilation-dir :configure :compile :test :run :test-suffix :test-prefix :src-dir :test-dir :related-files-fn :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:compilation-dir :configure :compile :test :run :test-suffix :test-prefix :src-dir :test-dir :related-files-fn)" marker-files compilation-dir configure-command compile-command test-command run-command plist-put test-suffix test-prefix src-dir test-dir related-files-fn] 25 (#$ . 91136)])
2019-10-09 20:36:55 +02:00
#@67 Check if a project contains *.cabal files but no stack.yaml file.
2019-10-27 19:05:34 +01:00
(defalias 'projectile-cabal-project-p #[0 "\300\301!\205\n\302\303!?\207" [projectile-verify-file-wildcard "?*.cabal" projectile-verify-file "stack.yaml"] 2 (#$ . 93559)])
2019-10-09 20:36:55 +02:00
(defalias 'projectile-dotnet-project-p #[0 "\300\301!\206 \300\302!\207" [projectile-verify-file-wildcard "?*.csproj" "?*.fsproj"] 2])
#@46 Check if a project contains Go source files.
2019-10-27 19:05:34 +01:00
(defalias 'projectile-go-project-p #[0 "\300\301!\206 \302\303!\207" [projectile-verify-file "go.mod" projectile-verify-file-wildcard "*.go"] 2 (#$ . 93940)])
2019-12-01 19:55:19 +01:00
(byte-code "\302\303\300\304#\210\305\211\203(\211@\303N\203!\300N\204!\306\300\303N#\210A\266\202\202\210\307\303\300\310#\210\311\300\312\313\314DD\315\316\317\320\313&\210\321\322\323\324\325\326\327\330\331&\210\321\332\333\324\334\335\336\326\337&\210\321\340\324\341\326\342\330\343&\210\321\344\345\324\346\326\347\330\350&\210\321\351\352\353\354\355\356\324\357\326\360&\n\210\321\361\362\324\363\326\363&\210\321\364\365\324\366\326\367&\210\321\370\371\355\372\324\373\326\374&\210\321\375\376\324\377\326\201@\330\201A&\210\321\201B\201C\324\201D\326\201E\330\201F&\210\321\201G\201H\324\201I\201J\201K\326\201L\330\343&\n\210\321\201M\201N\324\201O\326\201P&\210\321\201Q\201R\324\201S\326\201T&\210\321\201U\201V\324\201W\326\201X\330\201Y&\210\321\201Z\201[\324\201\\\335\201]\326\201^&\210\321\201_\201`\324\201a\326\201b\201c\201d\330\343&\n\210\321\201e\201f\324\201g\326\201h\201c\201d\330\343&\n\210\321\201i\201j\324\201g\326\201h\201c\201d\330\343&\n\210\321\201k\201l\324\201m\326\201n\201c\201d\330\343&\n\210\321\201o\201p\324\201q\326\201r\201c\201d\330\343&\n\210\321\201s\201t\324\201u\326\201v\330\201A\201J\201w\201x\201y&\f\210\321\201z\201{\324\201|\326\201}\330\331&\210\321\201~\201\324\201\200\326\201\201\330\331&\210\321\201\202\201\203\324\201\204\326\201\205\330\331&\210\321\201\206\201\207\324\201\210\326\201\211\330\331&\210\321\201\212\201\213\324\201\214\326\201\215\330\343&\210\321\201\216\201\217\324\201\214\326\201\220\201c\201\221&\210\321\201\222\201\223\324\201\224\326\201\225\330\343&\210\321\201\226\201\227\330\343$\210\321\201\230\201\231\324\201\232\326\201\233\201J\201\234\201x\201\235\330\331&\f\210\321\201\236\201\237\324\201\240\201J\201K\326\201\241\201x\201\242\330\201\243&\f\210\321\201\244\201\245\324\201\240\201J\201K\326\201\246\330\343&\n\210\321\201\247\201\250\324\201\251\201J\201K\326\201\246\330\343&\n\210\321\201\252\201\253\324\201\251\201J\201K\326\201\241\201x\201\242\330\201\243&\f\210\321\201\254\201\255\201J\201\256\326\201\257\201x\201\242\330\201\243&\n\210\321\201\260\201\261\324\201\262\201c\201\263\330\201\264&\210\321\201\265\201\266\324\201\267\326\201\270 \201\271Q&\210\321\201\272\201\273\324\201\274\326\201\275\330\331&\210\321\201\276\201\277\324\201\300\326\201\301\335\201\302&\210\321\201\303\201\304\326\201\305$\207" [projectile-go-project-test-function temporary-file-directory defvaralias projectile-go-function nil (saved-value saved-variable-comment) put make-obsolete-variable "1.0.0" custom-declare-variable funcall function #[0 "\300\207" [projectile-go-project-p] 1] "Function to determine if project's type is go." :group projectile :type projectile-register-project-type haskell-cabal projectile-cabal-project-p :compile "cabal build" :test "cabal test" :test-suffix "Spec" dotnet projectile-dotnet-project-p "dotnet build" :run "dotnet run" "dotnet test" go "go build" "go test ./..." "_test" scons ("SConstruct") "scons" "scons test" "test" meson ("meson.build") :compilation-dir "build" :configure "meson %s" "ninja" "ninja test" nix ("default.nix") "nix-build" make ("Makefile") "make" "make test" cmake ("CMakeLists.txt") "cmake %s" "cmake --build ." "ctest" php-symfony ("composer.json" "app" "src" "vendor") "app/console server:run" "phpunit -c app " "Test" rebar ("rebar.config") "rebar" "rebar eunit" "_SUITE" elixir ("mix.exs") "mix compile" :src-dir "lib/" "mix test" grunt ("Gruntfile.js") "grunt" "grunt test" gulp ("gulpfile.js") "gulp" "gulp test" npm ("package.json") "npm install" "npm test" ".test" angular ("angular.json" ".angular-cli.json") "ng build" "ng serve" "ng test" django ("manage.py") "python manage.py runserver" "python manage.py test" :test-prefix "test_" python-pip ("requirements.txt") "python setup.py build" "python -m unittest discover" python-pkg ("setup.py") python-tox ("tox.ini") "tox -r --notest" "tox" python-pipenv ("Pipfil
2019-10-09 20:36:55 +02:00
#@110 Buffer local var for overriding the auto-detected project type.
Normally you'd set this from .dir-locals.el.
2019-12-01 19:55:19 +01:00
(defvar projectile-project-type nil (#$ . 99534))
2019-10-09 20:36:55 +02:00
(byte-code "\300\301!\210\302\301\303\304#\207" [make-variable-buffer-local projectile-project-type put safe-local-variable symbolp] 4)
#@112 Detect the type of the current project.
Fallsback to a generic project type when the type can't be determined.
2019-12-01 19:55:19 +01:00
(defalias 'projectile-detect-project-type #[0 "\302\303\"@\206 \304\305\306  #\210\211\207" [projectile-project-types projectile-project-type-cache cl-find-if #[257 "\211@\300A\301\"\211<\203\302!\205\202\211 \205\207" [plist-get marker-files projectile-verify-files] 5 "\n\n(fn PROJECT-TYPE-RECORD)"] generic puthash projectile-project-root] 5 (#$ . 99836)])
2019-10-09 20:36:55 +02:00
#@204 Determine a project's type based on its structure.
When DIR is specified it checks it, otherwise it acts
on the current project.
The project type is cached for improved performance.
(fn &optional DIR)
2019-12-01 19:55:19 +01:00
(defalias 'projectile-project-type #[256 "\203\207\211\206 \303!\211\205\304\n\"\206\305 \207" [projectile-project-type default-directory projectile-project-type-cache projectile-project-root gethash projectile-detect-project-type] 6 (#$ . 100329)])
2019-10-09 20:36:55 +02:00
#@35 Display info for current project.
2019-12-01 19:55:19 +01:00
(defalias 'projectile-project-info #[0 "\300\301\302 \303 \304 $\207" [message "Project dir: %s ## Project VCS: %s ## Project type: %s" projectile-project-root projectile-project-vcs projectile-project-type] 5 (#$ . 100800) nil])
2019-10-09 20:36:55 +02:00
#@67 Check whether all FILES exist in the current project.
(fn FILES)
2019-12-01 19:55:19 +01:00
(defalias 'projectile-verify-files #[257 "\300\301\"\207" [cl-every projectile-verify-file] 4 (#$ . 101070)])
2019-10-09 20:36:55 +02:00
#@62 Check whether FILE exists in the current project.
(fn FILE)
2019-12-01 19:55:19 +01:00
(defalias 'projectile-verify-file #[257 "\300\301!!\207" [file-exists-p projectile-expand-root] 4 (#$ . 101253)])
2019-10-09 20:36:55 +02:00
#@127 Check whether FILE exists in the current project.
Expands wildcards using `file-expand-wildcards' before checking.
(fn FILE)
2019-12-01 19:55:19 +01:00
(defalias 'projectile-verify-file-wildcard #[257 "\300\301!!\207" [file-expand-wildcards projectile-expand-root] 4 (#$ . 101436)])
2019-10-09 20:36:55 +02:00
#@156 Determine the VCS used by the project if any.
PROJECT-ROOT is the targeted directory. If nil, use
`projectile-project-root'.
(fn &optional PROJECT-ROOT)
2019-12-01 19:55:19 +01:00
(defalias 'projectile-project-vcs #[256 "\211\204\300 \262\301\302\303\"!\203\304\207\301\302\305\"!\203\306\207\301\302\307\"!\203)\310\207\301\302\311\"!\2034\310\207\301\302\312\"!\203?\313\207\301\302\314\"!\203J\315\207\301\302\316\"!\203U\317\207\320\303\"\203^\304\207\320\305\"\203g\306\207\320\307\"\203p\310\207\320\311\"\203y\310\207\320\312\"\203\202\313\207\320\314\"\203\213\315\207\320\316\"\203\224\317\207\321\207" [projectile-project-root projectile-file-exists-p expand-file-name ".git" git ".hg" hg ".fslckout" fossil "_FOSSIL_" ".bzr" bzr "_darcs" darcs ".svn" svn projectile-locate-dominating-file none] 5 (#$ . 101701)])
2019-10-09 20:36:55 +02:00
#@78 Determine the name of the test file for IMPL-FILE-PATH.
(fn IMPL-FILE-PATH)
2019-12-01 19:55:19 +01:00
(defalias 'projectile--test-name-for-impl-name #[257 "\302 \303\304!!\305!! !\203\306R\202-\211\203(\306R\202-\307\310\"\207" [projectile-test-prefix-function projectile-test-suffix-function projectile-project-type file-name-sans-extension file-name-nondirectory file-name-extension "." error "Project type `%s' not supported!"] 10 (#$ . 102539)])
2019-10-09 20:36:55 +02:00
#@61 Create a test file for IMPL-FILE-PATH.
(fn IMPL-FILE-PATH)
2019-12-01 19:55:19 +01:00
(defalias 'projectile-create-test-file-for #[257 "\300!\301 \302\303\"!\304\305 !\306\305 !\307\310#\"\307\"\311!?\2054\311!\2043\312\313\"\210\211\207" [projectile--test-name-for-impl-name projectile-project-root file-name-directory file-relative-name projectile-src-directory projectile-project-type projectile-test-directory expand-file-name replace-regexp-in-string file-exists-p make-directory :create-parents] 11 (#$ . 102989)])
2019-10-09 20:36:55 +02:00
#@173 Given a FILE-NAME return the matching implementation or test filename.
If `projectile-create-missing-test-files' is non-nil, create the missing
test file.
(fn FILE-NAME)
2019-12-01 19:55:19 +01:00
(defalias 'projectile-find-implementation-or-test #[257 "\211\204\301\302!\210\303!\203!\304!\211\203\305!\202 \301\306\307 \"\207\310!\211\203.\305!\202=\2038\311!\202=\301\312\307 \"\207" [projectile-create-missing-test-files error "The current buffer is not visiting a file" projectile-test-file-p projectile-find-matching-file projectile-expand-root "No matching source file found for project type `%s'" projectile-project-type projectile-find-matching-test projectile-create-test-file-for "No matching test file found for project type `%s'"] 5 (#$ . 103507)])
2019-10-09 20:36:55 +02:00
#@60 Open matching implementation or test file in other window.
2019-12-01 19:55:19 +01:00
(defalias 'projectile-find-implementation-or-test-other-window #[0 "\300\301\302 !!\207" [find-file-other-window projectile-find-implementation-or-test buffer-file-name] 3 (#$ . 104267) nil])
2019-10-09 20:36:55 +02:00
#@59 Open matching implementation or test file in other frame.
2019-12-01 19:55:19 +01:00
(defalias 'projectile-find-implementation-or-test-other-frame #[0 "\300\301\302 !!\207" [find-file-other-frame projectile-find-implementation-or-test buffer-file-name] 3 (#$ . 104524) nil])
2019-10-09 20:36:55 +02:00
#@58 Toggle between an implementation file and its test file.
2019-12-01 19:55:19 +01:00
(defalias 'projectile-toggle-between-implementation-and-test #[0 "\300\301\302 !!\207" [find-file projectile-find-implementation-or-test buffer-file-name] 3 (#$ . 104778) nil])
2019-10-09 20:36:55 +02:00
#@165 Return the value of some PROJECT-TYPE attribute identified by KEY.
Fallback to DEFAULT-VALUE for missing attributes.
(fn PROJECT-TYPE KEY &optional DEFAULT-VALUE)
2019-12-01 19:55:19 +01:00
(defalias 'projectile-project-type-attribute #[770 "\301\"\211\203\302\"\203\303\"\202\207" [projectile-project-types alist-get plist-member plist-get] 7 (#$ . 105019)])
2019-10-09 20:36:55 +02:00
#@74 Find default test files prefix based on PROJECT-TYPE.
(fn PROJECT-TYPE)
2019-12-01 19:55:19 +01:00
(defalias 'projectile-test-prefix #[257 "\300\301\"\207" [projectile-project-type-attribute test-prefix] 4 (#$ . 105372)])
2019-10-09 20:36:55 +02:00
#@74 Find default test files suffix based on PROJECT-TYPE.
(fn PROJECT-TYPE)
2019-12-01 19:55:19 +01:00
(defalias 'projectile-test-suffix #[257 "\300\301\"\207" [projectile-project-type-attribute test-suffix] 4 (#$ . 105575)])
2019-10-09 20:36:55 +02:00
#@62 Find relative file based on PROJECT-TYPE.
(fn PROJECT-TYPE)
2019-12-01 19:55:19 +01:00
(defalias 'projectile-related-files-fn #[257 "\300\301\"\207" [projectile-project-type-attribute related-files-fn] 4 (#$ . 105778)])
2019-10-09 20:36:55 +02:00
#@70 Find default src directory based on PROJECT-TYPE.
(fn PROJECT-TYPE)
2019-12-01 19:55:19 +01:00
(defalias 'projectile-src-directory #[257 "\300\301\302#\207" [projectile-project-type-attribute src-dir "src/"] 5 (#$ . 105979)])
2019-10-09 20:36:55 +02:00
#@71 Find default test directory based on PROJECT-TYPE.
(fn PROJECT-TYPE)
2019-12-01 19:55:19 +01:00
(defalias 'projectile-test-directory #[257 "\300\301\302#\207" [projectile-project-type-attribute test-dir "test/"] 5 (#$ . 106186)])
2019-10-09 20:36:55 +02:00
#@57 Count matching dirnames ascending file paths.
(fn A B)
2019-12-01 19:55:19 +01:00
(defalias 'projectile-dirname-matching-count #[514 "\300\301\302!\206 \303\304\305#!\262\300\301\302!\206\303\304\305#!\262\306\203>\203>\211A\262\242\211A\262\242\230\203>\211T\262\202\211\207" [reverse split-string file-name-directory "" "/" t 0] 7 (#$ . 106397)])
2019-10-09 20:36:55 +02:00
#@72 Group file candidates by dirname matching count.
(fn FILE CANDIDATES)
2019-12-01 19:55:19 +01:00
(defalias 'projectile-group-file-candidates #[514 "\300\301\302\211\211A\262\242\211\262\2033\303\"\304\"\211\203'\211AB\241\210\202.DB\262\266\202\305\306\237\"\266\202!\307\"\207" [cl-sort copy-sequence nil projectile-dirname-matching-count assoc mapcar #[257 "\211@A\237B\207" #1=[] 3 "\n\n(fn X)"] #[514 "@@V\207" #1# 4 "\n\n(fn A B)"]] 11 (#$ . 106745)])
2019-10-09 20:36:55 +02:00
#@109 Return a list containing the best one one for FILE from CANDIDATES or all CANDIDATES.
(fn FILE CANDIDATES)
2019-12-01 19:55:19 +01:00
(defalias 'projectile--best-or-all-candidates-based-on-parents-dirs #[514 "\300\"\211@G\301U\203\302@!@C\202\303\304\305\306\"\"\207" [projectile-group-file-candidates 2 last apply append mapcar cdr] 8 (#$ . 107207)])
2019-10-09 20:36:55 +02:00
#@87 Return a predicate, which returns t for any test files for IMPL-FILE.
(fn IMPL-FILE)
2019-12-01 19:55:19 +01:00
(defalias 'projectile--impl-to-test-predicate #[257 "\302\303!!\304 ! \304 !\205P\205P\305\306\307\310\311\"\312\"\313\314%\207" [projectile-test-prefix-function projectile-test-suffix-function file-name-sans-extension file-name-nondirectory projectile-project-type make-byte-code 257 "\302\303!!\300\230\206\301\230\207" vconcat vector [file-name-sans-extension file-name-nondirectory] 4 "\n\n(fn CURRENT-FILE)"] 13 (#$ . 107547)])
2019-10-09 20:36:55 +02:00
#@60 Return a list of test files for IMPL-FILE.
(fn IMPL-FILE)
2019-12-01 19:55:19 +01:00
(defalias 'projectile--find-matching-test #[257 "\300\301\"\211\203\302!\202\303!\211\205\304\305\306 \"\"\262\207" [projectile--related-files-plist-by-kind :test projectile--related-files-from-plist projectile--impl-to-test-predicate projectile--best-or-all-candidates-based-on-parents-dirs cl-remove-if-not projectile-current-project-files] 8 (#$ . 108093)])
2019-10-09 20:36:55 +02:00
#@87 Return a predicate, which returns t for any impl files for TEST-FILE.
(fn TEST-FILE)
2019-12-01 19:55:19 +01:00
(defalias 'projectile--test-to-impl-predicate #[257 "\302\303!!\304 ! \304 !\305\306\307\310\311#\312\"\313\314%\207" [projectile-test-prefix-function projectile-test-suffix-function file-name-sans-extension file-name-nondirectory projectile-project-type make-byte-code 257 "\303\304!!\301\203\301P\300\230\206\302\205\211\302P\300\230\207" vconcat vector [file-name-nondirectory file-name-sans-extension] 4 "\n\n(fn CURRENT-FILE)"] 12 (#$ . 108531)])
2019-10-09 20:36:55 +02:00
#@66 Return a list of impl files tested by TEST-FILE.
(fn TEST-FILE)
2019-12-01 19:55:19 +01:00
(defalias 'projectile--find-matching-file #[257 "\300\301\"\211\203\302!\202\303!\211\205\304\305\306 \"\"\262\207" [projectile--related-files-plist-by-kind :impl projectile--related-files-from-plist projectile--test-to-impl-predicate projectile--best-or-all-candidates-based-on-parents-dirs cl-remove-if-not projectile-current-project-files] 8 (#$ . 109091)])
2019-10-09 20:36:55 +02:00
#@51 Choose one item from CANDIDATES.
(fn CANDIDATES)
2019-12-01 19:55:19 +01:00
(defalias 'projectile--choose-from-candidates #[257 "\211G\300U\203\n\211@\207\301\302\"\207" [1 projectile-completing-read "Switch to: "] 4 (#$ . 109535)])
2019-10-09 20:36:55 +02:00
#@66 Compute the name of the test matching IMPL-FILE.
(fn IMPL-FILE)
2019-12-01 19:55:19 +01:00
(defalias 'projectile-find-matching-test #[257 "\300!\211\205\n\301!\207" [projectile--find-matching-test projectile--choose-from-candidates] 4 (#$ . 109750)])
2019-10-09 20:36:55 +02:00
#@64 Compute the name of a file matching TEST-FILE.
(fn TEST-FILE)
2019-12-01 19:55:19 +01:00
(defalias 'projectile-find-matching-file #[257 "\300!\211\205\n\301!\207" [projectile--find-matching-file projectile--choose-from-candidates] 4 (#$ . 109984)])
2019-10-09 20:36:55 +02:00
#@193 Try to find a default pattern for `projectile-grep'.
This is a subset of `grep-read-files', where either a matching entry from
`grep-files-aliases' or file name extension pattern is returned.
2019-12-01 19:55:19 +01:00
(defalias 'projectile-grep-default-files #[0 "\205N\302!\303\304\305 \" \"\306\2037@\262A\262\307\310\311\312A\306\313#\314#\"\2031\306\262\202\306\262\202\211A\266\202\315!\211\205E\316P\262\206L\211\266\203\207" [buffer-file-name grep-files-aliases file-name-nondirectory remove assoc "all" nil string-match mapconcat wildcard-to-regexp split-string t "\\|" file-name-extension "*."] 10 (#$ . 110217)])
2019-10-09 20:36:55 +02:00
#@58 Return ignored file suffixes as a list of glob patterns.
2019-12-01 19:55:19 +01:00
(defalias 'projectile--globally-ignored-file-suffixes-glob #[0 "\301\302\"\207" [projectile-globally-ignored-file-suffixes mapcar #[257 "\300P\207" ["*"] 3 "\n\n(fn PAT)"]] 3 (#$ . 110844)])
2019-10-09 20:36:55 +02:00
#@21
(fn PREFIX-LABEL)
2019-12-01 19:55:19 +01:00
(defalias 'projectile--read-search-string-with-default #[257 "\300!\301 \211\203\211\302\230\203\302\202\303\304\"\305\303\306#\307\211$\207" [projectile-prepend-project-name projectile-symbol-or-selection-at-point "" format " (default %s)" read-string "%s%s: " nil] 9 (#$ . 111100)])
2019-10-09 20:36:55 +02:00
#@182 Compute the command for \[rgrep] to use by default.
Extension of the Emacs 25.1 implementation of `rgrep-default-command', with
which it shares its arglist.
(fn REGEXP FILES DIR)
2019-12-01 19:55:19 +01:00
(defalias 'projectile-rgrep-default-command #[771 "\306\307!\210\310\311\312!\313 \313\314\311\315 !\316 \313Q#\313\311\317!\260\n\205F\320\311\312!\321\314\322\323\324\325\326\327\330\331\332!\333\"\334\335%\n\"\"\336#\313\311\317!\337\260 \205j\311\340!\341\311\312!\342\314\326\327\343\331\332!\344\"\345\335% \346#\313\311\317!\337\260\f\205~\311\312!\321\314\347\f\336#\313\311\317!\337\260 \205\342\311\312!-\204\217.\205\224\313\311\312!P\321\314\350 \336#-\204\244.\205\333\313\311\317!\351\311\340!\313\311\312!-\205\275\321\314\352-\336#P-\205\310.\205\310\353.\205\325\321\314\354.\336#P\313\311\317!\260 \313\311\317!\337\260R%\207" [grep-find-template find-name-arg grep-find-ignored-directories grep-find-ignored-files projectile-grep-find-ignored-paths projectile-grep-find-ignored-patterns require find-dired grep-expand-template shell-quote-argument "(" " " mapconcat split-string " -o " ")" "-type d " " -path " identity delq nil mapcar make-byte-code 257 "\211;\203 \301\302P!\207\211:\205\211@\300!\205\301\302AP!\207" vconcat vector [shell-quote-argument "*/"] 4 "\n\n(fn IGNORE)" " -o -path " " -prune -o " "!" " -type d " " -name " "\211;\203 \301!\207\211:\205\211@\300!\205\301A!\207" [shell-quote-argument] 3 " -o -name " #[257 "\300\301P!\207" [shell-quote-argument "./"] 4 "\n\n(fn IGNORE)"] #[257 "\300\301\302\"\203\f\202\303P!\207" [shell-quote-argument string-prefix-p "*" "*/"] 5 "\n\n(fn IGNORE)"] " -a " #[257 "\300\301P!\207" [shell-quote-argument "./"] 4 "\n\n(fn IGNORE)"] " -o" #[257 "\300\301\302\"\203\f\202\303P!\207" [shell-quote-argument string-prefix-p "*" "*/"] 5 "\n\n(fn IGNORE)"] projectile-grep-find-unignored-paths projectile-grep-find-unignored-patterns] 28 (#$ . 111423)])
2019-10-09 20:36:55 +02:00
#@294 Perform rgrep in the project.
With a prefix ARG asks for files (globbing-aware) which to grep in.
With prefix ARG of `-' (such as `M--'), default the files (without prompt),
to `projectile-grep-default-files'.
With REGEXP given, don't query the user for a regexp.
(fn &optional REGEXP ARG)
2019-12-01 19:55:19 +01:00
(defalias 'projectile-grep #[512 "\306\307!\210\310\311 !\206\312\313!\205%\314\232\203\315 \206%\316\317\320!\315 \"\211\203\316\211@\306\321!\210\322 \323=\203N \203N\324\325!\203N\325\206H\326#\210\202\307\327\330 \n\"\331\332\333\334\335\336\337!\340\"\341\342%\343 \"\332\333\334\344\336\337 !\345\"\346\347%\350 \"\"\331\332\333\334\335\336\337 !\351\"\341\342%\352 \"\332\333\334\344\336\337\n!\353\"\346\347%\354 \"\"\355 \356 :\357 \210\360K\333\361\362\336\337!\363\"\364$\216\360\365M\210\366\206\301\367#\210)\210-A\266\202\202&\210\370\371!\207" [current-prefix-arg projectile-use-git-grep grep-find-ignored-files projectile-grep-find-unignored-patterns projectile-grep-find-ignored-patterns projectile-grep-find-unignored-paths require grep projectile-get-project-directories projectile-project-root projectile--read-search-string-with-default "Grep for" - projectile-grep-default-files read-string projectile-prepend-project-name "Grep in: " vc-git projectile-project-vcs git fboundp vc-git-grep "" cl-union projectile--globally-ignored-file-suffixes-glob append mapcar make-byte-code 257 "\301\302\300\"!\207" vconcat vector [directory-file-name file-relative-name] 5 "\n\n(fn F)" projectile-ignored-directories "\301\300\"\207" [file-relative-name] 4 "\n\n(fn FILE)" projectile-ignored-files [directory-file-name file-relative-name] projectile-unignored-directories [file-relative-name] projectile-unignored-files projectile-patterns-to-ignore projectile-patterns-to-ensure grep-compute-defaults rgrep-default-command 0 "\301\300M\207" [rgrep-default-command] 2 projectile-rgrep-default-command rgrep "* .*" run-hooks projectile-grep-finished-hook projectile-grep-find-ignored-paths] 18 (#$ . 113400) "i\nP"])
2019-10-09 20:36:55 +02:00
#@173 Run an ag search with SEARCH-TERM in the project.
With an optional prefix argument ARG SEARCH-TERM is interpreted as a
regular expression.
(fn SEARCH-TERM &optional ARG)
2019-12-01 19:55:19 +01:00
(defalias 'projectile-ag #[513 "\304\305\306\307#\2036\211\203\310\202\305\311\306\312\313\314 \315 \316=?\205)\313\317 \320 \n\306%#!\"\306\211\321 \"*\207\322\323!\207" [ag-ignore-list grep-find-ignored-files grep-find-ignored-directories current-prefix-arg require ag nil noerror ag-regexp delq delete-dups append projectile--globally-ignored-file-suffixes-glob projectile-project-vcs git projectile-ignored-files-rel projectile-ignored-directories-rel projectile-project-root error "Package 'ag' is not available"] 15 (#$ . 115465) (byte-code "\301\302\303\203 \304\202\f\305\"!D\207" [current-prefix-arg projectile--read-search-string-with-default format "Ag %ssearch for" "regexp " ""] 4)])
2019-10-09 20:36:55 +02:00
#@188 Run a Ripgrep search with `SEARCH-TERM' at current project root.
With an optional prefix argument ARG SEARCH-TERM is interpreted as a
regular expression.
(fn SEARCH-TERM &optional ARG)
2019-12-01 19:55:19 +01:00
(defalias 'projectile-ripgrep #[513 "\302\303\304\305#\203 \306\307\310 \"\"\311\312 \203\202\313B#\207\314\315!\207" [projectile-globally-ignored-files projectile-globally-ignored-directories require ripgrep nil noerror mapcar #[257 "\300P\207" ["--glob !"] 3 "\n\n(fn VAL)"] append ripgrep-regexp projectile-project-root "--fixed-strings" error "Package `ripgrep' is not available"] 8 (#$ . 116356) (byte-code "\301\302\303\203 \304\202\f\305\"!D\207" [current-prefix-arg projectile--read-search-string-with-default format "Ripgrep %ssearch for" "regexp " ""] 4)])
2019-10-09 20:36:55 +02:00
#@50 Return a string with exclude patterns for ctags.
2019-12-01 19:55:19 +01:00
(defalias 'projectile-tags-exclude-patterns #[0 "\300\301\302 \303#\207" [mapconcat #[257 "\300\301\302!\"\207" [format "--exclude=\"%s\"" directory-file-name] 5 "\n\n(fn PATTERN)"] projectile-ignored-directories-rel " "] 4 (#$ . 117131)])
2019-10-09 20:36:55 +02:00
#@37 Regenerate the project's [e|g]tags.
2019-12-01 19:55:19 +01:00
(defalias 'projectile-regenerate-tags #[0 "\304\305!\203\306>\203\307 \211\310 \210\311\312!)\207\307 \313 \314\n!\315  $\316\211\317\320!r\211q\210\321\322\323\324\325!\326\"\327$\216\330\316p#\262\331ed{!\262*\210\211\322U\204V\332!\210\333!\210\334\335\")\207" [projectile-tags-backend default-directory projectile-tags-file-name projectile-tags-command boundp ggtags-mode (auto ggtags) projectile-project-root ggtags-ensure-project ggtags-update-tags t projectile-tags-exclude-patterns expand-file-name format nil generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 call-process-shell-command string-trim error visit-tags-table message "Regenerated %s"] 13 (#$ . 117427) nil])
2019-10-09 20:36:55 +02:00
#@41 Visit the current project's tags table.
2019-12-01 19:55:19 +01:00
(defalias 'projectile-visit-project-tags-table #[0 "\301 \205$\302!\303!\205\"\3041\305\306\"0\202\"\307\310\"\210\311\262\262\207" [projectile-tags-file-name projectile-project-p projectile-expand-root file-exists-p (debug error) visit-tags-table t message "Error loading tags-file: %s" nil] 5 (#$ . 118237)])
2019-10-09 20:36:55 +02:00
#@70 Determine which function to use for a call to `projectile-find-tag'.
2019-12-01 19:55:19 +01:00
(defalias 'projectile-determine-find-tag-fn #[0 "\301=\203\302\303!\203\303\207\302\304!\203\304\207\302\305!\203H\305\207\306=\203,\302\304!\203H\304\207\307=\203:\302\303!\203H\303\207\310=\203H\302\305!\203H\305\207\311\207" [projectile-tags-backend auto fboundp ggtags-find-tag-dwim xref-find-definitions etags-select-find-tag xref ggtags etags-select find-tag] 2 (#$ . 118605)])
2019-10-09 20:36:55 +02:00
#@22 Find tag in project.
2019-12-01 19:55:19 +01:00
(defalias 'projectile-find-tag #[0 "\300 \210\301 \302!\207" [projectile-visit-project-tags-table projectile-determine-find-tag-fn call-interactively] 3 (#$ . 119081) nil])
2019-10-09 20:36:55 +02:00
#@46 Invoke in DIR the BODY.
(fn DIR &rest BODY)
2019-12-01 19:55:19 +01:00
(defalias 'projectile-with-default-dir '(macro . #[385 "\300\301DCBB\207" [let default-directory] 5 (#$ . 119282)]))
2019-10-09 20:36:55 +02:00
(byte-code "\300\301\302\303#\210\304\301\305\306#\300\207" [put projectile-with-default-dir edebug-form-spec t function-put lisp-indent-function 1] 4)
#@58 Invoke `execute-extended-command' in the project's root.
2019-12-01 19:55:19 +01:00
(defalias 'projectile-run-command-in-root #[0 "\301\302 !\303\304!)\207" [default-directory projectile-ensure-project projectile-project-root call-interactively execute-extended-command] 2 (#$ . 119604) nil])
2019-10-09 20:36:55 +02:00
#@47 Invoke `shell-command' in the project's root.
2019-12-01 19:55:19 +01:00
(defalias 'projectile-run-shell-command-in-root #[0 "\301\302 !\303\304!)\207" [default-directory projectile-ensure-project projectile-project-root call-interactively shell-command] 2 (#$ . 119877) nil])
2019-10-09 20:36:55 +02:00
#@53 Invoke `async-shell-command' in the project's root.
2019-12-01 19:55:19 +01:00
(defalias 'projectile-run-async-shell-command-in-root #[0 "\301\302 !\303\304!)\207" [default-directory projectile-ensure-project projectile-project-root call-interactively async-shell-command] 2 (#$ . 120134) nil])
2019-10-09 20:36:55 +02:00
#@106 Invoke `shell' in the project's root.
Switch to the project specific shell buffer if it already exists.
2019-12-01 19:55:19 +01:00
(defalias 'projectile-run-shell #[0 "\301\302 !\303\304\305 \306Q!)\207" [default-directory projectile-ensure-project projectile-project-root shell "*shell " projectile-project-name "*"] 4 (#$ . 120410) nil])
2019-10-09 20:36:55 +02:00
#@108 Invoke `eshell' in the project's root.
Switch to the project specific eshell buffer if it already exists.
2019-12-01 19:55:19 +01:00
(defalias 'projectile-run-eshell #[0 "\302\303 !\304\305 \306Q\307 *\207" [default-directory eshell-buffer-name projectile-ensure-project projectile-project-root "*eshell " projectile-project-name "*" eshell] 3 (#$ . 120732) nil])
2019-10-09 20:36:55 +02:00
#@104 Invoke `ielm' in the project's root.
Switch to the project specific ielm buffer if it already exists.
2019-12-01 19:55:19 +01:00
(defalias 'projectile-run-ielm #[0 "\301\302 !\303\304\305!\"\306!\203\307!\202\310 \210)\311!\207" [default-directory projectile-ensure-project projectile-project-root format "*ielm %s*" projectile-project-name get-buffer switch-to-buffer ielm rename-buffer] 5 (#$ . 121079) nil])
2019-10-09 20:36:55 +02:00
#@118 Invoke `term' in the project's root.
Switch to the project specific term buffer if it already exists.
(fn PROGRAM)
2019-12-01 19:55:19 +01:00
(defalias 'projectile-run-term #[257 "\302\303 !\304\305!P\306\306Q\307!\204?\310\311!\210\206/\312\313\206.\314\315!\206.\314\316!\206.\317\"\320\"q\210\321 \210\322 \210)\210\323!\207" [explicit-shell-file-name default-directory projectile-ensure-project projectile-project-root "term " projectile-project-name "*" get-buffer require term read-from-minibuffer "Run program: " getenv "ESHELL" "SHELL" "/bin/sh" make-term term-mode term-char-mode switch-to-buffer] 8 (#$ . 121481) (list nil)])
2019-10-09 20:36:55 +02:00
#@54 Return a list of files in DIRECTORY.
(fn DIRECTORY)
2019-12-01 19:55:19 +01:00
(defalias 'projectile-files-in-project-directory #[257 "\300\301 !\302\303!\"\304\305\306\307\310\311!\312\"\313\314%\315!\"\207" [projectile-ensure-project projectile-project-root file-relative-name expand-file-name cl-remove-if-not make-byte-code 257 "\301\300\"\207" vconcat vector [string-prefix-p] 4 "\n\n(fn F)" projectile-project-files] 10 (#$ . 122113)])
2019-10-09 20:36:55 +02:00
#@243 Use a grep-like CMD to search for files within DIRECTORY.
CMD should include the necessary search params and should output
equivalently to grep -HlI (only unique matching filenames).
Returns a list of expanded filenames.
(fn CMD DIRECTORY)
2019-12-01 19:55:19 +01:00
(defalias 'projectile-files-from-cmd #[514 "\211\301\302\303\304\305\306!\307\"\310\311%\312\313\314!!\315\316#\")\207" [default-directory mapcar make-byte-code 257 "\300\301\302\"\203\303\304O\202P\207" vconcat vector [string-prefix-p "./" 2 nil] 5 "\n\n(fn STR)" split-string string-trim shell-command-to-string "\n+" t] 9 (#$ . 122542)])
2019-10-09 20:36:55 +02:00
#@236 Return a list of all files containing STRING in DIRECTORY.
Tries to use ag, ack, git-grep, and grep in that order. If those
are impossible (for instance on Windows), returns a list of all
files in the project.
(fn STRING DIRECTORY)
2019-12-01 19:55:19 +01:00
(defalias 'projectile-files-with-string #[514 "\300 \203<\301!\302\303!\203\304P\2027\302\305!\203 \306P\2027\302\307!\2033\310 \311=\2033\312P\2027\313\314\"\315\"\207\316\317\320\321\322!\"\"\207" [projectile-unixy-system-p shell-quote-argument executable-find "ag" "ag --literal --nocolor --noheading -l -- " "ack" "ack --literal --noheading --nocolor -l -- " "git" projectile-project-vcs git "git grep -HlI " format "grep -rHlI %s ." projectile-files-from-cmd cl-remove-if file-directory-p mapcar projectile-expand-root projectile-dir-files] 8 (#$ . 123144)])
2019-10-09 20:36:55 +02:00
#@183 Replace literal string in project using non-regexp `tags-query-replace'.
With a prefix argument ARG prompts you for a directory on which
to run the replacement.
(fn &optional ARG)
2019-12-01 19:55:19 +01:00
(defalias 'projectile-replace #[256 "\211\203\f\302\303\304!!\202\305\306 !\307\310\311!\312 \"\307\310\313\314\"!!\315\"\316\317!\2035\320\321$\210\317 \202b\322\211\227\232?\205?\323\324\325\326D\327BB\330BBE\331\326D\326D\332BBB\333\334B\206a\335!\207" [tags-loop-scan tags-loop-operate file-name-as-directory read-directory-name "Replace in directory: " projectile-ensure-project projectile-project-root read-string projectile-prepend-project-name "Replace: " projectile-symbol-or-selection-at-point format "Replace %s with: " projectile-files-with-string fboundp fileloop-continue fileloop-initialize-replace default let ((case-fold-search nil)) if search-forward quote (nil t) ((goto-char (match-beginning 0))) perform-replace (t nil nil nil multi-query-replace-map) tags-loop-continue list t] 11 (#$ . 123967) "P"])
2019-10-09 20:36:55 +02:00
#@170 Replace a regexp in the project using `tags-query-replace'.
With a prefix argument ARG prompts you for a directory on which
to run the replacement.
(fn &optional ARG)
2019-12-01 19:55:19 +01:00
(defalias 'projectile-replace-regexp #[256 "\211\203\f\300\301\302!!\202\303\304 !\305\306\307!\310 \"\305\306\311\312\"!!\313\314\315\316\317!\"\"\320\321\322B$\207" [file-name-as-directory read-directory-name "Replace regexp in directory: " projectile-ensure-project projectile-project-root read-string projectile-prepend-project-name "Replace regexp: " projectile-symbol-or-selection-at-point format "Replace regexp %s with: " cl-remove-if file-directory-p mapcar projectile-expand-root projectile-dir-files tags-query-replace nil list] 11 (#$ . 125000) "P"])
2019-10-09 20:36:55 +02:00
#@106 Kill project buffers.
The buffer are killed according to the value of
`projectile-kill-buffers-filter'.
2019-12-01 19:55:19 +01:00
(defalias 'projectile-kill-buffers #[0 "\301\302 !\303!\304!\305\306\307G#!\205T\211\211\205R\211@\310!\204K\311!\203.!\202D\312=\204G\313=\203@\314!\202D\315\316\"\203K\317!\210A\266\202\202\262\207" [projectile-kill-buffers-filter projectile-ensure-project projectile-project-root projectile-project-name projectile-project-buffers yes-or-no-p format "Are you sure you want to kill %s buffers for '%s'? " buffer-base-buffer functionp kill-all kill-only-files buffer-file-name user-error "Invalid projectile-kill-buffers-filter value: %S" kill-buffer] 8 (#$ . 125748) nil])
2019-10-09 20:36:55 +02:00
#@27 Save all project buffers.
2019-12-01 19:55:19 +01:00
(defalias 'projectile-save-project-buffers #[0 "\300\301 !\302!\303\304\305!\"\211\204\306\307\"\2025\211\211\203.\211@r\211q\210\310 \210)A\266\202\202\210\306\311G#\207" [projectile-ensure-project projectile-project-root projectile-project-name cl-remove-if-not #[257 "\300!\205 \301!\207" [buffer-file-name buffer-modified-p] 3 "\n\n(fn BUF)"] projectile-project-buffers message "[%s] No buffers need saving" save-buffer "[%s] Saved %d buffers"] 7 (#$ . 126460) nil])
2019-10-09 20:36:55 +02:00
#@42 Open `dired' at the root of the project.
2019-12-01 19:55:19 +01:00
(defalias 'projectile-dired #[0 "\300\301\302 !!\207" [dired projectile-ensure-project projectile-project-root] 3 (#$ . 126978) nil])
2019-10-09 20:36:55 +02:00
#@61 Open `dired' at the root of the project in another window.
2019-12-01 19:55:19 +01:00
(defalias 'projectile-dired-other-window #[0 "\300\301\302 !!\207" [dired-other-window projectile-ensure-project projectile-project-root] 3 (#$ . 127159) nil])
2019-10-09 20:36:55 +02:00
#@59 Open `dired' at the root of the project in another frame.
2019-12-01 19:55:19 +01:00
(defalias 'projectile-dired-other-frame #[0 "\300\301\302 !!\207" [dired-other-frame projectile-ensure-project projectile-project-root] 3 (#$ . 127385) nil])
2019-10-09 20:36:55 +02:00
#@398 Open `vc-dir' at the root of the project.
For git projects `magit-status-internal' is used if available.
For hg projects `monky-status' is used if available.
If PROJECT-ROOT is given, it is opened instead of the project
root directory of the current buffer file. If interactively
called with a prefix argument, the user is prompted for a project
directory to open.
(fn &optional PROJECT-ROOT)
2019-12-01 19:55:19 +01:00
(defalias 'projectile-vc #[256 "\211\204\300 \262\301!\302\303\"\2030\304\305!\203\305!\202L\304\306!\203*\306!\202L\307!\202L\302\310\"\203I\304\311!\203C\311!\202L\307!\202L\307!\207" [projectile-project-root projectile-project-vcs eql git fboundp magit-status-internal magit-status vc-dir hg monky-status] 5 (#$ . 127608) (byte-code "\205 \302\303 \"C\207" [current-prefix-arg projectile-known-projects projectile-completing-read "Open project VC in: "] 3)])
2019-10-09 20:36:55 +02:00
#@53 Show a list of recently visited files in a project.
2019-12-01 19:55:19 +01:00
(defalias 'projectile-recentf #[0 "\300\301!\203\302\303\304\305\306 \"!!\207\307\310!\207" [boundp recentf-list find-file projectile-expand-root projectile-completing-read "Recently visited files: " projectile-recentf-files message "recentf is not enabled"] 5 (#$ . 128498) nil])
2019-10-09 20:36:55 +02:00
#@55 Return a list of recently visited files in a project.
2019-12-01 19:55:19 +01:00
(defalias 'projectile-recentf-files #[0 "\301\300!\205+\302\303 !\304\305\306\307\310\311!\312\"\313\314%\315\305\306\316\310\311!\317\"\320\314%\"\"\262\207" [recentf-list boundp projectile-ensure-project projectile-project-root mapcar make-byte-code 257 "\301\300\"\207" vconcat vector [file-relative-name] 4 "\n\n(fn F)" cl-remove-if-not "\301\300\302!\"\207" [string-prefix-p expand-file-name] 5] 10 (#$ . 128839)])
2019-10-09 20:36:55 +02:00
#@48 Serializes the memory cache to the hard drive.
2019-12-01 19:55:19 +01:00
(defalias 'projectile-serialize-cache #[0 "\302 \"\207" [projectile-projects-cache projectile-cache-file projectile-serialize] 3 (#$ . 129328)])
2019-10-09 20:36:55 +02:00
#@73 A mapping between projects and the last configure command used on them.
2019-12-01 19:55:19 +01:00
(defvar projectile-configure-cmd-map (make-hash-table :test 'equal) (#$ . 129527))
2019-10-09 20:36:55 +02:00
#@75 A mapping between projects and the last compilation command used on them.
2019-12-01 19:55:19 +01:00
(defvar projectile-compilation-cmd-map (make-hash-table :test 'equal) (#$ . 129688))
2019-10-09 20:36:55 +02:00
#@68 A mapping between projects and the last test command used on them.
2019-12-01 19:55:19 +01:00
(defvar projectile-test-cmd-map (make-hash-table :test 'equal) (#$ . 129853))
2019-10-09 20:36:55 +02:00
#@67 A mapping between projects and the last run command used on them.
2019-12-01 19:55:19 +01:00
(defvar projectile-run-cmd-map (make-hash-table :test 'equal) (#$ . 130004))
2019-10-09 20:36:55 +02:00
#@167 The command to use with `projectile-configure-project'.
It takes precedence over the default command for the project type when set.
Should be set via .dir-locals.el.
2019-12-01 19:55:19 +01:00
(defvar projectile-project-configure-cmd nil (#$ . 130154))
2019-10-09 20:36:55 +02:00
#@165 The command to use with `projectile-compile-project'.
It takes precedence over the default command for the project type when set.
Should be set via .dir-locals.el.
2019-12-01 19:55:19 +01:00
(defvar projectile-project-compilation-cmd nil (#$ . 130387))
2019-10-09 20:36:55 +02:00
#@143 The directory to use with `projectile-compile-project'.
The directory path is relative to the project root.
Should be set via .dir-locals.el.
2019-12-01 19:55:19 +01:00
(defvar projectile-project-compilation-dir nil (#$ . 130620))
2019-10-09 20:36:55 +02:00
#@162 The command to use with `projectile-test-project'.
It takes precedence over the default command for the project type when set.
Should be set via .dir-locals.el.
2019-12-01 19:55:19 +01:00
(defvar projectile-project-test-cmd nil (#$ . 130831))
2019-10-09 20:36:55 +02:00
#@161 The command to use with `projectile-run-project'.
It takes precedence over the default command for the project type when set.
Should be set via .dir-locals.el.
2019-12-01 19:55:19 +01:00
(defvar projectile-project-run-cmd nil (#$ . 131054))
2019-10-09 20:36:55 +02:00
#@272 Generic retrieval of COMMAND-TYPEs default cmd-value for PROJECT-TYPE.
If found, checks if value is symbol or string. In case of symbol
resolves to function `funcall's. Return value of function MUST
be string to be executed as command.
(fn PROJECT-TYPE COMMAND-TYPE)
2019-12-01 19:55:19 +01:00
(defalias 'projectile-default-generic-command #[514 "\301\302\"\"\211\204\303\202/\211;\203\211\202/\304!\203*\305!\205/\211K \202/\306\307#\207" [projectile-project-types plist-get alist-get nil functionp fboundp error "The value for: %s in project-type: %s was neither a function nor a string"] 7 (#$ . 131275)])
2019-10-09 20:36:55 +02:00
#@73 Retrieve default configure command for PROJECT-TYPE.
(fn PROJECT-TYPE)
2019-12-01 19:55:19 +01:00
(defalias 'projectile-default-configure-command #[257 "\300\301\"\207" [projectile-default-generic-command configure-command] 4 (#$ . 131883)])
2019-10-09 20:36:55 +02:00
#@75 Retrieve default compilation command for PROJECT-TYPE.
(fn PROJECT-TYPE)
2019-12-01 19:55:19 +01:00
(defalias 'projectile-default-compilation-command #[257 "\300\301\"\207" [projectile-default-generic-command compile-command] 4 (#$ . 132106)])
2019-10-09 20:36:55 +02:00
#@77 Retrieve default compilation directory for PROJECT-TYPE.
(fn PROJECT-TYPE)
2019-12-01 19:55:19 +01:00
(defalias 'projectile-default-compilation-dir #[257 "\300\301\"\207" [projectile-default-generic-command compilation-dir] 4 (#$ . 132331)])
2019-10-09 20:36:55 +02:00
#@68 Retrieve default test command for PROJECT-TYPE.
(fn PROJECT-TYPE)
2019-12-01 19:55:19 +01:00
(defalias 'projectile-default-test-command #[257 "\300\301\"\207" [projectile-default-generic-command test-command] 4 (#$ . 132554)])
2019-10-09 20:36:55 +02:00
#@67 Retrieve default run command for PROJECT-TYPE.
(fn PROJECT-TYPE)
2019-12-01 19:55:19 +01:00
(defalias 'projectile-default-run-command #[257 "\300\301\"\207" [projectile-default-generic-command run-command] 4 (#$ . 132762)])
2019-10-09 20:36:55 +02:00
#@382 Retrieve the configure command for COMPILE-DIR.
The command is determined like this:
- first we check `projectile-configure-cmd-map' for the last
configure command that was invoked on the project
- then we check for `projectile-project-configure-cmd' supplied
via .dir-locals.el
- finally we check for the default configure command for a
project of that type
(fn COMPILE-DIR)
2019-12-01 19:55:19 +01:00
(defalias 'projectile-configure-command #[257 "\302\"\206 \206\303\304 !\211\205\305\306 \"\262\207" [projectile-configure-cmd-map projectile-project-configure-cmd gethash projectile-default-configure-command projectile-project-type format projectile-project-root] 5 (#$ . 132968)])
2019-10-09 20:36:55 +02:00
#@388 Retrieve the compilation command for COMPILE-DIR.
The command is determined like this:
- first we check `projectile-compilation-cmd-map' for the last
compile command that was invoked on the project
- then we check for `projectile-project-compilation-cmd' supplied
via .dir-locals.el
- finally we check for the default compilation command for a
project of that type
(fn COMPILE-DIR)
2019-12-01 19:55:19 +01:00
(defalias 'projectile-compilation-command #[257 "\302\"\206 \206\303\304 !\207" [projectile-compilation-cmd-map projectile-project-compilation-cmd gethash projectile-default-compilation-command projectile-project-type] 4 (#$ . 133649)])
2019-10-09 20:36:55 +02:00
#@357 Retrieve the test command for COMPILE-DIR.
The command is determined like this:
- first we check `projectile-test-cmd-map' for the last
test command that was invoked on the project
- then we check for `projectile-project-test-cmd' supplied
via .dir-locals.el
- finally we check for the default test command for a
project of that type
(fn COMPILE-DIR)
2019-12-01 19:55:19 +01:00
(defalias 'projectile-test-command #[257 "\302\"\206 \206\303\304 !\207" [projectile-test-cmd-map projectile-project-test-cmd gethash projectile-default-test-command projectile-project-type] 4 (#$ . 134286)])
2019-10-09 20:36:55 +02:00
#@352 Retrieve the run command for COMPILE-DIR.
The command is determined like this:
- first we check `projectile-run-cmd-map' for the last
run command that was invoked on the project
- then we check for `projectile-project-run-cmd' supplied
via .dir-locals.el
- finally we check for the default run command for a
project of that type
(fn COMPILE-DIR)
2019-12-01 19:55:19 +01:00
(defalias 'projectile-run-command #[257 "\302\"\206 \206\303\304 !\207" [projectile-run-cmd-map projectile-project-run-cmd gethash projectile-default-run-command projectile-project-type] 4 (#$ . 134864)])
2019-10-09 20:36:55 +02:00
#@63 Adapted from `compilation-read-command'.
(fn PROMPT COMMAND)
2019-12-01 19:55:19 +01:00
(defalias 'projectile-read-command #[514 "\301@\232\203\302\202\300#\207" [compile-history read-shell-command (compile-history . 1)] 7 (#$ . 135432)])
2019-10-09 20:36:55 +02:00
#@54 Retrieve the compilation directory for this project.
2019-12-01 19:55:19 +01:00
(defalias 'projectile-compilation-dir #[0 "\301 \206 \302!\211\203\303\304\305 !\304!P!\202\305 \207" [projectile-project-compilation-dir projectile-project-type projectile-default-compilation-dir file-truename file-name-as-directory projectile-project-root] 6 (#$ . 135659)])
2019-10-09 20:36:55 +02:00
#@95 Prompt user for command unless DEFAULT-CMD is an Elisp function.
(fn ARG DEFAULT-CMD PROMPT)
2019-12-01 19:55:19 +01:00
(defalias 'projectile-maybe-read-command #[771 ";\204 \204\204\203\301\"\207\207" [compilation-read-command projectile-read-command] 6 (#$ . 136003)])
2019-10-09 20:36:55 +02:00
#@58 Run external or Elisp compilation command CMD.
(fn CMD)
2019-12-01 19:55:19 +01:00
(defalias 'projectile-run-compilation #[257 "\300!\203 \211 \207\301!\207" [functionp compile] 3 (#$ . 136268)])
2019-10-09 20:36:55 +02:00
#@112 The history of last executed project commands, per project.
Projects are indexed by their project-root value.
2019-12-01 19:55:19 +01:00
(defvar projectile-project-command-history (make-hash-table :test 'equal) (#$ . 136448))
2019-10-09 20:36:55 +02:00
#@21
(fn PROJECT-ROOT)
2019-12-01 19:55:19 +01:00
(defalias 'projectile--get-command-history #[257 "\301\"\206\302\303\304!#\207" [projectile-project-command-history gethash puthash make-ring 16] 5 (#$ . 136654)])
2019-10-09 20:36:55 +02:00
#@522 Run a project COMMAND, typically a test- or compile command.
Cache the COMMAND for later use inside the hash-table COMMAND-MAP.
Normally you'll be prompted for a compilation command, unless
variable `compilation-read-command'. You can force the prompt
by setting SHOW-PROMPT. The prompt will be prefixed with PROMPT-PREFIX.
If SAVE-BUFFERS is non-nil save all projectile buffers before
running the command.
The command actually run is returned.
(fn COMMAND COMMAND-MAP &key SHOW-PROMPT PROMPT-PREFIX SAVE-BUFFERS)
2019-12-01 19:55:19 +01:00
(defalias 'projectile--run-project-cmd #[642 "\302\303\"A@\302\304\"A@\302\305\"A@\211\203=\211@\306>\203&\211AA\262\202\307>A@\2034\310\262\202\311\312@\"\210\202\210\313 \314 \315#\203\\\316 #\210\317\320!\"\210\203q\321 ?\322\323\324\325\326!\327\"\330$\"\210\331!\204{\332!\210\333!\210)\262\207" [default-directory compilation-ask-about-save plist-member :show-prompt :prompt-prefix :save-buffers (:show-prompt :prompt-prefix :save-buffers :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:show-prompt :prompt-prefix :save-buffers)" projectile-project-root projectile-compilation-dir projectile-maybe-read-command puthash ring-insert projectile--get-command-history save-some-buffers make-byte-code 0 "\301p\300\"\207" vconcat vector [projectile-project-buffer-p] 3 file-directory-p mkdir projectile-run-compilation] 16 (#$ . 136851)])
2019-10-09 20:36:55 +02:00
#@187 Run project configure command.
Normally you'll be prompted for a compilation command, unless
variable `compilation-read-command'. You can force the prompt
with a prefix ARG.
(fn ARG)
2019-12-01 19:55:19 +01:00
(defalias 'projectile-configure-project #[257 "\301\302 !\303\304\305\306\307\310&\207" [projectile-configure-cmd-map projectile-configure-command projectile-compilation-dir projectile--run-project-cmd :show-prompt :prompt-prefix "Configure command: " :save-buffers t] 11 (#$ . 138290) "P"])
2019-10-09 20:36:55 +02:00
#@189 Run project compilation command.
Normally you'll be prompted for a compilation command, unless
variable `compilation-read-command'. You can force the prompt
with a prefix ARG.
(fn ARG)
2019-12-01 19:55:19 +01:00
(defalias 'projectile-compile-project #[257 "\301\302 !\303\304\305\306\307\310&\207" [projectile-compilation-cmd-map projectile-compilation-command projectile-compilation-dir projectile--run-project-cmd :show-prompt :prompt-prefix "Compile command: " :save-buffers t] 11 (#$ . 138779) "P"])
2019-10-09 20:36:55 +02:00
#@182 Run project test command.
Normally you'll be prompted for a compilation command, unless
variable `compilation-read-command'. You can force the prompt
with a prefix ARG.
(fn ARG)
2019-12-01 19:55:19 +01:00
(defalias 'projectile-test-project #[257 "\301\302 !\303\304\305\306\307\310&\207" [projectile-test-cmd-map projectile-test-command projectile-compilation-dir projectile--run-project-cmd :show-prompt :prompt-prefix "Test command: " :save-buffers t] 11 (#$ . 139270) "P"])
2019-10-09 20:36:55 +02:00
#@181 Run project run command.
Normally you'll be prompted for a compilation command, unless
variable `compilation-read-command'. You can force the prompt
with a prefix ARG.
(fn ARG)
2019-12-01 19:55:19 +01:00
(defalias 'projectile-run-project #[257 "\301\302 !\303\304\305\306&\207" [projectile-run-cmd-map projectile-run-command projectile-compilation-dir projectile--run-project-cmd :show-prompt :prompt-prefix "Run command: "] 9 (#$ . 139734) "P"])
2019-10-09 20:36:55 +02:00
#@274 Run last projectile external command.
External commands are: `projectile-configure-project',
`projectile-compile-project', `projectile-test-project' and
`projectile-run-project'.
If the prefix argument SHOW_PROMPT is non nil, the command can be edited.
(fn SHOW-PROMPT)
2019-12-01 19:55:19 +01:00
(defalias 'projectile-repeat-last-command #[257 "\302\303 !\304!\305!\242\306\204\307\310!\210\311\306\312\313\314\315&\262\230?\205-\316\"*\207" [command-history compilation-read-command projectile-ensure-project projectile-project-root projectile--get-command-history ring-elements nil user-error "No command has been run yet for this project" projectile--run-project-cmd :save-buffers t :prompt-prefix "Execute command: " ring-insert] 11 (#$ . 140168) "P"])
2019-10-09 20:36:55 +02:00
#@148 Try to find a buffer for FILENAME, if we cannot find it,
fallback to the original function.
(fn ORIG-FUN MARKER FILENAME DIRECTORY &rest FORMATS)
2019-12-01 19:55:19 +01:00
(defalias 'compilation-find-file-projectile-find-compilation-buffer #[1156 "C\300\301\242!!\2046\302 \2036\303 \304\305 B\306\300\307\310\311\312\313\314\n\n\"\315\"\316\317%\"\"@\211\2034\240\210\266\320\242BBB\"\207" [file-exists-p expand-file-name projectile-project-p projectile-project-root "" projectile-current-project-dirs cl-remove-if-not mapcar make-byte-code 257 "\302\300\242\302\301\"\"\207" vconcat vector [expand-file-name] 6 "\n\n(fn F)" apply] 18 (#$ . 140925)])
2019-10-09 20:36:55 +02:00
#@89 Return a list of all open projects.
An open project is a project with any open buffers.
2019-12-01 19:55:19 +01:00
(defalias 'projectile-open-projects #[0 "\300\301\302\303\304\305 \"\"!\207" [delete-dups delq nil mapcar #[257 "r\211q\210\300 \205 \301\302 !)\207" [projectile-project-p abbreviate-file-name projectile-project-root] 3 "\n\n(fn BUFFER)"] buffer-list] 6 (#$ . 141579)])
2019-10-09 20:36:55 +02:00
#@79 Remove the current project (if any) from the list of PROJECTS.
(fn PROJECTS)
2019-12-01 19:55:19 +01:00
(defalias 'projectile--remove-current-project #[257 "\300 \211\203\301\302!C\"\202\207" [projectile-project-root projectile-difference abbreviate-file-name] 6 (#$ . 141944)])
2019-10-09 20:36:55 +02:00
#@90 Move current project (if any) to the end of list in the list of PROJECTS.
(fn PROJECTS)
2019-12-01 19:55:19 +01:00
(defalias 'projectile--move-current-project-to-end #[257 "\300 \211\203\301\302!\303!C\"\202\207" [projectile-project-root append projectile--remove-current-project abbreviate-file-name] 6 (#$ . 142210)])
2019-10-09 20:36:55 +02:00
#@34 Return a list of known projects.
2019-12-01 19:55:19 +01:00
(defalias 'projectile-relevant-known-projects #[0 "\302=\203\n\303 !\207\304=\203\305 !\207\306=\203 \207\307\207" [projectile-current-project-on-switch projectile-known-projects remove projectile--remove-current-project move-to-end projectile--move-current-project-to-end keep nil] 2 (#$ . 142517)])
2019-10-09 20:36:55 +02:00
#@33 Return a list of open projects.
2019-12-01 19:55:19 +01:00
(defalias 'projectile-relevant-open-projects #[0 "\301 \302=\203\303!\202%\304=\203\305!\202%\306=\203$\211\202%\307\207" [projectile-current-project-on-switch projectile-open-projects remove projectile--remove-current-project move-to-end projectile--move-current-project-to-end keep nil] 3 (#$ . 142865)])
2019-10-09 20:36:55 +02:00
#@241 Switch to a project we have visited before.
Invokes the command referenced by `projectile-switch-project-action' on switch.
With a prefix ARG invokes `projectile-commander' instead of
`projectile-switch-project-action.'
(fn &optional ARG)
2019-12-01 19:55:19 +01:00
(defalias 'projectile-switch-project #[256 "\300 \211\203\301\302\303\304\305\306\307\310\n!\311\"\312\313%$\202\314\315!\207" [projectile-relevant-known-projects projectile-completing-read "Switch to project: " :action make-byte-code 257 "\301\300\"\207" vconcat vector [projectile-switch-project-by-name] 4 "\n\n(fn PROJECT)" user-error "There are no known projects"] 12 (#$ . 143224) "P"])
2019-10-09 20:36:55 +02:00
#@243 Switch to a project we have currently opened.
Invokes the command referenced by `projectile-switch-project-action' on switch.
With a prefix ARG invokes `projectile-commander' instead of
`projectile-switch-project-action.'
(fn &optional ARG)
2019-12-01 19:55:19 +01:00
(defalias 'projectile-switch-open-project #[256 "\300 \211\203\301\302\303\304\305\306\307\310\n!\311\"\312\313%$\202\314\315!\207" [projectile-relevant-open-projects projectile-completing-read "Switch to open project: " :action make-byte-code 257 "\301\300\"\207" vconcat vector [projectile-switch-project-by-name] 4 "\n\n(fn PROJECT)" user-error "There are no open projects"] 12 (#$ . 143871) "P"])
2019-10-09 20:36:55 +02:00
#@268 Switch to project by project name PROJECT-TO-SWITCH.
Invokes the command referenced by `projectile-switch-project-action' on switch.
With a prefix ARG invokes `projectile-commander' instead of
`projectile-switch-project-action.'
(fn PROJECT-TO-SWITCH &optional ARG)
2019-12-01 19:55:19 +01:00
(defalias 'projectile-switch-project-by-name #[513 "\304!\204\305!\210\306\307\"\210\211\203\310\202\311\312!\210\313\314!r\211q\210\315\316\317\320\321!\322\"\323$\216\324 \210*\210\n!\211 \210*\311\325!\207" [projectile-switch-project-action default-directory projectile-project-name-function projectile-project-name projectile-project-p projectile-remove-known-project error "Directory %s is not a project" projectile-commander run-hooks projectile-before-switch-project-hook generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 hack-dir-local-variables-non-file-buffer projectile-after-switch-project-hook] 10 (#$ . 144528)])
2019-10-09 20:36:55 +02:00
#@140 Jump to a file in a (maybe regular) DIRECTORY.
This command will first prompt for the directory the file is in.
(fn &optional DIRECTORY)
2019-12-01 19:55:19 +01:00
(defalias 'projectile-find-file-in-directory #[256 "\301!\204 \302\303\"\210\211\304 \203(\305\306\307!\"\310\311\312 \"!\210\313\314!\262\202*\315 )\207" [default-directory projectile--directory-p user-error "Directory %S does not exist" projectile-project-p projectile-completing-read "Find file: " projectile-dir-files find-file expand-file-name projectile-project-root run-hooks projectile-find-file-hook projectile-find-file] 6 (#$ . 145515) "DFind file in directory: "])
2019-10-09 20:36:55 +02:00
#@42 Get a list of all files in all projects.
2019-12-01 19:55:19 +01:00
(defalias 'projectile-all-project-files #[0 "\301\302\"\207" [projectile-known-projects cl-mapcan #[257 "\300!\205\301\302\303\304\305\306!\307\"\310\311%\312!\"\207" [file-exists-p mapcar make-byte-code 257 "\301\300\"\207" vconcat vector [expand-file-name] 4 "\n\n(fn FILE)" projectile-project-files] 8 "\n\n(fn PROJECT)"]] 3 (#$ . 146146)])
2019-10-09 20:36:55 +02:00
#@46 Jump to a file in any of the known projects.
2019-12-01 19:55:19 +01:00
(defalias 'projectile-find-file-in-known-projects #[0 "\300\301\302\303 \"!\207" [find-file projectile-completing-read "Find file in projects: " projectile-all-project-files] 4 (#$ . 146545) nil])
2019-10-09 20:36:55 +02:00
#@167 Determine whether we should cleanup (remove) PROJECT or not.
It handles the case of remote projects as well.
See `projectile--cleanup-known-projects'.
(fn PROJECT)
2019-12-01 19:55:19 +01:00
(defalias 'projectile-keep-project-p #[257 "\300\301\302#\203\f\303!\207\300!\206\303!\207" [file-remote-p nil t file-readable-p] 5 (#$ . 146794)])
2019-10-09 20:36:55 +02:00
#@87 Remove known projects that don't exist anymore and return a list of projects removed.
2019-12-01 19:55:19 +01:00
(defalias 'projectile--cleanup-known-projects #[0 "\301 \210\302\303\"\304\303\"\301 \210\207" [projectile-known-projects projectile-merge-known-projects cl-remove-if-not projectile-keep-project-p cl-remove-if] 4 (#$ . 147121)])
2019-10-09 20:36:55 +02:00
#@49 Remove known projects that don't exist anymore.
2019-12-01 19:55:19 +01:00
(defalias 'projectile-cleanup-known-projects #[0 "\300 \211\203\301\302\303\304\305#\"\202\301\306!\207" [projectile--cleanup-known-projects message "Projects removed: %s" mapconcat identity ", " "No projects needed to be removed."] 7 (#$ . 147446) nil])
2019-10-09 20:36:55 +02:00
#@78 Clear both `projectile-known-projects' and `projectile-known-projects-file'.
2019-12-01 19:55:19 +01:00
(defalias 'projectile-clear-known-projects #[0 "\301\302 \207" [projectile-known-projects nil projectile-save-known-projects] 1 (#$ . 147760) nil])
2019-10-09 20:36:55 +02:00
#@73 Remove PROJECT from the list of known projects.
(fn &optional PROJECT)
2019-12-01 19:55:19 +01:00
(defalias 'projectile-remove-known-project #[256 "\302\303!?\205#\304\305\306\307\310\311!\312\"\313\314%\"\315 \210 \205#\316\317\"\207" [projectile-known-projects projectile-verbose called-interactively-p any cl-remove-if make-byte-code 257 "\300\230\207" vconcat vector [] 3 "\n\n(fn PROJ)" projectile-merge-known-projects message "Project %s removed from the list of known projects."] 8 (#$ . 147992) (byte-code "\301\302\303\304$C\207" [projectile-known-projects projectile-completing-read "Remove from known projects: " :action projectile-remove-known-project] 5)])
2019-10-09 20:36:55 +02:00
#@61 Remove the current project from the list of known projects.
2019-12-01 19:55:19 +01:00
(defalias 'projectile-remove-current-project-from-known-projects #[0 "\300\301\302 !!\207" [projectile-remove-known-project abbreviate-file-name projectile-project-root] 3 (#$ . 148651) nil])
2019-10-09 20:36:55 +02:00
#@76 A list of projects that should not be save in `projectile-known-projects'.
2019-12-01 19:55:19 +01:00
(defalias 'projectile-ignored-projects #[0 "\301\302\"\207" [projectile-ignored-projects mapcar file-truename] 3 (#$ . 148909)])
2019-10-09 20:36:55 +02:00
#@97 Return t if PROJECT-ROOT should not be added to `projectile-known-projects'.
(fn PROJECT-ROOT)
2019-12-01 19:55:19 +01:00
(defalias 'projectile-ignored-project-p #[257 "\211\301 \235\206\302!\205!\207" [projectile-ignored-project-function projectile-ignored-projects functionp] 3 (#$ . 149120)])
2019-10-09 20:36:55 +02:00
#@68 Add PROJECT-ROOT to the list of known projects.
(fn PROJECT-ROOT)
2019-12-01 19:55:19 +01:00
(defalias 'projectile-add-known-project #[257 "\301!?\205\302\303\304!!B!\305 \207" [projectile-known-projects projectile-ignored-project-p delete-dups file-name-as-directory abbreviate-file-name projectile-merge-known-projects] 5 (#$ . 149403) (byte-code "\300\301!C\207" [read-directory-name "Add to known projects: "] 2)])
2019-10-09 20:36:55 +02:00
#@98 Load saved projects from `projectile-known-projects-file'.
Also set `projectile-known-projects'.
2019-12-01 19:55:19 +01:00
(defalias 'projectile-load-known-projects #[0 "\303!\304 !\205 \305 !\211\207" [projectile-known-projects-file projectile-known-projects projectile-known-projects-on-file projectile-unserialize sequencep copy-sequence] 2 (#$ . 149808)])
2019-10-09 20:36:55 +02:00
#@67 Save PROJECTILE-KNOWN-PROJECTS to PROJECTILE-KNOWN-PROJECTS-FILE.
2019-12-01 19:55:19 +01:00
(defalias 'projectile-save-known-projects #[0 "\303 \"\210\304!\205\305!\211\207" [projectile-known-projects projectile-known-projects-file projectile-known-projects-on-file projectile-serialize sequencep copy-sequence] 3 (#$ . 150152)])
2019-10-09 20:36:55 +02:00
#@171 Merge any change from `projectile-known-projects-file' and save to disk.
This enables multiple Emacs processes to make changes without
overwriting each other's changes.
2019-12-01 19:55:19 +01:00
(defalias 'projectile-merge-known-projects #[0 " \303\n!\304\"\304\"\305\304\306\"\306\"\"!\211\307 \207" [projectile-known-projects projectile-known-projects-on-file projectile-known-projects-file projectile-unserialize projectile-difference delete-dups append projectile-save-known-projects] 11 (#$ . 150469)])
2019-10-09 20:36:55 +02:00
#@71 Show Ibuffer with all buffers in the current project.
(fn QUALIFIER)
2019-12-01 19:55:19 +01:00
(defalias 'ibuffer-filter-by-projectile-files #[257 "\300\301B!\210\302\303\304\305\"\"\210\306\307\310\"\207" [ibuffer-push-filter projectile-files message "%s" format "Filter by nil added: %s" ibuffer-update nil t] 6 (#$ . 150970) (byte-code "\300\301\302 \"C\207" [read-directory-name "Project root: " projectile-project-root] 3)])
2019-10-09 20:36:55 +02:00
(byte-code "\301\302\303EB\302\207" [ibuffer-filtering-alist projectile-files nil #[514 "\3001rq\210\301\302!!\303 \232)0\207\210\304 \210\305\207" [(error) file-name-as-directory expand-file-name projectile-project-root ibuffer-pop-filter nil] 5 "\n\n(fn BUF QUALIFIER)"]] 3)
#@80 Open an IBuffer window showing all buffers in PROJECT-ROOT.
(fn PROJECT-ROOT)
2019-12-01 19:55:19 +01:00
(defalias 'projectile-ibuffer-by-project #[257 "!\301\302\303\304\"\305BC#\207" [projectile-project-name-function ibuffer nil format "*%s Buffers*" projectile-files] 7 (#$ . 151667)])
2019-10-09 20:36:55 +02:00
#@163 Open an IBuffer window showing all buffers in the current project.
Let user choose another project when PROMPT-FOR-PROJECT is supplied.
(fn PROMPT-FOR-PROJECT)
2019-12-01 19:55:19 +01:00
(defalias 'projectile-ibuffer #[257 "\211\203\f\300\301\302 \"\202\303 \304!\207" [projectile-completing-read "Project name: " projectile-relevant-known-projects projectile-project-root projectile-ibuffer-by-project] 4 (#$ . 151941) "P"])
2019-10-09 20:36:55 +02:00
(defconst projectile-commander-help-buffer "*Projectile Commander Help*")
#@186 List of file-selection methods for the `projectile-commander' command.
Each element is a list (KEY DESCRIPTION FUNCTION).
DESCRIPTION is a one-line description of what the key selects.
2019-12-01 19:55:19 +01:00
(defvar projectile-commander-methods nil (#$ . 152427))
2019-10-09 20:36:55 +02:00
#@246 Execute a Projectile command with a single letter.
The user is prompted for a single character indicating the action to invoke.
The `?' character describes then
available actions.
See `def-projectile-commander-method' for defining new methods.
2019-12-01 19:55:19 +01:00
(defalias 'projectile-commander #[0 "\301\302\"\303\304Q\305\"\306\2368\211 \207" [projectile-commander-methods mapcar car "Select Projectile command [" "]: " read-char-choice 2] 6 (#$ . 152675) nil])
2019-10-09 20:36:55 +02:00
#@272 Define a new `projectile-commander' method.
KEY is the key the user will enter to choose this method.
DESCRIPTION is a one-line sentence describing how the method.
BODY is a series of forms which are evaluated when the find
is chosen.
(fn KEY DESCRIPTION &rest BODY)
2019-12-01 19:55:19 +01:00
(defalias 'def-projectile-commander-method '(macro . #[642 "\300\301BB\302\303\304\305\306\307  F\310\n\311BBED\312BBE\207" [lambda nil setq projectile-commander-methods cl-sort copy-sequence cons list assq-delete-all (projectile-commander-methods) ((lambda (a b) (< (car a) (car b))))] 13 (#$ . 153134)]))
2019-10-09 20:36:55 +02:00
(byte-code "\301\302\303\304\305E\306\303\"B!\307\"\301\207" [projectile-commander-methods cl-sort copy-sequence 63 "Commander help buffer." #[0 "\3021 \303!0\202\210\202\210r\304!q\210\305c\210 \211\2031\211@\306\307@A@#c\210A\266\202\202\210eb\210\310 \210\311p\312\"\210)\313 \207" [projectile-commander-help-buffer projectile-commander-methods (error) kill-buffer get-buffer-create "Projectile Commander Methods:\n\n" format "%c: %s\n" help-mode display-buffer t projectile-commander] 6] assq-delete-all #[514 "@@W\207" [] 4 "\n\n(fn A B)"]] 6)
#@53 Setup the keybindings for the Projectile Commander.
2019-12-01 19:55:19 +01:00
(defalias '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\"\301\302\350\351\352E\306\350\"B!\353\"\301\302\354\355\356E\306\354\"B!\357\"\301\302\360\361\362E\306\360\"B!\363\"\301\302\364\365\366E\306\364\"B!\367\"\301\302\370\371\372E\306\370\"B!\373\"\301\302\374\375\376E\306\374\"B!\377\"\301\302\201@\201A\201BE\306\201@\"B!\201C\"\211\207" [projectile-commander-methods cl-sort copy-sequence 102 "Find file in project." #[0 "\300 \207" [projectile-find-file] 1] assq-delete-all #[514 "@@W\207" #1=[] 4 "\n\n(fn A B)"] 84 "Find test file in project." #[0 "\300 \207" [projectile-find-test-file] 1] #[514 "@@W\207" #1# 4 "\n\n(fn A B)"] 98 "Switch to project buffer." #[0 "\300 \207" [projectile-switch-to-buffer] 1] #[514 "@@W\207" #1# 4 "\n\n(fn A B)"] 100 "Find directory in project." #[0 "\300 \207" [projectile-find-dir] 1] #[514 "@@W\207" #1# 4 "\n\n(fn A B)"] 68 "Open project root in dired." #[0 "\300 \207" [projectile-dired] 1] #[514 "@@W\207" #1# 4 "\n\n(fn A B)"] 118 "Open project root in vc-dir or magit." #[0 "\300 \207" [projectile-vc] 1] #[514 "@@W\207" #1# 4 "\n\n(fn A B)"] 86 "Browse dirty projects" #[0 "\300 \207" [projectile-browse-dirty-projects] 1] #[514 "@@W\207" #1# 4 "\n\n(fn A B)"] 114 "Replace a string in the project." #[0 "\300 \207" [projectile-replace] 1] #[514 "@@W\207" #1# 4 "\n\n(fn A B)"] 82 "Regenerate the project's [e|g]tags." #[0 "\300 \207" [projectile-regenerate-tags] 1] #[514 "@@W\207" #1# 4 "\n\n(fn A B)"] 103 "Run grep on project." #[0 "\300 \207" [projectile-grep] 1] #[514 "@@W\207" #1# 4 "\n\n(fn A B)"] 97 "Run ag on project." #[0 "\300\301!\207" [call-interactively projectile-ag] 2] #[514 "@@W\207" #1# 4 "\n\n(fn A B)"] 115 "Switch project." #[0 "\300 \207" [projectile-switch-project] 1] #[514 "@@W\207" #1# 4 "\n\n(fn A B)"] 111 "Run multi-occur on project buffers." #[0 "\300 \207" [projectile-multi-occur] 1] #[514 "@@W\207" #1# 4 "\n\n(fn A B)"] 106 "Find tag in project." #[0 "\300 \207" [projectile-find-tag] 1] #[514 "@@W\207" #1# 4 "\n\n(fn A B)"] 107 "Kill all project buffers." #[0 "\300 \207" [projectile-kill-buffers] 1] #[514 "@@W\207" #1# 4 "\n\n(fn A B)"] 101 "Find recently visited file in project." #[0 "\300 \207" [projectile-recentf] 1] #[514 "@@W\207" #1# 4 "\n\n(fn A B)"]] 6 (#$ . 154290)])
2019-10-09 20:36:55 +02:00
#@125 Check the status of the current project.
If PROJECT-PATH is a project, check this one instead.
(fn &optional PROJECT-PATH)
2019-12-01 19:55:19 +01:00
(defalias 'projectile-check-vcs-status #[256 "\211\206\301 \302\212\303!\210\304 \203\305\306\307\"\210\202\f\212\310 \311\306\312\313\314!\315\"\316$\216\211\203F\211@eb\210\317\302\320#\203?\211B\262A\266\202\202)\210)\210)\321 \210)\207" [projectile-vcs-dirty-state projectile-project-root nil vc-dir vc-dir-busy sleep-for 0 100 match-data make-byte-code "\301\300\302\"\207" vconcat vector [set-match-data evaporate] 3 search-forward t kill-buffer] 10 (#$ . 157033)])
2019-10-09 20:36:55 +02:00
#@41 Cache of the last dirty projects check.
2019-12-01 19:55:19 +01:00
(defvar projectile-cached-dirty-projects-status nil (#$ . 157650))
2019-10-09 20:36:55 +02:00
#@148 Return the list of dirty projects.
The list is composed of sublists~: (project-path, project-status).
Raise an error if their is no dirty project.
2019-12-01 19:55:19 +01:00
(defalias 'projectile-check-vcs-status-of-known-projects #[0 "\302 \303\304\305\306\307!\310\"\311$\216\312\313!\210\314\211\203?\211@\315!\2038\316!\317\230\2048\320!\211\2037DB\262\210A\266\202\202\210\211G\304U\203K\312\321!\210\211\262)\207" [projectile-known-projects projectile-cached-dirty-projects-status current-window-configuration make-byte-code 0 "\301\300!\207" vconcat vector [set-window-configuration] 2 message "Checking for modifications in known projects..." nil projectile-keep-project-p projectile-project-vcs none projectile-check-vcs-status "No dirty projects have been found"] 8 (#$ . 157764)])
2019-10-09 20:36:55 +02:00
#@158 Browse dirty version controlled projects.
With a prefix argument, or if CACHED is non-nil, try to use the cached
dirty project list.
(fn &optional CACHED)
2019-12-01 19:55:19 +01:00
(defalias 'projectile-browse-dirty-projects #[256 "\211\203\f\203\f\202\301 \302G\303U\204$\211A\262\242@B\262\202\304\305\306\307$\207" [projectile-cached-dirty-projects-status projectile-check-vcs-status-of-known-projects nil 0 projectile-completing-read "Select project: " :action projectile-vc] 8 (#$ . 158556) "P"])
2019-10-09 20:36:55 +02:00
#@99 Repeat ORIG-FUN with ARGS until the current buffer is a project buffer.
(fn ORIG-FUN &rest ARGS)
2019-12-01 19:55:19 +01:00
(defalias 'projectile--repeat-until-project-buffer #[385 "\300 \203M\301\302\303\"\304 \305 G\306\211\203*\211@\211p=\204#\307\310#\210A\266\202\202\210\243\205L\211W\205L\311p\"?\205L\312\"\210\211T\262\2020\207\312\"\207" [projectile-project-root make-hash-table :test eq projectile-project-buffers buffer-list 0 puthash t gethash apply] 12 (#$ . 159055)])
2019-10-09 20:36:55 +02:00
#@128 In selected window switch to the next project buffer.
If the current buffer does not belong to a project, call `next-buffer'.
2019-12-01 19:55:19 +01:00
(defalias 'projectile-next-project-buffer #[0 "\300\301!\207" [projectile--repeat-until-project-buffer next-buffer] 2 (#$ . 159543) nil])
2019-10-09 20:36:55 +02:00
#@136 In selected window switch to the previous project buffer.
If the current buffer does not belong to a project, call `previous-buffer'.
2019-12-01 19:55:19 +01:00
(defalias 'projectile-previous-project-buffer #[0 "\300\301!\207" [projectile--repeat-until-project-buffer previous-buffer] 2 (#$ . 159815) nil])
2019-10-09 20:36:55 +02:00
#@44 Prompt for a variable and return its name.
2019-12-01 19:55:19 +01:00
(defalias 'projectile-read-variable #[0 "\301\302\303\304$\207" [obarray completing-read "Variable: " #[257 "\300!\205\n\301!?\207" [boundp keywordp] 3 "\n\n(fn V)"] t] 5 (#$ . 160102)])
2019-10-09 20:36:55 +02:00
(put 'projectile-skel-variable-cons 'no-self-insert t)
#@579 Insert a variable-name and a value in a cons-cell.
This is a skeleton command (see `skeleton-insert').
Normally the skeleton text is inserted at point, with nothing "inside".
If there is a highlighted region, the skeleton text is wrapped
around the region text.
A prefix argument ARG says to wrap the skeleton around the next ARG words.
A prefix argument of -1 says to wrap around region, even if not highlighted.
A prefix argument of zero says to wrap around zero words---that is, nothing.
This is a way of overriding the use of a highlighted region.
(fn &optional STR ARG)
2019-12-01 19:55:19 +01:00
(defalias 'projectile-skel-variable-cons #[512 "\300\301#\207" [skeleton-proxy-new ("Value: " "(" (projectile-read-variable) " . " str ")")] 6 (#$ . 160398) "*P\nP"])
2019-10-09 20:36:55 +02:00
(put 'projectile-skel-dir-locals 'no-self-insert t)
#@562 Insert a .dir-locals.el template.
This is a skeleton command (see `skeleton-insert').
Normally the skeleton text is inserted at point, with nothing "inside".
If there is a highlighted region, the skeleton text is wrapped
around the region text.
A prefix argument ARG says to wrap the skeleton around the next ARG words.
A prefix argument of -1 says to wrap around region, even if not highlighted.
A prefix argument of zero says to wrap around zero words---that is, nothing.
This is a way of overriding the use of a highlighted region.
(fn &optional STR ARG)
2019-12-01 19:55:19 +01:00
(defalias 'projectile-skel-dir-locals #[512 "\300\301#\207" [skeleton-proxy-new (nil "((nil . (" ("" '(projectile-skel-variable-cons) n) resume: ")))")] 6 (#$ . 161204) "*P\nP"])
2019-10-09 20:36:55 +02:00
#@54 Edit or create a .dir-locals.el file of the project.
2019-12-01 19:55:19 +01:00
(defalias 'projectile-edit-dir-locals #[0 "\300\301\302 \"\303!\210\304!?\205\305\216\306 )\207" [expand-file-name ".dir-locals.el" projectile-project-root find-file file-exists-p #[0 "\300 \207" [save-buffer] 1] projectile-skel-dir-locals] 3 (#$ . 161952) nil])
2019-10-09 20:36:55 +02:00
(byte-code "\300\301\302\303#\210\304\211\203(\211@\301N\203!\302N\204!\305\302\301N#\210A\266\202\202\210\306\301\302\303#\210\307\302\310\311\312DD\313\314\315\316\317\320\321& \207" [defvaralias projectile-mode-line-lighter projectile-mode-line-prefix nil (saved-value saved-variable-comment) put make-obsolete-variable custom-declare-variable funcall function #[0 "\300\207" [#1=" Projectile"] 1 #1#] "Mode line lighter prefix for Projectile.\nIt's used by `projectile-default-mode-line'\nwhen using dynamic mode line lighter and is the only\nthing shown in the mode line otherwise." :group projectile :type string :package-version (projectile . "0.12.0")] 10)
(defvar projectile--mode-line projectile-mode-line-prefix nil)
(make-variable-buffer-local 'projectile--mode-line)
#@47 Report project name and type in the modeline.
2019-12-01 19:55:19 +01:00
(defalias 'projectile-default-mode-line #[0 "\301 \302 \303\304\206\f\305\203\303\306\"\202\307$\207" [projectile-mode-line-prefix projectile-project-name projectile-project-type format "%s[%s%s]" "-" ":%s" ""] 9 (#$ . 163068)])
2019-10-09 20:36:55 +02:00
#@34 Update the Projectile mode-line.
2019-12-01 19:55:19 +01:00
(defalias 'projectile-update-mode-line #[0 " \302 \207" [projectile-mode-line-function projectile--mode-line force-mode-line-update] 2 (#$ . 163359)])
2019-10-09 20:36:55 +02:00
#@66 Keymap for Projectile commands after `projectile-keymap-prefix'.
2019-12-01 19:55:19 +01:00
(defvar projectile-command-map (byte-code "\300 \301\302\303#\210\301\304\305#\210\301\306\307#\210\301\310\311#\210\301\312\313#\210\301\314\315#\210\301\316\317#\210\301\320\321#\210\301\322\323#\210\301\324\325#\210\301\326\327#\210\301\330\331#\210\301\332\333#\210\301\334\335#\210\301\336\337#\210\301\340\341#\210\301\342\343#\210\301\344\345#\210\301\346\347#\210\301\350\351#\210\301\352\353#\210\301\354\355#\210\301\356\357#\210\301\360\361#\210\301\362\363#\210\301\364\365#\210\301\366\367#\210\301\370\371#\210\301\372\373#\210\301\374\375#\210\301\376\377#\210\301\201@\201A#\210\301\201B\201C#\210\301\201D\201E#\210\301\201F\201G#\210\301\201H\201I#\210\301\201J\201K#\210\301\201L\201M#\210\301\201N\201O#\210\301\201P\201Q#\210\301\201R\201S#\210\301\201T\201U#\210\301\201V\201W#\210\301\201X\201Y#\210\301\201Z\201[#\210\301\201\\\201]#\210\301\201^\201_#\210\301\201`\201a#\210\301\201b\201c#\210\301\201d\201e#\210\301\201f\201g#\210\301\201h\201i#\210\301\201j\201k#\210\301\201l\201m#\210\301\201n\201o#\210\301\201p\201q#\210\301\201r\201s#\210\211\207" [make-sparse-keymap define-key "4a" projectile-find-other-file-other-window "4b" projectile-switch-to-buffer-other-window "4" projectile-display-buffer "4d" projectile-find-dir-other-window "4D" projectile-dired-other-window "4f" projectile-find-file-other-window "4g" projectile-find-file-dwim-other-window "4t" projectile-find-implementation-or-test-other-window "5a" projectile-find-other-file-other-frame "5b" projectile-switch-to-buffer-other-frame "5d" projectile-find-dir-other-frame "5D" projectile-dired-other-frame "5f" projectile-find-file-other-frame "5g" projectile-find-file-dwim-other-frame "5t" projectile-find-implementation-or-test-other-frame "!" projectile-run-shell-command-in-root "&" projectile-run-async-shell-command-in-root "a" projectile-find-other-file "b" projectile-switch-to-buffer "C" projectile-configure-project "c" projectile-compile-project "d" projectile-find-dir "D" projectile-dired "e" projectile-recentf "E" projectile-edit-dir-locals "f" projectile-find-file "g" projectile-find-file-dwim "F" projectile-find-file-in-known-projects "i" projectile-invalidate-cache "I" projectile-ibuffer "j" projectile-find-tag "k" projectile-kill-buffers "l" projectile-find-file-in-directory "m" projectile-commander "o" projectile-multi-occur "p" projectile-switch-project "q" projectile-switch-open-project "P" projectile-test-project "r" projectile-replace "R" projectile-regenerate-tags "sg" projectile-grep "sr" projectile-ripgrep "ss" projectile-ag "S" projectile-save-project-buffers "t" projectile-toggle-between-implementation-and-test "T" projectile-find-test-file "u" projectile-run-project "v" projectile-vc "V" projectile-browse-dirty-projects "xe" projectile-run-eshell "xi" projectile-run-ielm "xt" projectile-run-term "xs" projectile-run-shell "z" projectile-cache-current-file [left] projectile-previous-project-buffer [right] projectile-next-project-buffer "" projectile-project-buffers-other-buffer] 5) (#$ . 163551))
2019-10-09 20:36:55 +02:00
(fset 'projectile-command-map projectile-command-map)
#@29 Keymap for Projectile mode.
2019-12-01 19:55:19 +01:00
(defvar projectile-mode-map (byte-code "\301 \203\f\302\303#\210\304\305!\210\306\307\310\311$\210\211\207" [projectile-keymap-prefix make-sparse-keymap define-key projectile-command-map (lambda (#1=#:def-tmp-var) (defvar projectile-mode-menu #1# #2="Menu for Projectile")) nil easy-menu-do-define projectile-mode-menu #2# ("Projectile" ["Find file" projectile-find-file] ["Find file in known projects" projectile-find-file-in-known-projects] ["Find test file" projectile-find-test-file] ["Find directory" projectile-find-dir] ["Find file in directory" projectile-find-file-in-directory] ["Find other file" projectile-find-other-file] ["Switch to buffer" projectile-switch-to-buffer] ["Jump between implementation file and test file" projectile-toggle-between-implementation-and-test] ["Kill project buffers" projectile-kill-buffers] ["Save project buffers" projectile-save-project-buffers] ["Recent files" projectile-recentf] ["Previous buffer" projectile-previous-project-buffer] ["Next buffer" projectile-next-project-buffer] "--" ["Toggle project wide read-only" projectile-toggle-project-read-only] ["Edit .dir-locals.el" projectile-edit-dir-locals] "--" ["Switch to project" projectile-switch-project] ["Switch to open project" projectile-switch-open-project] ["Discover projects in directory" projectile-discover-projects-in-directory] ["Browse dirty projects" projectile-browse-dirty-projects] ["Open project in dired" projectile-dired] "--" ["Search in project (grep)" projectile-grep] ["Search in project (ag)" projectile-ag] ["Replace in project" projectile-replace] ["Multi-occur in project" projectile-multi-occur] "--" ["Run shell" projectile-run-shell] ["Run eshell" projectile-run-eshell] ["Run ielm" projectile-run-ielm] ["Run term" projectile-run-term] "--" ["Cache current file" projectile-cache-current-file] ["Invalidate cache" projectile-invalidate-cache] ["Regenerate [e|g]tags" projectile-regenerate-tags] "--" ["Configure project" projectile-configure-project] ["Compile project" projectile-compile-project] ["Test project" projectile-test-project] ["Run project" projectile-run-project] ["Repeat last external command" projectile-repeat-last-command] "--" ["Project info" projectile-project-info] ["About" projectile-version])] 6) (#$ . 166831))
2019-10-09 20:36:55 +02:00
#@202 Called by `find-file-hook' when `projectile-mode' is on.
The function does pretty much nothing when triggered on remote files
as all the operations it normally performs are extremely slow over
tramp.
2019-12-01 19:55:19 +01:00
(defalias 'projectile-find-file-hook-function #[0 "\303!?\205 \203\304 \210\n\203\305 \210\306 \210\307 \207" [default-directory projectile-dynamic-mode-line projectile-auto-update-cache file-remote-p projectile-update-mode-line projectile-cache-files-find-file-hook projectile-track-known-projects-find-file-hook projectile-visit-project-tags-table] 2 (#$ . 169143)])
2019-10-09 20:36:55 +02:00
(byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313\314\315\316\313& \207" [custom-declare-variable projectile-mode funcall function #[0 "\300\207" [nil] 1] "Non-nil if Projectile mode is enabled.\nSee the `projectile-mode' command\nfor a description of this minor mode.\nSetting this variable directly does not take effect;\neither customize it (see the info node `Easy Customization')\nor call the function `projectile-mode'." :set custom-set-minor-mode :initialize custom-initialize-default :group projectile :type boolean :require] 14)
#@417 Minor mode to assist project management and navigation.
When called interactively, toggle `projectile-mode'. With prefix
ARG, enable `projectile-mode' if ARG is positive, otherwise disable
it.
When called from Lisp, enable `projectile-mode' if ARG is omitted,
nil or positive. If ARG is `toggle', toggle `projectile-mode'.
Otherwise behave as if called interactively.
\{projectile-mode-map}
(fn &optional ARG)
2019-12-01 19:55:19 +01:00
(defalias 'projectile-mode #[256 "\304 \305\300\306=\203\307\300!?\202\310!\311V\"\210\203a\312 \210 \204.\313\n!\206-\314\315\316\" \2047\314\315\316\"\317 \210\320 \210\321 \210\322\323\324\"\210\322\325\326\327#\210\322\330\326\327\211$\210\331\332\333\334#\210\331\335\336\337#\210\202v\340\323\324\"\210\340\330\326\327#\210\341\332\334\"\210\341\335\337\"\210\342\343\307\300!\203\202\344\202\203\345\"\210\346\347!\203\255\350\300!\210\304 \203\233\211\304 \232\203\255\351\352\353\307\300!\203\250\354\202\251\355#\266\210\356 \210\307\300!\207" [projectile-mode projectile-projects-cache projectile-cache-file projectile-projects-cache-time current-message set-default toggle default-value prefix-numeric-value 0 projectile-commander-bindings projectile-unserialize make-hash-table :test equal projectile-load-known-projects projectile--cleanup-known-projects projectile-discover-projects-in-search-path add-hook find-file-hook projectile-find-file-hook-function projectile-find-dir-hook projectile-track-known-projects-find-file-hook t dired-before-readin-hook advice-add compilation-find-file :around compilation-find-file-projectile-find-compilation-buffer delete-file :before delete-file-projectile-remove-from-cache remove-hook advice-remove run-hooks projectile-mode-hook projectile-mode-on-hook projectile-mode-off-hook called-interactively-p any customize-mark-as-set "" message "Projectile mode %sabled%s" "en" "dis" force-mode-line-update] 7 (#$ . 170278) (byte-code "\206\301C\207" [current-prefix-arg toggle] 1)])
2019-10-09 20:36:55 +02:00
(defvar projectile-mode-hook nil)
(byte-code "\301\302N\204\f\303\301\302\304#\210\305\306\307\310\211%\210\311\312\306\310#\210\313\312\306\314#\210\315\316!\207" [projectile-mode-map projectile-mode-hook variable-documentation put "Hook run after entering or leaving `projectile-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" add-minor-mode projectile-mode projectile--mode-line nil defalias projectile-global-mode make-obsolete "1.0" provide projectile] 6)