blob: 90b513a54b8669b97d9baa520468af6e769da1a0 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
|
;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*-
(declaim (optimize (speed 0) (safety 3) (debug 3)))
(in-package :bogenherr)
(defparameter *menu-config* '((:id "a_menu_home" :label "Home" :handler "/home" :permissions "_Public")
(:id "a_menu_lessons" :label "About the Studio" :handler "/lessons" :permissions "_Public")
(:id "a_menu_gigs" :label "For Hire" :handler "/gigs" :permissions "_Public")
(:id "a_menu_programming" :label "Software Consulting" :handler "/programming" :permissions "_Public")
(:id "a_menu_gallery" :label "Gallery" :handler "/gallery" :permissions "_Public")
;;(:id "a_menu_testimonials" :label "Testimonials" :handler "/testimonials" :permissions "_Public")
(:id "a_menu_contact_us" :label "Contact Me" :handler "/contact-us" :permissions "_Public")
(:id "a_menu_messages" :label "Messages" :handler "/messages" :permissions "messages-view")
(:id "a_menu_users" :label "Users" :handler "/users" :permissions "users-view")))
(defparameter *menu-user-config* '((:id "a_menu_login" :label "Login" :handler "/login" :permissions "_Public")
(:id "a_menu_profile" :label "Edit Profile" :handler "/profile" :permissions "_Public")
(:id "a_menu_password" :label "Change Password" :handler "/password" :permissions "_Public")
(:id "a_menu_logout" :label "Logout" :handler "/logout" :permissions "_Public")))
(defclass menuitem ()
((id :initarg :id
:initform nil
:accessor id)
(label :initarg :label
:initform nil
:accessor label)
(handler :initarg :handler
:initform nil
:accessor handler)
(permissions :initarg :permissions
:initform nil
:accessor permissions)
(children :initarg :children
:initform nil
:accessor children))
(:documentation ""))
(defclass menu-service (base-service)
((menuitems :initarg :menuitems
:initform nil
:accessor menuitems)
(location-p :initarg :location-p
:initform nil
:accessor location-p))
(:documentation ""))
(defclass menu-user-service (menu-service)
((label :initarg :label
:initform nil
:accessor label)
(location-p :initarg :location-p
:initform nil
:accessor location-p))
(:documentation ""))
(defmethod initialize-instance :after ((menu-service menu-service) &key user menu-config)
(with-bogenherr-database
(let ((auth-pkg (make-instance 'auth-pkg))
(user-logged-in-p (and user (not (= (id user) 0))))
roles)
(setf roles (when user (get-all-roles auth-pkg user)))
(setf (menuitems menu-service)
(remove-if (lambda (menuitem)
(find-if (lambda (x)
(string= (id menuitem) x))
(if user-logged-in-p
'("a_menu_login")
'("a_menu_logout" "a_menu_profile" "a_menu_password"))))
(mapcar (lambda (x)
(make-instance 'menuitem
:id (getf x :id)
:label (getf x :label)
:handler (getf x :handler)
:permissions (getf x :permissions)))
(remove-if 'null (mapcar (lambda (x)
(when (find-if (lambda (y)
(string= (getf x :permissions) y))
(mapcar (lambda (z)
(role_name z))
roles))
x))
menu-config))))))))
(defun menu-json ()
(org-ckons-json::objects-to-json `(,(make-instance 'menu-service
:user (get-user)
:menu-config *menu-config*))))
(defun menu-user-json ()
(let* ((user (get-user))
(instance (make-instance 'menu-user-service
:user user
:menu-config *menu-user-config*)))
(setf (label instance) (if user
(format nil "~a ~a" (first_name user) (last_name user))
"No User Found"))
(org-ckons-json::objects-to-json `(,instance))))
|
