diff options
| -rw-r--r-- | build-app.lisp | 3 | ||||
| -rw-r--r-- | src/lib.lisp | 4 |
2 files changed, 3 insertions, 4 deletions
diff --git a/build-app.lisp b/build-app.lisp index 155f8e9..6460d9e 100644 --- a/build-app.lisp +++ b/build-app.lisp @@ -69,7 +69,6 @@ my1337pw.") :description "Redeem an invite token.") (text :contents +invite-help-text+))) - ;;; HELPERS (defun find-group-with-header (header) @@ -110,7 +109,7 @@ than the users." (cli::request-invite-code)) ((getopt :long-name "add") - (cli::add-new)) + (oneliners.cli::add-new-oneliner)) (arguments ;; when the first argument is a number, try run a oneliner diff --git a/src/lib.lisp b/src/lib.lisp index d1b8db6..b21272a 100644 --- a/src/lib.lisp +++ b/src/lib.lisp @@ -68,7 +68,7 @@ with the provided name is on the system. It is not perfect. It consults the environment PATH, and looks for the command in any of the directories that appear in the value of that variable." - #+(unix) + #+unix (loop for path in (str:split ":" (uiop:getenv "PATH")) for directory = (cons :absolute (cdr (str:split "/" path))) @@ -79,7 +79,7 @@ the directories that appear in the value of that variable." (remove-if-not #'executable-on-system-p (ppcre:split " +" oneliner))) (defun prompt (prompt &key (out-stream *standard-output*) (in-stream *standard-input*)) - (princ prompt out-stream) + (princ prompt out-stream) (force-output out-stream) (read-line in-stream)) ;;; API REQUEST FUNCTIONS |