[nongnu] elpa/projectile 1fbce79c86: Add Pijul support (#1757)

[ELPA Syncer]

branch: elpa/projectile
commit 1fbce79c86a8f713286ce5fbf47b62fa4041e7c4
Author: Daniel Ziltener <zilti@users.noreply.github.com>
Commit: GitHub <noreply@github.com>

    Add Pijul support (#1757)
---
 CHANGELOG.md  |  1 +
 projectile.el | 10 ++++++++++
 2 files changed, 11 insertions(+)

diff --git a/CHANGELOG.md b/CHANGELOG.md
index d8884fc46d..dea93c600e 100644
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -4,6 +4,7 @@
 
 ### New features
 
+* [#1757](https://github.com/bbatsov/projectile/pull/1757) Add support for the 
Pijul VCS
 * [#1745](https://github.com/bbatsov/projectile/pull/1745) Allow 
`projectile-update-project-type` to change project type precendence and remove 
project options.
 * [#1699](https://github.com/bbatsov/projectile/pull/1699): 
`projectile-ripgrep` now supports [`rg.el`](https://github.com/dajva/rg.el).
 * [#1712](https://github.com/bbatsov/projectile/issues/1712): Make it possible 
to hide Projectile's menu. See `projectile-show-menu`.
diff --git a/projectile.el b/projectile.el
index b5f3bae13a..e58a0d5e23 100644
--- a/projectile.el
+++ b/projectile.el
@@ -327,6 +327,7 @@ See `projectile-register-project-type'."
     "_FOSSIL_"    ; Fossil VCS root DB on Windows
     ".bzr"        ; Bazaar VCS root dir
     "_darcs"      ; Darcs VCS root dir
+    ".pijul"      ; Pijul VCS root dir
     )
   "A list of files considered to mark the root of a project.
 The bottommost (parentmost) match has precedence."
@@ -405,6 +406,7 @@ is set to 'alien'."
     "_FOSSIL_"
     ".bzr"
     "_darcs"
+    ".pijul"
     ".tox"
     ".svn"
     ".stack-work"
@@ -684,6 +686,11 @@ Set to nil to disable listing submodules contents."
   :group 'projectile
   :type 'string)
 
+(defcustom projectile-pijul-command "pijul list | tr '\\n' '\\0'"
+   "Command used by projectile to get the files in a pijul project."
+   :group 'projectile
+   :type 'string)
+
 (defcustom projectile-svn-command "svn list -R . | grep -v '$/' | tr '\\n' 
'\\0'"
   "Command used by projectile to get the files in a svn project."
   :group 'projectile
@@ -1334,6 +1341,7 @@ Fallback to a generic command when not in a 
VCS-controlled project."
     ('fossil projectile-fossil-command)
     ('bzr projectile-bzr-command)
     ('darcs projectile-darcs-command)
+    ('pijul projectile-pijul-command)
     ('svn projectile-svn-command)
     (_ projectile-generic-command)))
 
@@ -3366,6 +3374,7 @@ PROJECT-ROOT is the targeted directory.  If nil, use
    ((projectile-file-exists-p (expand-file-name "_FOSSIL_" project-root)) 
'fossil)
    ((projectile-file-exists-p (expand-file-name ".bzr" project-root)) 'bzr)
    ((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)
    ;; 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
@@ -3377,6 +3386,7 @@ PROJECT-ROOT is the targeted directory.  If nil, use
    ((projectile-locate-dominating-file project-root "_FOSSIL_") 'fossil)
    ((projectile-locate-dominating-file project-root ".bzr") 'bzr)
    ((projectile-locate-dominating-file project-root "_darcs") 'darcs)
+   ((projectile-locate-dominating-file project-root ".pijul") 'pijul)
    ((projectile-locate-dominating-file project-root ".svn") 'svn)
    (t 'none)))