X-Git-Url: https://git.xandkar.net/?a=blobdiff_plain;f=tt;h=d1ec64c5a6b29ec899a2e6a6bdb92923fbfa767c;hb=a239a2335354d9fad0618de50987b253d07b7768;hp=0edaa8b63b58b1fb5e872f76a6d53e92edfb94b4;hpb=be96956ca4c34ee99a948946a91bdc1e6a120972;p=tt.git

diff --git a/tt b/tt
index 0edaa8b..d1ec64c 100755
--- 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
-; TODO user-agent format: <client>/<version> (+<source.url>; @<source.nick>)
-;   - requires configurability
-;   - ref: https://twtxt.readthedocs.io/en/latest/user/discoverability.html
 
 #lang racket
 
@@ -49,6 +46,7 @@
 (struct feed (nick uri))
 
 (define (concurrent-filter-map num_workers f xs)
+  ; TODO switch from mailboxes to channels
   (define (make-worker id f)
     (define parent (current-thread))
     (λ ()
@@ -204,9 +202,21 @@
   (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)
-  (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))