From 7a5353db3e34e948763de65494aef29395d1a224 Mon Sep 17 00:00:00 2001
From: Saba Saba <saba@sabadev.xyz>
Date: Thu, 9 Feb 2023 12:26:17 -0500
Subject: [PATCH] Added git branch cleanup commands and a git-skipper-load.cl
 file for building.

---
 git-skipper-load.cl | 3 +++
 git-skipper.cl      | 9 +++++----
 2 files changed, 8 insertions(+), 4 deletions(-)
 create mode 100644 git-skipper-load.cl

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")))
-- 
2.20.1