38 lines
1.3 KiB
Racket
38 lines
1.3 KiB
Racket
#lang scribble/base
|
|
@(require scribble/core)
|
|
|
|
@(define P (make-numberer (lambda (v parent-number)
|
|
(values (list (format "[~a]" v) ; number in brackets
|
|
"") ; no separator afterward
|
|
(add1 v))) ; increment section number
|
|
1)) @; count from 1
|
|
@(define PL (make-numberer (lambda (v parent-number)
|
|
(values (list (if (null? parent-number)
|
|
(string v) ; top-level section is uppercase
|
|
(string-downcase (string v))) ; nested is lowercase
|
|
",") ; "," as separator
|
|
(integer->char (add1 (char->integer v))))) ; increment letter
|
|
#\A)) @; count from A
|
|
|
|
@(define (P-section . s) (section #:style (style #f (list P)) s))
|
|
@(define (PL-section . s) (section #:style (style #f (list PL)) s))
|
|
@(define (PL-subsection . s) (subsection #:style (style #f (list PL)) s))
|
|
|
|
@title{Two Tracks}
|
|
|
|
@P-section{Px}
|
|
|
|
@PL-section{Py}
|
|
|
|
@PL-section{PLx}
|
|
|
|
@P-section{Pz}
|
|
@PL-subsection{PL-subx}
|
|
@subsection{Normal}
|
|
@PL-subsection{PL-suby}
|
|
|
|
@PL-section{PLy}
|
|
|
|
@PL-section{PLz}
|
|
@subsection{Normal2}
|