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

Add support for better rendering of the #λ in hyper-literate programs and programs which use scribble-enhanced.

Browse Source
This commit is contained in:
Georges Dupéron 2016-12-27 19:17:05 +01:00
parent 17ecdc23cf
commit f20a10f0b8
2 changed files with 39 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
aful/reader.rkt
View File

@ -19,6 +19,8 @@
racket/function racket/function
syntax/srcloc syntax/srcloc
hygienic-reader-extension/extend-reader hygienic-reader-extension/extend-reader
"scribble-enhanced.rkt"
phc-toolkit/stx
(for-meta -10 racket/base) (for-meta -10 racket/base)
(for-meta -9 racket/base) (for-meta -9 racket/base)
(for-meta -8 racket/base) (for-meta -8 racket/base)
@ -157,10 +159,14 @@
[% (string->id stx* arg-str)] [% (string->id stx* arg-str)]
[%1 (string->id stx* arg-str "1")] [%1 (string->id stx* arg-str "1")]
[body stx*]) [body stx*])
(syntax/loc loc-stx (syntax-property
(syntax/top-loc loc-stx
(lambda args (lambda args
(define-syntax % (make-rename-transformer #'%1)) (define-syntax % (make-rename-transformer #'%1))
body)))) body))
'scribble-render
aful-scribble-render)
))
stx))) stx)))
(define (orig stx) (define (orig stx)

11
aful/scribble-enhanced.rkt Normal file
View File

@ -0,0 +1,11 @@
#lang racket
(require scribble-enhanced/with-manual)
(provide aful-scribble-render)
(define (aful-scribble-render self)
(syntax-case self ()
[(_ _ _ body)
#`(elem (list (seclink "_lang_aful" #:doc '(lib "aful/docs/aful.scrbl")
(tt "#λ"))
(racket body)))]))