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)

lang/reader.rkt

@@ -9,7 +9,7 @@ hyper-literate/lang
 ;; don't use scribble-base-info for the #:info arg, since
 ;; scribble/lp files are not directly scribble'able.
 #: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"
          (only-in scribble/base/reader
                   scribble-base-reader-info

private/common.rkt

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