aboutsummaryrefslogtreecommitdiff
path: root/build-app.lisp
diff options
context:
space:
mode:
Diffstat (limited to 'build-app.lisp')
-rw-r--r--build-app.lisp58
1 files changed, 43 insertions, 15 deletions
diff --git a/build-app.lisp b/build-app.lisp
index c7f8667..1b16837 100644
--- a/build-app.lisp
+++ b/build-app.lisp
@@ -1,14 +1,26 @@
+;;; build-app.lisp -- Contains the command line frontend definition
+;;; to build the cli, simply load this file from the command line.
+
(asdf:load-system "oneliners.cli")
(defpackage #:oneliners.cli.app
(:use #:cl #:net.didierverna.clon)
- (:local-nicknames (#:a #:alexandria)))
+ (:local-nicknames (#:a #:alexandria)
+ (#:cli #:oneliners.cli)))
(in-package :oneliners.cli.app)
-(defsynopsis (:postfix "TERMS ... | N ARGS ...")
- (text :contents "Search for oneliner mentioning TERMS or run the Nth search result with arguments ARGS.")
+;;; HELP TEXTS
+(defparameter +invite-help-text+
+ "")
+
+
+;;; CLON SYNOPSIS DEFINITION
+
+(defsynopsis (:postfix "[TERMS ...] | N [ARGS ...]")
(group (:header "Search")
+ (text :contents "Usage: ol [OPTIONS] [TERMS ...]")
+ (text :contents "Each term may be a command name or some tag like 'server' or 'tunnel'")
(lispobj :long-name "count"
:argument-type :optional
:argument-name "Count"
@@ -17,8 +29,22 @@
:typespec 'integer)
(flag :long-name "not-flagged"
:description "Request that no flagged oneliners are returned."))
+ (text :contents " ")
+ (group (:header "Running Oneliners")
+ (text :contents "Usage: ol [OPTIONS] N [ARGS ...]")
+ (text :contents "Runs the Nth search result with possible arguments ARGS.")
+ (flag :long-name "clip"
+ :description "Force an attempt to copy the oneliner to the clipboard instead of running it."))
+ (text :contents " ")
+ (group (:header "Help")
+ (flag :long-name "help"
+ :description "Print this help menu.")
+ (enum :long-name "help-topic"
+ :enum '(:admin :wiki :invites)
+ :argument-name "TOPIC"
+ :description "Print help for a topic. Topics are: wiki, admin, invites"))
(group (:header "Wiki" :hidden t)
- (text :contents "This is text")
+ (text :contents "This section documents options used to add and edit oneliners in the wiki.")
(flag :long-name "add-interactive"
:description "Interactively add a new oneliner")
(flag :long-name "update-interactive"
@@ -30,25 +56,26 @@
:argument-type :optional
: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 (: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")))
+ :description "Redeem an invite token. See also --help-topic=invites"))
+ (group (:header "Invites" :hidden t)
+ (text :contents +invite-help-text+)))
+;;; HELPERS
+
(defun find-group-with-header (header)
+ "This function should be built in. Is it? How to know? The
+documentation is both extensive and trash. Any manual that expects
+you to go to sleep with it at night is written for the author more
+than the users."
(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))
+;;; MAIN ENTRY POINT
+
(defun main ()
"Entry point for our standalone application."
(make-context)
@@ -71,9 +98,10 @@
hist-number (rest arguments))
(uiop:quit))
- (format t "TBD: Going to search for commands mentioning the terms ~a~%" arguments))
+ (cli:search-for-oneliners arguments :))
(uiop:quit))
+;;; DUMP EXECUTABLE
(dump "ol" main)