From 7c5343ca4108d2682b3f9c6e48f460c55381af8c Mon Sep 17 00:00:00 2001 From: Saba Saba Date: Thu, 9 Feb 2023 12:26:19 -0500 Subject: [PATCH] Added instructions --- git-repl.cl | 12 +++++++++++- 1 file changed, 11 insertions(+), 1 deletion(-) 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) -- 2.20.1