From: Saba Saba <saba@sabadev.xyz>
Date: Thu, 9 Feb 2023 17:26:17 +0000 (-0500)
Subject: Added git branch cleanup commands and a git-skipper-load.cl file for building.
X-Git-Url: http://sabadev.xyz:4321/?a=commitdiff_plain;h=7a5353db3e34e948763de65494aef29395d1a224;p=git-repl.git

Added git branch cleanup commands and a git-skipper-load.cl file for building.
---

diff --git a/git-skipper-load.cl b/git-skipper-load.cl
new file mode 100644
index 0000000..193a411
--- /dev/null
+++ b/git-skipper-load.cl
@@ -0,0 +1,3 @@
+(in-package :cl-user)
+
+(load (compile-file "git-skipper.cl"))
diff --git a/git-skipper.cl b/git-skipper.cl
index 95edc75..b6ed3a9 100644
--- a/git-skipper.cl
+++ b/git-skipper.cl
@@ -35,7 +35,8 @@
 (defun no-skip-all ()
   (mapcar #'no-skip-file (skipped-files)))
 
-(no-skip-all)
-(skip-modified)
-(modified-files)
-(skipped-files)
+(defun delete-branch (branch-name)
+  (git "branch" "-d" branch-name))
+
+(defun delete-merged-branches ()
+  (mapcar #'delete-branch (git "branch" "--merged")))