mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 11:40:18 +02:00
Code Activity

stexi->shtml supports itemx

Browse source 
* module/texinfo/html.scm (entry, rules): Allow @itemx,
This commit is contained in:
Andy Wingo 2011-01-25 17:59:45 +01:00
parent 667230810b
commit c32f0d6b87
1 changed files with 9 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

12
module/texinfo/html.scm
View file

@ -148,8 +148,14 @@ name, @code{#}, and the node name."
(apply append body))))) (apply append body)))))
(define (entry tag args . body) (define (entry tag args . body)
`((dt ,@(arg-req 'heading args)) (let lp ((headings (list (arg-req 'heading args))) (body body))
(dd ,@body))) (if (and (pair? body) (pair? (car body)) (eq? (caar body) 'itemx))
(lp (cons (cdar body) headings)
(cdr body))
`(,@(map (lambda (heading)
`(dt ,@(map stexi->shtml heading)))
headings)
(dd ,@(map stexi->shtml body))))))
(define tag-replacements (define tag-replacements
'((titlepage div (@ (class "titlepage"))) '((titlepage div (@ (class "titlepage")))
@ -230,7 +236,7 @@ name, @code{#}, and the node name."
(node . ,node) (anchor . ,node) (node . ,node) (anchor . ,node)
(table . ,table) (table . ,table)
(enumerate . ,enumerate) (enumerate . ,enumerate)
(entry . ,entry) (entry *preorder* . ,entry)
(deftp . ,def) (defcv . ,def) (defivar . ,def) (deftypeivar . ,def) (deftp . ,def) (defcv . ,def) (defivar . ,def) (deftypeivar . ,def)
(defop . ,def) (deftypeop . ,def) (defmethod . ,def) (defop . ,def) (deftypeop . ,def) (defmethod . ,def)