home
/
code
/
tt.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
be96956
)
Implement user agent format for discoverability
0.3.0
author
Siraaj Khandkar
<siraaj@khandkar.net>
Wed, 11 Nov 2020 17:18:34 +0000
(12:18 -0500)
committer
Siraaj Khandkar
<siraaj@khandkar.net>
Wed, 11 Nov 2020 17:18:34 +0000
(12:18 -0500)
tt
patch
|
blob
|
blame
|
history
diff --git
a/tt
b/tt
index
0edaa8b
..
ecafb5c
100755
(executable)
--- a/
tt
+++ b/
tt
@@
-34,9
+34,6
@@
; - d | download
; - u | upload
; - calls user-configured command to upload user's own feed file to their server
; - d | download
; - u | upload
; - calls user-configured command to upload user's own feed file to their server
-; TODO user-agent format: <client>/<version> (+<source.url>; @<source.nick>)
-; - requires configurability
-; - ref: https://twtxt.readthedocs.io/en/latest/user/discoverability.html
#lang racket
#lang racket
@@
-204,9
+201,21
@@
(current-logger logger))
(define (main)
(current-logger logger))
(define (main)
+ (define user-agent
+ (let*
+ ([prog-name "tt"]
+ [prog-version "0.3.0"]
+ [user-feed-file (expand-user-path "~/twtxt-me.txt")]
+ [user (list-ref (file->feeds user-feed-file) 0)])
+ (format "~a/~a (+~a; @~a)"
+ prog-name
+ prog-version
+ (feed-uri user)
+ (feed-nick user))))
+
(setup-logging)
(current-http-response-auto #f)
(setup-logging)
(current-http-response-auto #f)
- (current-http-user-agent
"xandkar/tt 0.2.0"
)
+ (current-http-user-agent
user-agent
)
(date-display-format 'rfc2822)
(define args (current-command-line-arguments))
(date-display-format 'rfc2822)
(define args (current-command-line-arguments))
This page took
0.027222 seconds
and
4
git commands to generate.