summaryrefslogtreecommitdiff
path: root/lisp/service/menu-service.lisp
diff options
context:
space:
mode:
authorckonstanski <kostcarl@isu.edu>2026-08-07 19:11:49 -0600
committerckonstanski <kostcarl@isu.edu>2026-08-07 19:11:49 -0600
commit44f7a0a4da7cc45d638e4b64fbf47cb1afc51292 (patch)
treed2fa16893166cd0768ef738fbc37406b94b1aa41 /lisp/service/menu-service.lisp
parent2fc46b8c30d92352ca2df49b001ec38817868905 (diff)
lots of react migration
Diffstat (limited to 'lisp/service/menu-service.lisp')
-rw-r--r--lisp/service/menu-service.lisp5
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)