Rename the homepage to actor-profile

parent ef2f0e0c
......@@ -53,7 +53,7 @@
(define-values (golem-dispatch golem-url)
(dispatch-rules
[("") homepage]
[("") actor-profile]
[("inbox") inbox]
[("outbox") outbox]
[("post-note") post-note]
......@@ -69,8 +69,7 @@
;;; Pages
;;; =====
;; Also serves as the actor page
(define (homepage req)
(define (actor-profile req)
;; A very naive (and incorrect) version of header parsing.
;; A demo kludge for sure ;P
(define headers
......@@ -142,7 +141,7 @@
(header (@ (id "site-header"))
;; @@: Not semantic naming!
(span (@ (id "site-header-left-stuff"))
(b (a (@ (href ,(golem-url homepage)))
(b (a (@ (href ,(golem-url actor-profile)))
"*golem*"))
" :: "
,(users-name) "'s site")
......
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