diff options
Diffstat (limited to 'pages.lisp')
-rw-r--r-- | pages.lisp | 24 |
1 files changed, 23 insertions, 1 deletions
@@ -31,4 +31,26 @@ (defun tavern (hero) (with-page (:title "A Bustling Tavern") - (:h1 "Aye! Welcome " (hero-name hero)))) + (navbar) + (:h1 "Aye! Welcome " (hero-name hero)) + (:div + :class "heroes-container" + (:h2 "Heroes of rampant renown:") + (hall-of-heroes)))) + +(defun navbar () + (with-html + (:div + :class "navbar" + (:div :class "logo" "DND") + (:ul :class "nav-links" + (:li (:a :href "/hero" "Hero")) + (:li (:a :href "/inventory" "Loot")) + (:li (:a :href "/quests" "Quests")) + (:li (:a :href "/tavern" "Tavern")))))) + +(defun hall-of-heroes () + (with-html + (:ul :class "hall-of-heroes") + (loop for hero in (all-heroes) + collect (:li (hero-name hero) "the" (hero-class hero) (hero-title hero))))) |