From 94fa0a30d2e2fb65a685f557a59200386738832d Mon Sep 17 00:00:00 2001
From: Laurent Orseau <laurent.orseau@gmail.com>
Date: Tue, 29 Oct 2013 09:00:35 +0100
Subject: [PATCH] Scribble->Markdown titles are now rendered correctly.
Sections have been shifted by one level (which also looks better on Github).
Markdown: fix defmodule to avoid printing the package in the example
fix markdown example file to make test pass
original commit: fc3321481ce9928eaeea393302a0c0f187937271
---
.../scribble-lib/scribble/markdown-render.rkt | 4 +---
.../scribble-test/tests/scribble/markdown-docs/example.md | 8 +++++---
.../tests/scribble/markdown-docs/example.scrbl | 4 +++-
3 files changed, 9 insertions(+), 7 deletions(-)
diff --git a/pkgs/scribble-pkgs/scribble-lib/scribble/markdown-render.rkt b/pkgs/scribble-pkgs/scribble-lib/scribble/markdown-render.rkt
index c271588f..2772d45d 100644
--- a/pkgs/scribble-pkgs/scribble-lib/scribble/markdown-render.rkt
+++ b/pkgs/scribble-pkgs/scribble-lib/scribble/markdown-render.rkt
@@ -44,9 +44,7 @@
(define/override (render-part d ht)
(let ([number (collected-info-number (part-collected-info d ht))])
(unless (part-style? d 'hidden)
- (unless (zero? (number-depth number))
- (printf (make-string (number-depth number) #\#))
- (printf " "))
+ (printf (string-append (make-string (add1 (number-depth number)) #\#) " "))
(let ([s (format-number number '())])
(unless (null? s)
(printf "~a.~a"
diff --git a/pkgs/scribble-pkgs/scribble-test/tests/scribble/markdown-docs/example.md b/pkgs/scribble-pkgs/scribble-test/tests/scribble/markdown-docs/example.md
index dfe51ff0..4bd54886 100644
--- a/pkgs/scribble-pkgs/scribble-test/tests/scribble/markdown-docs/example.md
+++ b/pkgs/scribble-pkgs/scribble-test/tests/scribble/markdown-docs/example.md
@@ -1,12 +1,14 @@
-# 1. Section
+# Title
+
+## 1. Section
This is a top-level section.
-## 1.1. Subsection
+### 1.1. Subsection
This is a subsection.
-### 1.1.1. Subsubsection
+#### 1.1.1. Subsubsection
This is a subsubsection.
diff --git a/pkgs/scribble-pkgs/scribble-test/tests/scribble/markdown-docs/example.scrbl b/pkgs/scribble-pkgs/scribble-test/tests/scribble/markdown-docs/example.scrbl
index 17416f4d..493ad6a9 100644
--- a/pkgs/scribble-pkgs/scribble-test/tests/scribble/markdown-docs/example.scrbl
+++ b/pkgs/scribble-pkgs/scribble-test/tests/scribble/markdown-docs/example.scrbl
@@ -5,6 +5,8 @@
@(define my-eval (make-base-eval))
@(my-eval '(require racket/base))
+@title{Title}
+
@section{Section}
This is a top-level section.
@@ -66,7 +68,7 @@ OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
Example of a defmodule:
-@defmodule[racket/string]
+@defmodule[racket/string #:packages ()]
Example of a defproc: