From 24c6a76b401882f7c263d07efdf73109fa483128 Mon Sep 17 00:00:00 2001 From: Siraaj Khandkar Date: Wed, 18 Nov 2020 06:13:27 -0500 Subject: [PATCH] Re-format as a package --- .gitignore | 1 + Makefile | 11 ++++++++++ info.rkt | 17 +++++++++++++++ tt => tt.rkt | 61 ++++++++++++++++++++++++---------------------------- 4 files changed, 57 insertions(+), 33 deletions(-) create mode 100644 .gitignore create mode 100644 Makefile create mode 100644 info.rkt rename tt => tt.rkt (85%) mode change 100755 => 100644 diff --git a/.gitignore b/.gitignore new file mode 100644 index 0000000..724bbe1 --- /dev/null +++ b/.gitignore @@ -0,0 +1 @@ +compiled/ diff --git a/Makefile b/Makefile new file mode 100644 index 0000000..bced2e6 --- /dev/null +++ b/Makefile @@ -0,0 +1,11 @@ +.PHONY: install +install: + raco pkg install + +.PHONY: remove +remove: + raco pkg remove tt + +.PHONY: clean +clean: + rm -rf compiled diff --git a/info.rkt b/info.rkt new file mode 100644 index 0000000..22b55b8 --- /dev/null +++ b/info.rkt @@ -0,0 +1,17 @@ +; vim: filetype=racket +#lang info + +(define collection + "tt") +(define pkg-desc + "twtxt client") +(define version + "0.3.4") +(define pkg-authors + '("Siraaj Khandkar ")) +(define deps + '("base" "http-client" "rfc3339-old")) +(define racket-launcher-names + '("tt")) +(define racket-launcher-libraries + '("tt.rkt")) diff --git a/tt b/tt.rkt old mode 100755 new mode 100644 similarity index 85% rename from tt rename to tt.rkt index 840a8e5..b11364f --- a/tt +++ b/tt.rkt @@ -1,6 +1,3 @@ -#! /usr/bin/env racket -; vim: filetype=racket - ; TODO optional text wrap ; TODO write ; TODO caching (use cache by default, unless explicitly asked for update) @@ -203,34 +200,34 @@ "https://raw.githubusercontent.com/mdom/we-are-twtxt/master/we-are-twtxt.txt") (str->feeds (uri-fetch uri))) -(define (setup-logging) - (define logger (make-logger #f #f 'debug #f)) - (define log-chan (make-log-receiver logger 'debug)) - (void (thread (λ () - [date-display-format 'iso-8601] - [let loop () - (define data (sync log-chan)) - (define level (vector-ref data 0)) - (define msg (vector-ref data 1)) - (define ts (date->string (current-date) #t)) - (eprintf "~a [~a] ~a~n" ts level msg) - (loop)]))) - (current-logger logger)) - -(define (main) - (define user-agent - (let* - ([prog-name "tt"] - [prog-version "0.3.4"] - [prog-uri "https://github.com/xandkar/tt"] - [user-feed-file (expand-user-path "~/twtxt-me.txt")] - [user - (if (file-exists? user-feed-file) - (let ([user (first (file->feeds user-feed-file))]) - (format "+~a; @~a" (feed-uri user) (feed-nick user))) - (format "+~a" prog-uri))] - ) - (format "~a/~a (~a)" prog-name prog-version user))) +(define user-agent + (let* + ([prog-name "tt"] + [prog-version "0.3.4"] + [prog-uri "https://github.com/xandkar/tt"] + [user-feed-file (expand-user-path "~/twtxt-me.txt")] + [user + (if (file-exists? user-feed-file) + (let ([user (first (file->feeds user-feed-file))]) + (format "+~a; @~a" (feed-uri user) (feed-nick user))) + (format "+~a" prog-uri))] + ) + (format "~a/~a (~a)" prog-name prog-version user))) + +(module+ main + (define (setup-logging) + (define logger (make-logger #f #f 'debug #f)) + (define log-chan (make-log-receiver logger 'debug)) + (void (thread (λ () + [date-display-format 'iso-8601] + [let loop () + (define data (sync log-chan)) + (define level (vector-ref data 0)) + (define msg (vector-ref data 1)) + (define ts (date->string (current-date) #t)) + (eprintf "~a [~a] ~a~n" ts level msg) + (loop)]))) + (current-logger logger)) (setup-logging) (current-http-response-auto #f) @@ -245,5 +242,3 @@ (define out-format 'multi-line) (define num_workers 15) ; 15 was fastest out of the tried 1, 5, 10, 15 and 20. (timeline-print out-format (timeline num_workers feeds))) - -(main) -- 2.20.1