From 5c590a614544c977964692e41b0e5c19043b142c Mon Sep 17 00:00:00 2001 From: Colin Okay Date: Thu, 4 Aug 2022 10:54:39 -0500 Subject: [wip] working on clingon refactor --- app/run.lisp | 36 ++++++++++++++++++++++++++++++++++++ 1 file changed, 36 insertions(+) create mode 100644 app/run.lisp (limited to 'app/run.lisp') diff --git a/app/run.lisp b/app/run.lisp new file mode 100644 index 0000000..2591927 --- /dev/null +++ b/app/run.lisp @@ -0,0 +1,36 @@ +;;;; run.lisp -- run a command + +(in-package :oneliners.cli.app) + +(defun run/options () + (list + (make-option + :integer + :short-name #\t + :long-name "timeout" + :key :timeout + :initial-value 1 + :description "Seconds to wait for output before giving up.") + (make-option + :flag + :short-name #\v + :long-name "verbose" + :key :verbose + :description "echoes the oneliner text that is about to be run") + (make-option + :flag + :short-name #\c + :long-name "confirm" + :key :confirm + :description "prompts the user for confirmation before running the command"))) + +(defun run/handler (cmd)) + +(defparameter +run/examples+ + '(())) + + +(defun run/command () + (cli:make-command + :name "run" + :description "")) -- cgit v1.2.3