Commit 5b1f70e4 authored by Christopher Lemmer Webber's avatar Christopher Lemmer Webber

header links working

parent 5211ee97
......@@ -44,10 +44,14 @@
'(p "Hi there!"))))
(define (inbox req)
'TODO)
(render-ok
(generic-base-tmpl
'(p "Inbox goes here!"))))
(define (outbox req)
'TODO)
(render-ok
(generic-base-tmpl
'(p "Outbox goes here!"))))
(define (serve-encrypted-object req enc-hash-str)
'TODO)
......@@ -67,7 +71,7 @@
;;; =========
(define (base-tmpl body #:title [title #f])
#;(define (header-link link-name link-url)
(define (header-link link-name link-url)
(list
"[" `(a (@ (href ,link-url))
,link-name)
......@@ -91,7 +95,13 @@
;; @@: Not semantic naming!
(span (@ (id "site-header-left-stuff"))
(b (a (@ (href ,(golem-url homepage)))
"*golem*"))))
"*golem*")))
(span (@ (id "site-header-right-stuff"))
,(header-link "inbox"
(golem-url inbox))
" "
,(header-link "outbox"
(golem-url outbox))))
(div (@ (id "site-main-content"))
,body))
(div (@ (id "site-footer"))
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment