home
/
code
/
tt.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Support upload command
[tt.git]
/
tt.rkt
diff --git
a/tt.rkt
b/tt.rkt
index
4b90055
..
59214ff
100644
(file)
--- 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."
"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)
""
#: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))
))]
(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])
[(or "r" "read")
(let ([out-format 'multi-line]
[order 'old->new])
This page took
0.029923 seconds
and
4
git commands to generate.