diff options
Diffstat (limited to 'lisp/service/menu-service.lisp')
| -rw-r--r-- | lisp/service/menu-service.lisp | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/lisp/service/menu-service.lisp b/lisp/service/menu-service.lisp index e213069..b1bd84d 100644 --- a/lisp/service/menu-service.lisp +++ b/lisp/service/menu-service.lisp @@ -4,12 +4,12 @@ (in-package :resume) (defparameter *menu-config* '((:id "a_menu_home" :label "Home" :handler "/home" :permissions "_Public") - (:id "a_menu_resume" :label "Resumes" :handler "/resume/resume" :permissions "resume-view") (:id "a_menu_resume_contactinfo" :label "Contact Info" :handler "/resume/contactinfo" :permissions "resume-view") (:id "a_menu_resume_education" :label "Education" :handler "/resume/education" :permissions "resume-view") (:id "a_menu_resume_language" :label "Language" :handler "/resume/language" :permissions "resume-view") (:id "a_menu_resume_skill" :label "Skills" :handler "/resume/skill" :permissions "resume-view") (:id "a_menu_resume_job" :label "Jobs" :handler "/resume/job" :permissions "resume-view") + (:id "a_menu_resume" :label "Resumes" :handler "/resume/resume" :permissions "resume-view") (: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"))) @@ -97,3 +97,6 @@ (format nil "~a ~a" (first_name user) (last_name user)) "No User Found")) (org-ckons-json::objects-to-json `(,instance)))) + +(define-endpoint ("/menu" :method :get) () menu-json) +(define-endpoint ("/menu/user" :method :get) () menu-user-json) |