summaryrefslogtreecommitdiff
path: root/src/game/views.lisp
blob: e674598f6b2ee546ebb9e6189414c7592bbfb245 (plain)
1
2
3
4
5
6
7
8
9
10
;;;; views.lisp

(in-package :dnd)

(defun page-nav ()
  (with-html
    (:nav :class "navbar"
          (:div (:a :href "/tavern" "🍺 Tavern"))
          (:div (:a :href "/goddess-shrine" "🦸 Roll Up A Hero"))
          (:div (:a :href "/adventure-awaits" "🔭 Embark on an Adventure")))))