~evhan/chicken-sourcehut

5a2be580d7490cceadbd03c56f6ba1e41d60410e — Evan Hanson 5 months ago 2e380b1
Make `update ticket` command take comment from stdin by default
1 files changed, 2 insertions(+), 2 deletions(-)

M cli.scm
M cli.scm => cli.scm +2 -2
@@ 315,7 315,7 @@
       ((-f --filename) . comment)
       ((--resolution) . resolution)
       ((--status) . status))))
  (define comment    (alist-ref* '(--comment -f --filename) opts eq?))
  (define comment    (alist-ref* '(--comment -f --filename) opts eq? "-"))
  (define resolution (alist-ref '--resolution opts eq?))
  (define status     (alist-ref '--status opts eq?))
  (match (assq '-- opts)


@@ 388,7 388,7 @@
    (print "    -f, --description <input>      description (stdin)")
    (print "        --title <title>            title (required)")
    (print "  update ticket <tracker> <id>   Update ticket")
    (print "    -f, --comment <comment>        comment (none)")
    (print "    -f, --comment <comment>        comment (stdin)")
    (print "        --status <status>          status (none)")
    (print "        --resolution <resolution>  resolution (none)")
    (print)))