diff options
| author | Colin Okay <okay@toyful.space> | 2022-03-25 15:29:00 -0500 |
|---|---|---|
| committer | Colin Okay <okay@toyful.space> | 2022-03-25 15:29:00 -0500 |
| commit | 4d65d894419c097aa366bc8798e53d7934ea838e (patch) | |
| tree | 0e5c774a353a33925946fa86260f879f77d58fed | |
| parent | c698e20e1a8d0871662413b004a908f20bdb3960 (diff) | |
[add] option to show the client version
| -rw-r--r-- | app/app.lisp | 14 |
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 |