aliens/tekuti
1
0
Fork 0
Code Activity

Minor aesthetic fixups

Browse source 
* tekuti/page-helpers.scm (post-editing-form): Aesthetic fixups.
This commit is contained in:
Andy Wingo 2014-12-17 11:14:54 +01:00
parent 20e7658295
commit acc13819e1
1 changed files with 12 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
tekuti/page-helpers.scm
View file

@ -191,23 +191,30 @@
,@(if (or (not post) (post-private? post))
'((checked "checked"))
'())))
"Private (Only visible to admin)") (br)
"private (only visible to admin)") (br)
(label (input (@ (type "radio") (name "status") (value "draft")
,@(if (or (not post) (post-draft? post))
'((checked "checked"))
'())))
"Draft (Only accessible via direct link)") (br)
"draft (only accessible via "
,(if post
`(a (@ (href ,(post-url post)))
,(post-url post))
"direct link")
")")
(br)
(label (input (@ (type "radio") (name "status") (value "publish")
,@(if (or (not post) (post-public? post))
'((checked "checked"))
'())))
"Public") (br))
"public"))
(p (input (@ (type "submit")
(value ,(if post "Modify post" "New post"))))))
(value ,(if post "modify post" "new post"))))))
,@(if post
`((form (@ (method "POST")
(action ,(relurl `("admin" "delete-post" ,(post-key post)))))
(p (input (@ (type "submit") (name "delete") (value "delete")))))
(p (input (@ (type "submit") (value "delete post")))))
,@(let ((l (comments-sxml-content-edit post)))
(if (null? l) l
`((h2 "comments")