blob: 2591927e6c7b2e8778216097be1806729eb2b05f (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
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 ""))
|