X-Git-Url: https://git.xandkar.net/?a=blobdiff_plain;f=tt.rkt;h=59214ffaa17c126401fe35f6206325ee6b99a0ef;hb=3a4b22332acd7b76bcbe4150b5eba9fc80b7f459;hp=4b90055ac8ed4c8c8c394e3672aaac8d1c1be7bc;hpb=a4899240b58d00d8fbc6f1066c1dcd98583170c7;p=tt.git

diff --git a/tt.rkt b/tt.rkt
index 4b90055..59214ff 100644
--- a/tt.rkt
+++ b/tt.rkt
@@ -305,6 +305,7 @@
       "and <command> is one of"
       "r, read i   : Read the timeline."
       "d, download : Download the timeline."
+      "u, upload   : Upload your twtxt file (alias to execute ~/.tt/upload)."
       ""
       #:args (command . args)
       (start-logger log-level)
@@ -329,6 +330,14 @@
                (current-http-client/user-agent user-agent))
              (timeline-download num_workers (file->feeds filename))
              ))]
+        [(or "u" "upload")
+         (command-line
+             #:program
+             "tt upload"
+             #:args ()
+             (if (system (path->string (expand-user-path "~/.tt/upload")))
+               (exit 0)
+               (exit 1)))]
         [(or "r" "read")
          (let ([out-format 'multi-line]
                [order      'old->new])