| commit | author | age | ||
| 5cb5f7 | 1 | ;ELC |
| C | 2 | ;;; Compiled |
| 3 | ;;; in Emacs version 26.1 | |
| 4 | ;;; with all optimizations. | |
| 5 | ||
| 6 | ;;; This file uses dynamic docstrings, first added in Emacs 19.29. | |
| 7 | ||
| 8 | ;;; This file does not contain utf-8 non-ASCII characters, | |
| 9 | ;;; and so can be loaded in Emacs versions earlier than 23. | |
| 10 | ||
| 11 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
| 12 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
| 13 | ||
| 14 | ||
| 15 | (byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\210\300\305!\210\300\306!\210\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\361&\210\322\362\324\325\363DD\364\313\310\330\365&\210\322\366\324\325\367DD\370\313\310\330\371&\210\372\366\373\374#\210\322\375\324\325\376DD\377\313\310\330\371&\210\322\201@ \324\325\201A DD\201B \313\310\330\371&\210\322\201C \324\325\201D DD\201E \313\310\330\371&\210\322\201F \324\325\201G DD\201H \313\310\330\201I \201J \201K & \210\322\201L \324\325\201M DD\201N \313\310\330\201O &\210\322\201P \324\325\201Q DD\201R \313\310\330\335&\210\322\201S \324\325\201T DD\201U \313\310\330\325&\210\322\201V \324\325\201W DD\201X \313\310\330\371\201J \201Y & \210\322\201Z \324\325\201[ DD\201\\ \313\310\330\325\201J \201] & \210\322\201^ \324\325\201_ DD\201` \313\310\330\201a &\210\322\201b \324\325\201c DD\201d \313\310\330\201e &\210\322\201f \324\325\201g DD\201h \313\310\330\201i &\210\322\201j \324\325\201k DD\201l \313\310\330\201m &\210\322\201n \324\325\201o DD\201p \313\310\330\201q &\210\322\201r \324\325\201s DD\201t \313\310\330\201u \201J \201v & \210\322\201w \324\325\201x DD\201y \313\310\330\201z &\210\322\201{ \324\325\201| DD\201} \201~ \201 \313\310\330\201\200 & \210\322\201\201 \324\325\201\202 DD\201\203 \313\310\330\201\204 \201J \201\205 & \210\322\201\206 \324\325\201\207 DD\201\210 \313\310\330\201\211 &\210\322\201\212 \324\325\201\213 DD\201\214 \313\310\330\201\215 \201J \201\216 & \210\322\201\217 \324\325\201\220 DD\201\221 \313\310\330\201\222 &\210\322\201\223 \324\325\201\224 DD\201\225 \313\310\330\201\222 &\210\322\201\226 \324\325\201\227 DD\201\230 \313\310\330\325&\210\322\201\231 \324\325\201\232 DD\201\233 \313\310\330\335&\210\322\201\234 \324\325\201\235 DD\201\236 \313\310\330\335&\210\322\201\237 \324\325\201\240 DD\201\241 \313\310\330\201\222 \201J \201\242 & \210\322\201\243 \324\325\201\244 DD\201\245 \313\310\330\325&\210\322\201\246 \324\325\201\247 DD\201\250 \313\310\330\325&\210\322\201\251 \324\325\201\252 DD\201\253 \313\310\330\335\201J \201\254 & \210\322\201\255 \324\325\201\256 DD\201\257 \313\310\330\325\201J \201\260 & \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 and 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 performance\npossible. This behaviour makes a lot of sense for most people,\nas they'd typically be putting ignores in their VCS config and\nwon't care about any additional ignores/unignores/sorting that\nProjectile might also provide.\n\nThe disadvantage of the hybrid and alien methods is that they are not well\nsupported on Windows systems. That's why by default alien indexing is the\ndefault on all operating systems, except Windows." :type (radio (const :tag "Native" native) (const :tag "Hybrid" hybrid) (const :tag "Alien" alien)) projectile-enable-caching #[0 "\301=\207" [projectile-indexing-method native] 2] "When t enables project files caching.\n\nProject caching is automatically enabled by default if you're\nusing the native indexing method." boolean projectile-kill-buffers-filter #[0 "\300\207" [kill-all] 1] "Determine which buffers are killed by `projectile-kill-buffers'.\n\nWhen the kill-all option is selected, kills each buffer.\n\nWhen the kill-only-files option is selected, kill only the buffer\nassociated to a file.\n\nOtherwise, it should be a predicate that takes one argument: the buffer to\nbe killed." (radio (const :tag "All project buffers" kill-all) (const :tag "Project file buffers" kill-only-files) (function :tag "Predicate")) projectile-file-exists-local-cache-expire #[0 "\300\207" [nil] 1] "Number of seconds before the local file existence cache expires.\nLocal refers to a file on a local file system.\n\nA value of nil disables this cache.\nSee `projectile-file-exists-p' for details." (choice (const :tag "Disabled" nil) (integer :tag "Seconds")) projectile-file-exists-remote-cache-expire #[0 "\300\207" [300] 1] "Number of seconds before the remote file existence cache expires.\nRemote refers to a file on a remote file system such as tramp.\n\nA value of nil disables this cache.\nSee `projectile-file-exists-p' for details." (choice (const :tag "Disabled" nil) (integer :tag "Seconds")) projectile-files-cache-expire #[0 "\300\207" [nil] 1] "Number of seconds before project files list cache expires.\n\nA value of nil means the cache never expires." (choice (const :tag "Disabled" nil) (integer :tag "Seconds")) projectile-require-project-root #[0 "\300\207" [prompt] 1] "Require the presence of a project root to operate when true.\nWhen set to 'prompt Projectile will ask you to select a project\ndirectory if you're not in a project.\n\nWhen nil Projectile will consider the current directory the project root." (choice (const :tag "No" nil) (const :tag "Yes" t) (const :tag "Prompt for project" prompt)) projectile-completion-system #[0 "\300\207" [ido] 1] "The completion system to be used by Projectile." (radio (const :tag "Ido" ido) (const :tag "Helm" helm) (const :tag "Ivy" ivy) (const :tag "Default" default) (function :tag "Custom function")) projectile-keymap-prefix #[0 "\300\207" [nil] 1] "Projectile keymap prefix." string make-obsolete-variable "Use (define-key projectile-mode-map (kbd ...) 'projectile-command-map) instead." "1.1.0" projectile-cache-file #[0 "\301\302\"\207" [user-emacs-directory expand-file-name "projectile.cache"] 3] "The name of Projectile's cache file." projectile-tags-file-name #[0 "\300\207" [#1="TAGS"] 1 #1#] "The tags filename Projectile's going to use." projectile-tags-command #[0 "\300\207" [#2="ctags -Re -f \"%s\" %s \"%s\""] 1 #2#] "The command Projectile's going to use to generate a TAGS file." projectile-tags-backend #[0 "\300\207" [auto] 1] "The tag backend that Projectile should use.\n\nIf set to 'auto', `projectile-find-tag' will automatically choose\nwhich backend to use. Preference order is ggtags -> xref\n-> etags-select -> `find-tag'. Variable can also be set to specify which\nbackend to use. If selected backend is unavailable, fall back to\n`find-tag'.\n\nIf this variable is set to 'auto' and ggtags is available, or if\nset to 'ggtags', then ggtags will be used for\n`projectile-regenerate-tags'. For all other settings\n`projectile-tags-command' will be used." (radio (const :tag "auto" auto) (const :tag "xref" xref) (const :tag "ggtags" ggtags) (const :tag "etags" etags-select) (const :tag "standard" find-tag)) :package-version (projectile . "0.14.0") projectile-sort-order #[0 "\300\207" [default] 1] "The sort order used for a project's files." (radio (const :tag "default" default) (const :tag "recentf" recentf) (const :tag "recently active" recently-active) (const :tag "access time" access-time) (const :tag "modification time" modification-time)) projectile-verbose #[0 "\300\207" [t] 1] "Echo messages that are not errors." projectile-buffers-filter-function #[0 "\300\207" [nil] 1] "A function used to filter the buffers in `projectile-project-buffers'.\n\nThe function should accept and return a list of Emacs buffers.\nTwo example filter functions are shipped by default -\n`projectile-buffers-with-file' and\n`projectile-buffers-with-file-or-process'." projectile-project-name #[0 "\300\207" [nil] 1] "If this value is non-nil, it will be used as project name.\n\nIt has precedence over function `projectile-project-name-function'." (projectile . "0.14.0") projectile-project-name-function #[0 "\300\207" [projectile-default-project-name] 1] "A function that receives the project-root and returns the project name.\n\nIf variable `projectile-project-name' is non-nil, this function will not be used." (projectile . "0.14.0") projectile-project-root-files #[0 "\300\207" [("rebar.config" "project.clj" "build.boot" "deps.edn" "SConstruct" "pom.xml" "build.sbt" "gradlew" "build.gradle" ".ensime" "Gemfile" "requirements.txt" "setup.py" "tox.ini" "composer.json" "Cargo.toml" "mix.exs" "stack.yaml" "info.rkt" "DESCRIPTION" "TAGS" "GTAGS" "configure.in" "configure.ac" "cscope.out")] 1] "A list of files considered to mark the root of a project.\nThe topmost match has precedence." (repeat string) projectile-project-root-files-bottom-up #[0 "\300\207" [(".projectile" ".git" ".hg" ".fslckout" "_FOSSIL_" ".bzr" "_darcs")] 1] "A list of files considered to mark the root of a project.\nThe bottommost (parentmost) match has precedence." (repeat string) projectile-project-root-files-top-down-recurring #[0 "\300\207" [(".svn" "CVS" "Makefile")] 1] "A list of files considered to mark the root of a project.\nThe search starts at the top and descends down till a directory\nthat contains a match file but its parent does not. Thus, it's a\nbottommost match in the topmost sequence of directories\ncontaining a root file." (repeat string) projectile-project-root-files-functions #[0 "\300\207" [(projectile-root-local projectile-root-bottom-up projectile-root-top-down projectile-root-top-down-recurring)] 1] "A list of functions for finding project roots." (repeat function) projectile-globally-ignored-files #[0 "C\207" [projectile-tags-file-name] 1] "A list of files globally ignored by projectile." (repeat string) projectile-globally-unignored-files #[0 "\300\207" [nil] 1] "A list of files globally unignored by projectile.\n\nRegular expressions can be used." (repeat string) (projectile . "0.14.0") projectile-globally-ignored-file-suffixes #[0 "\300\207" [nil] 1] "A list of file suffixes globally ignored by projectile." (repeat string) projectile-globally-ignored-directories #[0 "\300\207" [(".idea" ".ensime_cache" ".eunit" ".git" ".hg" ".fslckout" "_FOSSIL_" ".bzr" "_darcs" ".tox" ".svn" ".stack-work")] 1] "A list of directories globally ignored by projectile.\n\nRegular expressions can be used." :safe #[257 "\300\301\302\303\"\"?\207" [remq t mapcar stringp] 6 "\n\n(fn X)"] (repeat string) projectile-globally-unignored-directories #[0 "\300\207" [nil] 1] "A list of directories globally unignored by projectile." (repeat string) (projectile . "0.14.0") projectile-globally-ignored-modes #[0 "\300\207" [("erc-mode" "help-mode" "completion-list-mode" "Buffer-menu-mode" "gnus-.*-mode" "occur-mode")] 1] "A list of regular expressions for major modes ignored by projectile.\n\nIf a buffer is using a given major mode, projectile will ignore\nit for functions working with buffers." (repeat string) projectile-globally-ignored-buffers #[0 "\300\207" [nil] 1] "A list of buffer-names ignored by projectile.\n\nYou can use either exact buffer names or regular expressions.\nIf a buffer is in the list projectile will ignore it for\nfunctions working with buffers." (repeat string) (projectile . "0.12.0") projectile-find-file-hook #[0 "\300\207" [nil] 1] "Hooks run when a file is opened with `projectile-find-file'." hook projectile-find-dir-hook #[0 "\300\207" [nil] 1] "Hooks run when a directory is opened with `projectile-find-dir'." projectile-switch-project-action #[0 "\300\207" [projectile-find-file] 1] "Action invoked after switching projects with `projectile-switch-project'.\n\nAny function that does not take arguments will do." projectile-find-dir-includes-top-level #[0 "\300\207" [nil] 1] "If true, add top-level dir to options offered by `projectile-find-dir'." projectile-use-git-grep #[0 "\300\207" [nil] 1] "If true, use `vc-git-grep' in git projects." projectile-grep-finished-hook #[0 "\300\207" [nil] 1] "Hooks run when `projectile-grep' finishes." (projectile . "0.14.0") projectile-test-prefix-function #[0 "\300\207" [projectile-test-prefix] 1] "Function to find test files prefix based on PROJECT-TYPE." projectile-test-suffix-function #[0 "\300\207" [projectile-test-suffix] 1] "Function to find test files suffix based on PROJECT-TYPE." projectile-dynamic-mode-line #[0 "\300\207" [t] 1] "If true, update the mode-line dynamically.\nOnly file buffers are affected by this, as the update happens via\n`find-file-hook'.\n\nSee also `projectile-mode-line-function' and `projectile-update-mode-line'." (projectile . "1.1.0") projectile-mode-line-function #[0 "\300\207" [projectile-default-mode-line] 1] "The function to use to generate project-specific mode-line.\nThe default function adds the project name and type to the mode-line.\nSee also `projectile-update-mode-line'." (projectile . "1.1.0")] 14) | |
| 16 | #@74 The timer object created when `projectile-enable-idle-timer' is non-nil. | |
| 17 | (defvar projectile-idle-timer nil (#$ . 14381)) | |
| 18 | (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) | |
| 19 | #@76 A hashmap used to cache project file names to speed up related operations. | |
| 20 | (defvar projectile-projects-cache nil (#$ . 15670)) | |
| 21 | #@73 A hashmap used to record when we populated `projectile-projects-cache'. | |
| 22 | (defvar projectile-projects-cache-time nil (#$ . 15803)) | |
| 23 | #@53 Cached value of function `projectile-project-root`. | |
| 24 | (defvar projectile-project-root-cache (make-hash-table :test 'equal) (#$ . 15938)) | |
| 25 | #@70 A hashmap used to cache project type to speed up related operations. | |
| 26 | (defvar projectile-project-type-cache (make-hash-table :test 'equal) (#$ . 16079)) | |
| 27 | #@248 List of locations where we have previously seen projects. | |
| 28 | The list of projects is ordered by the time they have been accessed. | |
| 29 | ||
| 30 | See also `projectile-remove-known-project', | |
| 31 | `projectile-cleanup-known-projects' and `projectile-clear-known-projects'. | |
| 32 | (defvar projectile-known-projects nil (#$ . 16238)) | |
| 33 | #@158 List of known projects reference point. | |
| 34 | ||
| 35 | Contains a copy of `projectile-known-projects' when it was last | |
| 36 | synchronized with `projectile-known-projects-file'. | |
| 37 | (defvar projectile-known-projects-on-file nil (#$ . 16544)) | |
| 38 | (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\201A DD\201B \310\201C %\210\300\201D \302\303\201E DD\201F \306\307\310\330&\210\300\201G \302\303\201H DD\201I \306\307\310\201J &\210\300\201K \302\303\201L DD\201M \306\307\310\201J &\210\300\201N \302\303\201O DD\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\207" [#8="find . -type f -print0"] 1 #8#] "Command used by projectile to get the files in a generic project." projectile-vcs-dirty-state #[0 "\300\207" [("edited" "unregistered" "needs-update" "needs-merge" "unlocked-changes" "conflict")] 1] "List of states checked by `projectile-browse-dirty-projects'.\nPossible checked states are:\n\"edited\", \"unregistered\", \"needs-update\", \"needs-merge\",\n\"unlocked-changes\" and \"conflict\",\nas defined in `vc.el'." (repeat (string)) (projectile . "1.0.0") projectile-other-file-alist #[0 "\300\207" [(("cpp" "h" "hpp" "ipp") ("ipp" "h" "hpp" "cpp") ("hpp" "h" "ipp" "cpp" "cc") ("cxx" "h" "hxx" "ixx") ("ixx" "h" "hxx" "cxx") ("hxx" "h" "ixx" "cxx") ("c" "h") ("m" "h") ("mm" "h") ("h" "c" "cc" "cpp" "ipp" "hpp" "cxx" "ixx" "hxx" "m" "mm") ("cc" "h" "hh" "hpp") ("hh" "cc") ("vert" "frag") ("frag" "vert") (nil "lock" "gpg") ("lock" #9="") ("gpg" #9#))] 1] "Alist of extensions for switching to file with the same name,\n using other extensions based on the extension of current\n file." alist projectile-create-missing-test-files #[0 "\300\207" [nil] 1] "During toggling, if non-nil enables creating test files if not found.\n\nWhen not-nil, every call to projectile-find-implementation-or-test-*\ncreates test files if not found on the file system. Defaults to nil.\nIt assumes the test/ folder is at the same level as src/." projectile-after-switch-project-hook #[0 "\300\207" [nil] 1] "Hooks run right after project is switched." hook projectile-before-switch-project-hook #[0 "\300\207" [nil] 1] "Hooks run when right before project is switched." projectile-current-project-on-switch #[0 "\300\207" [remove] 1] "Determines whether to display current project when switching projects.\n\nWhen set to 'remove current project is not included, 'move-to-end\nwill display current project and the end of the list of known\nprojects, 'keep will leave the current project at the default\nposition." (radio (const :tag "Remove" remove) (const :tag "Move to end" move-to-end) (const :tag "Keep" keep))] 10) | |
| 39 | #@453 Get the Projectile version as string. | |
| 40 | ||
| 41 | If called interactively or if SHOW-VERSION is non-nil, show the | |
| 42 | version in the echo area and the messages buffer. | |
| 43 | ||
| 44 | The returned string includes both, the version from package.el | |
| 45 | and the library version, if both a present and different. | |
| 46 | ||
| 47 | If the version number could not be determined, signal an error, | |
| 48 | if called interactively, or if SHOW-VERSION is non-nil, otherwise | |
| 49 | just return nil. | |
| 50 | ||
| 51 | (fn &optional SHOW-VERSION) | |
| 52 | (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 (#$ . 22916) (list t)]) | |
| 53 | #@20 | |
| 54 | ||
| 55 | (fn LIST1 LIST2) | |
| 56 | (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 (#$ . 23654)]) | |
| 57 | #@53 Check to see if unixy text utilities are installed. | |
| 58 | (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 (#$ . 23873)]) | |
| 59 | #@43 Get the symbol or selected text at point. | |
| 60 | (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 (#$ . 24096)]) | |
| 61 | #@51 Get the symbol at point and strip its properties. | |
| 62 | (defalias 'projectile-symbol-at-point #[0 "\300\301\302!\206 \303!\207" [substring-no-properties thing-at-point symbol ""] 3 (#$ . 24361)]) | |
| 63 | #@112 Serialize DATA to FILENAME. | |
| 64 | ||
| 65 | The saved data can be restored with `projectile-unserialize'. | |
| 66 | ||
| 67 | (fn DATA FILENAME) | |
| 68 | (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 (#$ . 24559)]) | |
| 69 | #@78 Read data serialized by `projectile-serialize' from FILENAME. | |
| 70 | ||
| 71 | (fn FILENAME) | |
| 72 | (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 (#$ . 25085)]) | |
| 73 | #@44 Cached `projectile-file-exists-p' results. | |
| 74 | (defvar projectile-file-exists-cache (make-hash-table :test 'equal) (#$ . 25600)) | |
| 75 | #@61 Timer for scheduling`projectile-file-exists-cache-cleanup'. | |
| 76 | (defvar projectile-file-exists-cache-timer nil (#$ . 25731)) | |
| 77 | #@104 Removed timed out cache entries and reschedules or remove the | |
| 78 | timer if no more items are in the cache. | |
| 79 | (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 (#$ . 25859)]) | |
| 80 | #@115 Return t if file FILENAME exist. | |
| 81 | A wrapper around `file-exists-p' with additional caching support. | |
| 82 | ||
| 83 | (fn FILENAME) | |
| 84 | (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@\205F A\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 (#$ . 26445)]) | |
| 85 | #@177 Remove the current project's files from `projectile-projects-cache'. | |
| 86 | ||
| 87 | With a prefix argument PROMPT prompts for the name of the project whose cache | |
| 88 | to invalidate. | |
| 89 | ||
| 90 | (fn PROMPT) | |
| 91 | (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 (#$ . 27297) "P"]) | |
| 92 | #@52 Return the number of seconds since the unix epoch. | |
| 93 | (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 (#$ . 28283)]) | |
| 94 | #@102 Cache PROJECTs FILES. | |
| 95 | The cache is created both in memory and on the hard drive. | |
| 96 | ||
| 97 | (fn PROJECT FILES) | |
| 98 | (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 (#$ . 28570)]) | |
| 99 | #@62 Purge FILE from the cache of the current project. | |
| 100 | ||
| 101 | (fn FILE) | |
| 102 | (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 (#$ . 28928) (byte-code "\300\301\302 \"C\207" [projectile-completing-read "Remove file from cache: " projectile-current-project-files] 3)]) | |
| 103 | #@60 Purge DIR from the cache of the current project. | |
| 104 | ||
| 105 | (fn DIR) | |
| 106 | (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 (#$ . 29494) (byte-code "\300\301\302 \"C\207" [projectile-completing-read "Remove directory from cache: " projectile-current-project-dirs] 3)]) | |
| 107 | #@63 Check if FILE is already in PROJECT cache. | |
| 108 | ||
| 109 | (fn FILE PROJECT) | |
| 110 | (defalias 'projectile-file-cached-p #[514 "\301\"\235\207" [projectile-projects-cache gethash] 6 (#$ . 29997)]) | |
| 111 | #@46 Add the currently visited file to the cache. | |
| 112 | (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 (#$ . 30180) nil]) | |
| 113 | #@51 Function for caching files with `find-file-hook'. | |
| 114 | (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 (#$ . 30809)]) | |
| 115 | #@54 Function for caching projects with `find-file-hook'. | |
| 116 | (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 (#$ . 31090)]) | |
| 117 | #@74 Invalidate if FORCE or project's dirconfig newer than cache. | |
| 118 | ||
| 119 | (fn FORCE) | |
| 120 | (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 (#$ . 31385)]) | |
| 121 | #@186 Discover any projects in DIRECTORY and add them to the projectile cache. | |
| 122 | This function is not recursive and only adds projects with roots | |
| 123 | at the top level of DIRECTORY. | |
| 124 | ||
| 125 | (fn DIRECTORY) | |
| 126 | (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 (#$ . 31683) (byte-code "\300\301!C\207" [read-directory-name "Starting directory: "] 2)]) | |
| 127 | #@113 Discover projects in `projectile-project-search-path'. | |
| 128 | Invoked automatically when `projectile-mode' is enabled. | |
| 129 | (defalias 'projectile-discover-projects-in-search-path #[0 "\301\302\"\207" [projectile-project-search-path mapcar projectile-discover-projects-in-directory] 3 (#$ . 32268) nil]) | |
| 130 | (ad-add-advice 'delete-file '(purge-from-projectile-cache nil t (advice lambda (filename &optional trash) (if (and projectile-enable-caching (projectile-project-p)) (let* ((project-root (projectile-project-root)) (true-filename (file-truename filename)) (relative-filename (file-relative-name true-filename project-root))) (if (projectile-file-cached-p relative-filename project-root) (projectile-purge-file-from-cache relative-filename)))))) 'before nil) | |
| 131 | #@123 Return the parent directory of PATH. | |
| 132 | PATH may be a file or directory and directory paths may end with a slash. | |
| 133 | ||
| 134 | (fn PATH) | |
| 135 | (defalias 'projectile-parent #[257 "\300\301\300\302!!!!\207" [directory-file-name file-name-directory expand-file-name] 6 (#$ . 33023)]) | |
| 136 | #@371 Look up the directory hierarchy from FILE for a directory containing NAME. | |
| 137 | Stop at the first parent directory containing a file NAME, | |
| 138 | and return the directory. Return nil if not found. | |
| 139 | Instead of a string, NAME can also be a predicate taking one argument | |
| 140 | (a directory) and returning a non-nil value if that directory is the one for | |
| 141 | which we're looking. | |
| 142 | ||
| 143 | (fn FILE NAME) | |
| 144 | (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 (#$ . 33291)]) | |
| 145 | #@97 Defines a custom Projectile project root. | |
| 146 | This is intended to be used as a file local variable. | |
| 147 | (defvar projectile-project-root nil (#$ . 34091)) | |
| 148 | (make-variable-buffer-local 'projectile-project-root) | |
| 149 | #@62 A simple wrapper around `projectile-project-root'. | |
| 150 | ||
| 151 | (fn DIR) | |
| 152 | (defalias 'projectile-root-local #[257 "\207" [projectile-project-root] 2 (#$ . 34297)]) | |
| 153 | #@222 Identify a project root in DIR by top-down search for files in LIST. | |
| 154 | If LIST is nil, use `projectile-project-root-files' instead. | |
| 155 | Return the first (topmost) matched directory or nil if not found. | |
| 156 | ||
| 157 | (fn DIR &optional LIST) | |
| 158 | (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 (#$ . 34455)]) | |
| 159 | #@236 Identify a project root in DIR by bottom-up search for files in LIST. | |
| 160 | If LIST is nil, use `projectile-project-root-files-bottom-up' instead. | |
| 161 | Return the first (bottommost) matched directory or nil if not found. | |
| 162 | ||
| 163 | (fn DIR &optional LIST) | |
| 164 | (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 (#$ . 35103)]) | |
| 165 | #@297 Identify a project root in DIR by recurring top-down search for files in LIST. | |
| 166 | If LIST is nil, use `projectile-project-root-files-top-down-recurring' | |
| 167 | instead. Return the last (bottommost) matched directory in the | |
| 168 | topmost sequence of matched directories. Nil otherwise. | |
| 169 | ||
| 170 | (fn DIR &optional LIST) | |
| 171 | (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 (#$ . 35620)]) | |
| 172 | #@145 Retrieves the root directory of a project if available. | |
| 173 | If DIR is not supplied its set to the current directory by default. | |
| 174 | ||
| 175 | (fn &optional DIR) | |
| 176 | (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 (#$ . 36480)]) | |
| 177 | #@147 Ensure that DIR is non-nil. | |
| 178 | Useful for commands that expect the presence of a project. | |
| 179 | Controlled by `projectile-require-project-root'. | |
| 180 | ||
| 181 | (fn DIR) | |
| 182 | (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 (#$ . 37160)]) | |
| 183 | #@110 Check if DIR is a project. | |
| 184 | Defaults to the current directory if not provided | |
| 185 | explicitly. | |
| 186 | ||
| 187 | (fn &optional DIR) | |
| 188 | (defalias 'projectile-project-p #[256 "\301\206 !\207" [default-directory projectile-project-root] 3 (#$ . 37636)]) | |
| 189 | #@114 Default function used create project name to be displayed based on the value of PROJECT-ROOT. | |
| 190 | ||
| 191 | (fn PROJECT-ROOT) | |
| 192 | (defalias 'projectile-default-project-name #[257 "\300\301!!\207" [file-name-nondirectory directory-file-name] 4 (#$ . 37871)]) | |
| 193 | #@103 Return project name. | |
| 194 | If PROJECT is not specified acts on the current project. | |
| 195 | ||
| 196 | (fn &optional PROJECT) | |
| 197 | (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 (#$ . 38120)]) | |
| 198 | #@93 Get the list of PROJECT-DIR directories that are of interest to the user. | |
| 199 | ||
| 200 | (fn PROJECT-DIR) | |
| 201 | (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 (#$ . 38431)]) | |
| 202 | #@80 Checks if DIRECTORY is a string designating a valid directory. | |
| 203 | ||
| 204 | (fn DIRECTORY) | |
| 205 | (defalias 'projectile--directory-p #[257 "\211;\205 \300!\207" [file-directory-p] 3 (#$ . 38781)]) | |
| 206 | #@124 List the files in DIRECTORY and in its sub-directories. | |
| 207 | Files are returned as relative paths to DIRECTORY. | |
| 208 | ||
| 209 | (fn DIRECTORY) | |
| 210 | (defalias 'projectile-dir-files #[257 "\303!\204 \304\305\"\210\205 \306 \"\211\206= \307!\n\310\267\2027 \311!\202; \312\313!#\202; \313!\202; \314\315\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 #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (native 32 hybrid 38 alien 49)) projectile-dir-files-native projectile-adjust-files projectile-dir-files-alien user-error "Unsupported indexing method `%S'"] 8 (#$ . 38968)]) | |
| 211 | #@79 Get the files for ROOT under DIRECTORY using just Emacs Lisp. | |
| 212 | ||
| 213 | (fn DIRECTORY) | |
| 214 | (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 (#$ . 39708)]) | |
| 215 | #@240 Index DIRECTORY taking into account PATTERNS. | |
| 216 | The function calls itself recursively until all sub-directories | |
| 217 | have been indexed. The PROGRESS-REPORTER is updated while the | |
| 218 | function is executing. | |
| 219 | ||
| 220 | (fn DIRECTORY PATTERNS PROGRESS-REPORTER) | |
| 221 | (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 (#$ . 40201)]) | |
| 222 | #@67 Get the files for DIRECTORY using external tools. | |
| 223 | ||
| 224 | (fn DIRECTORY) | |
| 225 | (defalias 'projectile-dir-files-alien #[257 "\300!\211\301\267\202 \302\303!\"\304\"\244\202 \302\303!\"\207" [projectile-project-vcs #s(hash-table size 1 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (git 9)) projectile-files-via-ext-command projectile-get-ext-command projectile-get-sub-projects-files] 6 (#$ . 41106)]) | |
| 226 | (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 "1.1" projectile-get-repo-files] 4) | |
| 227 | #@150 Determine which external command to invoke based on the project's VCS. | |
| 228 | Fallback to a generic command when not in a VCS-controlled project. | |
| 229 | ||
| 230 | (fn VCS) | |
| 231 | (defalias 'projectile-get-ext-command #[257 "\211\306\267\202 \207 \207\n\207 \207\f\207 \207\207" [projectile-git-command projectile-hg-command projectile-fossil-command projectile-bzr-command projectile-darcs-command projectile-svn-command #s(hash-table size 6 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (git 6 hg 8 fossil 10 bzr 12 darcs 14 svn 16)) projectile-generic-command] 3 (#$ . 41747)]) | |
| 232 | #@133 Get the sub-projects command for VCS. | |
| 233 | Currently that's supported just for Git (sub-projects being Git | |
| 234 | sub-modules there). | |
| 235 | ||
| 236 | (fn VCS) | |
| 237 | (defalias 'projectile-get-sub-projects-command #[257 "\211\301=\203 \207\302\207" [projectile-git-submodule-command git ""] 3 (#$ . 42326)]) | |
| 238 | #@82 Determine which external command to invoke based on the project's VCS. | |
| 239 | ||
| 240 | (fn VCS) | |
| 241 | (defalias 'projectile-get-ext-ignored-command #[257 "\211\301=\205 \207" [projectile-git-ignored-command git] 3 (#$ . 42607)]) | |
| 242 | #@82 Take a nested list LST and return its contents as a single, flat list. | |
| 243 | ||
| 244 | (fn LST) | |
| 245 | (defalias 'projectile-flatten #[257 "\211<\203 \211A<\203 \300\301\"\207\211C\207" [cl-mapcan projectile-flatten] 4 (#$ . 42823)]) | |
| 246 | #@113 Get all sub-projects for a given project. | |
| 247 | ||
| 248 | PROJECT is base directory to start search recursively. | |
| 249 | ||
| 250 | (fn PROJECT) | |
| 251 | (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 (#$ . 43045)]) | |
| 252 | #@341 Get immediate sub-projects for a given project without recursing. | |
| 253 | ||
| 254 | PATH is the vcs root or project root from which to start | |
| 255 | searching, and should end with an appropriate path delimiter, such as | |
| 256 | '/' or a '\'. | |
| 257 | ||
| 258 | If the vcs get-sub-projects query returns results outside of path, | |
| 259 | they are excluded from the results of this function. | |
| 260 | ||
| 261 | (fn PATH) | |
| 262 | (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 (#$ . 43426)]) | |
| 263 | #@82 Get files from sub-projects for PROJECT-ROOT recursively. | |
| 264 | ||
| 265 | (fn PROJECT-ROOT VCS) | |
| 266 | (defalias 'projectile-get-sub-projects-files #[514 "\300\301\302\303!\"!\207" [projectile-flatten mapcar #[257 "\301\302\303\304\305\306!\307\"\310\311%\312\"\"\207" [projectile-git-command mapcar make-byte-code 257 "\300P\207" vconcat vector [] 3 "\n\n(fn FILE)" projectile-files-via-ext-command] 8 "\n\n(fn SUB-PROJECT)"] projectile-get-all-sub-projects] 7 (#$ . 44324)]) | |
| 267 | #@77 Get a list of the files ignored in the PROJECT using VCS. | |
| 268 | ||
| 269 | (fn PROJECT VCS) | |
| 270 | (defalias 'projectile-get-repo-ignored-files #[514 "\300!\211\205 \301\"\207" [projectile-get-ext-ignored-command projectile-files-via-ext-command] 6 (#$ . 44791)]) | |
| 271 | #@123 Get a list of the files ignored in the PROJECT in the directory DIR. | |
| 272 | VCS is the VCS of the project. | |
| 273 | ||
| 274 | (fn PROJECT DIR VCS) | |
| 275 | (defalias 'projectile-get-repo-ignored-directory #[771 "\300!\211\205 \301\302Q\"\207" [projectile-get-ext-ignored-command projectile-files-via-ext-command " "] 9 (#$ . 45043)]) | |
| 276 | #@186 Get a list of relative file names in the project ROOT by executing COMMAND. | |
| 277 | ||
| 278 | If `command' is nil or an empty string, return nil. | |
| 279 | This allows commands to be disabled. | |
| 280 | ||
| 281 | (fn ROOT COMMAND) | |
| 282 | (defalias 'projectile-files-via-ext-command #[514 "\211;\205 \301\302!\303\304#)\207" [default-directory split-string shell-command-to-string " " t] 6 (#$ . 45356)]) | |
| 283 | #@95 First remove ignored files from FILES, then add back unignored files. | |
| 284 | ||
| 285 | (fn PROJECT VCS FILES) | |
| 286 | (defalias 'projectile-adjust-files #[771 "\300\301!#\207" [projectile-add-unignored projectile-remove-ignored] 8 (#$ . 45717)]) | |
| 287 | #@211 Remove ignored files and folders from FILES. | |
| 288 | ||
| 289 | If ignored directory prefixed with '*', then ignore all | |
| 290 | directories/subdirectories with matching filename, | |
| 291 | otherwise operates relative to project root. | |
| 292 | ||
| 293 | (fn FILES) | |
| 294 | (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 (#$ . 45949)]) | |
| 295 | #@77 Filter FILES to retain only those that are ignored. | |
| 296 | ||
| 297 | (fn PROJECT VCS FILES) | |
| 298 | (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 (#$ . 47121)]) | |
| 299 | #@77 Get ignored files within each of DIRECTORIES. | |
| 300 | ||
| 301 | (fn PROJECT VCS DIRECTORIES) | |
| 302 | (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 (#$ . 47592)]) | |
| 303 | #@179 This adds unignored files to FILES. | |
| 304 | ||
| 305 | Useful because the VCS may not return ignored files at all. In | |
| 306 | this case unignored files will be absent from FILES. | |
| 307 | ||
| 308 | (fn PROJECT VCS FILES) | |
| 309 | (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 (#$ . 47885)]) | |
| 310 | #@58 Return only those BUFFERS backed by files. | |
| 311 | ||
| 312 | (fn BUFFERS) | |
| 313 | (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 (#$ . 48341)]) | |
| 314 | #@71 Return only those BUFFERS backed by files or processes. | |
| 315 | ||
| 316 | (fn BUFFERS) | |
| 317 | (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 (#$ . 48558)]) | |
| 318 | #@129 Get a list of a project's buffers. | |
| 319 | If PROJECT is not specified the command acts on the current project. | |
| 320 | ||
| 321 | (fn &optional PROJECT) | |
| 322 | (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 (#$ . 48831)]) | |
| 323 | #@66 Process the current project's buffers using ACTION. | |
| 324 | ||
| 325 | (fn ACTION) | |
| 326 | (defalias 'projectile-process-current-project-buffers #[257 "\300 \211\211\205 \211@!\210A\266\202\202 \262\207" [projectile-project-buffers] 6 (#$ . 49310)]) | |
| 327 | #@134 Get a list of a project's buffer files. | |
| 328 | If PROJECT is not specified the command acts on the current project. | |
| 329 | ||
| 330 | (fn &optional PROJECT) | |
| 331 | (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 (#$ . 49547)]) | |
| 332 | #@66 Check if BUFFER is under PROJECT-ROOT. | |
| 333 | ||
| 334 | (fn BUFFER PROJECT-ROOT) | |
| 335 | (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 (#$ . 50033)]) | |
| 336 | #@82 Check if BUFFER should be ignored. | |
| 337 | ||
| 338 | Regular expressions can be use. | |
| 339 | ||
| 340 | (fn BUFFER) | |
| 341 | (defalias 'projectile-ignored-buffer-p #[257 "r\211q\210\302\303\")\206 r\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 (#$ . 50500)]) | |
| 342 | #@132 Get list of recently active files. | |
| 343 | ||
| 344 | Files are ordered by recently active buffers, and then recently | |
| 345 | opened through use of recentf. | |
| 346 | (defalias 'projectile-recently-active-files #[0 "\300 \301\302\303 \"\"\207" [projectile-project-buffer-files append projectile-difference projectile-recentf-files] 6 (#$ . 51053)]) | |
| 347 | #@37 Get a list of project buffer names. | |
| 348 | (defalias 'projectile-project-buffer-names #[0 "\300\301\302 \"\207" [mapcar buffer-name projectile-project-buffers] 3 (#$ . 51374)]) | |
| 349 | #@60 Prepend the current project's name to STRING. | |
| 350 | ||
| 351 | (fn STRING) | |
| 352 | (defalias 'projectile-prepend-project-name #[257 "\300\301\302 #\207" [format "[%s] %s" projectile-project-name] 5 (#$ . 51550)]) | |
| 353 | #@146 Read the name of a buffer to switch to, prompting with PROMPT. | |
| 354 | ||
| 355 | This function excludes the current buffer from the offered | |
| 356 | choices. | |
| 357 | ||
| 358 | (fn PROMPT) | |
| 359 | (defalias 'projectile-read-buffer-to-switch #[257 "\300\301\302p!\303 \"\"\207" [projectile-completing-read delete buffer-name projectile-project-buffer-names] 6 (#$ . 51747)]) | |
| 360 | #@29 Switch to a project buffer. | |
| 361 | (defalias 'projectile-switch-to-buffer #[0 "\300\301\302!!\207" [switch-to-buffer projectile-read-buffer-to-switch "Switch to buffer: "] 3 (#$ . 52076) nil]) | |
| 362 | #@59 Switch to a project buffer and show it in another window. | |
| 363 | (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 (#$ . 52268) nil]) | |
| 364 | #@59 Switch to a project buffer and show it in another window. | |
| 365 | (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 (#$ . 52516) nil]) | |
| 366 | #@66 Display a project buffer in another window without selecting it. | |
| 367 | (defalias 'projectile-display-buffer #[0 "\300\301\302\303 \"!\207" [display-buffer projectile-completing-read "Display buffer: " projectile-project-buffer-names] 4 (#$ . 52762) nil]) | |
| 368 | #@111 Switch to the most recently selected buffer project buffer. | |
| 369 | Only buffers not visible in windows are returned. | |
| 370 | (defalias 'projectile-project-buffers-other-buffer #[0 "\300\301 @!\210\302\207" [switch-to-buffer projectile-project-buffers-non-visible t] 2 (#$ . 53018) nil]) | |
| 371 | #@44 Get a list of non visible project buffers. | |
| 372 | (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 (#$ . 53296)]) | |
| 373 | #@117 Do a `multi-occur' in the project's buffers. | |
| 374 | With a prefix argument, show NLINES of context. | |
| 375 | ||
| 376 | (fn &optional NLINES) | |
| 377 | (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 (#$ . 53559) "P"]) | |
| 378 | #@66 Remove leading `/' from the elements of PATTERNS. | |
| 379 | ||
| 380 | (fn PATTERNS) | |
| 381 | (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 (#$ . 53892)]) | |
| 382 | #@197 Expand the elements of PATHS. | |
| 383 | ||
| 384 | Elements containing wildcards are expanded and spliced into the | |
| 385 | resulting paths. The returned PATHS are absolute, based on the | |
| 386 | projectile project root. | |
| 387 | ||
| 388 | (fn PATHS) | |
| 389 | (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 (#$ . 54160)]) | |
| 390 | #@44 Remove paths from PATTERNS. | |
| 391 | ||
| 392 | (fn PATTERNS) | |
| 393 | (defalias 'projectile-normalise-patterns #[257 "\300\301\"\207" [cl-remove-if #[257 "\300\301\"\207" [string-prefix-p "/"] 4 "\n\n(fn PAT)"]] 4 (#$ . 54628)]) | |
| 394 | #@54 Make FILES relative to the project root. | |
| 395 | ||
| 396 | (fn FILES) | |
| 397 | (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 (#$ . 54838)]) | |
| 398 | #@89 Check if DIRECTORY should be ignored. | |
| 399 | ||
| 400 | Regular expressions can be used. | |
| 401 | ||
| 402 | (fn DIRECTORY) | |
| 403 | (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 (#$ . 55142)]) | |
| 404 | #@79 Check if FILE should be ignored. | |
| 405 | ||
| 406 | Regular expressions can be used. | |
| 407 | ||
| 408 | (fn FILE) | |
| 409 | (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 (#$ . 55532)]) | |
| 410 | #@49 Check if FILE meets PATTERN. | |
| 411 | ||
| 412 | (fn FILE PATTERN) | |
| 413 | (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 (#$ . 55901)]) | |
| 414 | #@130 Check if FILE should be ignored relative to DIRECTORY | |
| 415 | according to PATTERNS: (ignored . unignored) | |
| 416 | ||
| 417 | (fn FILE DIRECTORY PATTERNS) | |
| 418 | (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 (#$ . 56126)]) | |
| 419 | #@31 Return list of ignored files. | |
| 420 | (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 (#$ . 56613)]) | |
| 421 | #@37 Return list of ignored directories. | |
| 422 | (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 (#$ . 56901)]) | |
| 423 | #@59 Return list of ignored directories, relative to the root. | |
| 424 | (defalias 'projectile-ignored-directories-rel #[0 "\300\301 !\207" [projectile-make-relative-to-root projectile-ignored-directories] 2 (#$ . 57252)]) | |
| 425 | #@53 Return list of ignored files, relative to the root. | |
| 426 | (defalias 'projectile-ignored-files-rel #[0 "\300\301 !\207" [projectile-make-relative-to-root projectile-ignored-files] 2 (#$ . 57466)]) | |
| 427 | #@73 Return list of project ignored files. | |
| 428 | Unignored files are not included. | |
| 429 | (defalias 'projectile-project-ignored-files #[0 "\300\301\302 \"\207" [cl-remove-if file-directory-p projectile-project-ignored] 3 (#$ . 57662)]) | |
| 430 | #@85 Return list of project ignored directories. | |
| 431 | Unignored directories are not included. | |
| 432 | (defalias 'projectile-project-ignored-directories #[0 "\300\301\302 \"\207" [cl-remove-if-not file-directory-p projectile-project-ignored] 3 (#$ . 57886)]) | |
| 433 | #@41 Return a list of ignored project paths. | |
| 434 | (defalias 'projectile-paths-to-ignore #[0 "\300\301 A@!\207" [projectile-normalise-paths projectile-parse-dirconfig-file] 2 (#$ . 58132)]) | |
| 435 | #@42 Return a list of relative file patterns. | |
| 436 | (defalias 'projectile-patterns-to-ignore #[0 "\300\301 A@!\207" [projectile-normalise-patterns projectile-parse-dirconfig-file] 2 (#$ . 58317)]) | |
| 437 | #@97 Return list of project ignored files/directories. | |
| 438 | Unignored files/directories are not included. | |
| 439 | (defalias 'projectile-project-ignored #[0 "\300 \301!\207" [projectile-paths-to-ignore projectile-expand-paths] 3 (#$ . 58509)]) | |
| 440 | #@33 Return list of unignored files. | |
| 441 | (defalias 'projectile-unignored-files #[0 "\301\302\303\304 \"\"\207" [projectile-globally-unignored-files mapcar projectile-expand-root append projectile-project-unignored-files] 5 (#$ . 58741)]) | |
| 442 | #@39 Return list of unignored directories. | |
| 443 | (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 (#$ . 58977)]) | |
| 444 | #@61 Return list of unignored directories, relative to the root. | |
| 445 | (defalias 'projectile-unignored-directories-rel #[0 "\300\301 !\207" [projectile-make-relative-to-root projectile-unignored-directories] 2 (#$ . 59270)]) | |
| 446 | #@55 Return list of unignored files, relative to the root. | |
| 447 | (defalias 'projectile-unignored-files-rel #[0 "\300\301 !\207" [projectile-make-relative-to-root projectile-unignored-files] 2 (#$ . 59490)]) | |
| 448 | #@41 Return list of project unignored files. | |
| 449 | (defalias 'projectile-project-unignored-files #[0 "\300\301\302 \"\207" [cl-remove-if file-directory-p projectile-project-unignored] 3 (#$ . 59692)]) | |
| 450 | #@47 Return list of project unignored directories. | |
| 451 | (defalias 'projectile-project-unignored-directories #[0 "\300\301\302 \"\207" [cl-remove-if-not file-directory-p projectile-project-unignored] 3 (#$ . 59888)]) | |
| 452 | #@43 Return a list of unignored project paths. | |
| 453 | (defalias 'projectile-paths-to-ensure #[0 "\300\301\302 8!\207" [projectile-normalise-paths 2 projectile-parse-dirconfig-file] 3 (#$ . 60100)]) | |
| 454 | (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]) | |
| 455 | #@42 Return a list of relative file patterns. | |
| 456 | (defalias 'projectile-patterns-to-ensure #[0 "\300\301\302 8!\207" [projectile-normalise-patterns 2 projectile-parse-dirconfig-file] 3 (#$ . 60491)]) | |
| 457 | (defalias 'projectile-filtering-patterns #[0 "\300 \301 B\207" [projectile-patterns-to-ignore projectile-patterns-to-ensure] 2]) | |
| 458 | #@51 Return list of project ignored files/directories. | |
| 459 | (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 (#$ . 60817)]) | |
| 460 | #@59 Return the absolute path to the project's dirconfig file. | |
| 461 | (defalias 'projectile-dirconfig-file #[0 "\300\301\302 \"\207" [expand-file-name ".projectile" projectile-project-root] 3 (#$ . 61071)]) | |
| 462 | #@544 Parse project ignore file and return directories to ignore and keep. | |
| 463 | ||
| 464 | The return value will be a list of three elements, the car being | |
| 465 | the list of directories to keep, the cadr being the list of files | |
| 466 | or directories to ignore, and the caddr being the list of files | |
| 467 | or directories to ensure. | |
| 468 | ||
| 469 | Strings starting with + will be added to the list of directories | |
| 470 | to keep, and strings starting with - will be added to the list of | |
| 471 | directories to ignore. For backward compatibility, without a | |
| 472 | prefix the string will be assumed to be an ignore string. | |
| 473 | (defalias 'projectile-parse-dirconfig-file #[0 "\300\211\211\301 \302!\205\203 \303\304!r\211q\210\305\306\307\310\311!\312\"\313$\216\314!\210m\204b \300f\211\315\267\202S `T\316 {B\262\202[ `T\316 {B\262\202[ `T\316 {B\262\202[ `\316 {B\262\210\300y\210\202\" *\210\317\320\321\322\323!\"\"\317\324\321\322\323!\"\"\317\324\321\322\323!\"\"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 #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (43 46 45 59 33 71)) line-end-position mapcar #[257 "\300\301!!\207" [file-name-as-directory string-trim] 4 "\n\n(fn F)"] delete "" reverse string-trim] 12 (#$ . 61273)]) | |
| 474 | #@131 Expand NAME to project root. | |
| 475 | ||
| 476 | Never use on many files since it's going to recalculate the | |
| 477 | project-root for every file. | |
| 478 | ||
| 479 | (fn NAME) | |
| 480 | (defalias 'projectile-expand-root #[257 "\300\301 \"\207" [expand-file-name projectile-project-root] 4 (#$ . 62645)]) | |
| 481 | #@96 Present a project tailored PROMPT with CHOICES. | |
| 482 | ||
| 483 | (fn PROMPT CHOICES &key INITIAL-INPUT ACTION) | |
| 484 | (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\267\202\261 \313\306\211%\202\272 \314\306\211%\202\272 \315\316!\203\213 \315\317!\203\213 \316\320\317\321\322\323 \303\n\203| \n\306\262\f\202} \324&\325\326 \327\330&\202\272 \331\332!\202\272 \315\333!\203\253 \333\302\303\306\262\n\334\335&\202\272 \331\336!\202\272 \314\306\211%\262\203\306 !\202\307 \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 #s(hash-table size 4 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (ido 66 default 78 helm 90 ivy 145)) ido-completing-read completing-read fboundp helm 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-read :caller projectile-completing-read "Please install ivy from https://github.com/abo-abo/swiper"] 17 (#$ . 62900)]) | |
| 485 | #@65 Return a list of files for the PROJECT-ROOT. | |
| 486 | ||
| 487 | (fn PROJECT-ROOT) | |
| 488 | (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\204` \2037 \311\312!\210\f\313=\203C \314!\202U \315\316\317\320\321\322!\323\"\324\325%\326!\"\262 \203` \327\"\210\f\313=\203j \211\202m \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..." 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 (#$ . 64262)]) | |
| 489 | #@52 Return a list of the files in the current project. | |
| 490 | (defalias 'projectile-current-project-files #[0 "\300\301 !\207" [projectile-project-files projectile-project-root] 2 (#$ . 65247)]) | |
| 491 | #@64 Process the current project's files using ACTION. | |
| 492 | ||
| 493 | (fn ACTION) | |
| 494 | (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 (#$ . 65437)]) | |
| 495 | #@50 Return a list of dirs for PROJECT. | |
| 496 | ||
| 497 | (fn PROJECT) | |
| 498 | (defalias 'projectile-project-dirs #[257 "\300\301\302\303\304\305!\"\"!\207" [delete-dups delq nil mapcar file-name-directory projectile-project-files] 8 (#$ . 65724)]) | |
| 499 | #@48 Return a list of dirs for the current project. | |
| 500 | (defalias 'projectile-current-project-dirs #[0 "\300\301\302 !!\207" [projectile-project-dirs projectile-ensure-project projectile-project-root] 3 (#$ . 65951)]) | |
| 501 | #@440 Switch between files with the same name but different extensions. | |
| 502 | With FLEX-MATCHING, match any file that contains the base name of current file. | |
| 503 | Other file extensions can be customized with the variable | |
| 504 | `projectile-other-file-alist'. With FF-VARIANT set to a defun, use that | |
| 505 | instead of `find-file'. A typical example of such a defun would be | |
| 506 | `find-file-other-window' or `find-file-other-frame' | |
| 507 | ||
| 508 | (fn &optional FLEX-MATCHING FF-VARIANT) | |
| 509 | (defalias 'projectile--find-other-file #[512 "\211\206 \300\301\302 \303 #\211\203, \211G\304U\203 \211@\202 \305\306\"\307\310 \"!\262\202/ \311\312!\207" [find-file projectile-get-other-files buffer-file-name projectile-current-project-files 1 projectile-completing-read "Switch to: " expand-file-name projectile-project-root error "No other file found"] 9 (#$ . 66167)]) | |
| 510 | #@266 Switch between files with the same name but different extensions. | |
| 511 | With FLEX-MATCHING, match any file that contains the base name of current file. | |
| 512 | Other file extensions can be customized with the variable `projectile-other-file-alist'. | |
| 513 | ||
| 514 | (fn &optional FLEX-MATCHING) | |
| 515 | (defalias 'projectile-find-other-file #[256 "\300!\207" [projectile--find-other-file] 3 (#$ . 66995) "P"]) | |
| 516 | #@282 Switch between files with the same name but different extensions in other window. | |
| 517 | With FLEX-MATCHING, match any file that contains the base name of current file. | |
| 518 | Other file extensions can be customized with the variable `projectile-other-file-alist'. | |
| 519 | ||
| 520 | (fn &optional FLEX-MATCHING) | |
| 521 | (defalias 'projectile-find-other-file-other-window #[256 "\300\301\"\207" [projectile--find-other-file find-file-other-window] 4 (#$ . 67375) "P"]) | |
| 522 | #@282 Switch between files with the same name but different extensions in other window. | |
| 523 | With FLEX-MATCHING, match any file that contains the base name of current file. | |
| 524 | Other file extensions can be customized with the variable `projectile-other-file-alist'. | |
| 525 | ||
| 526 | (fn &optional FLEX-MATCHING) | |
| 527 | (defalias 'projectile-find-other-file-other-frame #[256 "\300\301\"\207" [projectile--find-other-file find-file-other-frame] 4 (#$ . 67812) "P"]) | |
| 528 | #@154 Return FILE-NAME sans any extensions. | |
| 529 | The extensions, in a filename, are what follows the first '.', with the exception of a leading '.' | |
| 530 | ||
| 531 | (fn FILE-NAME) | |
| 532 | (defalias 'projectile--file-name-sans-extensions #[257 "\300!\262\211\301\302\303\304#O\207" [file-name-nondirectory 0 string-match "\\..*" 1] 7 (#$ . 68247)]) | |
| 533 | #@147 Return FILE-NAME's extensions. | |
| 534 | The extensions, in a filename, are what follows the first '.', with the exception of a leading '.' | |
| 535 | ||
| 536 | (fn FILE-NAME) | |
| 537 | (defalias 'projectile--file-name-extensions #[257 "\300!\262\301\302\303\304#\211\262\203 T\202 G\301O\207" [file-name-nondirectory nil string-match "\\..*" 1] 7 (#$ . 68570)]) | |
| 538 | #@253 Return projectile-other-file-extensions associated to FILE-NAME's extensions. | |
| 539 | If no associated other-file-extensions for the complete (nested) extension are found, remove subextensions from FILENAME's extensions until a match is found. | |
| 540 | ||
| 541 | (fn FILE-NAME) | |
| 542 | (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\n 0\207" [projectile-other-file-alist projectile--file-name-extensions file-name-nondirectory nil break "" assoc throw] 6 (#$ . 68909)]) | |
| 543 | #@258 Narrow to files with the same names but different extensions. | |
| 544 | Returns a list of possible files for users to choose. | |
| 545 | ||
| 546 | With FLEX-MATCHING, match any file that contains the base name of current file | |
| 547 | ||
| 548 | (fn CURRENT-FILE PROJECT-FILE-LIST &optional FLEX-MATCHING) | |
| 549 | (defalias 'projectile-get-other-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 (#$ . 69459)]) | |
| 550 | #@164 Select a list of files based on filename at point. | |
| 551 | ||
| 552 | With a prefix arg INVALIDATE-CACHE invalidates the cache first. | |
| 553 | ||
| 554 | (fn PROJECT-FILES &optional INVALIDATE-CACHE) | |
| 555 | (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 (#$ . 70971)]) | |
| 556 | #@410 Jump to a project's files using completion based on context. | |
| 557 | ||
| 558 | With a INVALIDATE-CACHE invalidates the cache first. | |
| 559 | ||
| 560 | With FF-VARIANT set to a defun, use that instead of `find-file'. | |
| 561 | A typical example of such a defun would be `find-file-other-window' or | |
| 562 | `find-file-other-frame' | |
| 563 | ||
| 564 | Subroutine for `projectile-find-file-dwim' and | |
| 565 | `projectile-find-file-dwim-other-window' | |
| 566 | ||
| 567 | (fn INVALIDATE-CACHE &optional FF-VARIANT) | |
| 568 | (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 (#$ . 71661)]) | |
| 569 | #@1285 Jump to a project's files using completion based on context. | |
| 570 | ||
| 571 | With a prefix arg INVALIDATE-CACHE invalidates the cache first. | |
| 572 | ||
| 573 | If point is on a filename, Projectile first tries to search for that | |
| 574 | file in project: | |
| 575 | ||
| 576 | - If it finds just a file, it switches to that file instantly. This works even | |
| 577 | if the filename is incomplete, but there's only a single file in the current project | |
| 578 | that matches the filename at point. For example, if there's only a single file named | |
| 579 | "projectile/projectile.el" but the current filename is "projectile/proj" (incomplete), | |
| 580 | `projectile-find-file-dwim' still switches to "projectile/projectile.el" immediately | |
| 581 | because this is the only filename that matches. | |
| 582 | ||
| 583 | - If it finds a list of files, the list is displayed for selecting. A list of | |
| 584 | files is displayed when a filename appears more than one in the project or the | |
| 585 | filename at point is a prefix of more than two files in a project. For example, | |
| 586 | if `projectile-find-file-dwim' is executed on a filepath like "projectile/", it lists | |
| 587 | the content of that directory. If it is executed on a partial filename like | |
| 588 | "projectile/a", a list of files with character 'a' in that directory is presented. | |
| 589 | ||
| 590 | - If it finds nothing, display a list of all files in project for selecting. | |
| 591 | ||
| 592 | (fn &optional INVALIDATE-CACHE) | |
| 593 | (defalias 'projectile-find-file-dwim #[256 "\300!\207" [projectile--find-file-dwim] 3 (#$ . 72456) "P"]) | |
| 594 | #@1325 Jump to a project's files using completion based on context in other window. | |
| 595 | ||
| 596 | With a prefix arg INVALIDATE-CACHE invalidates the cache first. | |
| 597 | ||
| 598 | If point is on a filename, Projectile first tries to search for that | |
| 599 | file in project: | |
| 600 | ||
| 601 | - If it finds just a file, it switches to that file instantly. This works even | |
| 602 | if the filename is incomplete, but there's only a single file in the current project | |
| 603 | that matches the filename at point. For example, if there's only a single file named | |
| 604 | "projectile/projectile.el" but the current filename is "projectile/proj" (incomplete), | |
| 605 | `projectile-find-file-dwim-other-window' still switches to "projectile/projectile.el" | |
| 606 | immediately because this is the only filename that matches. | |
| 607 | ||
| 608 | - If it finds a list of files, the list is displayed for selecting. A list of | |
| 609 | files is displayed when a filename appears more than one in the project or the | |
| 610 | filename at point is a prefix of more than two files in a project. For example, | |
| 611 | if `projectile-find-file-dwim-other-window' is executed on a filepath like "projectile/", it lists | |
| 612 | the content of that directory. If it is executed on a partial filename | |
| 613 | like "projectile/a", a list of files with character 'a' in that directory | |
| 614 | is presented. | |
| 615 | ||
| 616 | - If it finds nothing, display a list of all files in project for selecting. | |
| 617 | ||
| 618 | (fn &optional INVALIDATE-CACHE) | |
| 619 | (defalias 'projectile-find-file-dwim-other-window #[256 "\300\301\"\207" [projectile--find-file-dwim find-file-other-window] 4 (#$ . 73854) "P"]) | |
| 620 | #@1322 Jump to a project's files using completion based on context in other frame. | |
| 621 | ||
| 622 | With a prefix arg INVALIDATE-CACHE invalidates the cache first. | |
| 623 | ||
| 624 | If point is on a filename, Projectile first tries to search for that | |
| 625 | file in project: | |
| 626 | ||
| 627 | - If it finds just a file, it switches to that file instantly. This works even | |
| 628 | if the filename is incomplete, but there's only a single file in the current project | |
| 629 | that matches the filename at point. For example, if there's only a single file named | |
| 630 | "projectile/projectile.el" but the current filename is "projectile/proj" (incomplete), | |
| 631 | `projectile-find-file-dwim-other-frame' still switches to "projectile/projectile.el" | |
| 632 | immediately because this is the only filename that matches. | |
| 633 | ||
| 634 | - If it finds a list of files, the list is displayed for selecting. A list of | |
| 635 | files is displayed when a filename appears more than one in the project or the | |
| 636 | filename at point is a prefix of more than two files in a project. For example, | |
| 637 | if `projectile-find-file-dwim-other-frame' is executed on a filepath like "projectile/", it lists | |
| 638 | the content of that directory. If it is executed on a partial filename | |
| 639 | like "projectile/a", a list of files with character 'a' in that directory | |
| 640 | is presented. | |
| 641 | ||
| 642 | - If it finds nothing, display a list of all files in project for selecting. | |
| 643 | ||
| 644 | (fn &optional INVALIDATE-CACHE) | |
| 645 | (defalias 'projectile-find-file-dwim-other-frame #[256 "\300\301\"\207" [projectile--find-file-dwim find-file-other-frame] 4 (#$ . 75333) "P"]) | |
| 646 | #@302 Jump to a project's file using completion. | |
| 647 | With INVALIDATE-CACHE invalidates the cache first. With FF-VARIANT set to a | |
| 648 | defun, use that instead of `find-file'. A typical example of such a defun | |
| 649 | would be `find-file-other-window' or `find-file-other-frame' | |
| 650 | ||
| 651 | (fn INVALIDATE-CACHE &optional FF-VARIANT) | |
| 652 | (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 (#$ . 76806) "P"]) | |
| 653 | #@141 Jump to a project's file using completion. | |
| 654 | With a prefix arg INVALIDATE-CACHE invalidates the cache first. | |
| 655 | ||
| 656 | (fn &optional INVALIDATE-CACHE) | |
| 657 | (defalias 'projectile-find-file #[256 "\300!\207" [projectile--find-file] 3 (#$ . 77476) "P"]) | |
| 658 | #@172 Jump to a project's file using completion and show it in another window. | |
| 659 | ||
| 660 | With a prefix arg INVALIDATE-CACHE invalidates the cache first. | |
| 661 | ||
| 662 | (fn &optional INVALIDATE-CACHE) | |
| 663 | (defalias 'projectile-find-file-other-window #[256 "\300\301\"\207" [projectile--find-file find-file-other-window] 4 (#$ . 77719) "P"]) | |
| 664 | #@171 Jump to a project's file using completion and show it in another frame. | |
| 665 | ||
| 666 | With a prefix arg INVALIDATE-CACHE invalidates the cache first. | |
| 667 | ||
| 668 | (fn &optional INVALIDATE-CACHE) | |
| 669 | (defalias 'projectile-find-file-other-frame #[256 "\300\301\"\207" [projectile--find-file find-file-other-frame] 4 (#$ . 78034) "P"]) | |
| 670 | #@27 Toggle project read only. | |
| 671 | (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 (#$ . 78345) nil]) | |
| 672 | #@62 Sort FILES according to `projectile-sort-order'. | |
| 673 | ||
| 674 | (fn FILES) | |
| 675 | (defalias 'projectile-sort-files #[257 "\301\267\202 \207\302!\207\303!\207\304!\207\207" [projectile-sort-order #s(hash-table size 4 test eql rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (default 6 recentf 7 recently-active 11 modification-time 15)) projectile-sort-by-recentf-first projectile-sort-by-recently-active-first projectile-sort-by-modification-time] 3 (#$ . 78850)]) | |
| 676 | #@50 Sort FILES by a recent first scheme. | |
| 677 | ||
| 678 | (fn FILES) | |
| 679 | (defalias 'projectile-sort-by-recentf-first #[257 "\300 \301\302\"\"\207" [projectile-recentf-files append projectile-difference] 7 (#$ . 79313)]) | |
| 680 | #@73 Sort FILES by most recently active buffers or opened files. | |
| 681 | ||
| 682 | (fn FILES) | |
| 683 | (defalias 'projectile-sort-by-recently-active-first #[257 "\300 \301\302\"\"\207" [projectile-recently-active-files append projectile-difference] 7 (#$ . 79518)]) | |
| 684 | #@46 Sort FILES by modification time. | |
| 685 | ||
| 686 | (fn FILES) | |
| 687 | (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 (#$ . 79762)]) | |
| 688 | #@40 Sort FILES by access time. | |
| 689 | ||
| 690 | (fn FILES) | |
| 691 | (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 (#$ . 80082)]) | |
| 692 | #@301 Jump to a project's directory using completion. | |
| 693 | ||
| 694 | With INVALIDATE-CACHE invalidates the cache first. With DIRED-VARIANT set to a | |
| 695 | defun, use that instead of `dired'. A typical example of such a defun would be | |
| 696 | `dired-other-window' or `dired-other-frame' | |
| 697 | ||
| 698 | (fn INVALIDATE-CACHE &optional DIRED-VARIANT) | |
| 699 | (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 (#$ . 80391)]) | |
| 700 | #@147 Jump to a project's directory using completion. | |
| 701 | ||
| 702 | With a prefix arg INVALIDATE-CACHE invalidates the cache first. | |
| 703 | ||
| 704 | (fn &optional INVALIDATE-CACHE) | |
| 705 | (defalias 'projectile-find-dir #[256 "\300!\207" [projectile--find-dir] 3 (#$ . 80991) "P"]) | |
| 706 | #@163 Jump to a project's directory in other window using completion. | |
| 707 | ||
| 708 | With a prefix arg INVALIDATE-CACHE invalidates the cache first. | |
| 709 | ||
| 710 | (fn &optional INVALIDATE-CACHE) | |
| 711 | (defalias 'projectile-find-dir-other-window #[256 "\300\301\"\207" [projectile--find-dir dired-other-window] 4 (#$ . 81238) "P"]) | |
| 712 | #@163 Jump to a project's directory in other window using completion. | |
| 713 | ||
| 714 | With a prefix arg INVALIDATE-CACHE invalidates the cache first. | |
| 715 | ||
| 716 | (fn &optional INVALIDATE-CACHE) | |
| 717 | (defalias 'projectile-find-dir-other-frame #[256 "\300\301\"\207" [projectile--find-dir dired-other-frame] 4 (#$ . 81538) "P"]) | |
| 718 | #@16 | |
| 719 | ||
| 720 | (fn PROJECT) | |
| 721 | (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 (#$ . 81835)]) | |
| 722 | #@147 Jump to a project's test file using completion. | |
| 723 | ||
| 724 | With a prefix arg INVALIDATE-CACHE invalidates the cache first. | |
| 725 | ||
| 726 | (fn &optional INVALIDATE-CACHE) | |
| 727 | (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 (#$ . 82082) "P"]) | |
| 728 | #@41 Return only the test FILES. | |
| 729 | ||
| 730 | (fn FILES) | |
| 731 | (defalias 'projectile-test-files #[257 "\300\301\"\207" [cl-remove-if-not projectile-test-file-p] 4 (#$ . 82518)]) | |
| 732 | #@42 Check if FILE is a test file. | |
| 733 | ||
| 734 | (fn FILE) | |
| 735 | (defalias 'projectile-test-file-p #[257 "\302\303\304\305\306\307!\310\"\311\312%\313\314\315 !C\"\"\2061 \302\303\304\316\306\307!\317\"\320\312%\313\314 \315 !C\"\"\207" [projectile-test-prefix-function projectile-test-suffix-function cl-some make-byte-code 257 "\301\302\300!\"\207" vconcat vector [string-prefix-p file-name-nondirectory] 5 "\n\n(fn PAT)" delq nil projectile-project-type "\301\302\303\300!!\"\207" [string-suffix-p file-name-sans-extension file-name-nondirectory] 6] 8 (#$ . 82680)]) | |
| 736 | #@54 Return a list of test files for the current project. | |
| 737 | (defalias 'projectile-current-project-test-files #[0 "\300\301 !\207" [projectile-test-files projectile-current-project-files] 2 (#$ . 83239)]) | |
| 738 | #@179 An alist holding all project types that are known to Projectile. | |
| 739 | The project types are symbols and they are linked to plists holding | |
| 740 | the properties of the various project types. | |
| 741 | (defvar projectile-project-types nil (#$ . 83443)) | |
| 742 | #@930 Register a project type with projectile. | |
| 743 | ||
| 744 | A project type is defined by PROJECT-TYPE, a set of MARKER-FILES, | |
| 745 | and optional keyword arguments: | |
| 746 | COMPILATION-DIR the directory to run the tests- and compilations in, | |
| 747 | CONFIGURE which specifies a command that configures the project | |
| 748 | `%s' in the command will be substituted with (projectile-project-root) | |
| 749 | before the command is run, | |
| 750 | COMPILE which specifies a command that builds the project, | |
| 751 | TEST which specified a command that tests the project, | |
| 752 | RUN which specifies a command that runs the project, | |
| 753 | TEST-SUFFIX which specifies test file suffix, and | |
| 754 | TEST-PREFIX which specifies test file prefix. | |
| 755 | SRC-DIR which specifies the path to the source relative to the project root. | |
| 756 | TEST-DIR which specifies the path to the tests relative to the project root. | |
| 757 | ||
| 758 | (fn PROJECT-TYPE MARKER-FILES &key COMPILATION-DIR CONFIGURE COMPILE TEST RUN TEST-SUFFIX TEST-PREFIX SRC-DIR TEST-DIR) | |
| 759 | (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@ \211\203g \211@\313>\203O \211AA\262\202< \314 >A@\203^ \315\262\202< \316\317@\"\210\202< \210\320 \321 \322\f\323 \324\325\257\f\203\207 \326\327#\210\203\222 \326\330#\210\203\234 \326\331#\210\203\246 \326\332#\210\fBB\211\262\207" [projectile-project-types plist-member :compilation-dir :configure :compile :test :run :test-suffix :test-prefix :src-dir :test-dir (:compilation-dir :configure :compile :test :run :test-suffix :test-prefix :src-dir :test-dir :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)" marker-files compilation-dir configure-command compile-command test-command run-command plist-put test-suffix test-prefix src-dir test-dir] 24 (#$ . 83679)]) | |
| 760 | #@67 Check if a project contains *.cabal files but no stack.yaml file. | |
| 761 | (defalias 'projectile-cabal-project-p #[0 "\300\301!\205\n \302\303!?\207" [projectile-verify-file-wildcard "*.cabal" projectile-verify-file "stack.yaml"] 2 (#$ . 85614)]) | |
| 762 | #@46 Check if a project contains Go source files. | |
| 763 | (defalias 'projectile-go-project-p #[0 "\300\301!\207" [projectile-verify-file-wildcard "*.go"] 2 (#$ . 85858)]) | |
| 764 | (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\324\333\326\334\330\335&\210\321\336\337\324\340\326\341\330\342&\210\321\343\344\345\346\347\350\324\351\326\352&\n\210\321\353\354\324\355\326\355&\210\321\356\357\324\360\326\361&\210\321\362\363\347\364\324\365\326\366&\210\321\367\370\324\371\326\372\330\373&\210\321\374\375\324\376\326\377\330\201@ &\210\321\201A \201B \324\201C \201D \201E \326\201F \330\335&\n\210\321\201G \201H \324\201I \326\201J &\210\321\201K \201L \324\201M \326\201N &\210\321\201O \201P \324\201Q \326\201R \330\201S &\210\321\201T \201U \324\201V \201W \201X \326\201Y &\210\321\201Z \201[ \324\201\\ \326\201] \201^ \201_ \330\335&\n\210\321\201` \201a \324\201b \326\201c \201^ \201_ \330\335&\n\210\321\201d \201e \324\201f \326\201c \201^ \201_ \330\335&\n\210\321\201g \201h \324\201i \326\201j \201^ \201_ \330\335&\n\210\321\201k \201l \324\201m \326\201n \201^ \201_ \330\335&\n\210\321\201o \201p \324\201q \326\201r \330\373\201D \201s \201t \201u &\f\210\321\201v \201w \324\201x \326\201y \330\331&\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\335&\210\321\201\212 \201\213 \324\201\210 \326\201\214 \201^ \201\215 &\210\321\201\216 \201\217 \324\201\220 \326\201\221 \330\335&\210\321\201\222 \201\223 \330\335$\210\321\201\224 \201\225 \324\201\226 \201D \201E \326\201\227 \201t \201\230 \330\201\231 &\f\210\321\201\232 \201\233 \324\201\226 \201D \201E \326\201\234 \330\335&\n\210\321\201\235 \201\236 \324\201\237 \201D \201E \326\201\234 \330\335&\n\210\321\201\240 \201\241 \324\201\237 \201D \201E \326\201\227 \201t \201\230 \330\201\231 &\f\210\321\201\242 \201\243 \201D \201\244 \326\201\245 \201t \201\230 \330\201\231 &\n\210\321\201\246 \201\247 \324\201\250 \201^ \201\251 \330\201\252 &\210\321\201\253 \201\254 \324\201\255 \326\201\256 \201\257 Q&\210\321\201\260 \201\261 \324\201\262 \326\201\263 \330\331&\210\321\201\264 \201\265 \324\201\266 \326\201\267 &\210\321\201\270 \201\271 \326\201\272 $\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" 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" :run "ng serve" "ng test" django ("manage.py") "python manage.py runserver" "python manage.py test" :test-prefix "test_" python-pip ("requirements.txt") "python setup.by build" "python -m unittest discover" python-pkg ("setup.py") "python setup.py build" python-tox ("tox.ini") "tox -r --notest" "tox" python-pipenv ("Pipfile") "pipenv run build" "pipenv run test" maven ("pom.xml") "mvn clean install" "mvn test" "main/src/" :test-dir "main/test/" gradle ("build.gradle") "gradle build" "gradle test" gradlew ("gradlew") "./gradlew build" "./gradlew test" grails ("application.properties" "grails-app") "grails package" "grails test-app" sbt ("build.sbt") "sbt compile" "sbt test" lein-test ("project.clj") "lein compile" "lein test" lein-midje ("project.clj" ".midje.clj") "lein midje" "t_" boot-clj ("build.boot") "boot aot" "boot test" clojure-cli ("deps.edn") ruby-rspec ("Gemfile" "lib" "spec") "bundle exec rake" "bundle exec rspec" "spec/" "_spec" ruby-test ("Gemfile" "lib" "test") "bundle exec rake test" rails-test ("Gemfile" "app" "lib" "db" "config" "test") "bundle exec rails server" rails-rspec ("Gemfile" "app" "lib" "db" "config" "spec") crystal-spec ("shard.yml") "src/" "crystal spec" emacs-cask ("Cask") "cask install" "test-" "-test" r ("DESCRIPTION") "R CMD INSTALL --with-keep.source ." "R CMD check -o " " ." haskell-stack ("stack.yaml") "stack build" "stack build --test" rust-cargo ("Cargo.toml") "cargo build" "cargo test" racket ("info.rkt") "raco test ."] 13) | |
| 765 | #@110 Buffer local var for overriding the auto-detected project type. | |
| 766 | Normally you'd set this from .dir-locals.el. | |
| 767 | (defvar projectile-project-type nil (#$ . 91064)) | |
| 768 | (byte-code "\300\301!\210\302\301\303\304#\207" [make-variable-buffer-local projectile-project-type put safe-local-variable symbolp] 4) | |
| 769 | #@112 Detect the type of the current project. | |
| 770 | Fallsback to a generic project type when the type can't be determined. | |
| 771 | (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 (#$ . 91366)]) | |
| 772 | #@204 Determine a project's type based on its structure. | |
| 773 | When DIR is specified it checks it, otherwise it acts | |
| 774 | on the current project. | |
| 775 | ||
| 776 | The project type is cached for improved performance. | |
| 777 | ||
| 778 | (fn &optional DIR) | |
| 779 | (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 (#$ . 91859)]) | |
| 780 | #@35 Display info for current project. | |
| 781 | (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 (#$ . 92329) nil]) | |
| 782 | #@67 Check whether all FILES exist in the current project. | |
| 783 | ||
| 784 | (fn FILES) | |
| 785 | (defalias 'projectile-verify-files #[257 "\300\301\"\207" [cl-every projectile-verify-file] 4 (#$ . 92598)]) | |
| 786 | #@62 Check whether FILE exists in the current project. | |
| 787 | ||
| 788 | (fn FILE) | |
| 789 | (defalias 'projectile-verify-file #[257 "\300\301!!\207" [file-exists-p projectile-expand-root] 4 (#$ . 92780)]) | |
| 790 | #@127 Check whether FILE exists in the current project. | |
| 791 | Expands wildcards using `file-expand-wildcards' before checking. | |
| 792 | ||
| 793 | (fn FILE) | |
| 794 | (defalias 'projectile-verify-file-wildcard #[257 "\300\301!!\207" [file-expand-wildcards projectile-expand-root] 4 (#$ . 92962)]) | |
| 795 | #@156 Determine the VCS used by the project if any. | |
| 796 | PROJECT-ROOT is the targeted directory. If nil, use | |
| 797 | `projectile-project-root'. | |
| 798 | ||
| 799 | (fn &optional PROJECT-ROOT) | |
| 800 | (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 (#$ . 93226)]) | |
| 801 | #@78 Determine the name of the test file for IMPL-FILE-PATH. | |
| 802 | ||
| 803 | (fn IMPL-FILE-PATH) | |
| 804 | (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 (#$ . 94063)]) | |
| 805 | #@61 Create a test file for IMPL-FILE-PATH. | |
| 806 | ||
| 807 | (fn IMPL-FILE-PATH) | |
| 808 | (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 (#$ . 94512)]) | |
| 809 | #@173 Given a FILE-NAME return the matching implementation or test filename. | |
| 810 | ||
| 811 | If `projectile-create-missing-test-files' is non-nil, create the missing | |
| 812 | test file. | |
| 813 | ||
| 814 | (fn FILE-NAME) | |
| 815 | (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 (#$ . 95029)]) | |
| 816 | #@60 Open matching implementation or test file in other window. | |
| 817 | (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 (#$ . 95788) nil]) | |
| 818 | #@59 Open matching implementation or test file in other frame. | |
| 819 | (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 (#$ . 96044) nil]) | |
| 820 | #@58 Toggle between an implementation file and its test file. | |
| 821 | (defalias 'projectile-toggle-between-implementation-and-test #[0 "\300\301\302 !!\207" [find-file projectile-find-implementation-or-test buffer-file-name] 3 (#$ . 96297) nil]) | |
| 822 | #@165 Return the value of some PROJECT-TYPE attribute identified by KEY. | |
| 823 | Fallback to DEFAULT-VALUE for missing attributes. | |
| 824 | ||
| 825 | (fn PROJECT-TYPE KEY &optional DEFAULT-VALUE) | |
| 826 | (defalias 'projectile-project-type-attribute #[770 "\301\"\211\203 \302\"\203 \303\"\202 \207" [projectile-project-types alist-get plist-member plist-get] 7 (#$ . 96537)]) | |
| 827 | #@74 Find default test files prefix based on PROJECT-TYPE. | |
| 828 | ||
| 829 | (fn PROJECT-TYPE) | |
| 830 | (defalias 'projectile-test-prefix #[257 "\300\301\"\207" [projectile-project-type-attribute test-prefix] 4 (#$ . 96889)]) | |
| 831 | #@74 Find default test files suffix based on PROJECT-TYPE. | |
| 832 | ||
| 833 | (fn PROJECT-TYPE) | |
| 834 | (defalias 'projectile-test-suffix #[257 "\300\301\"\207" [projectile-project-type-attribute test-suffix] 4 (#$ . 97091)]) | |
| 835 | #@70 Find default src directory based on PROJECT-TYPE. | |
| 836 | ||
| 837 | (fn PROJECT-TYPE) | |
| 838 | (defalias 'projectile-src-directory #[257 "\300\301\302#\207" [projectile-project-type-attribute src-dir "src/"] 5 (#$ . 97293)]) | |
| 839 | #@71 Find default test directory based on PROJECT-TYPE. | |
| 840 | ||
| 841 | (fn PROJECT-TYPE) | |
| 842 | (defalias 'projectile-test-directory #[257 "\300\301\302#\207" [projectile-project-type-attribute test-dir "test/"] 5 (#$ . 97499)]) | |
| 843 | #@57 Count matching dirnames ascending file paths. | |
| 844 | ||
| 845 | (fn A B) | |
| 846 | (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 (#$ . 97709)]) | |
| 847 | #@72 Group file candidates by dirname matching count. | |
| 848 | ||
| 849 | (fn FILE CANDIDATES) | |
| 850 | (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 (#$ . 98056)]) | |
| 851 | #@56 Compute the name of the test matching FILE. | |
| 852 | ||
| 853 | (fn FILE) | |
| 854 | (defalias 'projectile-find-matching-test #[257 "\302\303!!\304 ! \304 !\305\306\307\310\311\312#\313\"\314\315%\316 \"\211\204* \317\202W \211G\320U\2036 \211@\202W \321\"\211@G\322U\203J \323@!@\202U \324\325\326\327\330\331\"\"\"\262\207" [projectile-test-prefix-function projectile-test-suffix-function file-name-nondirectory file-name-sans-extension projectile-project-type cl-remove-if-not make-byte-code 257 "\303\304!!\301\203 \211\301\300P\230\206 \302\205 \211\300\302P\230\207" vconcat vector [file-name-nondirectory file-name-sans-extension] 5 "\n\n(fn CURRENT-FILE)" projectile-current-project-files nil 1 projectile-group-file-candidates 2 last projectile-completing-read "Switch to: " apply append mapcar cdr] 13 (#$ . 98516)]) | |
| 855 | #@64 Compute the name of a file matching TEST-FILE. | |
| 856 | ||
| 857 | (fn TEST-FILE) | |
| 858 | (defalias 'projectile-find-matching-file #[257 "\302\303!!\304 ! \304 !\305\306\307\310\311\312#\313\"\314\315%\316 \"\211\204* \317\202W \211G\320U\2036 \211@\202W \321\"\211@G\322U\203J \323@!@\202U \324\325\326\327\330\331\"\"\"\262\207" [projectile-test-prefix-function projectile-test-suffix-function file-name-nondirectory file-name-sans-extension projectile-project-type cl-remove-if-not 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)" projectile-current-project-files nil 1 projectile-group-file-candidates 2 last projectile-completing-read "Switch to: " apply append mapcar cdr] 13 (#$ . 99337)]) | |
| 859 | #@193 Try to find a default pattern for `projectile-grep'. | |
| 860 | This is a subset of `grep-read-files', where either a matching entry from | |
| 861 | `grep-files-aliases' or file name extension pattern is returned. | |
| 862 | (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 (#$ . 100164)]) | |
| 863 | #@58 Return ignored file suffixes as a list of glob patterns. | |
| 864 | (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 (#$ . 100791)]) | |
| 865 | #@21 | |
| 866 | ||
| 867 | (fn PREFIX-LABEL) | |
| 868 | (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 (#$ . 101047)]) | |
| 869 | #@294 Perform rgrep in the project. | |
| 870 | ||
| 871 | With a prefix ARG asks for files (globbing-aware) which to grep in. | |
| 872 | With prefix ARG of `-' (such as `M--'), default the files (without prompt), | |
| 873 | to `projectile-grep-default-files'. | |
| 874 | ||
| 875 | With REGEXP given, don't query the user for a regexp. | |
| 876 | ||
| 877 | (fn &optional REGEXP ARG) | |
| 878 | (defalias 'projectile-grep #[512 "\304\305!\210\306\307 !\206 \310\311!\205% \312\232\203 \313 \206% \314\315\316!\313 \"\211\203\221 \211@\304\317!\210\320 \321=\203N \203N \322\323!\203N \323\206H \324#\210\202\212 \325\326\327\330\331\332\333!\334\"\335\336%\337 \"\n\"\325\340\326\327\330\341\332\333 !\342\"\343\344%\345 \"\346 \" \"\347 \210\350\206\206 \351#\210*A\266\202\202& \210\352\353!\207" [current-prefix-arg projectile-use-git-grep grep-find-ignored-directories grep-find-ignored-files 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 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 append "\301\300\"\207" [file-relative-name] 4 "\n\n(fn FILE)" projectile-ignored-files projectile--globally-ignored-file-suffixes-glob grep-compute-defaults rgrep "* .*" run-hooks projectile-grep-finished-hook] 17 (#$ . 101370) "i\nP"]) | |
| 879 | #@173 Run an ag search with SEARCH-TERM in the project. | |
| 880 | ||
| 881 | With an optional prefix argument ARG SEARCH-TERM is interpreted as a | |
| 882 | regular expression. | |
| 883 | ||
| 884 | (fn SEARCH-TERM &optional ARG) | |
| 885 | (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 (#$ . 102862) (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)]) | |
| 886 | #@110 Run a Ripgrep search with `SEARCH-TERM' at current project root. | |
| 887 | ||
| 888 | SEARCH-TERM is a regexp. | |
| 889 | ||
| 890 | (fn SEARCH-TERM) | |
| 891 | (defalias 'projectile-ripgrep #[257 "\303\304\305\306#\203 \307\310\311 \"\"\312\313 \n\203 \202 \314B#\207\315\316!\207" [projectile-globally-ignored-files projectile-globally-ignored-directories current-prefix-arg 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"] 7 (#$ . 103753) (byte-code "\300\301!C\207" [projectile--read-search-string-with-default "Ripgrep search for"] 2)]) | |
| 892 | #@50 Return a string with exclude patterns for ctags. | |
| 893 | (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 (#$ . 104400)]) | |
| 894 | #@37 Regenerate the project's [e|g]tags. | |
| 895 | (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 (#$ . 104696) nil]) | |
| 896 | #@41 Visit the current project's tags table. | |
| 897 | (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 (#$ . 105506)]) | |
| 898 | #@70 Determine which function to use for a call to `projectile-find-tag'. | |
| 899 | (defalias 'projectile-determine-find-tag-fn #[0 "\301\267\2026 \302\303!\203 \303\207\302\304!\203 \304\207\302\305!\2036 \305\207\302\304!\2036 \304\207\302\303!\2036 \303\207\302\305!\2036 \305\207\306\207" [projectile-tags-backend #s(hash-table size 4 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (auto 6 xref 30 ggtags 38 etags-select 46)) fboundp ggtags-find-tag-dwim xref-find-definitions etags-select-find-tag find-tag] 2 (#$ . 105874)]) | |
| 900 | #@22 Find tag in project. | |
| 901 | (defalias 'projectile-find-tag #[0 "\300 \210\301 \302!\207" [projectile-visit-project-tags-table projectile-determine-find-tag-fn call-interactively] 3 (#$ . 106416) nil]) | |
| 902 | #@46 Invoke in DIR the BODY. | |
| 903 | ||
| 904 | (fn DIR &rest BODY) | |
| 905 | (defalias 'projectile-with-default-dir '(macro . #[385 "\300\301DCBB\207" [let default-directory] 5 (#$ . 106617)])) | |
| 906 | (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) | |
| 907 | #@58 Invoke `execute-extended-command' in the project's root. | |
| 908 | (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 (#$ . 106939) nil]) | |
| 909 | #@47 Invoke `shell-command' in the project's root. | |
| 910 | (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 (#$ . 107212) nil]) | |
| 911 | #@53 Invoke `async-shell-command' in the project's root. | |
| 912 | (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 (#$ . 107469) nil]) | |
| 913 | #@106 Invoke `shell' in the project's root. | |
| 914 | ||
| 915 | Switch to the project specific shell buffer if it already exists. | |
| 916 | (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 (#$ . 107745) nil]) | |
| 917 | #@108 Invoke `eshell' in the project's root. | |
| 918 | ||
| 919 | Switch to the project specific eshell buffer if it already exists. | |
| 920 | (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 (#$ . 108067) nil]) | |
| 921 | #@104 Invoke `ielm' in the project's root. | |
| 922 | ||
| 923 | Switch to the project specific ielm buffer if it already exists. | |
| 924 | (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 (#$ . 108414) nil]) | |
| 925 | #@118 Invoke `term' in the project's root. | |
| 926 | ||
| 927 | Switch to the project specific term buffer if it already exists. | |
| 928 | ||
| 929 | (fn PROGRAM) | |
| 930 | (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 (#$ . 108816) (list nil)]) | |
| 931 | #@54 Return a list of files in DIRECTORY. | |
| 932 | ||
| 933 | (fn DIRECTORY) | |
| 934 | (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 (#$ . 109448)]) | |
| 935 | #@243 Use a grep-like CMD to search for files within DIRECTORY. | |
| 936 | ||
| 937 | CMD should include the necessary search params and should output | |
| 938 | equivalently to grep -HlI (only unique matching filenames). | |
| 939 | Returns a list of expanded filenames. | |
| 940 | ||
| 941 | (fn CMD DIRECTORY) | |
| 942 | (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\202 P\207" vconcat vector [string-prefix-p "./" 2 nil] 5 "\n\n(fn STR)" split-string string-trim shell-command-to-string "\n+" t] 9 (#$ . 109877)]) | |
| 943 | #@236 Return a list of all files containing STRING in DIRECTORY. | |
| 944 | ||
| 945 | Tries to use ag, ack, git-grep, and grep in that order. If those | |
| 946 | are impossible (for instance on Windows), returns a list of all | |
| 947 | files in the project. | |
| 948 | ||
| 949 | (fn STRING DIRECTORY) | |
| 950 | (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 (#$ . 110479)]) | |
| 951 | #@183 Replace literal string in project using non-regexp `tags-query-replace'. | |
| 952 | ||
| 953 | With a prefix argument ARG prompts you for a directory on which | |
| 954 | to run the replacement. | |
| 955 | ||
| 956 | (fn &optional ARG) | |
| 957 | (defalias 'projectile-replace #[256 "\211\203\f \302\303\304!!\202 \305\306 !\307\310\311!\312 \"\307\310\313\314\"!!\315\"\316\211\227\232?\205- \317\320\321\322D\323BB\324BBE\325\322D\322D\326BBB\327\330B\206O \331!\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 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 (#$ . 111302) "P"]) | |
| 958 | #@170 Replace a regexp in the project using `tags-query-replace'. | |
| 959 | ||
| 960 | With a prefix argument ARG prompts you for a directory on which | |
| 961 | to run the replacement. | |
| 962 | ||
| 963 | (fn &optional ARG) | |
| 964 | (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 (#$ . 112231) "P"]) | |
| 965 | #@106 Kill project buffers. | |
| 966 | ||
| 967 | The buffer are killed according to the value of | |
| 968 | `projectile-kill-buffers-filter'. | |
| 969 | (defalias 'projectile-kill-buffers #[0 "\301\302 !\303!\304!\305\306\307G#!\205Q \211\211\205O \211@\310!\204H \311!\203. !\202A \312\267\202= \202D \313!\202A \314\315\"\203H \316!\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 #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (kill-all 52 kill-only-files 55)) buffer-file-name user-error "Invalid projectile-kill-buffers-filter value: %S" kill-buffer] 8 (#$ . 112979) nil]) | |
| 970 | #@27 Save all project buffers. | |
| 971 | (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 (#$ . 113782) nil]) | |
| 972 | #@42 Open `dired' at the root of the project. | |
| 973 | (defalias 'projectile-dired #[0 "\300\301\302 !!\207" [dired projectile-ensure-project projectile-project-root] 3 (#$ . 114300) nil]) | |
| 974 | #@61 Open `dired' at the root of the project in another window. | |
| 975 | (defalias 'projectile-dired-other-window #[0 "\300\301\302 !!\207" [dired-other-window projectile-ensure-project projectile-project-root] 3 (#$ . 114481) nil]) | |
| 976 | #@59 Open `dired' at the root of the project in another frame. | |
| 977 | (defalias 'projectile-dired-other-frame #[0 "\300\301\302 !!\207" [dired-other-frame projectile-ensure-project projectile-project-root] 3 (#$ . 114707) nil]) | |
| 978 | #@398 Open `vc-dir' at the root of the project. | |
| 979 | ||
| 980 | For git projects `magit-status-internal' is used if available. | |
| 981 | For hg projects `monky-status' is used if available. | |
| 982 | ||
| 983 | If PROJECT-ROOT is given, it is opened instead of the project | |
| 984 | root directory of the current buffer file. If interactively | |
| 985 | called with a prefix argument, the user is prompted for a project | |
| 986 | directory to open. | |
| 987 | ||
| 988 | (fn &optional PROJECT-ROOT) | |
| 989 | (defalias 'projectile-vc #[256 "\211\204 \300 \262\301!\211\302\267\202A \303\304!\203 \304!\202D \303\305!\203) \305!\202D \306!\202D \303\307!\203; \307!\202D \306!\202D \306!\207" [projectile-project-root projectile-project-vcs #s(hash-table size 2 test eql rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (git 17 hg 47)) fboundp magit-status-internal magit-status vc-dir monky-status] 4 (#$ . 114930) (byte-code "\205 \302\303 \"C\207" [current-prefix-arg projectile-known-projects projectile-completing-read "Open project VC in: "] 3)]) | |
| 990 | #@53 Show a list of recently visited files in a project. | |
| 991 | (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 (#$ . 115895) nil]) | |
| 992 | #@55 Return a list of recently visited files in a project. | |
| 993 | (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\"\313\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\"\207" [string-prefix-p]] 10 (#$ . 116236)]) | |
| 994 | #@48 Serializes the memory cache to the hard drive. | |
| 995 | (defalias 'projectile-serialize-cache #[0 "\302 \"\207" [projectile-projects-cache projectile-cache-file projectile-serialize] 3 (#$ . 116701)]) | |
| 996 | #@73 A mapping between projects and the last configure command used on them. | |
| 997 | (defvar projectile-configure-cmd-map (make-hash-table :test 'equal) (#$ . 116900)) | |
| 998 | #@75 A mapping between projects and the last compilation command used on them. | |
| 999 | (defvar projectile-compilation-cmd-map (make-hash-table :test 'equal) (#$ . 117061)) | |
| 1000 | #@68 A mapping between projects and the last test command used on them. | |
| 1001 | (defvar projectile-test-cmd-map (make-hash-table :test 'equal) (#$ . 117226)) | |
| 1002 | #@67 A mapping between projects and the last run command used on them. | |
| 1003 | (defvar projectile-run-cmd-map (make-hash-table :test 'equal) (#$ . 117377)) | |
| 1004 | #@167 The command to use with `projectile-configure-project'. | |
| 1005 | It takes precedence over the default command for the project type when set. | |
| 1006 | Should be set via .dir-locals.el. | |
| 1007 | (defvar projectile-project-configure-cmd nil (#$ . 117527)) | |
| 1008 | #@165 The command to use with `projectile-compile-project'. | |
| 1009 | It takes precedence over the default command for the project type when set. | |
| 1010 | Should be set via .dir-locals.el. | |
| 1011 | (defvar projectile-project-compilation-cmd nil (#$ . 117760)) | |
| 1012 | #@143 The directory to use with `projectile-compile-project'. | |
| 1013 | The directory path is relative to the project root. | |
| 1014 | Should be set via .dir-locals.el. | |
| 1015 | (defvar projectile-project-compilation-dir nil (#$ . 117993)) | |
| 1016 | #@162 The command to use with `projectile-test-project'. | |
| 1017 | It takes precedence over the default command for the project type when set. | |
| 1018 | Should be set via .dir-locals.el. | |
| 1019 | (defvar projectile-project-test-cmd nil (#$ . 118204)) | |
| 1020 | #@161 The command to use with `projectile-run-project'. | |
| 1021 | It takes precedence over the default command for the project type when set. | |
| 1022 | Should be set via .dir-locals.el. | |
| 1023 | (defvar projectile-project-run-cmd nil (#$ . 118427)) | |
| 1024 | #@272 Generic retrieval of COMMAND-TYPEs default cmd-value for PROJECT-TYPE. | |
| 1025 | ||
| 1026 | If found, checks if value is symbol or string. In case of symbol | |
| 1027 | resolves to function `funcall's. Return value of function MUST | |
| 1028 | be string to be executed as command. | |
| 1029 | ||
| 1030 | (fn PROJECT-TYPE COMMAND-TYPE) | |
| 1031 | (defalias 'projectile-default-generic-command #[514 "\301\302\"\"\211;\203 \211\2025 \303!\203\" \304!\2055 \211K \2025 \211\2040 \305=\2030 \306\2025 \307\310#\207" [projectile-project-types plist-get alist-get functionp fboundp compilation-dir nil user-error "The value for: %s in project-type: %s was neither a function nor a string."] 7 (#$ . 118648)]) | |
| 1032 | #@73 Retrieve default configure command for PROJECT-TYPE. | |
| 1033 | ||
| 1034 | (fn PROJECT-TYPE) | |
| 1035 | (defalias 'projectile-default-configure-command #[257 "\300\301\"\207" [projectile-default-generic-command configure-command] 4 (#$ . 119291)]) | |
| 1036 | #@75 Retrieve default compilation command for PROJECT-TYPE. | |
| 1037 | ||
| 1038 | (fn PROJECT-TYPE) | |
| 1039 | (defalias 'projectile-default-compilation-command #[257 "\300\301\"\207" [projectile-default-generic-command compile-command] 4 (#$ . 119514)]) | |
| 1040 | #@77 Retrieve default compilation directory for PROJECT-TYPE. | |
| 1041 | ||
| 1042 | (fn PROJECT-TYPE) | |
| 1043 | (defalias 'projectile-default-compilation-dir #[257 "\300\301\"\207" [projectile-default-generic-command compilation-dir] 4 (#$ . 119739)]) | |
| 1044 | #@68 Retrieve default test command for PROJECT-TYPE. | |
| 1045 | ||
| 1046 | (fn PROJECT-TYPE) | |
| 1047 | (defalias 'projectile-default-test-command #[257 "\300\301\"\207" [projectile-default-generic-command test-command] 4 (#$ . 119962)]) | |
| 1048 | #@67 Retrieve default run command for PROJECT-TYPE. | |
| 1049 | ||
| 1050 | (fn PROJECT-TYPE) | |
| 1051 | (defalias 'projectile-default-run-command #[257 "\300\301\"\207" [projectile-default-generic-command run-command] 4 (#$ . 120170)]) | |
| 1052 | #@382 Retrieve the configure command for COMPILE-DIR. | |
| 1053 | ||
| 1054 | The command is determined like this: | |
| 1055 | ||
| 1056 | - first we check `projectile-configure-cmd-map' for the last | |
| 1057 | configure command that was invoked on the project | |
| 1058 | ||
| 1059 | - then we check for `projectile-project-configure-cmd' supplied | |
| 1060 | via .dir-locals.el | |
| 1061 | ||
| 1062 | - finally we check for the default configure command for a | |
| 1063 | project of that type | |
| 1064 | ||
| 1065 | (fn COMPILE-DIR) | |
| 1066 | (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 (#$ . 120376)]) | |
| 1067 | #@388 Retrieve the compilation command for COMPILE-DIR. | |
| 1068 | ||
| 1069 | The command is determined like this: | |
| 1070 | ||
| 1071 | - first we check `projectile-compilation-cmd-map' for the last | |
| 1072 | compile command that was invoked on the project | |
| 1073 | ||
| 1074 | - then we check for `projectile-project-compilation-cmd' supplied | |
| 1075 | via .dir-locals.el | |
| 1076 | ||
| 1077 | - finally we check for the default compilation command for a | |
| 1078 | project of that type | |
| 1079 | ||
| 1080 | (fn COMPILE-DIR) | |
| 1081 | (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 (#$ . 121057)]) | |
| 1082 | #@357 Retrieve the test command for COMPILE-DIR. | |
| 1083 | ||
| 1084 | The command is determined like this: | |
| 1085 | ||
| 1086 | - first we check `projectile-test-cmd-map' for the last | |
| 1087 | test command that was invoked on the project | |
| 1088 | ||
| 1089 | - then we check for `projectile-project-test-cmd' supplied | |
| 1090 | via .dir-locals.el | |
| 1091 | ||
| 1092 | - finally we check for the default test command for a | |
| 1093 | project of that type | |
| 1094 | ||
| 1095 | (fn COMPILE-DIR) | |
| 1096 | (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 (#$ . 121694)]) | |
| 1097 | #@352 Retrieve the run command for COMPILE-DIR. | |
| 1098 | ||
| 1099 | The command is determined like this: | |
| 1100 | ||
| 1101 | - first we check `projectile-run-cmd-map' for the last | |
| 1102 | run command that was invoked on the project | |
| 1103 | ||
| 1104 | - then we check for `projectile-project-run-cmd' supplied | |
| 1105 | via .dir-locals.el | |
| 1106 | ||
| 1107 | - finally we check for the default run command for a | |
| 1108 | project of that type | |
| 1109 | ||
| 1110 | (fn COMPILE-DIR) | |
| 1111 | (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 (#$ . 122272)]) | |
| 1112 | #@63 Adapted from `compilation-read-command'. | |
| 1113 | ||
| 1114 | (fn PROMPT COMMAND) | |
| 1115 | (defalias 'projectile-read-command #[514 "\301@\232\203 \302\202 \300#\207" [compile-history read-shell-command (compile-history . 1)] 7 (#$ . 122840)]) | |
| 1116 | #@54 Retrieve the compilation directory for this project. | |
| 1117 | (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 (#$ . 123067)]) | |
| 1118 | #@95 Prompt user for command unless DEFAULT-CMD is an Elisp function. | |
| 1119 | ||
| 1120 | (fn ARG DEFAULT-CMD PROMPT) | |
| 1121 | (defalias 'projectile-maybe-read-command #[771 ";\204 \204 \204 \203 \301\"\207\207" [compilation-read-command projectile-read-command] 6 (#$ . 123411)]) | |
| 1122 | #@58 Run external or Elisp compilation command CMD. | |
| 1123 | ||
| 1124 | (fn CMD) | |
| 1125 | (defalias 'projectile-run-compilation #[257 "\300!\203 \211 \207\301!\207" [functionp compile] 3 (#$ . 123676)]) | |
| 1126 | #@112 The history of last executed project commands, per project. | |
| 1127 | ||
| 1128 | Projects are indexed by their project-root value. | |
| 1129 | (defvar projectile-project-command-history (make-hash-table :test 'equal) (#$ . 123856)) | |
| 1130 | #@21 | |
| 1131 | ||
| 1132 | (fn PROJECT-ROOT) | |
| 1133 | (defalias 'projectile--get-command-history #[257 "\301\"\206 \302\303\304!#\207" [projectile-project-command-history gethash puthash make-ring 16] 5 (#$ . 124062)]) | |
| 1134 | #@522 Run a project COMMAND, typically a test- or compile command. | |
| 1135 | ||
| 1136 | Cache the COMMAND for later use inside the hash-table COMMAND-MAP. | |
| 1137 | ||
| 1138 | Normally you'll be prompted for a compilation command, unless | |
| 1139 | variable `compilation-read-command'. You can force the prompt | |
| 1140 | by setting SHOW-PROMPT. The prompt will be prefixed with PROMPT-PREFIX. | |
| 1141 | ||
| 1142 | If SAVE-BUFFERS is non-nil save all projectile buffers before | |
| 1143 | running the command. | |
| 1144 | ||
| 1145 | The command actually run is returned. | |
| 1146 | ||
| 1147 | (fn COMMAND COMMAND-MAP &key SHOW-PROMPT PROMPT-PREFIX SAVE-BUFFERS) | |
| 1148 | (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 (#$ . 124259)]) | |
| 1149 | #@187 Run project configure command. | |
| 1150 | ||
| 1151 | Normally you'll be prompted for a compilation command, unless | |
| 1152 | variable `compilation-read-command'. You can force the prompt | |
| 1153 | with a prefix ARG. | |
| 1154 | ||
| 1155 | (fn ARG) | |
| 1156 | (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 (#$ . 125698) "P"]) | |
| 1157 | #@189 Run project compilation command. | |
| 1158 | ||
| 1159 | Normally you'll be prompted for a compilation command, unless | |
| 1160 | variable `compilation-read-command'. You can force the prompt | |
| 1161 | with a prefix ARG. | |
| 1162 | ||
| 1163 | (fn ARG) | |
| 1164 | (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 (#$ . 126187) "P"]) | |
| 1165 | #@182 Run project test command. | |
| 1166 | ||
| 1167 | Normally you'll be prompted for a compilation command, unless | |
| 1168 | variable `compilation-read-command'. You can force the prompt | |
| 1169 | with a prefix ARG. | |
| 1170 | ||
| 1171 | (fn ARG) | |
| 1172 | (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 (#$ . 126678) "P"]) | |
| 1173 | #@181 Run project run command. | |
| 1174 | ||
| 1175 | Normally you'll be prompted for a compilation command, unless | |
| 1176 | variable `compilation-read-command'. You can force the prompt | |
| 1177 | with a prefix ARG. | |
| 1178 | ||
| 1179 | (fn ARG) | |
| 1180 | (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 (#$ . 127142) "P"]) | |
| 1181 | #@274 Run last projectile external command. | |
| 1182 | ||
| 1183 | External commands are: `projectile-configure-project', | |
| 1184 | `projectile-compile-project', `projectile-test-project' and | |
| 1185 | `projectile-run-project'. | |
| 1186 | ||
| 1187 | If the prefix argument SHOW_PROMPT is non nil, the command can be edited. | |
| 1188 | ||
| 1189 | (fn SHOW-PROMPT) | |
| 1190 | (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 (#$ . 127576) "P"]) | |
| 1191 | (ad-add-advice 'compilation-find-file '(projectile-compilation-find-file nil t (advice lambda nil "Try to find a buffer for FILENAME, if we cannot find it,\nfallback to the original function." (let ((filename (ad-get-arg 1)) full-filename) (ad-set-arg 1 (or (if (file-exists-p (expand-file-name filename)) filename) (and (projectile-project-p) (let ((root (projectile-project-root)) (dirs (cons "" (projectile-current-project-dirs)))) (when (setq full-filename (car (cl-remove-if-not #'file-exists-p (mapcar (lambda (f) (expand-file-name filename (expand-file-name f root))) dirs)))) full-filename))) filename)) ad-do-it))) 'around nil) | |
| 1192 | #@89 Return a list of all open projects. | |
| 1193 | An open project is a project with any open buffers. | |
| 1194 | (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 (#$ . 128969)]) | |
| 1195 | #@79 Remove the current project (if any) from the list of PROJECTS. | |
| 1196 | ||
| 1197 | (fn PROJECTS) | |
| 1198 | (defalias 'projectile--remove-current-project #[257 "\300 \211\203 \301\302!C\"\202 \207" [projectile-project-root projectile-difference abbreviate-file-name] 6 (#$ . 129334)]) | |
| 1199 | #@90 Move current project (if any) to the end of list in the list of PROJECTS. | |
| 1200 | ||
| 1201 | (fn PROJECTS) | |
| 1202 | (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 (#$ . 129600)]) | |
| 1203 | #@34 Return a list of known projects. | |
| 1204 | (defalias 'projectile-relevant-known-projects #[0 "\302\267\202 \303 !\207\304 !\207 \207\305\207" [projectile-current-project-on-switch projectile-known-projects #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (remove 6 move-to-end 10 keep 14)) projectile--remove-current-project projectile--move-current-project-to-end nil] 2 (#$ . 129907)]) | |
| 1205 | #@33 Return a list of open projects. | |
| 1206 | (defalias 'projectile-relevant-open-projects #[0 "\301 \302\267\202 \303!\202 \304!\202 \211\202 \305\207" [projectile-current-project-on-switch projectile-open-projects #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (remove 8 move-to-end 14 keep 20)) projectile--remove-current-project projectile--move-current-project-to-end nil] 3 (#$ . 130329)]) | |
| 1207 | #@241 Switch to a project we have visited before. | |
| 1208 | Invokes the command referenced by `projectile-switch-project-action' on switch. | |
| 1209 | With a prefix ARG invokes `projectile-commander' instead of | |
| 1210 | `projectile-switch-project-action.' | |
| 1211 | ||
| 1212 | (fn &optional ARG) | |
| 1213 | (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 (#$ . 130763) "P"]) | |
| 1214 | #@243 Switch to a project we have currently opened. | |
| 1215 | Invokes the command referenced by `projectile-switch-project-action' on switch. | |
| 1216 | With a prefix ARG invokes `projectile-commander' instead of | |
| 1217 | `projectile-switch-project-action.' | |
| 1218 | ||
| 1219 | (fn &optional ARG) | |
| 1220 | (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 (#$ . 131410) "P"]) | |
| 1221 | #@268 Switch to project by project name PROJECT-TO-SWITCH. | |
| 1222 | Invokes the command referenced by `projectile-switch-project-action' on switch. | |
| 1223 | With a prefix ARG invokes `projectile-commander' instead of | |
| 1224 | `projectile-switch-project-action.' | |
| 1225 | ||
| 1226 | (fn PROJECT-TO-SWITCH &optional ARG) | |
| 1227 | (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 (#$ . 132067)]) | |
| 1228 | #@140 Jump to a file in a (maybe regular) DIRECTORY. | |
| 1229 | ||
| 1230 | This command will first prompt for the directory the file is in. | |
| 1231 | ||
| 1232 | (fn &optional DIRECTORY) | |
| 1233 | (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 (#$ . 133054) "DFind file in directory: "]) | |
| 1234 | #@42 Get a list of all files in all projects. | |
| 1235 | (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 (#$ . 133685)]) | |
| 1236 | #@46 Jump to a file in any of the known projects. | |
| 1237 | (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 (#$ . 134084) nil]) | |
| 1238 | #@167 Determine whether we should cleanup (remove) PROJECT or not. | |
| 1239 | ||
| 1240 | It handles the case of remote projects as well. | |
| 1241 | See `projectile--cleanup-known-projects'. | |
| 1242 | ||
| 1243 | (fn PROJECT) | |
| 1244 | (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 (#$ . 134333)]) | |
| 1245 | #@87 Remove known projects that don't exist anymore and return a list of projects removed. | |
| 1246 | (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 (#$ . 134660)]) | |
| 1247 | #@49 Remove known projects that don't exist anymore. | |
| 1248 | (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 (#$ . 134985) nil]) | |
| 1249 | #@78 Clear both `projectile-known-projects' and `projectile-known-projects-file'. | |
| 1250 | (defalias 'projectile-clear-known-projects #[0 "\301\302 \207" [projectile-known-projects nil projectile-save-known-projects] 1 (#$ . 135299) nil]) | |
| 1251 | #@73 Remove PROJECT from the list of known projects. | |
| 1252 | ||
| 1253 | (fn &optional PROJECT) | |
| 1254 | (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 (#$ . 135531) (byte-code "\301\302\303\304$C\207" [projectile-known-projects projectile-completing-read "Remove from known projects: " :action projectile-remove-known-project] 5)]) | |
| 1255 | #@61 Remove the current project from the list of known projects. | |
| 1256 | (defalias 'projectile-remove-current-project-from-known-projects #[0 "\300\301\302 !!\207" [projectile-remove-known-project abbreviate-file-name projectile-project-root] 3 (#$ . 136190) nil]) | |
| 1257 | #@76 A list of projects that should not be save in `projectile-known-projects'. | |
| 1258 | (defalias 'projectile-ignored-projects #[0 "\301\302\"\207" [projectile-ignored-projects mapcar file-truename] 3 (#$ . 136448)]) | |
| 1259 | #@97 Return t if PROJECT-ROOT should not be added to `projectile-known-projects'. | |
| 1260 | ||
| 1261 | (fn PROJECT-ROOT) | |
| 1262 | (defalias 'projectile-ignored-project-p #[257 "\211\301 \235\206 \302!\205 !\207" [projectile-ignored-project-function projectile-ignored-projects functionp] 3 (#$ . 136659)]) | |
| 1263 | #@68 Add PROJECT-ROOT to the list of known projects. | |
| 1264 | ||
| 1265 | (fn PROJECT-ROOT) | |
| 1266 | (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 (#$ . 136942) (byte-code "\300\301!C\207" [read-directory-name "Add to known projects: "] 2)]) | |
| 1267 | #@98 Load saved projects from `projectile-known-projects-file'. | |
| 1268 | Also set `projectile-known-projects'. | |
| 1269 | (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 (#$ . 137347)]) | |
| 1270 | #@67 Save PROJECTILE-KNOWN-PROJECTS to PROJECTILE-KNOWN-PROJECTS-FILE. | |
| 1271 | (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 (#$ . 137691)]) | |
| 1272 | #@171 Merge any change from `projectile-known-projects-file' and save to disk. | |
| 1273 | ||
| 1274 | This enables multiple Emacs processes to make changes without | |
| 1275 | overwriting each other's changes. | |
| 1276 | (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 (#$ . 138008)]) | |
| 1277 | #@71 Show Ibuffer with all buffers in the current project. | |
| 1278 | ||
| 1279 | (fn QUALIFIER) | |
| 1280 | (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 (#$ . 138509) (byte-code "\300\301\302 \"C\207" [read-directory-name "Project root: " projectile-project-root] 3)]) | |
| 1281 | (byte-code "\301\302\303EB\302\207" [ibuffer-filtering-alist projectile-files nil #[514 "\3001 rq\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) | |
| 1282 | #@80 Open an IBuffer window showing all buffers in PROJECT-ROOT. | |
| 1283 | ||
| 1284 | (fn PROJECT-ROOT) | |
| 1285 | (defalias 'projectile-ibuffer-by-project #[257 "!\301\302\303\304\"\305BC#\207" [projectile-project-name-function ibuffer nil format "*%s Buffers*" projectile-files] 7 (#$ . 139206)]) | |
| 1286 | #@163 Open an IBuffer window showing all buffers in the current project. | |
| 1287 | ||
| 1288 | Let user choose another project when PROMPT-FOR-PROJECT is supplied. | |
| 1289 | ||
| 1290 | (fn PROMPT-FOR-PROJECT) | |
| 1291 | (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 (#$ . 139480) "P"]) | |
| 1292 | (defconst projectile-commander-help-buffer "*Projectile Commander Help*") | |
| 1293 | #@186 List of file-selection methods for the `projectile-commander' command. | |
| 1294 | Each element is a list (KEY DESCRIPTION FUNCTION). | |
| 1295 | DESCRIPTION is a one-line description of what the key selects. | |
| 1296 | (defvar projectile-commander-methods nil (#$ . 139966)) | |
| 1297 | #@246 Execute a Projectile command with a single letter. | |
| 1298 | The user is prompted for a single character indicating the action to invoke. | |
| 1299 | The `?' character describes then | |
| 1300 | available actions. | |
| 1301 | ||
| 1302 | See `def-projectile-commander-method' for defining new methods. | |
| 1303 | (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 (#$ . 140214) nil]) | |
| 1304 | #@272 Define a new `projectile-commander' method. | |
| 1305 | ||
| 1306 | KEY is the key the user will enter to choose this method. | |
| 1307 | ||
| 1308 | DESCRIPTION is a one-line sentence describing how the method. | |
| 1309 | ||
| 1310 | BODY is a series of forms which are evaluated when the find | |
| 1311 | is chosen. | |
| 1312 | ||
| 1313 | (fn KEY DESCRIPTION &rest BODY) | |
| 1314 | (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 (#$ . 140673)])) | |
| 1315 | (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) | |
| 1316 | #@53 Setup the keybindings for the Projectile Commander. | |
| 1317 | (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 \201B E\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 (#$ . 141829)]) | |
| 1318 | #@125 Check the status of the current project. | |
| 1319 | If PROJECT-PATH is a project, check this one instead. | |
| 1320 | ||
| 1321 | (fn &optional PROJECT-PATH) | |
| 1322 | (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 (#$ . 144572)]) | |
| 1323 | #@41 Cache of the last dirty projects check. | |
| 1324 | (defvar projectile-cached-dirty-projects-status nil (#$ . 145189)) | |
| 1325 | #@148 Return the list of dirty projects. | |
| 1326 | The list is composed of sublists~: (project-path, project-status). | |
| 1327 | Raise an error if their is no dirty project. | |
| 1328 | (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\2037 DB\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 (#$ . 145303)]) | |
| 1329 | #@158 Browse dirty version controlled projects. | |
| 1330 | ||
| 1331 | With a prefix argument, or if CACHED is non-nil, try to use the cached | |
| 1332 | dirty project list. | |
| 1333 | ||
| 1334 | (fn &optional CACHED) | |
| 1335 | (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 (#$ . 146095) "P"]) | |
| 1336 | #@99 Repeat ORIG-FUN with ARGS until the current buffer is a project buffer. | |
| 1337 | ||
| 1338 | (fn ORIG-FUN &rest ARGS) | |
| 1339 | (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 (#$ . 146594)]) | |
| 1340 | #@128 In selected window switch to the next project buffer. | |
| 1341 | ||
| 1342 | If the current buffer does not belong to a project, call `next-buffer'. | |
| 1343 | (defalias 'projectile-next-project-buffer #[0 "\300\301!\207" [projectile--repeat-until-project-buffer next-buffer] 2 (#$ . 147082) nil]) | |
| 1344 | #@136 In selected window switch to the previous project buffer. | |
| 1345 | ||
| 1346 | If the current buffer does not belong to a project, call `previous-buffer'. | |
| 1347 | (defalias 'projectile-previous-project-buffer #[0 "\300\301!\207" [projectile--repeat-until-project-buffer previous-buffer] 2 (#$ . 147354) nil]) | |
| 1348 | #@44 Prompt for a variable and return its name. | |
| 1349 | (defalias 'projectile-read-variable #[0 "\301\302\303\304$\207" [obarray completing-read "Variable: " (lambda (v) (and (boundp v) (not (keywordp v)))) t] 5 (#$ . 147641)]) | |
| 1350 | (put 'projectile-skel-variable-cons 'no-self-insert t) | |
| 1351 | #@579 Insert a variable-name and a value in a cons-cell. | |
| 1352 | ||
| 1353 | This is a skeleton command (see `skeleton-insert'). | |
| 1354 | Normally the skeleton text is inserted at point, with nothing "inside". | |
| 1355 | If there is a highlighted region, the skeleton text is wrapped | |
| 1356 | around the region text. | |
| 1357 | ||
| 1358 | A prefix argument ARG says to wrap the skeleton around the next ARG words. | |
| 1359 | A prefix argument of -1 says to wrap around region, even if not highlighted. | |
| 1360 | A prefix argument of zero says to wrap around zero words---that is, nothing. | |
| 1361 | This is a way of overriding the use of a highlighted region. | |
| 1362 | ||
| 1363 | (fn &optional STR ARG) | |
| 1364 | (defalias 'projectile-skel-variable-cons #[512 "\300\301#\207" [skeleton-proxy-new ("Value: " "(" (projectile-read-variable) " . " str ")")] 6 (#$ . 147919) "*P\nP"]) | |
| 1365 | (put 'projectile-skel-dir-locals 'no-self-insert t) | |
| 1366 | #@562 Insert a .dir-locals.el template. | |
| 1367 | ||
| 1368 | This is a skeleton command (see `skeleton-insert'). | |
| 1369 | Normally the skeleton text is inserted at point, with nothing "inside". | |
| 1370 | If there is a highlighted region, the skeleton text is wrapped | |
| 1371 | around the region text. | |
| 1372 | ||
| 1373 | A prefix argument ARG says to wrap the skeleton around the next ARG words. | |
| 1374 | A prefix argument of -1 says to wrap around region, even if not highlighted. | |
| 1375 | A prefix argument of zero says to wrap around zero words---that is, nothing. | |
| 1376 | This is a way of overriding the use of a highlighted region. | |
| 1377 | ||
| 1378 | (fn &optional STR ARG) | |
| 1379 | (defalias 'projectile-skel-dir-locals #[512 "\300\301#\207" [skeleton-proxy-new (nil "((nil . (" ("" '(projectile-skel-variable-cons) n) resume: ")))")] 6 (#$ . 148725) "*P\nP"]) | |
| 1380 | #@54 Edit or create a .dir-locals.el file of the project. | |
| 1381 | (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 (#$ . 149473) nil]) | |
| 1382 | (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) | |
| 1383 | (defvar projectile--mode-line projectile-mode-line-prefix nil) | |
| 1384 | (make-variable-buffer-local 'projectile--mode-line) | |
| 1385 | #@47 Report project name and type in the modeline. | |
| 1386 | (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 (#$ . 150589)]) | |
| 1387 | #@34 Update the Projectile mode-line. | |
| 1388 | (defalias 'projectile-update-mode-line #[0 " \302 \207" [projectile-mode-line-function projectile--mode-line force-mode-line-update] 2 (#$ . 150880)]) | |
| 1389 | #@66 Keymap for Projectile commands after `projectile-keymap-prefix'. | |
| 1390 | (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) (#$ . 151072)) | |
| 1391 | (fset 'projectile-command-map projectile-command-map) | |
| 1392 | #@29 Keymap for Projectile mode. | |
| 1393 | (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) (#$ . 154352)) | |
| 1394 | #@202 Called by `find-file-hook' when `projectile-mode' is on. | |
| 1395 | ||
| 1396 | The function does pretty much nothing when triggered on remote files | |
| 1397 | as all the operations it normally performs are extremely slow over | |
| 1398 | tramp. | |
| 1399 | (defalias 'projectile-find-file-hook-function #[0 "\302!?\205 \203 \303 \210\304 \210\305 \210\306 \207" [default-directory projectile-dynamic-mode-line 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 (#$ . 156664)]) | |
| 1400 | (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) | |
| 1401 | #@417 Minor mode to assist project management and navigation. | |
| 1402 | ||
| 1403 | When called interactively, toggle `projectile-mode'. With prefix | |
| 1404 | ARG, enable `projectile-mode' if ARG is positive, otherwise disable | |
| 1405 | it. | |
| 1406 | ||
| 1407 | When called from Lisp, enable `projectile-mode' if ARG is omitted, | |
| 1408 | nil or positive. If ARG is `toggle', toggle `projectile-mode'. | |
| 1409 | Otherwise behave as if called interactively. | |
| 1410 | ||
| 1411 | \{projectile-mode-map} | |
| 1412 | ||
| 1413 | (fn &optional ARG) | |
| 1414 | (defalias 'projectile-mode #[256 "\304 \305\300\306=\203 \307\300!?\202 \310!\311V\"\210\203] \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!\210\331\333!\210\202p \334\323\324\"\210\334\330\326\327#\210\335\332!\210\335\333!\210\336\337\307\300!\203| \340\202} \341\"\210\342\343!\203\247 \344\300!\210\304 \203\225 \211\304 \232\203\247 \345\346\347\307\300!\203\242 \350\202\243 \351#\266\210\352 \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 ad-activate compilation-find-file delete-file remove-hook ad-deactivate 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 (#$ . 157762) (byte-code "\206 \301C\207" [current-prefix-arg toggle] 1)]) | |
| 1415 | (defvar projectile-mode-hook nil) | |
| 1416 | (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) | |
