From e5947122bae1115b024be354ace6885cb360037e Mon Sep 17 00:00:00 2001 From: ckonstanski Date: Tue, 22 Dec 2020 09:19:28 -0700 Subject: updated to latest bootstrap --- service/menu-service.lisp | 32 ++++++++++++++++---------------- 1 file changed, 16 insertions(+), 16 deletions(-) (limited to 'service/menu-service.lisp') diff --git a/service/menu-service.lisp b/service/menu-service.lisp index 25cad07..8ee9c25 100644 --- a/service/menu-service.lisp +++ b/service/menu-service.lisp @@ -30,26 +30,26 @@ :accessor children)) (:documentation "")) -(defclass menu (base-service) +(defclass menu-service (base-service) ((menuitems :initarg :menuitems :initform nil :accessor menuitems)) (:documentation "")) -(defmethod initialize-instance :after ((menu menu) &key) - (setf (menuitems menu) - (mapcar (lambda (x) - (make-instance 'menuitem - :id (getf x :id) - :label (getf x :label) - :url (getf x :url) - :handler (getf x :handler))) - (remove-if 'null (mapcar (lambda (x) - (when (find-if (lambda (y) - (string= (getf x :permission) y)) - `("t" ,(session-value :permissions))) - x)) - *menu-config*))))) +(defmethod initialize-instance :after ((menu-service menu-service) &key) + (setf (menuitems menu-service) + (mapcar (lambda (x) + (make-instance 'menuitem + :id (getf x :id) + :label (getf x :label) + :url (getf x :url) + :handler (getf x :handler))) + (remove-if 'null (mapcar (lambda (x) + (when (find-if (lambda (y) + (string= (getf x :permission) y)) + `("t" ,(session-value :permissions))) + x)) + *menu-config*))))) (defun menu-json () - (objects-to-json `(,(make-instance 'menu)))) + (objects-to-json `(,(make-instance 'menu-service)))) -- cgit v1.3