From: Saba Saba <saba@sabadev.xyz>
Date: Thu, 9 Feb 2023 17:26:23 +0000 (-0500)
Subject: Added delete-branches command.
X-Git-Url: http://sabadev.xyz:4321/?a=commitdiff_plain;h=c580af7b1bb3f49649952273fa749660ac886fc5;p=git-repl.git

Added delete-branches command.
---

diff --git a/git-repl.cl b/git-repl.cl
index c4b87e2..478c59e 100644
--- a/git-repl.cl
+++ b/git-repl.cl
@@ -201,6 +201,10 @@
   "Deletes the given local branch name"
   (git "branch" "-d" branch-name))
 
+(defun-public delete-branches (is-merged)
+  "Deletes every local branch covered by \'git branch --merged\' or \'git branch --no-merged\'"
+  (git-chunked-command "branch" "-d" (git "branch" (if is-merged "--merged" "--no-merged"))))
+
 (defun-public delete-merged-branches ()
   "Deletes every local branch covered by \'git branch --merged\'"
   (git-chunked-command "branch" "-d" (git "branch" "--merged")))