[elpa] externals/buffer-expose 4f83d85 1/6: Add Projectile support

[Clemens Radermacher]

branch: externals/buffer-expose
commit 4f83d850bdf33f82498d835e431ce60e8733f64a
Author: Dario Gjorgjevski <address@hidden>
Commit: Dario Gjorgjevski <address@hidden>

    Add Projectile support
---
 buffer-expose.el | 39 +++++++++++++++++++++++++++++++++++++++
 1 file changed, 39 insertions(+)

diff --git a/buffer-expose.el b/buffer-expose.el
index dbc2d7f..b179ad9 100644
--- a/buffer-expose.el
+++ b/buffer-expose.el
@@ -416,6 +416,14 @@ corresponds to the number of buffers in
       (when (eq mode (buffer-local-value 'major-mode buf))
         (push buf bufs)))))
 
+(defun buffer-expose--get-project-buffers ()
+  "Get all buffers from `projectile-project-buffers'."
+  (if (not (require 'projectile nil t))
+      (user-error "Projectile not found")
+    (if (not (projectile-project-root))
+       (user-error "Not in project")
+      (projectile-project-buffers))))
+
 ;; * Grid
 
 (defun buffer-expose--other-window ()
@@ -803,6 +811,37 @@ show per page, which defaults to 
`buffer-expose-max-num-windows'."
      (eq (buffer-local-value 'major-mode buf)
          'dired-mode))))
 
+
+(defun buffer-expose-project (&optional max)
+  "Expose buffers of `projectile-project-buffers'.
+
+If MAX is given it determines the maximum number of windows to
+show per page, which defaults to `buffer-expose-max-num-windows'."
+  (interactive "P")
+  (buffer-expose-show-buffers
+   (buffer-expose--get-project-buffers) max))
+
+
+(defun buffer-expose-project-stars (&optional max)
+  "Expose *special* buffers of `projectile-project-buffers'.
+
+If MAX is given it determines the maximum number of windows to
+show per page, which defaults to `buffer-expose-max-num-windows'."
+  (interactive "P")
+  (buffer-expose-show-buffers
+   (buffer-expose--get-project-buffers) max '("\\`[^*]")))
+
+
+(defun buffer-expose-project-no-stars (&optional max)
+  "Expose buffers of `projectile-project-buffers' omitting *special* ones.
+
+If MAX is given it determines the maximum number of windows to
+show per page, which defaults to `buffer-expose-max-num-windows'."
+  (interactive "P")
+    (buffer-expose-show-buffers
+     (buffer-expose--get-project-buffers) max '("\\`\\*")))
+
+
 ;; * Grid navigation