Changeset 25485 in project
- Timestamp:
- 11/09/11 22:16:06 (9 years ago)
- Location:
- release/4/chicken-doc-html/trunk
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
release/4/chicken-doc-html/trunk/chicken-doc-html.meta
r23255 r25485 5 5 (category doc-tools) 6 6 (license "BSD") 7 (author "Jim Ursetto") 8 (files "chicken-doc-html.release-info" "chicken-doc-html.meta" "chicken-doc-html.setup" "chicken-doc-html.scm")) 7 (author "Jim Ursetto")) -
release/4/chicken-doc-html/trunk/chicken-doc-html.scm
r22005 r25485 126 126 (let ((walk sxml-walk) 127 127 (drop-tag (lambda (t b s) '())) 128 (drop-tag-noisily (lambda (t b s) (warning "dropped" (cons t b)) '())) 128 (drop-tag-noisily (lambda (t b s) 129 ;; Warning disabled as it just spams the logs; instead the 130 ;; offender could be included in an HTML comment. 131 ; (warning "dropped" (cons t b)) 132 '())) 129 133 (quote-text `(*text* . ,(lambda (t b s) (quote-html b))))) 130 134 (letrec ((block (lambda (tag) … … 315 319 316 320 (table . ,(lambda (t b table-ss) 321 ;; Table may be malformed as svnwiki-sxml just passes us the 322 ;; raw HTML, so we drop bad tags. 317 323 `("<table>\n" 318 324 ,(walk b `((tr . ,(lambda (t b s) … … 329 335 ,(walk b table-ss) 330 336 "</td>"))) 331 (@ . ,drop-tag)))) 337 (@ . ,drop-tag) 338 (*default* . ,drop-tag-noisily)))) 332 339 "</tr>\n"))) 333 (@ . ,drop-tag))) 340 (@ . ,drop-tag) 341 (*default* . ,drop-tag-noisily))) 334 342 "</table>\n"))) 335 343 -
release/4/chicken-doc-html/trunk/chicken-doc-html.setup
r22021 r25485 1 1 ;;; -*- scheme -*- 2 2 3 (define version "0.2. 2")3 (define version "0.2.3") 4 4 5 5 (compile -s -O2 -d1 -SJ chicken-doc-html.scm)
Note: See TracChangeset
for help on using the changeset viewer.