aboutsummaryrefslogtreecommitdiff
path: root/app/app.lisp
diff options
context:
space:
mode:
authorColin Okay <okay@toyful.space>2022-03-25 15:29:00 -0500
committerColin Okay <okay@toyful.space>2022-03-25 15:29:00 -0500
commit4d65d894419c097aa366bc8798e53d7934ea838e (patch)
tree0e5c774a353a33925946fa86260f879f77d58fed /app/app.lisp
parentc698e20e1a8d0871662413b004a908f20bdb3960 (diff)
[add] option to show the client version
Diffstat (limited to 'app/app.lisp')
-rw-r--r--app/app.lisp14
1 files changed, 10 insertions, 4 deletions
diff --git a/app/app.lisp b/app/app.lisp
index b0f845c..784d887 100644
--- a/app/app.lisp
+++ b/app/app.lisp
@@ -215,10 +215,14 @@ Their meaning is as follows:
(text :contents "Print information about a contributor."))
(group (:header "EDITOR CONFIGURATION" :hidden t)
(text :contents +configure-your-edtior+))
- (group (:header "VARIABLES IN ONELINERS")
+ (group (:header "VARIABLES IN ONELINERS" :hidden t)
(text :contents +oneliners-variables-help-text+))
- (group (:header "ICONS IN PRINTOUT")
+ (group (:header "ICONS IN PRINTOUT" :hidden t)
(text :contents +icons-in-printout-docs+))
+ (group (:header "VERSION" :hidden t)
+ (text :contents "Usage: ol version")
+ (text :contents " ")
+ (text :contents "Prints the version of this client."))
(group (:header "HELP MENU")
(text :contents "Usage: ol help [SECTION]")
(text :contents " ")
@@ -233,10 +237,10 @@ Their meaning is as follows:
'("search" "run" "clip" "show" "new" "edit"
"delete" "drafts" "trash" "publish" "flag"
"lock" "redeem" "invite" "login" "whois"
- "password" "signature"))))
+ "password" "signature" "version"))))
(text :contents " ")
(text :contents "Additional topics include:")
-(text :contents
+ (text :contents
(str:join
#\newline
(tabulate-strings
@@ -277,6 +281,8 @@ than the users."
(:help
(princ #\newline)
(help-topic (or (first args) "help")))
+ (:version
+ (format t "ol v~a~%" +ol-version+ ))
(:search
(cond
;; if there are args, use them as search terms