From c7f0f37159385662f1851cba489d92c172333833 Mon Sep 17 00:00:00 2001 From: Greg Hendershott Date: Tue, 8 Jan 2013 12:35:25 -0500 Subject: [PATCH] Use Racket lexer for code blocks. Had been specifying Scheme lexer for code blocks, while waiting for new Racket lexer to wend its way from Pygments to Pygments.rb to Linguist to GitHub. That day is almost here: Linguist will soon update and deploy to GitHub. And Racket 5.3.2 is about to release. As a result, I think this is the correct time to switch to the Racket lexer: It should be live on GitHub by the time people are using Racket 5.3.2. /cc @rmculpepper -- I think this commit should go into the 5.3.2 release. original commit: 4d3a5bad04d0958c71c70aaed0ab2c2055c5f272 --- collects/scribble/markdown-render.rkt | 2 +- collects/tests/scribble/markdown-docs/example.md | 4 ++-- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/collects/scribble/markdown-render.rkt b/collects/scribble/markdown-render.rkt index 020fd9c4..2934070b 100644 --- a/collects/scribble/markdown-render.rkt +++ b/collects/scribble/markdown-render.rkt @@ -102,7 +102,7 @@ (apply map list strs))) (define x-length (lambda (col) (if (eq? col 'cont) 0 (length col)))) (when tick? - (displayln (string-append "```scheme"))) + (displayln (string-append "```racket"))) (for/fold ([indent? #f]) ([row (in-list strs)]) (let ([h (apply max 0 (map x-length row))]) (let ([row* (for/list ([i (in-range h)]) diff --git a/collects/tests/scribble/markdown-docs/example.md b/collects/tests/scribble/markdown-docs/example.md index b9852ecf..80c61bc3 100644 --- a/collects/tests/scribble/markdown-docs/example.md +++ b/collects/tests/scribble/markdown-docs/example.md @@ -49,13 +49,13 @@ Another example of verbatim, with ticks/quotes: Example of a defmodule: -```scheme +```racket (require racket/string) ``` Example of a defproc: -```scheme +```racket (make-string k [char]) -> string? k : exact-nonnegative-integer? char : char? = #\nul