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 (file)
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 (file)
--- 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")))