moved algol60 and honu docs to experimental category

remove empty doc categories
This commit is contained in:
Ryan Culpepper 2011-07-01 20:13:52 -06:00
parent 80bea07d5c
commit 4d38f491ca
3 changed files with 34 additions and 32 deletions

View File

@ -2,4 +2,4 @@
(define tools '(("tool.ss"))) (define tools '(("tool.ss")))
(define tool-names '("Algol 60")) (define tool-names '("Algol 60"))
(define scribblings '(("algol60.scrbl" () (other)))) (define scribblings '(("algol60.scrbl" () (experimental 40))))

View File

@ -1,3 +1,3 @@
#lang setup/infotab #lang setup/infotab
(define scribblings '(("honu.scrbl" (multi-page) (other)))) (define scribblings '(("honu.scrbl" (multi-page) (experimental 40))))

View File

@ -113,35 +113,37 @@
(lambda (sec) (lambda (sec)
(let ([docs (filter (lambda (doc) (eq? (car doc) (sec-cat sec))) (let ([docs (filter (lambda (doc) (eq? (car doc) (sec-cat sec)))
docs)]) docs)])
(list* (cond [(pair? docs)
(plain-line (hspace 1)) (list*
(plain-line (let loop ([s (sec-label sec)]) (plain-line (hspace 1))
(match s (plain-line (let loop ([s (sec-label sec)])
[(list 'elem parts ...) (match s
(apply elem (map loop parts))] [(list 'elem parts ...)
[(list 'link text doc-mod-path) (apply elem (map loop parts))]
(seclink "top" #:doc doc-mod-path #:underline? #f text)] [(list 'link text doc-mod-path)
[(list 'link text doc-mod-path tag) (seclink "top" #:doc doc-mod-path #:underline? #f text)]
(seclink tag #:doc doc-mod-path #:underline? #f text)] [(list 'link text doc-mod-path tag)
[_ s]))) (seclink tag #:doc doc-mod-path #:underline? #f text)]
(add-sections [_ s])))
(sec-cat sec) (add-sections
(lambda (str) (sec-cat sec)
(plain-line (lambda (str)
(make-element (if (string=? str "") "sepspace" "septitle") (plain-line
(list 'nbsp str)))) (make-element (if (string=? str "") "sepspace" "septitle")
(sort (map (lambda (doc) (list 'nbsp str))))
(list (cadr doc) (line (cadddr (cdr doc))) (caddr doc))) (sort (map (lambda (doc)
docs) (list (cadr doc) (line (cadddr (cdr doc))) (caddr doc)))
(lambda (ad bd) docs)
(if (= (car ad) (car bd)) (lambda (ad bd)
(let ([str (lambda (x) (if (= (car ad) (car bd))
(element->string (let ([str (lambda (x)
(cadr (paragraph-content (element->string
(car (flow-paragraphs (cadr (paragraph-content
(caadr x))))) (car (flow-paragraphs
renderer part resolve-info))]) (caadr x)))))
(string-ci<? (str ad) (str bd))) renderer part resolve-info))])
(> (car ad) (car bd))))))))) (string-ci<? (str ad) (str bd)))
(> (car ad) (car bd)))))))]
[else null])))
sections)))) sections))))
(make-delayed-block contents))) (make-delayed-block contents)))