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 tools '(("tool.ss")))
(define tool-names '("Algol 60")) (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 #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) (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)))