haskal
/
chomp
2
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

add bang

This commit is contained in:
xenia 2020-05-05 00:17:35 -04:00
parent 4fe95783b2
commit 6aed082015
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
private/rules.rkt
View File

@ -39,7 +39,7 @@
'pronouns "awoo:pronouns"))) 'pronouns "awoo:pronouns")))
;; transforms the xexpr into an xexpr that includes links to hashtags ;; transforms the xexpr into an xexpr that includes links to hashtags
(define (process-hashtags xexpr instance-url hashtags) (define (process-hashtags! xexpr instance-url hashtags)
(define (process+ xexpr) (define (process+ xexpr)
(match xexpr (match xexpr
[(list tag attrs children ...) [(list tag attrs children ...)
@ -72,7 +72,7 @@
(define bio-md (port->string (hash-ref in "src/bio.md"))) (define bio-md (port->string (hash-ref in "src/bio.md")))
(define bio-hashtags (mutable-set)) (define bio-hashtags (mutable-set))
(define bio-xs (map (lambda (b) (process-hashtags b instance-url bio-hashtags)) (define bio-xs (map (lambda (b) (process-hashtags! b instance-url bio-hashtags))
(parse-markdown bio-md))) (parse-markdown bio-md)))
(define bio (apply string-append (map xexpr->string bio-xs))) (define bio (apply string-append (map xexpr->string bio-xs)))