paku/hsx
1
0
Fork 0
Code Issues Pull requests Projects Releases 1 Packages Wiki Activity Actions

more elobroated example

Browse source
This commit is contained in:
Bo Yao 2018-07-01 16:15:18 -04:00
parent 517636926c
commit a92da582c2
1 changed files with 17 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

28
README.md
View file

@ -28,15 +28,18 @@ If you don't want to import all symbols, see [H Macro](#h-macro), which provide
(html (html
(head (head
(link :rel "...") (link :rel "...")
(script :src "...") (script :src "..."))
(body (body
(div :id "a" :class "b" (div :id "a" :class "b"
(p :style "color: red" (p :style "color: red"
"Some text") "Some text")
"Some text in div")))) "Some text in div"
(img :src "/img/dog.png")
(a '(:href "/cat")
(img '((:src . "/img/cat.png")))))))
``` ```
These `html`, `div`, etc. are just functions. Element attribute can be given inline as the above example, or as alist/plist/attrs object as the first argument in the case they're calculated programmatically. These `html`, `div`, etc. are just functions. Element attribute can be given inline as the above example, or as alist/plist/attrs object as the first argument, like the last `a` and `img` in the above example. In this case they can be variables that calculated programmatically.
The remaining argument will be recognized as the children of this element. Each child can be: The remaining argument will be recognized as the children of this element. Each child can be:
1. string; 1. string;
@ -120,14 +123,17 @@ Then just wrap `h` for all html generation part. In the same examples above, it
``` lisp ``` lisp
(in-package :flute-min) (in-package :flute-min)
(h (html (h (html
(head (head
(link :rel "...") (link :rel "...")
(script :src "...") (script :src "..."))
(body (body
(div :id "a" :class "b" (div :id "a" :class "b"
(p :style "color: red" (p :style "color: red"
"Some text") "Some text")
"Some text in div"))))) "Some text in div"
(img :src "/img/dog.png")
(a '(:href "/cat")
(img '((:src . "/img/cat.png"))))))))
(define-element dog (id size) (define-element dog (id size)
(if (and (realp size) (> size 10)) (if (and (realp size) (> size 10))