aboutsummaryrefslogtreecommitdiff
path: root/build-app.lisp
diff options
context:
space:
mode:
Diffstat (limited to 'build-app.lisp')
-rw-r--r--build-app.lisp40
1 files changed, 31 insertions, 9 deletions
diff --git a/build-app.lisp b/build-app.lisp
index 24064e7..c7f8667 100644
--- a/build-app.lisp
+++ b/build-app.lisp
@@ -1,43 +1,65 @@
(asdf:load-system "oneliners.cli")
(defpackage #:oneliners.cli.app
- (:use #:cl #:net.didierverna.clon))
+ (:use #:cl #:net.didierverna.clon)
+ (:local-nicknames (#:a #:alexandria)))
(in-package :oneliners.cli.app)
(defsynopsis (:postfix "TERMS ... | N ARGS ...")
- (text :contents "This is some arbitrary text.")
+ (text :contents "Search for oneliner mentioning TERMS or run the Nth search result with arguments ARGS.")
(group (:header "Search")
- (lispobj :long-name "count" :short-name "n"
+ (lispobj :long-name "count"
:argument-type :optional
+ :argument-name "Count"
:default-value 10
+ :description "The maximum number of results to return."
:typespec 'integer)
(flag :long-name "not-flagged"
:description "Request that no flagged oneliners are returned."))
+ (group (:header "Wiki" :hidden t)
+ (text :contents "This is text")
+ (flag :long-name "add-interactive"
+ :description "Interactively add a new oneliner")
+ (flag :long-name "update-interactive"
+ :description "Interactively edit a oneliner and update the wiki."))
(group (:header "Admin" :hidden t)
(flag :long-name "invite"
:description "Request an invite token to send to a friend.")
(stropt :long-name "redeem"
:argument-type :optional
- :default-value ""
+ :default-value "DUMMY-TOKEN"
:argument-name "TOKEN"
:description "Redeem an invite token. Enter an
interactive process of setting up a new contributor
account with the inviting server"))
- (group ()
- (enum :long-name "help" :short-name "h"
- :enum '(:help :admin)
- :description "print this help menu.")))
+ (group (:header "Help")
+ (flag :long-name "help"
+ :description "Print this help menu.")
+ (enum :long-name "help-topic"
+ :enum '(:admin :wiki :search :help)
+ :argument-name "TOPIC"
+ :description "Print help for a topic. Topics are: search, wiki, admin, help")))
+(defun find-group-with-header (header)
+ (loop for item in (net.didierverna.clon::items *synopsis*)
+ when (and (typep item 'net.didierverna.clon::group)
+ (string-equal header (net.didierverna.clon::header item)))
+ return item))
(defun main ()
"Entry point for our standalone application."
(make-context)
- (when (getopt :short-name "h")
+ (when (getopt :long-name "help")
(help )
(uiop:quit))
+
+ (a:when-let (topic (getopt :long-name "help-topic"))
+ (help :item (find-group-with-header (symbol-name topic)))
+ (uiop:quit))
+
(let ((arguments (remainder)))
(unless arguments