From fdd5a37ff9d086cd20965cae9a45a1f2229cce91 Mon Sep 17 00:00:00 2001 From: Andreas Gerler Date: Sun, 22 Dec 2024 13:17:13 +0100 Subject: [PATCH] update projectile Signed-off-by: Andreas Gerler --- .../projectile-pkg.el | 14 - .../projectile-autoloads.el | 289 ++++++------------ .../projectile-pkg.el | 10 + .../projectile.el | 221 ++++++++++---- 4 files changed, 278 insertions(+), 256 deletions(-) delete mode 100644 elpa/projectile-20230713.1023/projectile-pkg.el rename elpa/{projectile-20230713.1023 => projectile-20241102.1410}/projectile-autoloads.el (83%) create mode 100644 elpa/projectile-20241102.1410/projectile-pkg.el rename elpa/{projectile-20230713.1023 => projectile-20241102.1410}/projectile.el (97%) diff --git a/elpa/projectile-20230713.1023/projectile-pkg.el b/elpa/projectile-20230713.1023/projectile-pkg.el deleted file mode 100644 index 870ce6bc..00000000 --- a/elpa/projectile-20230713.1023/projectile-pkg.el +++ /dev/null @@ -1,14 +0,0 @@ -(define-package "projectile" "20230713.1023" "Manage and navigate projects in Emacs easily" - '((emacs "25.1")) - :commit "971cd5c4f25ff1f84ab7e8337ffc7f89f67a1b52" :authors - '(("Bozhidar Batsov" . "bozhidar@batsov.dev")) - :maintainers - '(("Bozhidar Batsov" . "bozhidar@batsov.dev")) - :maintainer - '("Bozhidar Batsov" . "bozhidar@batsov.dev") - :keywords - '("project" "convenience") - :url "https://github.com/bbatsov/projectile") -;; Local Variables: -;; no-byte-compile: t -;; End: diff --git a/elpa/projectile-20230713.1023/projectile-autoloads.el b/elpa/projectile-20241102.1410/projectile-autoloads.el similarity index 83% rename from elpa/projectile-20230713.1023/projectile-autoloads.el rename to elpa/projectile-20241102.1410/projectile-autoloads.el index 5ed8ac1a..6b940e44 100644 --- a/elpa/projectile-20230713.1023/projectile-autoloads.el +++ b/elpa/projectile-20241102.1410/projectile-autoloads.el @@ -1,12 +1,14 @@ -;;; projectile-autoloads.el --- automatically extracted autoloads -*- lexical-binding: t -*- -;; +;;; projectile-autoloads.el --- automatically extracted autoloads (do not edit) -*- lexical-binding: t -*- +;; Generated by the `loaddefs-generate' function. + +;; This file is part of GNU Emacs. + ;;; Code: -(add-to-list 'load-path (directory-file-name - (or (file-name-directory #$) (car load-path)))) +(add-to-list 'load-path (or (and load-file-name (directory-file-name (file-name-directory load-file-name))) (car load-path))) + -;;;### (autoloads nil "projectile" "projectile.el" (0 0 0 0)) ;;; Generated autoloads from projectile.el (autoload 'projectile-version "projectile" "\ @@ -22,71 +24,57 @@ If the version number could not be determined, signal an error, if called interactively, or if SHOW-VERSION is non-nil, otherwise just return nil. -\(fn &optional SHOW-VERSION)" t nil) - +(fn &optional SHOW-VERSION)" t) (autoload 'projectile-invalidate-cache "projectile" "\ Remove the current project's files from `projectile-projects-cache'. With a prefix argument PROMPT prompts for the name of the project whose cache to invalidate. -\(fn PROMPT)" t nil) - +(fn PROMPT)" t) (autoload 'projectile-purge-file-from-cache "projectile" "\ Purge FILE from the cache of the current project. -\(fn FILE)" t nil) - +(fn FILE)" t) (autoload 'projectile-purge-dir-from-cache "projectile" "\ Purge DIR from the cache of the current project. -\(fn DIR)" t nil) - +(fn DIR)" t) (autoload 'projectile-cache-current-file "projectile" "\ -Add the currently visited file to the cache." t nil) - +Add the currently visited file to the cache." t) (autoload 'projectile-discover-projects-in-directory "projectile" "\ Discover any projects in DIRECTORY and add them to the projectile cache. If DEPTH is non-nil recursively descend exactly DEPTH levels below DIRECTORY and discover projects there. -\(fn DIRECTORY &optional DEPTH)" t nil) - +(fn DIRECTORY &optional DEPTH)" t) (autoload 'projectile-discover-projects-in-search-path "projectile" "\ Discover projects in `projectile-project-search-path'. -Invoked automatically when `projectile-mode' is enabled." t nil) - +Invoked automatically when `projectile-mode' is enabled." t) (autoload 'projectile-switch-to-buffer "projectile" "\ -Switch to a project buffer." t nil) - +Switch to a project buffer." t) (autoload 'projectile-switch-to-buffer-other-window "projectile" "\ -Switch to a project buffer and show it in another window." t nil) - +Switch to a project buffer and show it in another window." t) (autoload 'projectile-switch-to-buffer-other-frame "projectile" "\ -Switch to a project buffer and show it in another frame." t nil) - +Switch to a project buffer and show it in another frame." t) (autoload 'projectile-display-buffer "projectile" "\ -Display a project buffer in another window without selecting it." t nil) - +Display a project buffer in another window without selecting it." t) (autoload 'projectile-project-buffers-other-buffer "projectile" "\ Switch to the most recently selected buffer project buffer. -Only buffers not visible in windows are returned." t nil) - +Only buffers not visible in windows are returned." t) (autoload 'projectile-multi-occur "projectile" "\ Do a `multi-occur' in the project's buffers. With a prefix argument, show NLINES of context. -\(fn &optional NLINES)" t nil) - +(fn &optional NLINES)" t) (autoload 'projectile-find-other-file "projectile" "\ Switch between files with the same name but different extensions. With FLEX-MATCHING, match any file that contains the base name of current file. Other file extensions can be customized with the variable `projectile-other-file-alist'. -\(fn &optional FLEX-MATCHING)" t nil) - +(fn &optional FLEX-MATCHING)" t) (autoload 'projectile-find-other-file-other-window "projectile" "\ Switch between files with different extensions in other window. Switch between files with the same name but different extensions in other @@ -94,8 +82,7 @@ window. With FLEX-MATCHING, match any file that contains the base name of current file. Other file extensions can be customized with the variable `projectile-other-file-alist'. -\(fn &optional FLEX-MATCHING)" t nil) - +(fn &optional FLEX-MATCHING)" t) (autoload 'projectile-find-other-file-other-frame "projectile" "\ Switch between files with different extensions in other frame. Switch between files with the same name but different extensions in other frame. @@ -103,8 +90,7 @@ With FLEX-MATCHING, match any file that contains the base name of current file. Other file extensions can be customized with the variable `projectile-other-file-alist'. -\(fn &optional FLEX-MATCHING)" t nil) - +(fn &optional FLEX-MATCHING)" t) (autoload 'projectile-find-file-dwim "projectile" "\ Jump to a project's files using completion based on context. @@ -131,8 +117,7 @@ on a partial filename like \"projectile/a\", a list of files with character - If it finds nothing, display a list of all files in project for selecting. -\(fn &optional INVALIDATE-CACHE)" t nil) - +(fn &optional INVALIDATE-CACHE)" t) (autoload 'projectile-find-file-dwim-other-window "projectile" "\ Jump to a project's files using completion based on context in other window. @@ -160,8 +145,7 @@ with character \"a\" in that directory is presented. - If it finds nothing, display a list of all files in project for selecting. -\(fn &optional INVALIDATE-CACHE)" t nil) - +(fn &optional INVALIDATE-CACHE)" t) (autoload 'projectile-find-file-dwim-other-frame "projectile" "\ Jump to a project's files using completion based on context in other frame. @@ -189,130 +173,108 @@ with character \"a\" in that directory is presented. - If it finds nothing, display a list of all files in project for selecting. -\(fn &optional INVALIDATE-CACHE)" t nil) - +(fn &optional INVALIDATE-CACHE)" t) (autoload 'projectile-find-file "projectile" "\ Jump to a project's file using completion. With a prefix arg INVALIDATE-CACHE invalidates the cache first. -\(fn &optional INVALIDATE-CACHE)" t nil) - +(fn &optional INVALIDATE-CACHE)" t) (autoload 'projectile-find-file-other-window "projectile" "\ Jump to a project's file using completion and show it in another window. With a prefix arg INVALIDATE-CACHE invalidates the cache first. -\(fn &optional INVALIDATE-CACHE)" t nil) - +(fn &optional INVALIDATE-CACHE)" t) (autoload 'projectile-find-file-other-frame "projectile" "\ Jump to a project's file using completion and show it in another frame. With a prefix arg INVALIDATE-CACHE invalidates the cache first. -\(fn &optional INVALIDATE-CACHE)" t nil) - +(fn &optional INVALIDATE-CACHE)" t) (autoload 'projectile-toggle-project-read-only "projectile" "\ -Toggle project read only." t nil) - +Toggle project read only." t) (autoload 'projectile-add-dir-local-variable "projectile" "\ Run `add-dir-local-variable' with .dir-locals.el in root of project. Parameters MODE VARIABLE VALUE are passed directly to `add-dir-local-variable'. -\(fn MODE VARIABLE VALUE)" nil nil) - +(fn MODE VARIABLE VALUE)") (autoload 'projectile-delete-dir-local-variable "projectile" "\ Run `delete-dir-local-variable' with .dir-locals.el in root of project. Parameters MODE VARIABLE VALUE are passed directly to `delete-dir-local-variable'. -\(fn MODE VARIABLE)" nil nil) - +(fn MODE VARIABLE)") (autoload 'projectile-find-dir "projectile" "\ Jump to a project's directory using completion. With a prefix arg INVALIDATE-CACHE invalidates the cache first. -\(fn &optional INVALIDATE-CACHE)" t nil) - +(fn &optional INVALIDATE-CACHE)" t) (autoload 'projectile-find-dir-other-window "projectile" "\ Jump to a project's directory in other window using completion. With a prefix arg INVALIDATE-CACHE invalidates the cache first. -\(fn &optional INVALIDATE-CACHE)" t nil) - +(fn &optional INVALIDATE-CACHE)" t) (autoload 'projectile-find-dir-other-frame "projectile" "\ Jump to a project's directory in other frame using completion. With a prefix arg INVALIDATE-CACHE invalidates the cache first. -\(fn &optional INVALIDATE-CACHE)" t nil) - +(fn &optional INVALIDATE-CACHE)" t) (autoload 'projectile-find-test-file "projectile" "\ Jump to a project's test file using completion. With a prefix arg INVALIDATE-CACHE invalidates the cache first. -\(fn &optional INVALIDATE-CACHE)" t nil) - +(fn &optional INVALIDATE-CACHE)" t) (autoload 'projectile-find-related-file-other-window "projectile" "\ -Open related file in other window." t nil) - +Open related file in other window." t) (autoload 'projectile-find-related-file-other-frame "projectile" "\ -Open related file in other frame." t nil) - +Open related file in other frame." t) (autoload 'projectile-find-related-file "projectile" "\ -Open related file." t nil) - +Open related file." t) (autoload 'projectile-related-files-fn-groups "projectile" "\ Generate a related-files-fn which relates as KIND for files in each of GROUPS. -\(fn KIND GROUPS)" nil nil) - +(fn KIND GROUPS)") (autoload 'projectile-related-files-fn-extensions "projectile" "\ Generate a related-files-fn which relates as KIND for files having EXTENSIONS. -\(fn KIND EXTENSIONS)" nil nil) - +(fn KIND EXTENSIONS)") (autoload 'projectile-related-files-fn-test-with-prefix "projectile" "\ Generate a related-files-fn which relates tests and impl. Use files with EXTENSION based on TEST-PREFIX. -\(fn EXTENSION TEST-PREFIX)" nil nil) - +(fn EXTENSION TEST-PREFIX)") (autoload 'projectile-related-files-fn-test-with-suffix "projectile" "\ Generate a related-files-fn which relates tests and impl. Use files with EXTENSION based on TEST-SUFFIX. -\(fn EXTENSION TEST-SUFFIX)" nil nil) - +(fn EXTENSION TEST-SUFFIX)") (autoload 'projectile-project-info "projectile" "\ -Display info for current project." t nil) - +Display info for current project." t) (autoload 'projectile-find-implementation-or-test-other-window "projectile" "\ Open matching implementation or test file in other window. See the documentation of `projectile--find-matching-file' and `projectile--find-matching-test' for how implementation and test files -are determined." t nil) - +are determined." t) (autoload 'projectile-find-implementation-or-test-other-frame "projectile" "\ Open matching implementation or test file in other frame. See the documentation of `projectile--find-matching-file' and `projectile--find-matching-test' for how implementation and test files -are determined." t nil) - +are determined." t) (autoload 'projectile-toggle-between-implementation-and-test "projectile" "\ Toggle between an implementation file and its test file. See the documentation of `projectile--find-matching-file' and `projectile--find-matching-test' for how implementation and test files -are determined." t nil) - +are determined." t) (autoload 'projectile-grep "projectile" "\ Perform rgrep in the project. @@ -322,16 +284,14 @@ to `projectile-grep-default-files'. With REGEXP given, don't query the user for a regexp. -\(fn &optional REGEXP ARG)" t nil) - +(fn &optional REGEXP ARG)" t) (autoload 'projectile-ag "projectile" "\ Run an ag search with SEARCH-TERM in the project. With an optional prefix argument ARG SEARCH-TERM is interpreted as a regular expression. -\(fn SEARCH-TERM &optional ARG)" t nil) - +(fn SEARCH-TERM &optional ARG)" t) (autoload 'projectile-ripgrep "projectile" "\ Run a ripgrep (rg) search with `SEARCH-TERM' at current project root. @@ -341,30 +301,23 @@ regular expression. This command depends on of the Emacs packages ripgrep or rg being installed to work. -\(fn SEARCH-TERM &optional ARG)" t nil) - +(fn SEARCH-TERM &optional ARG)" t) (autoload 'projectile-regenerate-tags "projectile" "\ -Regenerate the project's [e|g]tags." t nil) - +Regenerate the project's [e|g]tags." t) (autoload 'projectile-find-tag "projectile" "\ -Find tag in project." t nil) - +Find tag in project." t) (autoload 'projectile-run-command-in-root "projectile" "\ -Invoke `execute-extended-command' in the project's root." t nil) - +Invoke `execute-extended-command' in the project's root." t) (autoload 'projectile-run-shell-command-in-root "projectile" "\ Invoke `shell-command' in the project's root. -\(fn COMMAND &optional OUTPUT-BUFFER ERROR-BUFFER)" t nil) - +(fn COMMAND &optional OUTPUT-BUFFER ERROR-BUFFER)" t) (autoload 'projectile-run-async-shell-command-in-root "projectile" "\ Invoke `async-shell-command' in the project's root. -\(fn COMMAND &optional OUTPUT-BUFFER ERROR-BUFFER)" t nil) - +(fn COMMAND &optional OUTPUT-BUFFER ERROR-BUFFER)" t) (autoload 'projectile-run-gdb "projectile" "\ -Invoke `gdb' in the project's root." t nil) - +Invoke `gdb' in the project's root." t) (autoload 'projectile-run-shell "projectile" "\ Invoke `shell' in the project's root. @@ -372,8 +325,7 @@ Switch to the project specific shell buffer if it already exists. Use a prefix argument ARG to indicate creation of a new process instead. -\(fn &optional ARG)" t nil) - +(fn &optional ARG)" t) (autoload 'projectile-run-eshell "projectile" "\ Invoke `eshell' in the project's root. @@ -381,8 +333,7 @@ Switch to the project specific eshell buffer if it already exists. Use a prefix argument ARG to indicate creation of a new process instead. -\(fn &optional ARG)" t nil) - +(fn &optional ARG)" t) (autoload 'projectile-run-ielm "projectile" "\ Invoke `ielm' in the project's root. @@ -390,8 +341,7 @@ Switch to the project specific ielm buffer if it already exists. Use a prefix argument ARG to indicate creation of a new process instead. -\(fn &optional ARG)" t nil) - +(fn &optional ARG)" t) (autoload 'projectile-run-term "projectile" "\ Invoke `term' in the project's root. @@ -399,8 +349,7 @@ Switch to the project specific term buffer if it already exists. Use a prefix argument ARG to indicate creation of a new process instead. -\(fn &optional ARG)" t nil) - +(fn &optional ARG)" t) (autoload 'projectile-run-vterm "projectile" "\ Invoke `vterm' in the project's root. @@ -408,8 +357,7 @@ Switch to the project specific term buffer if it already exists. Use a prefix argument ARG to indicate creation of a new process instead. -\(fn &optional ARG)" t nil) - +(fn &optional ARG)" t) (autoload 'projectile-run-vterm-other-window "projectile" "\ Invoke `vterm' in the project's root. @@ -417,42 +365,34 @@ Switch to the project specific term buffer if it already exists. Use a prefix argument ARG to indicate creation of a new process instead. -\(fn &optional ARG)" t nil) - +(fn &optional ARG)" t) (autoload 'projectile-replace "projectile" "\ Replace literal string in project using non-regexp `tags-query-replace'. With a prefix argument ARG prompts you for a directory and file name patterns on which to run the replacement. -\(fn &optional ARG)" t nil) - +(fn &optional ARG)" t) (autoload 'projectile-replace-regexp "projectile" "\ Replace a regexp in the project using `tags-query-replace'. With a prefix argument ARG prompts you for a directory on which to run the replacement. -\(fn &optional ARG)" t nil) - +(fn &optional ARG)" t) (autoload 'projectile-kill-buffers "projectile" "\ Kill project buffers. The buffer are killed according to the value of -`projectile-kill-buffers-filter'." t nil) - +`projectile-kill-buffers-filter'." t) (autoload 'projectile-save-project-buffers "projectile" "\ -Save all project buffers." t nil) - +Save all project buffers." t) (autoload 'projectile-dired "projectile" "\ -Open `dired' at the root of the project." t nil) - +Open `dired' at the root of the project." t) (autoload 'projectile-dired-other-window "projectile" "\ -Open `dired' at the root of the project in another window." t nil) - +Open `dired' at the root of the project in another window." t) (autoload 'projectile-dired-other-frame "projectile" "\ -Open `dired' at the root of the project in another frame." t nil) - +Open `dired' at the root of the project in another frame." t) (autoload 'projectile-vc "projectile" "\ Open `vc-dir' at the root of the project. @@ -464,11 +404,9 @@ root directory of the current buffer file. If interactively called with a prefix argument, the user is prompted for a project directory to open. -\(fn &optional PROJECT-ROOT)" t nil) - +(fn &optional PROJECT-ROOT)" t) (autoload 'projectile-recentf "projectile" "\ -Show a list of recently visited files in a project." t nil) - +Show a list of recently visited files in a project." t) (autoload 'projectile-configure-project "projectile" "\ Run project configure command. @@ -476,8 +414,7 @@ Normally you'll be prompted for a compilation command, unless variable `compilation-read-command'. You can force the prompt with a prefix ARG. -\(fn ARG)" t nil) - +(fn ARG)" t) (autoload 'projectile-compile-project "projectile" "\ Run project compilation command. @@ -486,8 +423,7 @@ variable `compilation-read-command'. You can force the prompt with a prefix ARG. Per project default command can be set through `projectile-project-compilation-cmd'. -\(fn ARG)" t nil) - +(fn ARG)" t) (autoload 'projectile-test-project "projectile" "\ Run project test command. @@ -495,8 +431,7 @@ Normally you'll be prompted for a compilation command, unless variable `compilation-read-command'. You can force the prompt with a prefix ARG. -\(fn ARG)" t nil) - +(fn ARG)" t) (autoload 'projectile-install-project "projectile" "\ Run project install command. @@ -504,8 +439,7 @@ Normally you'll be prompted for a compilation command, unless variable `compilation-read-command'. You can force the prompt with a prefix ARG. -\(fn ARG)" t nil) - +(fn ARG)" t) (autoload 'projectile-package-project "projectile" "\ Run project package command. @@ -513,8 +447,7 @@ Normally you'll be prompted for a compilation command, unless variable `compilation-read-command'. You can force the prompt with a prefix ARG. -\(fn ARG)" t nil) - +(fn ARG)" t) (autoload 'projectile-run-project "projectile" "\ Run project run command. @@ -522,8 +455,7 @@ Normally you'll be prompted for a compilation command, unless variable `compilation-read-command'. You can force the prompt with a prefix ARG. -\(fn ARG)" t nil) - +(fn ARG)" t) (autoload 'projectile-repeat-last-command "projectile" "\ Run last projectile external command. @@ -532,84 +464,69 @@ External commands are: `projectile-configure-project', `projectile-install-project', `projectile-package-project', and `projectile-run-project'. -If the prefix argument SHOW_PROMPT is non nil, the command can be edited. - -\(fn SHOW-PROMPT)" t nil) +If the prefix argument SHOW-PROMPT is non nil, the command can be edited. +(fn SHOW-PROMPT)" t) (autoload 'projectile-switch-project "projectile" "\ Switch to a project we have visited before. Invokes the command referenced by `projectile-switch-project-action' on switch. With a prefix ARG invokes `projectile-commander' instead of `projectile-switch-project-action.' -\(fn &optional ARG)" t nil) - +(fn &optional ARG)" t) (autoload 'projectile-switch-open-project "projectile" "\ Switch to a project we have currently opened. Invokes the command referenced by `projectile-switch-project-action' on switch. With a prefix ARG invokes `projectile-commander' instead of `projectile-switch-project-action.' -\(fn &optional ARG)" t nil) - +(fn &optional ARG)" t) (autoload 'projectile-find-file-in-directory "projectile" "\ Jump to a file in a (maybe regular) DIRECTORY. This command will first prompt for the directory the file is in. -\(fn &optional DIRECTORY)" t nil) - +(fn &optional DIRECTORY)" t) (autoload 'projectile-find-file-in-known-projects "projectile" "\ -Jump to a file in any of the known projects." t nil) - +Jump to a file in any of the known projects." t) (autoload 'projectile-cleanup-known-projects "projectile" "\ -Remove known projects that don't exist anymore." t nil) - +Remove known projects that don't exist anymore." t) (autoload 'projectile-clear-known-projects "projectile" "\ -Clear both `projectile-known-projects' and `projectile-known-projects-file'." t nil) - +Clear both `projectile-known-projects' and `projectile-known-projects-file'." t) (autoload 'projectile-reset-known-projects "projectile" "\ -Clear known projects and rediscover." t nil) - +Clear known projects and rediscover." t) (autoload 'projectile-remove-known-project "projectile" "\ Remove PROJECT from the list of known projects. -\(fn &optional PROJECT)" t nil) - +(fn &optional PROJECT)" t) (autoload 'projectile-remove-current-project-from-known-projects "projectile" "\ -Remove the current project from the list of known projects." t nil) - +Remove the current project from the list of known projects." t) (autoload 'projectile-add-known-project "projectile" "\ Add PROJECT-ROOT to the list of known projects. -\(fn PROJECT-ROOT)" t nil) - +(fn PROJECT-ROOT)" t) (autoload 'projectile-ibuffer "projectile" "\ Open an IBuffer window showing all buffers in the current project. Let user choose another project when PROMPT-FOR-PROJECT is supplied. -\(fn PROMPT-FOR-PROJECT)" t nil) - +(fn PROMPT-FOR-PROJECT)" t) (autoload 'projectile-commander "projectile" "\ Execute a Projectile command with a single letter. The user is prompted for a single character indicating the action to invoke. The `?' character describes then available actions. -See `def-projectile-commander-method' for defining new methods." t nil) - +See `def-projectile-commander-method' for defining new methods." t) (autoload 'projectile-browse-dirty-projects "projectile" "\ Browse dirty version controlled projects. With a prefix argument, or if CACHED is non-nil, try to use the cached dirty project list. -\(fn &optional CACHED)" t nil) - +(fn &optional CACHED)" t) (autoload 'projectile-edit-dir-locals "projectile" "\ -Edit or create a .dir-locals.el file of the project." t nil) - +Edit or create a .dir-locals.el file of the project." t) (defvar projectile-mode nil "\ Non-nil if Projectile mode is enabled. See the `projectile-mode' command @@ -617,9 +534,7 @@ for a description of this minor mode. Setting this variable directly does not take effect; either customize it (see the info node `Easy Customization') or call the function `projectile-mode'.") - (custom-autoload 'projectile-mode "projectile" nil) - (autoload 'projectile-mode "projectile" "\ Minor mode to assist project management and navigation. @@ -633,22 +548,20 @@ Otherwise behave as if called interactively. \\{projectile-mode-map} -\(fn &optional ARG)" t nil) - +(fn &optional ARG)" t) (define-obsolete-function-alias 'projectile-global-mode 'projectile-mode "1.0") - -(register-definition-prefixes "projectile" '("??" "compilation-find-file-projectile-find-compilation-buffer" "def-projectile-commander-method" "delete-file-projectile-remove-from-cache" "project")) - -;;;*** +(register-definition-prefixes "projectile" '("compilation-find-file-projectile-find-compilation-buffer" "def-projectile-commander-method" "delete-file-projectile-remove-from-cache" "project" "savehist-additional-variables")) -;;;### (autoloads nil nil ("projectile-pkg.el") (0 0 0 0)) +;;; End of scraped data + +(provide 'projectile-autoloads) -;;;*** - ;; Local Variables: ;; version-control: never ;; no-byte-compile: t ;; no-update-autoloads: t -;; coding: utf-8 +;; no-native-compile: t +;; coding: utf-8-emacs-unix ;; End: + ;;; projectile-autoloads.el ends here diff --git a/elpa/projectile-20241102.1410/projectile-pkg.el b/elpa/projectile-20241102.1410/projectile-pkg.el new file mode 100644 index 00000000..4fe500f8 --- /dev/null +++ b/elpa/projectile-20241102.1410/projectile-pkg.el @@ -0,0 +1,10 @@ +;; -*- no-byte-compile: t; lexical-binding: nil -*- +(define-package "projectile" "20241102.1410" + "Manage and navigate projects in Emacs easily." + '((emacs "25.1")) + :url "https://github.com/bbatsov/projectile" + :commit "9b466af28bac6d61fd0e717f1a4b0fcd2f18f37f" + :revdesc "9b466af28bac" + :keywords '("project" "convenience") + :authors '(("Bozhidar Batsov" . "bozhidar@batsov.dev")) + :maintainers '(("Bozhidar Batsov" . "bozhidar@batsov.dev"))) diff --git a/elpa/projectile-20230713.1023/projectile.el b/elpa/projectile-20241102.1410/projectile.el similarity index 97% rename from elpa/projectile-20230713.1023/projectile.el rename to elpa/projectile-20241102.1410/projectile.el index cb880869..3c0ac105 100644 --- a/elpa/projectile-20230713.1023/projectile.el +++ b/elpa/projectile-20241102.1410/projectile.el @@ -1,11 +1,12 @@ ;;; projectile.el --- Manage and navigate projects in Emacs easily -*- lexical-binding: t -*- -;; Copyright © 2011-2023 Bozhidar Batsov +;; Copyright © 2011-2024 Bozhidar Batsov ;; Author: Bozhidar Batsov ;; URL: https://github.com/bbatsov/projectile ;; Keywords: project, convenience -;; Version: 2.8.0-snapshot +;; Package-Version: 20241102.1410 +;; Package-Revision: 9b466af28bac ;; Package-Requires: ((emacs "25.1")) ;; This file is NOT part of GNU Emacs. @@ -224,8 +225,6 @@ When nil Projectile will consider the current directory the project root." :group 'projectile :type 'string) -(make-obsolete-variable 'projectile-keymap-prefix "Use (define-key projectile-mode-map (kbd ...) 'projectile-command-map) instead." "2.0.0") - (defcustom projectile-cache-file (expand-file-name "projectile.cache" user-emacs-directory) "The name of Projectile's cache file." @@ -331,6 +330,8 @@ See `projectile-register-project-type'." ".bzr" ; Bazaar VCS root dir "_darcs" ; Darcs VCS root dir ".pijul" ; Pijul VCS root dir + ".sl" ; Sapling VCS root dir + ".jj" ; Jujutsu VCS root dir ) "A list of files considered to mark the root of a project. The bottommost (parentmost) match has precedence." @@ -424,7 +425,9 @@ is set to `alien'." "^\\.stack-work$" "^\\.ccls-cache$" "^\\.cache$" - "^\\.clangd$") + "^\\.clangd$" + "^\\.sl$" + "^\\.jj$") "A list of directories globally ignored by projectile. Regular expressions can be used. @@ -681,7 +684,8 @@ means check all the subdirectories of DIRECTORY. Etc." ((executable-find "fd") "fd")) "Path or name of fd executable used by Projectile if enabled. Nil means fd is not installed or should not be used." - :type 'string) + :type 'string + :package-version '(projectile . "2.8.0")) (defcustom projectile-git-use-fd (when projectile-fd-executable t) "Non-nil means use fd to implement git ls-files. @@ -697,7 +701,7 @@ their deletions are staged." :group 'projectile :type 'string) -(defcustom projectile-git-fd-args "-H -0 -E .git -tf --strip-cwd-prefix" +(defcustom projectile-git-fd-args "-H -0 -E .git -tf --strip-cwd-prefix -c never" "Arguments to fd used to re-implement `git ls-files'. This is used with `projectile-fd-executable' when `projectile-git-use-fd' is non-nil." @@ -722,6 +726,18 @@ Set to nil to disable listing submodules contents." :group 'projectile :type 'string) +(defcustom projectile-jj-command "jj files --no-pager . | tr '\\n' '\\0'" + "Command used by projectile to get the files in a Jujutsu project." + :group 'projectile + :type 'string + :package-version '(projectile . "2.9.0")) + +(defcustom projectile-sapling-command "sl locate -0 -I ." + "Command used by projectile to get the files in a Sapling project." + :group 'projectile + :type 'string + :package-version '(projectile . "2.9.0")) + (defcustom projectile-fossil-command (concat "fossil ls | " (when (string-equal system-type "windows-nt") @@ -755,11 +771,8 @@ Set to nil to disable listing submodules contents." (cond ;; we prefer fd over find ;; note that --strip-cwd-prefix is only available in version 8.3.0+ - ((executable-find "fd") - "fd . -0 --type f --color=never --strip-cwd-prefix") - ;; fd's executable is named fdfind is some Linux distros (e.g. Ubuntu) - ((executable-find "fdfind") - "fdfind . -0 --type f --color=never --strip-cwd-prefix") + (projectile-fd-executable + (format "%s . -0 --type f --color=never --strip-cwd-prefix" projectile-fd-executable)) ;; with find we have to be careful to strip the ./ from the paths ;; see https://stackoverflow.com/questions/2596462/how-to-strip-leading-in-unix-find (t "find . -type f | cut -c3- | tr '\\n' '\\0'")) @@ -860,6 +873,17 @@ If the value is nil, there is no limit to the opend buffers count." :type 'integer :package-version '(projectile . "2.2.0")) +(defcustom projectile-cmd-hist-ignoredups t + "Controls when inputs are added to projectile's command history. + +A value of t means consecutive duplicates are ignored. +A value of `erase' means only the last duplicate is kept. +A value of nil means nothing is ignored." + :type '(choice (const :tag "Don't ignore anything" nil) + (const :tag "Ignore consecutive duplicates" t) + (const :tag "Only keep last duplicate" erase)) + :package-version '(projectile . "2.9.0")) + (defvar projectile-project-test-suffix nil "Use this variable to override the current project's test-suffix property. It takes precedence over the test-suffix for the project type when set. @@ -888,7 +912,7 @@ Should be set via .dir-locals.el.") ;;; Version information -(defconst projectile-version "2.8.0-snapshot" +(defconst projectile-version "2.9.0-snapshot" "The current version of Projectile.") (defun projectile--pkg-version () @@ -1443,9 +1467,6 @@ IGNORED-DIRECTORIES may optionally be provided." (projectile-get-sub-projects-files directory vcs))) (t (projectile-files-via-ext-command directory (projectile-get-ext-command vcs)))))) -(define-obsolete-function-alias 'projectile-dir-files-external 'projectile-dir-files-alien "2.0.0") -(define-obsolete-function-alias 'projectile-get-repo-files 'projectile-dir-files-alien "2.0.0") - (defun projectile-get-ext-command (vcs) "Determine which external command to invoke based on the project's VCS. Fallback to a generic command when not in a VCS-controlled project." @@ -1462,6 +1483,8 @@ Fallback to a generic command when not in a VCS-controlled project." ('darcs projectile-darcs-command) ('pijul projectile-pijul-command) ('svn projectile-svn-command) + ('sapling projectile-sapling-command) + ('jj projectile-jj-command) (_ projectile-generic-command))) (defun projectile-get-sub-projects-command (vcs) @@ -2050,7 +2073,17 @@ project-root for every file." ((bound-and-true-p ivy-mode) 'ivy) (t 'default)) projectile-completion-system) - ('default (completing-read prompt choices nil nil initial-input)) + ('default (completing-read prompt (lambda (string pred action) + (cond + ;; this metadata is used by + ;; packages like marginalia and + ;; embark to enhance how they + ;; present candidates + ((eq action 'metadata) + '(metadata . ((category . project-file)))) + (t + (complete-with-action action choices string pred)))) + nil nil initial-input)) ('ido (ido-completing-read prompt choices nil nil initial-input)) ('helm (if (and (fboundp 'helm) @@ -2481,9 +2514,10 @@ With a prefix arg INVALIDATE-CACHE invalidates the cache first." Parameters MODE VARIABLE VALUE are passed directly to `add-dir-local-variable'." (let ((inhibit-read-only t) (default-directory (projectile-acquire-root))) - (add-dir-local-variable mode variable value) - (save-buffer) - (kill-buffer))) + (save-selected-window + (add-dir-local-variable mode variable value) + (save-buffer) + (kill-buffer)))) ;;;###autoload (defun projectile-delete-dir-local-variable (mode variable) @@ -2493,9 +2527,10 @@ Parameters MODE VARIABLE VALUE are passed directly to `delete-dir-local-variable'." (let ((inhibit-read-only t) (default-directory (projectile-acquire-root))) - (delete-dir-local-variable mode variable) - (save-buffer) - (kill-buffer))) + (save-selected-window + (delete-dir-local-variable mode variable) + (save-buffer) + (kill-buffer)))) ;;;; Sorting project files @@ -3024,6 +3059,12 @@ it acts on the current project." (or (projectile-verify-file-wildcard "?*.csproj" dir) (projectile-verify-file-wildcard "?*.fsproj" dir))) +(defun projectile-dotnet-sln-project-p (&optional dir) + "Check if a project contains a .NET solution project marker. +When DIR is specified it checks DIR's project, otherwise +it acts on the current project." + (or (projectile-verify-file-wildcard "?*.sln" dir))) + (defun projectile-go-project-p (&optional dir) "Check if a project contains Go source files. When DIR is specified it checks DIR's project, otherwise @@ -3063,6 +3104,7 @@ it acts on the current project." '((:configure-command . (3 19)) (:compile-command . (3 20)) (:test-command . (3 20)) + (:package-command . (3 19)) (:install-command . (3 20)))) (defun projectile--cmake-command-presets-supported (command-type) @@ -3083,19 +3125,31 @@ it acts on the current project." '((:configure-command . "configurePresets") (:compile-command . "buildPresets") (:test-command . "testPresets") + (:package-command . "packagePresets") (:install-command . "buildPresets"))) (defun projectile--cmake-command-preset-array-id (command-type) "Map from COMMAND-TYPE to id of command preset array in CMake preset." (cdr (assoc command-type projectile--cmake-command-preset-array-id-alist))) -(defun projectile--cmake-command-presets (filename command-type) +(defun projectile--cmake-command-presets-shallow (filename command-type) "Get CMake COMMAND-TYPE presets from FILENAME." (when-let ((preset (projectile--cmake-read-preset (projectile-expand-root filename)))) (cl-remove-if (lambda (preset) (equal (gethash "hidden" preset) t)) (gethash (projectile--cmake-command-preset-array-id command-type) preset)))) +(defun projectile--cmake-command-presets (filename command-type) + "Get CMake COMMAND-TYPE presets from FILENAME. Follows included files." + (when-let ((preset (projectile--cmake-read-preset (projectile-expand-root filename)))) + (append + (projectile--cmake-command-presets-shallow filename command-type) + (mapcar + (lambda (included-file) (projectile--cmake-command-presets + (expand-file-name included-file (file-name-directory filename)) + command-type)) + (gethash "include" preset))))) + (defun projectile--cmake-all-command-presets (command-type) "Get CMake user and system COMMAND-TYPE presets." (projectile-flatten @@ -3148,6 +3202,7 @@ select a name of a command preset, or opt a manual command by selecting '((:configure-command . "cmake -S . -B build") (:compile-command . "cmake --build build") (:test-command . "cmake --build build --target test") + (:package-command . "cmake --build build --target package") (:install-command . "cmake --build build --target install"))) (defun projectile--cmake-manual-command (command-type) @@ -3158,6 +3213,7 @@ select a name of a command preset, or opt a manual command by selecting '((:configure-command . "cmake . --preset %s") (:compile-command . "cmake --build --preset %s") (:test-command . "ctest --preset %s") + (:package-command . "cpack --preset %s") (:install-command . "cmake --build --preset %s --target install"))) (defun projectile--cmake-preset-command (command-type preset) @@ -3196,6 +3252,10 @@ a manual COMMAND-TYPE command is created with "CMake install command." (projectile--cmake-command :install-command)) +(defun projectile--cmake-package-command () + "CMake package command." + (projectile--cmake-command :package-command)) + ;;; Project type registration ;; ;; Project type detection happens in a reverse order with respect to @@ -3218,7 +3278,7 @@ a manual COMMAND-TYPE command is created with :compile "dotnet build" :run "dotnet run" :test "dotnet test") -(projectile-register-project-type 'dotnet-sln '("src") +(projectile-register-project-type 'dotnet-sln #'projectile-dotnet-sln-project-p :project-file "?*.sln" :compile "dotnet build" :run "dotnet run" @@ -3234,6 +3294,12 @@ a manual COMMAND-TYPE command is created with ;; File-based detection project types ;; Universal +(projectile-register-project-type 'xmake '("xmake.lua") + :project-file "xmake.lua" + :compile "xmake build" + :test "xmake test" + :run "xmake run" + :install "xmake install") (projectile-register-project-type 'scons '("SConstruct") :project-file "SConstruct" :compile "scons" @@ -3280,7 +3346,7 @@ a manual COMMAND-TYPE command is created with :compile #'projectile--cmake-compile-command :test #'projectile--cmake-test-command :install #'projectile--cmake-install-command - :package "cmake --build build --target package") + :package #'projectile--cmake-package-command) ;; go-task/task (projectile-register-project-type 'go-task '("Taskfile.yml") :project-file "Taskfile.yml" @@ -3319,11 +3385,21 @@ a manual COMMAND-TYPE command is created with :project-file "gulpfile.js" :compile "gulp" :test "gulp test") -(projectile-register-project-type 'npm '("package.json") +(projectile-register-project-type 'npm '("package.json" "package-lock.json") :project-file "package.json" - :compile "npm install" + :compile "npm install && npm run build" :test "npm test" :test-suffix ".test") +(projectile-register-project-type 'yarn '("package.json" "yarn.lock") + :project-file "package.json" + :compile "yarn && yarn build" + :test "yarn test" + :test-suffix ".test") +(projectile-register-project-type 'pnpm '("package.json" "pnpm-lock.yaml") + :project-file "package.json" + :compile "pnpm install && pnpm build" + :test "pnpm test" + :test-suffix ".test") ;; Angular (projectile-register-project-type 'angular '("angular.json" ".angular-cli.json") :project-file "angular.json" @@ -3410,8 +3486,8 @@ a manual COMMAND-TYPE command is created with :project-file "build.sc" :src-dir "src/" :test-dir "test/src/" - :compile "mill all __.compile" - :test "mill all __.test" + :compile "mill __.compile" + :test "mill __.test" :test-suffix "Test") ;; Clojure @@ -3483,6 +3559,13 @@ a manual COMMAND-TYPE command is created with :compile "cask install" :test-prefix "test-" :test-suffix "-test") + +(projectile-register-project-type 'emacs-eask '("Eask") + :project-file "Eask" + :compile "eask install" + :test-prefix "test-" + :test-suffix "-test") + (projectile-register-project-type 'emacs-eldev #'projectile-eldev-project-p :project-file "Eldev" :compile "eldev compile" @@ -3544,6 +3627,13 @@ a manual COMMAND-TYPE command is created with :compile "dune build" :test "dune runtest") +;; Zig +(projectile-register-project-type 'zig '("build.zig.zon") + :project-file "build.zig.zon" + :compile "zig build" + :test "zig build test" + :run "zig build run") + (defvar-local projectile-project-type nil "Buffer local var for overriding the auto-detected project type. Normally you'd set this from .dir-locals.el.") @@ -3554,7 +3644,7 @@ Normally you'd set this from .dir-locals.el.") When DIR is specified it detects its project type, otherwise it acts on the current project. -Fallsback to a generic project type when the type can't be determined." +Fallback to a generic project type when the type can't be determined." (let ((project-type (or (car (cl-find-if (lambda (project-type-record) @@ -3622,6 +3712,8 @@ the variable `projectile-project-root'." ((projectile-file-exists-p (expand-file-name "_darcs" project-root)) 'darcs) ((projectile-file-exists-p (expand-file-name ".pijul" project-root)) 'pijul) ((projectile-file-exists-p (expand-file-name ".svn" project-root)) 'svn) + ((projectile-file-exists-p (expand-file-name ".sl" project-root)) 'sapling) + ((projectile-file-exists-p (expand-file-name ".jj" project-root)) 'jj) ;; then we check if there's a VCS marker up the directory tree ;; that covers the case when a project is part of a multi-project repository ;; in those cases you can still the VCS to get a list of files for @@ -3634,6 +3726,8 @@ the variable `projectile-project-root'." ((projectile-locate-dominating-file project-root "_darcs") 'darcs) ((projectile-locate-dominating-file project-root ".pijul") 'pijul) ((projectile-locate-dominating-file project-root ".svn") 'svn) + ((projectile-locate-dominating-file project-root ".sl") 'sapling) + ((projectile-locate-dominating-file project-root ".jj") 'jj) (t 'none))) (defun projectile--test-name-for-impl-name (impl-file-path) @@ -4528,14 +4622,16 @@ be displayed in a different window. Switch to the project specific term buffer if it already exists." (let* ((project (projectile-acquire-root)) (buffer (projectile-generate-process-name "vterm" new-process project))) - (unless (buffer-live-p (get-buffer buffer)) - (unless (require 'vterm nil 'noerror) - (error "Package 'vterm' is not available")) + (unless (require 'vterm nil 'noerror) + (error "Package 'vterm' is not available")) + (if (buffer-live-p (get-buffer buffer)) + (if other-window + (switch-to-buffer-other-window buffer) + (switch-to-buffer buffer)) (projectile-with-default-dir project (if other-window (vterm-other-window buffer) - (vterm buffer)))) - (switch-to-buffer buffer))) + (vterm buffer)))))) ;;;###autoload (defun projectile-run-vterm (&optional arg) @@ -4864,7 +4960,7 @@ directory to open." (defun projectile-recentf-files () "Return a list of recently visited files in a project." (and (boundp 'recentf-list) - (let ((project-root (projectile-acquire-root))) + (let ((project-root (expand-file-name (projectile-acquire-root)))) (mapcar (lambda (f) (file-relative-name f project-root)) (cl-remove-if-not @@ -5176,8 +5272,17 @@ The command actually run is returned." (when command-map (puthash default-directory command command-map) (let ((hist (projectile--get-command-history project-root))) - (unless (string= (car-safe (ring-elements hist)) command) - (ring-insert hist command)))) + (cond + ((eq projectile-cmd-hist-ignoredups t) + (unless (string= (car-safe (ring-elements hist)) command) + (ring-insert hist command))) + ((eq projectile-cmd-hist-ignoredups 'erase) + (let ((idx (ring-member hist command))) + (while idx + (ring-remove hist idx) + (setq idx (ring-member hist command)))) + (ring-insert hist command)) + (t (ring-insert hist command))))) (when save-buffers (save-some-buffers (not compilation-ask-about-save) (lambda () @@ -5332,7 +5437,7 @@ External commands are: `projectile-configure-project', `projectile-install-project', `projectile-package-project', and `projectile-run-project'. -If the prefix argument SHOW_PROMPT is non nil, the command can be edited." +If the prefix argument SHOW-PROMPT is non nil, the command can be edited." (interactive "P") (let* ((project-root (projectile-acquire-root)) (command-history (projectile--get-command-history project-root)) @@ -5352,17 +5457,21 @@ If the prefix argument SHOW_PROMPT is non nil, the command can be edited." (defun compilation-find-file-projectile-find-compilation-buffer (orig-fun marker filename directory &rest formats) "Advice around compilation-find-file. We enhance its functionality by appending the current project's directories -to its search path. This way when filenames in compilation buffers can't be +to its search path. This way when filenames in compilation buffers can't be found by compilation's normal logic they are searched for in project directories." - (let* ((root (projectile-project-root)) - (compilation-search-path - (if (projectile-project-p) - (append compilation-search-path (list root) - (mapcar (lambda (f) (expand-file-name f root)) - (projectile-current-project-dirs))) - compilation-search-path))) - (apply orig-fun `(,marker ,filename ,directory ,@formats)))) + ; If the file already exists, don't bother running the extra logic as the project directories might be massive (i.e. Unreal-sized). + (if (file-exists-p filename) + (apply orig-fun `(,marker ,filename ,directory ,@formats)) + + (let* ((root (projectile-project-root)) + (compilation-search-path + (if (projectile-project-p) + (append compilation-search-path (list root) + (mapcar (lambda (f) (expand-file-name f root)) + (projectile-current-project-dirs))) + compilation-search-path))) + (apply orig-fun `(,marker ,filename ,directory ,@formats))))) (defun projectile-open-projects () "Return a list of all open projects. @@ -5791,7 +5900,7 @@ If PROJECT-PATH is a project, check this one instead." (save-excursion (vc-dir project-path) ;; wait until vc-dir is done - (while (vc-dir-busy) (sleep-for 0 100)) + (while (vc-dir-busy) (sleep-for 0.1)) ;; check for status (save-excursion (save-match-data @@ -5912,7 +6021,7 @@ If the current buffer does not belong to a project, call `previous-buffer'." ;;; Projectile Minor mode -(define-obsolete-variable-alias 'projectile-mode-line-lighter 'projectile-mode-line-prefix "0.12.0") + (defcustom projectile-mode-line-prefix " Projectile" "Mode line lighter prefix for Projectile. @@ -6134,8 +6243,11 @@ when opening new files." ;; it's safe to require this directly, as it was added in Emacs 25.1 (require 'project) -(cl-defmethod project-root ((project (head projectile))) - (cdr project)) +;; Only define an override for project-root if the method exists. For versions +;; before emacs 28, project.el provided project-roots instead of project.root. +(if (fboundp 'project-root) + (cl-defmethod project-root ((project (head projectile))) + (cdr project))) (cl-defmethod project-files ((project (head projectile)) &optional _dirs) (let ((root (project-root project))) @@ -6205,9 +6317,10 @@ Otherwise behave as if called interactively. ;;; savehist-mode - When `savehist-mode' is t, projectile-project-command-history will be saved. ;; See https://github.com/bbatsov/projectile/issues/1637 for more details +(defvar savehist-additional-variables nil) + (if (bound-and-true-p savehist-loaded) (add-to-list 'savehist-additional-variables 'projectile-project-command-history) - (defvar savehist-additional-variables nil) (add-hook 'savehist-mode-hook (lambda() (add-to-list 'savehist-additional-variables 'projectile-project-command-history)))) -- 2.47.3