Commits

Anonymous committed c24c733

nav: fixed selected-pane comparison for pane names containing spaces

Comments (0)

Files changed (1)

src/snippets/menu.lisp

 			    (setf selected-pane (car option)))
 			  (let* ((label (car option))
 				 (target (cdr option))
-				 (pane-selected-p (equalp (car option) selected-pane))
+				 (pane-selected-p (equalp (attributize-name (car option)) selected-pane))
 				 (pane-class (when pane-selected-p
 					       "selected-item")))
 			    (htm