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

Langify scribble modules

Browse Source
This commit is contained in:
Jack Firth 2019-10-09 21:57:16 -07:00 committed by Matthew Flatt
parent fb7106bc50
commit 3c62d4cd5d
5 changed files with 1511 additions and 1508 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
scribble-lib/scribble/bnf.rkt
View File

@ -1,4 +1,5 @@
(module bnf racket #lang racket
(require scribble/decode (require scribble/decode
(except-in scribble/struct (except-in scribble/struct
element?) element?)
@ -118,4 +119,4 @@
(make-element #f (append (decode-content s) (make-element #f (append (decode-content s)
(list (make-element 'roman (list (make-element 'roman
(make-element 'superscript (make-element 'superscript
(list (format "{~a,~a}" a b))))))))) (list (format "{~a,~a}" a b))))))))

5
scribble-lib/scribble/comment-reader.rkt
View File

@ -1,4 +1,5 @@
(module comment-reader scheme/base #lang scheme/base
(require (only-in racket/port peeking-input-port)) (require (only-in racket/port peeking-input-port))
(provide (rename-out [*read read] (provide (rename-out [*read read]
@ -80,4 +81,4 @@
(append (preserve-space (substring s 0 (caar m))) (append (preserve-space (substring s 0 (caar m)))
(list `(hspace ,(- (cdar m) (caar m)))) (list `(hspace ,(- (cdar m) (caar m))))
(preserve-space (substring s (cdar m)))) (preserve-space (substring s (cdar m))))
(list s))))) (list s))))

5
scribble-lib/scribble/config.rkt
View File

@ -1,6 +1,5 @@
#lang mzscheme
(module config mzscheme
(provide value-color) (provide value-color)
(define value-color "schemevalue")) (define value-color "schemevalue")

5
scribble-lib/scribble/racket.rkt
View File

@ -1,4 +1,5 @@
(module racket racket/base #lang racket/base
(require "core.rkt" (require "core.rkt"
"basic.rkt" "basic.rkt"
"search.rkt" "search.rkt"
@ -1379,4 +1380,4 @@
(max 1 (- (syntax-position pairs) undelta)) (max 1 (- (syntax-position pairs) undelta))
(+ (syntax-span pairs) undelta))))] (+ (syntax-span pairs) undelta))))]
[else [else
(datum->syntax #f v (vector #f line col (+ 1 col) 1))]))) (datum->syntax #f v (vector #f line col (+ 1 col) 1))]))

5
scribble-lib/scribble/search.rkt
View File

@ -1,4 +1,5 @@
(module search racket/base #lang racket/base
(require "struct.rkt" (require "struct.rkt"
"basic.rkt" "basic.rkt"
syntax/modcode) syntax/modcode)
@ -184,4 +185,4 @@
;; Can't get the module source, so continue with queue: ;; Can't get the module source, so continue with queue:
(loop queue rqueue need-result?)))]) (loop queue rqueue need-result?)))])
(or here-result (or here-result
nest-result))))))]))))))) nest-result))))))]))))))