From f5ce2ec1dd4e470a52d56e02b2a0b7cb7c4bc4b0 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 extra commands and switched name to git-repl.cl

---
 git-skipper.cl => git-repl.cl | 17 +++++++++++++----
 git-skipper-load.cl           |  4 ----
 2 files changed, 13 insertions(+), 8 deletions(-)
 rename git-skipper.cl => git-repl.cl (80%)
 delete mode 100644 git-skipper-load.cl

diff --git a/git-skipper.cl b/git-repl.cl
similarity index 80%
rename from git-skipper.cl
rename to git-repl.cl
index fbf8290..8517012 100644
--- a/git-skipper.cl
+++ b/git-repl.cl
@@ -1,4 +1,4 @@
-; sbcl --load git-skipper.cl
+; sbcl --load git-repl.cl
 
 (ql:quickload '("cl-utilities" "str"))
 
@@ -19,6 +19,15 @@
 (defun git (&rest arguments)
   (run-command (str:join " " (cons "git" arguments))))
 
+(defun status ()
+  (git "status"))
+
+(defun add-all ()
+  (git "add" "."))
+
+(defun commit ()
+  (git "commit" "-v"))
+
 (defun modified-files ()
   (git "diff" "--name-only"))
 
@@ -43,7 +52,7 @@
 (defun delete-merged-branches ()
   (mapcar #'delete-branch (git "branch" "--merged")))
 
-(defun make ()
+(defun make (executable-name)
   (progn
-    (load (compile-file "git-skipper.cl"))
-    (save-lisp-and-die "git-skipper.exe" :executable t)))
+    (load (compile-file "git-repl.cl"))
+    (save-lisp-and-die executable-name :executable t)))
diff --git a/git-skipper-load.cl b/git-skipper-load.cl
deleted file mode 100644
index 18d8df5..0000000
--- a/git-skipper-load.cl
+++ /dev/null
@@ -1,4 +0,0 @@
-(load (compile-file "git-skipper.cl"))
-(save-lisp-and-die "git-skipper.exe" :executable t)
-
-; sbcl --load git-skipper.cl
-- 
2.20.1