glenn
/
asteroid
mirror of https://github.com/glenneth1/asteroid.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

feat: allows for navbar menu exclution with exclude list

This commit is contained in:
Luis Pereira 2026-01-19 08:33:24 +00:00 committed by Brian O'Reilly
parent cffb3cf384
commit 6ab7489f9b
2 changed files with 29 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
app-utils.lisp
View File

@ -4,7 +4,8 @@
(:use :cl) (:use :cl)
(:export :internal-disable-debugger) (:export :internal-disable-debugger)
(:export :internal-quit (:export :internal-quit
:pht)) :pht
:member-string))
(in-package :asteroid.app-utils) (in-package :asteroid.app-utils)
@ -19,6 +20,11 @@
(internal-quit))) (internal-quit)))
(setf *debugger-hook* #'internal-exit))) (setf *debugger-hook* #'internal-exit)))
(defun member-string (item seq)
"Checkes if a string 'item' is a member of a list. Returns t or nil for the finding result."
(when (member item seq :test #'string-equal)
t))
(defun internal-quit (&optional code) (defun internal-quit (&optional code)
"Taken from the cliki" "Taken from the cliki"
;; This group from "clocc-port/ext.lisp" ;; This group from "clocc-port/ext.lisp"

12
template/partial/navbar.ctml
View File

@ -6,25 +6,33 @@
framesetp='framesetp'> framesetp='framesetp'>
<!-- Navbar definition --> <!-- Navbar definition -->
<nav class="nav"> <nav class="nav">
<c:unless test='(asteroid::member-string "home" (** :navbar-exclude))'>
<a lquery='(attr :href (eval (format nil "/asteroid/~a" home-href)) :target (when framesetp "_self"))'> <a lquery='(attr :href (eval (format nil "/asteroid/~a" home-href)) :target (when framesetp "_self"))'>
Home Home
</a> </a>
</c:unless>
<c:unless test='(asteroid::member-string "player" (** :navbar-exclude))'>
<a lquery='(attr :href (eval (format nil "/asteroid/~a" player-href)) :target (when framesetp "_self"))'> <a lquery='(attr :href (eval (format nil "/asteroid/~a" player-href)) :target (when framesetp "_self"))'>
Player Player
</a> </a>
</c:unless>
<c:unless test='(asteroid::member-string "about" (** :navbar-exclude))'>
<a lquery='(attr :href (eval (format nil "/asteroid/~a" about-href)) :target (when framesetp "_self"))'> <a lquery='(attr :href (eval (format nil "/asteroid/~a" about-href)) :target (when framesetp "_self"))'>
About About
</a> </a>
</c:unless>
<c:unless test='(asteroid::member-string "status" (** :navbar-exclude))'>
<a lquery='(attr :href (eval (format nil "/asteroid/~a" status-href)) :target (when framesetp "_self"))'> <a lquery='(attr :href (eval (format nil "/asteroid/~a" status-href)) :target (when framesetp "_self"))'>
Status Status
</a> </a>
<c:when test="current-user"> </c:unless>
<c:when test='(and current-user (not (asteroid::member-string "profile" (** :navbar-exclude))))'>
<a href="/asteroid/profile" <a href="/asteroid/profile"
lquery='(attr :target (when framesetp "_self"))'> lquery='(attr :target (when framesetp "_self"))'>
Profile Profile
</a> </a>
</c:when> </c:when>
<c:when test='(equal "admin" (clip current-user :role))'> <c:when test='(and (equal "admin" (clip current-user :role)) (not (asteroid::member-string "admin" (** :navbar-exclude))))'>
<a href="/asteroid/admin" <a href="/asteroid/admin"
lquery='(attr :target (when framesetp "_self"))'> lquery='(attr :target (when framesetp "_self"))'>
Admin Admin