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:
dbc2628
)
Capitalized the remaining struct name
author
Siraaj Khandkar
<siraaj@khandkar.net>
Tue, 23 Mar 2021 02:43:57 +0000
(22:43 -0400)
committer
Siraaj Khandkar
<siraaj@khandkar.net>
Tue, 23 Mar 2021 02:43:57 +0000
(22:43 -0400)
tt.rkt
patch
|
blob
|
blame
|
history
diff --git
a/tt.rkt
b/tt.rkt
index
640e542
..
3581616
100644
(file)
--- a/
tt.rkt
+++ b/
tt.rkt
@@
-24,14
+24,13
@@
(U 'old->new
'new->old))
(U 'old->new
'new->old))
-(struct
m
sg
+(struct
M
sg
([ts-epoch : Integer]
[ts-orig : String]
[nick : (Option String)]
[uri : Url]
[text : String]
([ts-epoch : Integer]
[ts-orig : String]
[nick : (Option String)]
[uri : Url]
[text : String]
- [mentions : (Listof Peer)])
- #:type-name Msg)
+ [mentions : (Listof Peer)]))
(struct Peer
([nick : (Option String)]
(struct Peer
([nick : (Option String)]
@@
-91,25
+90,25
@@
[n (vector-length colors)])
(λ (out-format color-i msg)
(let ([color (vector-ref colors (modulo color-i n))]
[n (vector-length colors)])
(λ (out-format color-i msg)
(let ([color (vector-ref colors (modulo color-i n))]
- [nick (
m
sg-nick msg)]
- [uri (url->string (
m
sg-uri msg))]
- [text (
m
sg-text msg)]
- [mentions (
m
sg-mentions msg)])
+ [nick (
M
sg-nick msg)]
+ [uri (url->string (
M
sg-uri msg))]
+ [text (
M
sg-text msg)]
+ [mentions (
M
sg-mentions msg)])
(match out-format
['single-line
(let ([nick (if nick nick uri)])
(printf "~a \033[1;37m<~a>\033[0m \033[0;~am~a\033[0m~n"
(parameterize
([date-display-format 'iso-8601])
(match out-format
['single-line
(let ([nick (if nick nick uri)])
(printf "~a \033[1;37m<~a>\033[0m \033[0;~am~a\033[0m~n"
(parameterize
([date-display-format 'iso-8601])
- (date->string (seconds->date
[msg-ts-epoch msg]
) #t))
+ (date->string (seconds->date
(Msg-ts-epoch msg)
) #t))
nick color text))]
['multi-line
(let ([nick (if nick (string-append nick " ") "")])
(printf "~a (~a)~n\033[1;37m<~a~a>\033[0m~n\033[0;~am~a\033[0m~n~n"
(parameterize
([date-display-format 'rfc2822])
nick color text))]
['multi-line
(let ([nick (if nick (string-append nick " ") "")])
(printf "~a (~a)~n\033[1;37m<~a~a>\033[0m~n\033[0;~am~a\033[0m~n~n"
(parameterize
([date-display-format 'rfc2822])
- (date->string (seconds->date
[msg-ts-epoch msg]
) #t))
- (
m
sg-ts-orig msg)
+ (date->string (seconds->date
(Msg-ts-epoch msg)
) #t))
+ (
M
sg-ts-orig msg)
nick uri color text))])))))
(: rfc3339->epoch (-> String (Option Nonnegative-Integer)))
nick uri color text))])))))
(: rfc3339->epoch (-> String (Option Nonnegative-Integer)))
@@
-167,7
+166,7
@@
[(list _wholething nick-uri)
(str->peer nick-uri)]))
(regexp-match* #px"@<[^\\s]+([\\s]+)?[^>]+>" text))])
[(list _wholething nick-uri)
(str->peer nick-uri)]))
(regexp-match* #px"@<[^\\s]+([\\s]+)?[^>]+>" text))])
- (
m
sg ts-epoch ts-orig nick uri text mentions))
+ (
M
sg ts-epoch ts-orig nick uri text mentions))
(begin
(log-error
"Msg rejected due to invalid timestamp: ~v, nick:~v, uri:~v"
(begin
(log-error
"Msg rejected due to invalid timestamp: ~v, nick:~v, uri:~v"
@@
-196,10
+195,10
@@
z)]
[m (str->msg n u (string-append ts sep txt))])
(check-not-false m)
z)]
[m (str->msg n u (string-append ts sep txt))])
(check-not-false m)
- (check-equal? (
m
sg-nick m) n)
- (check-equal? (
m
sg-uri m) u)
- (check-equal? (
m
sg-text m) txt)
- (check-equal? (
m
sg-ts-orig m) ts (format "Given: ~v" ts))
+ (check-equal? (
M
sg-nick m) n)
+ (check-equal? (
M
sg-uri m) u)
+ (check-equal? (
M
sg-text m) txt)
+ (check-equal? (
M
sg-ts-orig m) ts (format "Given: ~v" ts))
)))
(let* ([ts "2020-11-18T22:22:09-0500"]
)))
(let* ([ts "2020-11-18T22:22:09-0500"]
@@
-208,26
+207,26
@@
[nick "foo"]
[uri "bar"]
[actual (str->msg nick uri (string-append ts tab text))]
[nick "foo"]
[uri "bar"]
[actual (str->msg nick uri (string-append ts tab text))]
- [expected (
m
sg 1605756129 ts nick uri text)])
+ [expected (
M
sg 1605756129 ts nick uri text)])
(check-equal?
(check-equal?
- (
m
sg-ts-epoch actual)
- (
m
sg-ts-epoch expected)
+ (
M
sg-ts-epoch actual)
+ (
M
sg-ts-epoch expected)
"str->msg ts-epoch")
(check-equal?
"str->msg ts-epoch")
(check-equal?
- (
m
sg-ts-orig actual)
- (
m
sg-ts-orig expected)
+ (
M
sg-ts-orig actual)
+ (
M
sg-ts-orig expected)
"str->msg ts-orig")
(check-equal?
"str->msg ts-orig")
(check-equal?
- (
m
sg-nick actual)
- (
m
sg-nick expected)
+ (
M
sg-nick actual)
+ (
M
sg-nick expected)
"str->msg nick")
(check-equal?
"str->msg nick")
(check-equal?
- (
m
sg-uri actual)
- (
m
sg-uri expected)
+ (
M
sg-uri actual)
+ (
M
sg-uri expected)
"str->msg uri")
(check-equal?
"str->msg uri")
(check-equal?
- (
m
sg-text actual)
- (
m
sg-text expected)
+ (
M
sg-text actual)
+ (
M
sg-text expected)
"str->msg text")))
(: str->lines (-> String (Listof String)))
"str->msg text")))
(: str->lines (-> String (Listof String)))
@@
-351,7
+350,7
@@
(: timeline-print (-> Out-Format (Listof Msg) Void))
(define (timeline-print out-format timeline)
(void (foldl (match-lambda**
(: timeline-print (-> Out-Format (Listof Msg) Void))
(define (timeline-print out-format timeline)
(void (foldl (match-lambda**
- [((and m (
m
sg _ _ nick _ _ _)) (cons prev-nick i))
+ [((and m (
M
sg _ _ nick _ _ _)) (cons prev-nick i))
(let ([i (if (equal? prev-nick nick) i (+ 1 i))])
(msg-print out-format i m)
(cons nick i))])
(let ([i (if (equal? prev-nick nick) i (+ 1 i))])
(msg-print out-format i m)
(cons nick i))])
@@
-394,7
+393,7
@@
['old->new <]
['new->old >]))
(sort (append* (filter-map peer->msgs peers))
['old->new <]
['new->old >]))
(sort (append* (filter-map peer->msgs peers))
- (λ (a b) (cmp (
msg-ts-epoch a) (m
sg-ts-epoch b)))))
+ (λ (a b) (cmp (
Msg-ts-epoch a) (M
sg-ts-epoch b)))))
(: log-writer-stop (-> Thread Void))
(define (log-writer-stop log-writer)
(: log-writer-stop (-> Thread Void))
(define (log-writer-stop log-writer)
This page took
0.039458 seconds
and
4
git commands to generate.