[nongnu] elpa/gc-buffers bf2940e067 07/11: Add function to kill *Async Shell Command* buffers

[ELPA Syncer]

branch: elpa/gc-buffers
commit bf2940e067b28f82c5e6e4114f4e2dd804cc3645
Author: Akib Azmain Turja <akib@disroot.org>
Commit: Akib Azmain Turja <akib@disroot.org>

    Add function to kill *Async Shell Command* buffers
---
 gc-buffers.el | 28 ++++++++++++++++++++++------
 1 file changed, 22 insertions(+), 6 deletions(-)

diff --git a/gc-buffers.el b/gc-buffers.el
index a706747386..531c19feb0 100644
--- a/gc-buffers.el
+++ b/gc-buffers.el
@@ -52,11 +52,13 @@
   :link '(url-link "https://codeberg.org/akib/emacs-gc-buffers";)
   :prefix "gc-buffers-")
 
-(defcustom gc-buffers-functions (list #'gc-buffers-elisp-flymake
-                                      #'gc-buffers-elisp-flymake-stderr
-                                      #'gc-buffers-inactive-minibuffer
-                                      #'gc-buffers-flymake-diagnostics
-                                      #'gc-buffers-helpful-all)
+(defcustom gc-buffers-functions
+  (list #'gc-buffers-elisp-flymake
+        #'gc-buffers-elisp-flymake-stderr
+        #'gc-buffers-inactive-minibuffer
+        #'gc-buffers-flymake-diagnostics
+        #'gc-buffers-helpful-all
+        #'gc-buffers-async-shell-command-buffer)
   "Functions to find garbage buffers.
 
 Each function is called with the buffer to test, and if any of the
@@ -72,7 +74,8 @@ example, never put `always' here, that would delete all 
buffers."
                  #'gc-buffers-inactive-minibuffer
                  #'gc-buffers-flymake-diagnostics
                  #'gc-buffers-flymake-diagnostics-all
-                 #'gc-buffers-helpful-all))
+                 #'gc-buffers-helpful-all
+                 #'gc-buffers-async-shell-command-buffer))
 
 (defcustom gc-buffers-ignore-functions (list #'gc-buffers-ignore-visible)
   "Functions to ignore buffers while killing.
@@ -185,6 +188,19 @@ Check if the major mode of BUFFER is 
`flymake-diagnostics-buffer-mode'."
 Check if the major mode of BUFFER is `helpful-mode'."
   (eq (buffer-local-value 'major-mode buffer) 'helpful-mode))
 
+(defun gc-buffers-async-shell-command-buffer (buffer)
+  "Kill garbage *Async Shell Command* buffer.
+
+A buffer is considered garbage if it has no process.
+
+Check if the name of BUFFER begins with *Async Shell Command* and it has
+no process."
+  (and (string-match-p (rx string-start "*Async Shell Command*"
+                           (zero-or-more not-newline)
+                           string-end)
+                       (buffer-name buffer))
+       (not (get-buffer-process buffer))))
+
 
 ;;;; Ignore functions: