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

use application to avoid some identation

Browse Source
This commit is contained in:
Stavros Polymenis 2016-09-20 22:38:22 +01:00
parent 549bf58f49
commit 9a82594446
1 changed files with 51 additions and 57 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

108
src/html.ml
View File

@ -9,34 +9,30 @@ let html_of ymd =
| Some t -> Some t
| None -> Logarion.(ymd.meta.date.edited) in
let ymd_body = Omd.to_html (Omd.of_string Logarion.(ymd.body)) in
let tyhtml =
html (logarion_head ymd_title)
(body [
header [
h1 [Unsafe.data ymd_title];
details
(summary [Unsafe.data Logarion.(ymd.meta.abstract)])
[time ~a:[a_datetime (Logarion.(to_rfc ymd_date))] []];
];
Unsafe.data ymd_body;
footer [p []];
])
in
Format.asprintf "%a" (Tyxml.Html.pp ()) tyhtml
html (logarion_head ymd_title)
(body [
header [
h1 [Unsafe.data ymd_title];
details
(summary [Unsafe.data Logarion.(ymd.meta.abstract)])
[time ~a:[a_datetime (Logarion.(to_rfc ymd_date))] []];
];
Unsafe.data ymd_body;
footer [p []];
])
|> Format.asprintf "%a" (Tyxml.Html.pp ())
let html_of_titles titles =
let link_item x = li [a ~a:[a_href ("/" ^ x)] [Unsafe.data x]] in
let tyhtml =
html (logarion_head "Homepage")
(body [
header [ h1 [pcdata "Homepage"] ];
div [
h2 [pcdata "Articles"];
ul (List.map link_item titles);
];
])
in
Format.asprintf "%a" (Tyxml.Html.pp ()) tyhtml
html (logarion_head "Homepage")
(body [
header [ h1 [pcdata "Homepage"] ];
div [
h2 [pcdata "Articles"];
ul (List.map link_item titles);
];
])
|> Format.asprintf "%a" (Tyxml.Html.pp ())
let html_of_form ymd =
let input_set t n =
@ -45,35 +41,33 @@ let html_of_form ymd =
input ~a:[a_name n] ()
]]
in
let tyhtml =
html (logarion_head "Compose")
(body [
header [ h1 [pcdata "Create new article"] ];
div [
form
~a:[a_method `Post; a_action (uri_of_string "/()/new")]
[
fieldset
~legend:(legend [pcdata "Create new article"])
[
input_set "Title" "title";
input_set "Author name" "author_name";
input_set "Author email" "author_email";
input_set "Topics" "topics";
input_set "Categories" "categories";
input_set "Keywords" "keywords";
input_set "Series" "series";
input_set "Abstract" "abstract";
p [
label [
span [pcdata"Text"];
textarea ~a:[a_name "text"] (pcdata "");
];
];
p [ button ~a:[a_button_type `Submit] [pcdata "Submit"] ];
]
]
];
])
in
Format.asprintf "%a" (Tyxml.Html.pp ()) tyhtml
html (logarion_head "Compose")
(body [
header [ h1 [pcdata "Create new article"] ];
div [
form
~a:[a_method `Post; a_action (uri_of_string "/()/new")]
[
fieldset
~legend:(legend [pcdata "Create new article"])
[
input_set "Title" "title";
input_set "Author name" "author_name";
input_set "Author email" "author_email";
input_set "Topics" "topics";
input_set "Categories" "categories";
input_set "Keywords" "keywords";
input_set "Series" "series";
input_set "Abstract" "abstract";
p [
label [
span [pcdata"Text"];
textarea ~a:[a_name "text"] (pcdata "");
];
];
p [ button ~a:[a_button_type `Submit] [pcdata "Submit"] ];
]
]
];
])
|> Format.asprintf "%a" (Tyxml.Html.pp ())