Changeset 26015 in project


Ignore:
Timestamp:
03/01/12 12:36:41 (9 years ago)
Author:
Mario Domenech Goulart
Message:

html-utils: fixed order of elements in <head>: <meta http-equiv...> should be before <title> (reported by Sandra Snan)

Location:
release/4/html-utils/trunk
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • release/4/html-utils/trunk/html-utils.scm

    r22861 r26015  
    137137         `(html
    138138           ,(append '(head)
    139                     (if title `((title ,title)) '())
    140139                    (if charset
    141140                        `((meta (@ (http-equiv "Content-Type")
    142141                                   (content ,(string-append "text/html; charset=" charset)))))
    143142                        '())
     143                    (if title `((title ,title)) '())
    144144                    (cond ((string? css)
    145145                           `((link (@ (rel "stylesheet")
     
    175175       (<html>
    176176        (<head>
    177          (if title (<title> title) "")
    178177         (if charset
    179178             (<meta> http-equiv: "Content-Type"
    180179                     content:  (string-append "text/html; charset=" charset))
    181180             "")
     181         (if title (<title> title) "")
    182182         (cond ((string? css)
    183183                (<link> rel: "stylesheet" href: css type: "text/css"))
  • release/4/html-utils/trunk/html-utils.setup

    r20354 r26015  
    77 'html-utils
    88 '("html-utils.so" "html-utils.import.so")
    9  '((version 0.6)
     9 '((version 0.8)
    1010   ))
  • release/4/html-utils/trunk/tests/run.scm

    r22803 r26015  
    8282      (html-page "" title: "title"))
    8383
    84 (test "<html><head><title>title</title><meta http-equiv='Content-Type' content='text/html; charset=UTF-8'></head><body></body></html>"
     84(test "<html><head><meta http-equiv='Content-Type' content='text/html; charset=UTF-8'><title>title</title></head><body></body></html>"
    8585      (html-page "" title: "title" charset: "UTF-8"))
    8686
     
    172172      (html-page '() title: "title"))
    173173
    174 (test '(html (head (title "title") (meta (@ (http-equiv "Content-Type") (content "text/html; charset=UTF-8")))) (body))
     174(test '(html (head (meta (@ (http-equiv "Content-Type") (content "text/html; charset=UTF-8"))) (title "title")) (body))
    175175      (html-page '() title: "title" charset: "UTF-8"))
    176176
Note: See TracChangeset for help on using the changeset viewer.