{"size": 1330, "ext": "scrbl", "max_stars_repo_path": "scribble-test/tests/scribble/docs/numberer.scrbl", "max_stars_repo_name": "cwebber/scribble", "max_stars_repo_stars_event_min_datetime": "2015-01-11T18:19:42.000Z", "max_stars_repo_stars_event_max_datetime": "2022-03-31T08:45:52.000Z", "max_issues_repo_path": "scribble-test/tests/scribble/docs/numberer.scrbl", "max_issues_repo_name": "cwebber/scribble", "max_issues_repo_issues_event_min_datetime": "2015-03-24T20:53:21.000Z", "max_issues_repo_issues_event_max_datetime": "2022-02-20T22:51:57.000Z", "max_forks_repo_path": "scribble-test/tests/scribble/docs/numberer.scrbl", "max_forks_repo_name": "cwebber/scribble", "max_forks_repo_forks_event_min_datetime": "2015-03-09T12:23:06.000Z", "max_forks_repo_forks_event_max_datetime": "2022-03-07T15:00:13.000Z"}
{"max_stars_count": 161, "max_issues_count": 260, "max_forks_count": 103, "avg_line_length": 35.0, "max_line_length": 98, "alphanum_fraction": 0.4842105263}
#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}
