From 1effd61eb856ac1d924add2ab3da2ea0efc018c7 Mon Sep 17 00:00:00 2001 From: Saba Saba Date: Thu, 9 Feb 2023 12:26:23 -0500 Subject: [PATCH] Added delete-no-merged-branches and refactored delete-merged-branches. --- git-repl.cl | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) 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 -- 2.20.1