From: Saba Saba <saba@sabadev.xyz>
Date: Thu, 9 Feb 2023 17:26:19 +0000 (-0500)
Subject: Added instructions
X-Git-Url: http://sabadev.xyz:4321/?a=commitdiff_plain;h=7c5343ca4108d2682b3f9c6e48f460c55381af8c;p=git-repl.git

Added instructions
---

diff --git a/git-repl.cl b/git-repl.cl
index 57581c2..5b8ee84 100644
--- a/git-repl.cl
+++ b/git-repl.cl
@@ -44,7 +44,7 @@
   "Runs an arbitrary git command. Separate each token as a string, for example: (git \"add\" \"-i\")"
   (run-command (str:join " " (cons "git" arguments))))
 
-(defun-public help ()
+(defun-public commands ()
   "Lists every public command. Use (describe 'command-name) for documentation."
   (do-external-symbols (sym)
     (format t "~a~%" sym)))
@@ -127,3 +127,13 @@
 (defun-public delete-merged-branches ()
   "Deletes every local branch covered by \'git branch --merged\'"
   (mapcar #'delete-branch (git "branch" "--merged")))
+
+(defun-public help ()
+  "Prints out usage instructions for this REPL"
+  (write-line "This is a Common Lisp REPL.")
+  (write-line "Execute (commands) for a list of commands.")
+  (write-line "Use (describe 'command-name) for documentation on a given command.")
+  (write-line "Execute (help) to see these instructions again.")
+  nil)
+
+(help)