From: Saba Saba Date: Thu, 9 Feb 2023 17:26:22 +0000 (-0500) Subject: Fixed up some documentation X-Git-Url: http://sabadev.xyz:4321/?a=commitdiff_plain;h=92dc373dbb4e88afd367d7ee7bf0e61ceaf56057;p=git-repl.git Fixed up some documentation --- diff --git a/git-repl.cl b/git-repl.cl index 8a4bf03..e22e15c 100644 --- a/git-repl.cl +++ b/git-repl.cl @@ -10,7 +10,7 @@ (defvar ,name ,value ,doc))) (defvar-public *file-chunk-length* 10 "The number of files to operate on at a time for handle-file-paths") -(defvar-public *installation-file* "C:/bin/git-repl.exe" "The filepath to install to when running (make-install)") +(defvar-public *installation-file* "C:/bin/git-repl.exe" "The filepath to install to when running (make)") (defmacro print-or-collect-symbols (do-symbol-action &key (print-symbols t)) (let ((sym (gensym)) (results (gensym))) @@ -47,6 +47,7 @@ (pop-config)))) (defmacro toggle-without-config (without-config &body body) + "Handles the common pattern of toggling whether to execute a command within the context of without-config-do or not" `(if ,without-config (without-config-do ,@body) ,@body)) @@ -61,14 +62,14 @@ output))) (defun-public run-git (arguments &key (list-output nil)) - "Runs an arbitrary git command. Provide the list of arguments as a list of strings, for example: (run-git '(\"add\" \"-i\")) + "Runs an arbitrary git command. Provide the list of arguments as a list of strings, for example: (run-git '(\"add\" \".\")) When :list-output is set to NIL (default), the raw output is provided as a single string. When :list-output is set to T, the output is provided as a list of strings. - To use :list-output, provide it after the argument as follows: (run-git '(\"add\" \"-i\") :list-output nil)" + To use :list-output, provide it after the argument as follows: (run-git '(\"add\" \".\") :list-output nil)" (run-command (str:join " " (cons "git" arguments)) :list-output list-output)) (defun-public git (&rest arguments) - "Runs an arbitrary git command. Separate each token as a string, for example: (git \"add\" \"-i\")" + "Runs an arbitrary git command. Separate each token as a string, for example: (git \"add\" \".\")" (run-git arguments :list-output t)) (defun-public commands (&key (print-symbols t))