suzanne.soy/scribble-enhanced
1
0
Fork 0
Code Issues 1 Pull Requests 1 Actions Packages Projects Releases Wiki Activity

Scribble->Markdown titles are now rendered correctly. Sections have been shifted by one level (which also looks better on Github).

Browse Source 
Markdown: fix defmodule to avoid printing the package in the example

fix markdown example file to make test pass

original commit: fc3321481ce9928eaeea393302a0c0f187937271
This commit is contained in:
Laurent Orseau 2013-10-29 09:00:35 +01:00 committed by Matthew Flatt
parent 6d992d7a2f
commit 94fa0a30d2
3 changed files with 9 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
pkgs/scribble-pkgs/scribble-lib/scribble/markdown-render.rkt
View File

@ -44,9 +44,7 @@
(define/override (render-part d ht) (define/override (render-part d ht)
(let ([number (collected-info-number (part-collected-info d ht))]) (let ([number (collected-info-number (part-collected-info d ht))])
(unless (part-style? d 'hidden) (unless (part-style? d 'hidden)
(unless (zero? (number-depth number)) (printf (string-append (make-string (add1 (number-depth number)) #\#) " "))
(printf (make-string (number-depth number) #\#))
(printf " "))
(let ([s (format-number number '())]) (let ([s (format-number number '())])
(unless (null? s) (unless (null? s)
(printf "~a.~a" (printf "~a.~a"

8
pkgs/scribble-pkgs/scribble-test/tests/scribble/markdown-docs/example.md
View File

@ -1,12 +1,14 @@
# 1. Section # Title
## 1. Section
This is a top-level section. This is a top-level section.
## 1.1. Subsection ### 1.1. Subsection
This is a subsection. This is a subsection.
### 1.1.1. Subsubsection #### 1.1.1. Subsubsection
This is a subsubsection. This is a subsubsection.

4
pkgs/scribble-pkgs/scribble-test/tests/scribble/markdown-docs/example.scrbl
View File

@ -5,6 +5,8 @@
@(define my-eval (make-base-eval)) @(define my-eval (make-base-eval))
@(my-eval '(require racket/base)) @(my-eval '(require racket/base))
@title{Title}
@section{Section} @section{Section}
This is a top-level 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: Example of a defmodule:
@defmodule[racket/string] @defmodule[racket/string #:packages ()]
Example of a defproc: Example of a defproc: