swrup/drame_template
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

init

Browse source
This commit is contained in:
Swrup 2024-09-26 02:15:54 +02:00
commit 22a286b8d2
14 changed files with 288 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

8
src/home.ml Normal file
View file

@ -0,0 +1,8 @@
open Htmlit
let get request =
let title = "Home" in
let h1 = El.h1 [ El.txt title ] in
let txt = El.txt "Welcome to my home page" in
let doc = Template.render request ~styles:[] ~title [ h1; txt ] in
Ok (Drame.Content.Html doc)