Plaster

common-lisp
(defun navigation (&key (home-nav t) (login-nav t) (users-nav t) (register-nav t)) (flet ((home () (when home-nav (with-html (:li :class "navigation-item" (:a :class "navigation-link" :href "/" :data-popover "" "Home"))))) (login () (when login-nav (with-html (:li :class "navigation-item" (:a :class "navigation-link" :href "/login" :data-popover "" "Login"))))) (users () (when users-nav (with-html (:li :class "navigation-item" (:a :class "navigation-link" :href "/users" :data-popover "" "Users"))))) (register () (when register-nav (with-html (:li :class "navigation-item" (:a :class "navigation-link" :href "/register" :data-popover "" "Register")))))) (with-html (:nav :class "navigation" (:section :class "container" (:a :class "navigation-title" :href "/" (:img :class "img" :src (get-standard-image) :height "15") (:h1 :class "title" "mine")) (:ul :class "navigation-list float-right" (home) (login) (users) (register)))))))