Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-07-08 05:27:35 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Allow optional sxml for the head section in page.

Browse source
This commit is contained in:
Alex Shinn 2015-05-20 21:23:12 +09:00
parent f255c35695
commit 9f565d77c5
1 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lib/chibi/snow/fort.scm
View file

@ -220,7 +220,7 @@
(define (fail msg . args) (define (fail msg . args)
`(span (@ (style . "background:red")) ,msg ,@args)) `(span (@ (style . "background:red")) ,msg ,@args))
(define (page body) (define (page body . o)
`(html `(html
(head (head
(title "Snow") (title "Snow")
@ -229,7 +229,8 @@
(rel . "stylesheet") (rel . "stylesheet")
(href . "/s/snow.css"))) (href . "/s/snow.css")))
(link (@ (rel . "shortcut icon") (link (@ (rel . "shortcut icon")
(href . "/s/favicon.ico")))) (href . "/s/favicon.ico")))
,@o)
(body (body
(div (@ (id . "head")) (div (@ (id . "head"))
(div (@ (id . "head_pic")) "☃") (div (@ (id . "head_pic")) "☃")