Changeset 32675 in project


Ignore:
Timestamp:
08/08/15 17:52:31 (5 years ago)
Author:
sjamaan
Message:

qwiki: Don't use the useless "multidoc" title as a fallback; better to avoid the title element altogether.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/4/qwiki/trunk/qwiki-sxml.scm

    r32669 r32675  
    6565(define (lookup-def k lst . rest)
    6666  (let-optionals rest ((default #f))
    67                  (alist-ref k lst eq? default)))
     67    (alist-ref k lst eq? default)))
    6868
    6969(define (make-html-header head-params)
    7070  `(head
    71     (title ,(or (lookup-def 'title head-params) "multidoc"))
     71    ,@(let ((title (lookup-def 'title head-params)))
     72        (if title `((title ,title)) '()))
    7273    (meta (@ (http-equiv "Content-Style-Type") (content "text/css")))
    7374    (meta (@ (http-equiv "Content-Type")
Note: See TracChangeset for help on using the changeset viewer.