(define (view:main-display request body)
(define body-tmpl
- '(body
- (@ (style "display: flex; flex-direction: column; align-content: stretch; align-items: stretch;"))
- (div (@ (style "background: #555555; flex: 1;")
- (id "stream-output"))
+ '((div (@ (id "stream-output"))
(p "nope"))
- (div (@ (id "input-box")
- (style "flex: 1; background: #000055;"))
+ (div (@ (id "input-box"))
(p "test test")
(input (@ (id "input"))))))
(define (main-tmpl)
- `(html (@ (xmlns "http://www.w3.org/1999/xhtml")
- (style "width: 100%; height: 100%;"))
- (head
- (title "Mudsync!")
- (meta (@ (charset "UTF-8"))))
- ,body-tmpl))
+ `(html (@ (xmlns "http://www.w3.org/1999/xhtml"))
+ (head (title "Mudsync!")
+ (meta (@ (charset "UTF-8")))
+ (link (@ (rel "stylesheet")
+ (href "/static/css/main.css"))))
+ (body ,@body-tmpl)))
(define (write-template-to-string)
(with-fluids ((%default-port-encoding "UTF-8"))
(with-output-to-string