Changeset 15442 in project


Ignore:
Timestamp:
08/13/09 19:09:52 (10 years ago)
Author:
sjamaan
Message:

Fix markup so it is valid again

Location:
release/4/qwiki/trunk
Files:
2 edited

Legend:

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

    r15432 r15442  
    133133           (list
    134134            xhtml-1.0-strict
    135             "<html>"
     135            "<html xmlns=\"http://www.w3.org/1999/xhtml\">"
    136136            elems
    137137            "</html>")))
  • release/4/qwiki/trunk/qwiki.scm

    r15441 r15442  
    154154                    `(div (@ class "message") ,message)
    155155                    "")
    156                (form (@ (method "post"))
    157                      (label "Article contents:"
    158                             (textarea (@ (name "source"))
    159                                       ,source))
    160                      (label "Description of your changes:"
    161                             (textarea (@ (name "comment"))
    162                                       ,comment))
    163                      (label "I would like to authenticate"
    164                             (input (@ (type "checkbox")
    165                                       (name "auth")
    166                                       ,@(if auth
    167                                             '((checked "checked"))
    168                                             '()))))
    169                      (label "Username:"
    170                             (input (@ (type "text")
    171                                       (name "username")
    172                                       (value ,username))))
    173                      (label "Password:"
    174                             (input (@ (type "password")
    175                                       (name "password")
    176                                       (value ,password))))
    177                      (input (@ (type "submit")
    178                                (name "save")
    179                                (value "Save")))
    180                      (input (@ (type "submit")
    181                                (name "preview")
    182                                (value "Preview")))))))))
     156               (form (@ (method "post") (action ""))
     157                     (div (@ (id "article"))
     158                          (label "Article contents:"
     159                                 (textarea (@ (name "source")
     160                                              (rows "20") (cols "72"))
     161                                           ,source))
     162                          (label "Description of your changes:"
     163                                 (textarea (@ (name "comment")
     164                                              (rows "2") (cols "72"))
     165                                           ,comment)))
     166                     (div (@ (id "auth"))
     167                          (label "I would like to authenticate"
     168                                 (input (@ (type "checkbox")
     169                                           (name "auth")
     170                                           ,@(if auth
     171                                                 '((checked "checked"))
     172                                                 '()))))
     173                          (label "Username:"
     174                                 (input (@ (type "text")
     175                                           (name "username")
     176                                           (value ,username))))
     177                          (label "Password:"
     178                                 (input (@ (type "password")
     179                                           (name "password")
     180                                           (value ,password)))))
     181                     (div (@ (id "actions"))
     182                          (input (@ (type "submit")
     183                                    (name "save")
     184                                    (value "Save")))
     185                          (input (@ (type "submit")
     186                                    (name "preview")
     187                                    (value "Preview"))))))))))
    183188    (if (alist-ref 'save postdata)
    184189        (begin
Note: See TracChangeset for help on using the changeset viewer.