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

moved algol60 and honu docs to experimental category

Browse Source 
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/algol60/info.rkt
View File

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

2
collects/scribblings/honu/info.rkt
View File

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

62
collects/scribblings/main/private/manuals.rkt
View File

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