X-Git-Url: https://git.xandkar.net/?a=blobdiff_plain;f=tt.rkt;h=421af3687367741a5574e1d2813a8ef4973cfee0;hb=5aaa408b900c1e3882cf74475d7945a4a9492d20;hp=b691fd0669da6ed0504868939722cea1eb88e064;hpb=dad4504d0e1c23bcd1de18eaa5d6615a228f9658;p=tt.git diff --git a/tt.rkt b/tt.rkt index b691fd0..421af36 100644 --- a/tt.rkt +++ b/tt.rkt @@ -34,6 +34,9 @@ ; - d | download ; - u | upload ; - calls user-configured command to upload user's own feed file to their server +; +; Looks like a better CLI parser than "racket/cmdline": +; https://docs.racket-lang.org/natural-cli/ #lang racket @@ -216,7 +219,7 @@ (define user-agent (let* ([prog-name "tt"] - [prog-version "0.3.4"] + [prog-version "0.3.5"] [prog-uri "https://github.com/xandkar/tt"] [user-feed-file (expand-user-path "~/twtxt-me.txt")] [user @@ -249,7 +252,7 @@ (define args (current-command-line-arguments)) (define feeds - (if (vector-empty? args) + (if (= 0 (vector-length args)) (we-are-twtxt) (file->feeds (vector-ref args 0)))) (define out-format 'multi-line)