software-archive/logarion-2016
2
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

change of form page headings

Browse Source
This commit is contained in:
Stavros Polymenis 2016-10-02 12:03:51 +01:00
parent d5e253f227
commit 6b02da6e8b
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/html.ml
View File

@ -41,13 +41,13 @@ let form ymd =
let open Ymd in
html (logarion_head "Compose")
(body [
header [ h1 [pcdata "Create new article"] ];
header [ h1 [pcdata "Article composition"] ];
div [
form
~a:[a_method `Post; a_action (uri_of_string "/()/new")]
[
fieldset
~legend:(legend [pcdata "Create new article"])
~legend:(legend [pcdata "Article"])
[
input_set "Title" "title" ymd.meta.title;
input_set "Author name" "name" ymd.meta.author.name;