From c580af7b1bb3f49649952273fa749660ac886fc5 Mon Sep 17 00:00:00 2001 From: Saba Saba Date: Thu, 9 Feb 2023 12:26:23 -0500 Subject: [PATCH] Added delete-branches command. --- git-repl.cl | 4 ++++ 1 file changed, 4 insertions(+) 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"))) -- 2.20.1