Commit 68084677 authored by amirouche's avatar amirouche

s/alist->class/make-class/g

parent 8a47f885
......@@ -162,7 +162,7 @@ exec guile -L $(pwd) -e '(@ (web) main)' -s "$0" "$@"
`(p (@ (class "error")) ,error)
'()))
(define (alist->class alist)
(define (make-class alist)
"Create html class attribute with an ALIST"
(let loop ((alist alist)
(out ""))
......@@ -179,18 +179,18 @@ exec guile -L $(pwd) -e '(@ (web) main)' -s "$0" "$@"
(template "login"
`(form (@ (method "POST"))
(h2 "Sign up")
(div (@ (class ,(alist->class `(("form-item" . #t)
(div (@ (class ,(make-class `(("form-item" . #t)
("error" . ,login-error)))))
(p (label "login")
(input (@ (name "login")
(type "text"))))
,(maybe-error login-error))
(div (@ (class ,(alist->class `(("form-item" . #t)
(div (@ (class ,(make-class `(("form-item" . #t)
("error" . ,password-error)))))
(p (label "password")
(input (@ (name "password")
(type "password")))))
(div (@ (class ,(alist->class `(("form-item" . #t)
(div (@ (class ,(make-class `(("form-item" . #t)
("error" . ,confirmation-error)))))
(p (label "confirmation")
(input (@ (name "confirmation")
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment