diff options
| author | ckonstanski <ckonstanski@pippiandcarlos.com> | 2020-12-22 09:19:28 -0700 |
|---|---|---|
| committer | ckonstanski <ckonstanski@pippiandcarlos.com> | 2020-12-22 09:19:28 -0700 |
| commit | e5947122bae1115b024be354ace6885cb360037e (patch) | |
| tree | 0384007798115997a8e04517b1763685303253f6 /service/menu-service.lisp | |
| parent | 0ed1cba1b39daaf8eef693233f081b455c88dece (diff) | |
updated to latest bootstrap
Diffstat (limited to 'service/menu-service.lisp')
| -rw-r--r-- | service/menu-service.lisp | 32 |
1 files changed, 16 insertions, 16 deletions
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)))) |