add bang
This commit is contained in:
parent
4fe95783b2
commit
6aed082015
|
@ -39,7 +39,7 @@
|
|||
'pronouns "awoo:pronouns")))
|
||||
|
||||
;; 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)
|
||||
(match xexpr
|
||||
[(list tag attrs children ...)
|
||||
|
@ -72,7 +72,7 @@
|
|||
(define bio-md (port->string (hash-ref in "src/bio.md")))
|
||||
|
||||
(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)))
|
||||
(define bio (apply string-append (map xexpr->string bio-xs)))
|
||||
|
||||
|
|
Loading…
Reference in New Issue