suzanne.soy/scribble-enhanced
1
0
Fork 0
Code Issues 1 Pull Requests 1 Actions Packages Projects Releases Wiki Activity

Allow whole s-expressions to change the way they are rendered, using the scribble-render syntax property

Browse Source
This commit is contained in:
Georges Dupéron 2016-12-27 19:11:32 +01:00
parent 23ddbecfa1
commit 923eba8839
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
racket.rkt
View File

@ -1005,6 +1005,9 @@
(let ([slv (and (identifier? v) (let ([slv (and (identifier? v)
(syntax-local-value v (lambda () #f)))]) (syntax-local-value v (lambda () #f)))])
(cond (cond
[(and (syntax? v) (syntax-property v 'scribble-render))
=> (λ (renderer)
(wrap-loc v #f (renderer v)))]
[(variable-id? slv) [(variable-id? slv)
(wrap-loc v #f `(,#'make-var-id ',(variable-id-sym slv)))] (wrap-loc v #f `(,#'make-var-id ',(variable-id-sym slv)))]
[(element-id-transformer? slv) [(element-id-transformer? slv)