diff options
| author | Colin Okay <okay@toyful.space> | 2022-02-28 11:47:26 -0600 |
|---|---|---|
| committer | Colin Okay <okay@toyful.space> | 2022-02-28 11:47:26 -0600 |
| commit | 670428d3c4fa8280fb415dad61badd4f283d3a55 (patch) | |
| tree | 2ad321218ee11da8ac5e9d9e4867c99f9946a8cf /build-app.lisp | |
| parent | 30b5f65fd5c89dda8081058ab62da5e1d78335fe (diff) | |
new config creation wizard
Diffstat (limited to 'build-app.lisp')
| -rw-r--r-- | build-app.lisp | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/build-app.lisp b/build-app.lisp index 793ffae..f0ae688 100644 --- a/build-app.lisp +++ b/build-app.lisp @@ -39,6 +39,8 @@ my1337pw.") :description "Return flagged oneliners. Ignores TAGS. Respects --limit") (flag :long-name "not-flagged" :description "Request that no flagged oneliners are returned.") + (flag :long-name "newest" + :description "Return newest oneliners. Ignores TAGs. Respects --limit up to server specified maxiumum.") (stropt :long-name "brief-like" :argument-name :optional :default-value ".*" @@ -132,6 +134,9 @@ than the users." ((getopt :long-name "all-flagged") (cli::all-flagged-oneliners (getopt :long-name "limit"))) + ((getopt :long-name "newest") + (cli::newest-oneliners (getopt :long-name "limit"))) + (arguments ;; when the first argument is a number, try run a oneliner (a:when-let (hist-number (parse-integer (first arguments) :junk-allowed t)) |