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

Added delete-no-merged-branches and refactored delete-merged-branches.
---

diff --git a/git-repl.cl b/git-repl.cl
index 478c59e..d3bfda2 100644
--- a/git-repl.cl
+++ b/git-repl.cl
@@ -202,12 +202,16 @@
   (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\'"
+  "Deletes every local branch covered by \'git branch --merged\' or \'git branch --no-merged\' based on the value of the argument \'is-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")))
+  (delete-branches t))
+
+(defun-public delete-no-merged-branches ()
+  "Deletes every local branch covered by \'git branch --no-merged\'"
+  (delete-branches nil))
 
 (defun-public rebase (revision &key (without-config nil))
   "Performs a rebase