suzanne.soy/hyper-literate
1
0
Fork 0
Code Issues 4 Pull Requests 1 Actions Packages Projects Releases Wiki Activity

Temporarily disable the "color the nested language in black" feature for hyper-literate, as it gives incorrect coloring and indentation on large files (I guess the parser is not always called from the start of the file)

Browse Source
This commit is contained in:
Georges Dupéron 2016-12-27 19:10:49 +01:00
parent 37a6b9a680
commit 66551c6901
2 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lang/reader.rkt
View File

@ -9,7 +9,7 @@ hyper-literate/lang
;; don't use scribble-base-info for the #:info arg, since ;; don't use scribble-base-info for the #:info arg, since
;; scribble/lp files are not directly scribble'able. ;; scribble/lp files are not directly scribble'able.
#:language-info (scribble-base-language-info) #:language-info (scribble-base-language-info)
#:info (wrapped-scribble-base-reader-info) #:info orig-scribble-base-reader-info ;(wrapped-scribble-base-reader-info)
(require "meta-first-line.rkt" (require "meta-first-line.rkt"
(only-in scribble/base/reader (only-in scribble/base/reader
scribble-base-reader-info scribble-base-reader-info

5
private/common.rkt
View File

@ -152,7 +152,10 @@
(syntax-case stx () (syntax-case stx ()
[(_self lang-module-begin . body) [(_self lang-module-begin . body)
(let ([expanded (local-expand (let ([expanded (local-expand
#`(lang-module-begin . body) (datum->syntax stx
`(,#'lang-module-begin . ,#'body)
stx
stx)
'module-begin 'module-begin
(list))]) (list))])
(syntax-case expanded (#%plain-module-begin) (syntax-case expanded (#%plain-module-begin)