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

fixes to style url and post action

Browse Source
This commit is contained in:
Stavros Polymenis 2016-09-17 11:23:13 +01:00
parent 4ae32f5d68
commit 2e3a41ed70
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/html.ml
View File

@ -6,7 +6,7 @@ let html_of ymd =
html
(head
(title (Unsafe.data ymd_title))
[link ~rel:[`Stylesheet] ~href:"style.css" ();]
[link ~rel:[`Stylesheet] ~href:"/style.css" ();]
)
(body [
header [
@ -26,7 +26,7 @@ let html_of_titles titles =
html
(head
(title (pcdata "Homepage"))
[link ~rel:[`Stylesheet] ~href:"style.css" ();]
[link ~rel:[`Stylesheet] ~href:"/style.css" ();]
)
(body [
header [
@ -46,7 +46,7 @@ let html_of_form ymd =
html
(head
(title (pcdata "Write post"))
[link ~rel:[`Stylesheet] ~href:"style.css" ();]
[link ~rel:[`Stylesheet] ~href:"/style.css" ();]
)
(body [
header [
@ -54,7 +54,7 @@ let html_of_form ymd =
];
div [
form
~a:[a_formmethod `Post]
~a:[a_method `Post; a_action (uri_of_string "/()/new")]
[
fieldset
~legend:(legend [pcdata "Create new article"])