From 7a902d7dec9e0ea2a35610bebac2e217340deb40 Mon Sep 17 00:00:00 2001 From: ckonstanski Date: Wed, 22 Jul 2026 22:41:16 -0600 Subject: stuff --- lisp/webapps/resume/site.lisp | 112 ++++++++++++++++++++++++++---------------- 1 file changed, 70 insertions(+), 42 deletions(-) (limited to 'lisp/webapps/resume/site.lisp') diff --git a/lisp/webapps/resume/site.lisp b/lisp/webapps/resume/site.lisp index 584c0b7..a8af2d6 100644 --- a/lisp/webapps/resume/site.lisp +++ b/lisp/webapps/resume/site.lisp @@ -131,26 +131,26 @@ (defmacro .users-delete () `(users-delete-json id)) -(defmacro .resumes () - `(resumes-json)) +(defmacro .resume () + `(resume-json)) -(defmacro .resumes-view () - `(resumes-view-json)) +(defmacro .resume-view () + `(resume-view-json)) -(defmacro .resumes-add () - `(resumes-add-json)) +(defmacro .resume-add () + `(resume-add-json)) -(defmacro .resumes-add-submit () - `(resumes-add-submit-json name)) +(defmacro .resume-add-submit () + `(resume-add-submit-json name)) -(defmacro .resumes-modify () - `(resumes-modify-json id)) +(defmacro .resume-modify () + `(resume-modify-json id)) -(defmacro .resumes-modify-submit () - `(resumes-modify-submit-json id name)) +(defmacro .resume-modify-submit () + `(resume-modify-submit-json id name)) -(defmacro .resumes-delete () - `(resumes-delete-json id)) +(defmacro .resume-delete () + `(resume-delete-json id)) (defmacro .contactinfo () `(contactinfo-json)) @@ -215,6 +215,27 @@ (defmacro .language-delete () `(language-delete-json id)) +(defmacro .skill () + `(skill-json)) + +(defmacro .skill-view () + `(skill-view-json)) + +(defmacro .skill-add () + `(skill-add-json)) + +(defmacro .skill-add-submit () + `(skill-add-submit-json skill)) + +(defmacro .skill-modify () + `(skill-modify-json id)) + +(defmacro .skill-modify-submit () + `(skill-modify-submit-json id skill)) + +(defmacro .skill-delete () + `(skill-delete-json id)) + (define-endpoint ("/" :method :get) () .base) (define-endpoint ("/location" :method :post) (&post (location :parameter-type 'string)) .location) (define-endpoint ("/home" :method :get) () .home-get) @@ -252,31 +273,38 @@ (define-endpoint ("/users/modify/submit" :method :post) (&post (id :parameter-type 'integer) (role_groups :parameter-type 'string) (username :parameter-type 'string) (first_name :parameter-type 'string) (last_name :parameter-type 'string) (email :parameter-type 'string) (phone :parameter-type 'string)) .users-modify-submit) (define-endpoint ("/users/toggle-active" :method :post) (&post (id :parameter-type 'integer)) .users-toggle-active) (define-endpoint ("/users/delete/:id" :method :delete) (&path (id 'integer)) .users-delete) -(define-endpoint ("/resumes" :method :get) () .resumes) -(define-endpoint ("/resumes/view" :method :get) () .resumes-view) -(define-endpoint ("/resumes/add" :method :post) () .resumes-add) -(define-endpoint ("/resumes/add/submit" :method :post) (&post (name :parameter-type 'string)) .resumes-add-submit) -(define-endpoint ("/resumes/modify" :method :post) (&post (id :parameter-type 'integer)) .resumes-modify) -(define-endpoint ("/resumes/modify/submit" :method :post) (&post (id :parameter-type 'integer) (name :parameter-type 'string)) .resumes-modify-submit) -(define-endpoint ("/resumes/delete/:id" :method :delete) (&path (id 'integer)) .resumes-delete) -(define-endpoint ("/resumes/contactinfo" :method :get) () .contactinfo) -(define-endpoint ("/resumes/contactinfo/view" :method :get) () .contactinfo-view) -(define-endpoint ("/resumes/contactinfo/add" :method :post) () .contactinfo-add) -(define-endpoint ("/resumes/contactinfo/add/submit" :method :post) (&post (address :parameter-type 'string) (city :parameter-type 'string) (state_id :parameter-type 'integer) (phone :parameter-type 'string) (email :parameter-type 'string) (visastatus_id :parameter-type 'integer)) .contactinfo-add-submit) -(define-endpoint ("/resumes/contactinfo/modify" :method :post) (&post (id :parameter-type 'integer)) .contactinfo-modify) -(define-endpoint ("/resumes/contactinfo/modify/submit" :method :post) (&post (id :parameter-type 'integer) (address :parameter-type 'string) (city :parameter-type 'string) (state_id :parameter-type 'integer) (phone :parameter-type 'string) (email :parameter-type 'string) (visastatus_id :parameter-type 'integer)) .contactinfo-modify-submit) -(define-endpoint ("/resumes/contactinfo/delete/:id" :method :delete) (&path (id 'integer)) .contactinfo-delete) -(define-endpoint ("/resumes/education" :method :get) () .education) -(define-endpoint ("/resumes/education/view" :method :get) () .education-view) -(define-endpoint ("/resumes/education/add" :method :post) () .education-add) -(define-endpoint ("/resumes/education/add/submit" :method :post) (&post (school :parameter-type 'string) (major :parameter-type 'string) (minor :parameter-type 'string) (degree :parameter-type 'string) (progress :parameter-type 'string) (start_date :parameter-type 'string) (end_date :parameter-type 'string)) .education-add-submit) -(define-endpoint ("/resumes/education/modify" :method :post) (&post (id :parameter-type 'integer)) .education-modify) -(define-endpoint ("/resumes/education/modify/submit" :method :post) (&post (id :parameter-type 'integer) (school :parameter-type 'string) (major :parameter-type 'string) (minor :parameter-type 'string) (degree :parameter-type 'string) (progress :parameter-type 'string) (start_date :parameter-type 'string) (end_date :parameter-type 'string)) .education-modify-submit) -(define-endpoint ("/resumes/education/delete/:id" :method :delete) (&path (id 'integer)) .education-delete) -(define-endpoint ("/resumes/language" :method :get) () .language) -(define-endpoint ("/resumes/language/view" :method :get) () .language-view) -(define-endpoint ("/resumes/language/add" :method :post) () .language-add) -(define-endpoint ("/resumes/language/add/submit" :method :post) (&post (name :parameter-type 'string) (understanding_listening :parameter-type 'string) (understanding_reading :parameter-type 'string) (speaking_interaction :parameter-type 'string) (speaking_production :parameter-type 'string) (writing :parameter-type 'string)) .language-add-submit) -(define-endpoint ("/resumes/language/modify" :method :post) (&post (id :parameter-type 'integer)) .language-modify) -(define-endpoint ("/resumes/language/modify/submit" :method :post) (&post (id :parameter-type 'integer) (name :parameter-type 'string) (understanding_listening :parameter-type 'string) (understanding_reading :parameter-type 'string) (speaking_interaction :parameter-type 'string) (speaking_production :parameter-type 'string) (writing :parameter-type 'string)) .language-modify-submit) -(define-endpoint ("/resumes/language/delete/:id" :method :delete) (&path (id 'integer)) .language-delete) +(define-endpoint ("/resume" :method :get) () .resume) +(define-endpoint ("/resume/view" :method :get) () .resume-view) +(define-endpoint ("/resume/add" :method :post) () .resume-add) +(define-endpoint ("/resume/add/submit" :method :post) (&post (name :parameter-type 'string)) .resume-add-submit) +(define-endpoint ("/resume/modify" :method :post) (&post (id :parameter-type 'integer)) .resume-modify) +(define-endpoint ("/resume/modify/submit" :method :post) (&post (id :parameter-type 'integer) (name :parameter-type 'string)) .resume-modify-submit) +(define-endpoint ("/resume/delete/:id" :method :delete) (&path (id 'integer)) .resume-delete) +(define-endpoint ("/resume/contactinfo" :method :get) () .contactinfo) +(define-endpoint ("/resume/contactinfo/view" :method :get) () .contactinfo-view) +(define-endpoint ("/resume/contactinfo/add" :method :post) () .contactinfo-add) +(define-endpoint ("/resume/contactinfo/add/submit" :method :post) (&post (address :parameter-type 'string) (city :parameter-type 'string) (state_id :parameter-type 'integer) (phone :parameter-type 'string) (email :parameter-type 'string) (visastatus_id :parameter-type 'integer)) .contactinfo-add-submit) +(define-endpoint ("/resume/contactinfo/modify" :method :post) (&post (id :parameter-type 'integer)) .contactinfo-modify) +(define-endpoint ("/resume/contactinfo/modify/submit" :method :post) (&post (id :parameter-type 'integer) (address :parameter-type 'string) (city :parameter-type 'string) (state_id :parameter-type 'integer) (phone :parameter-type 'string) (email :parameter-type 'string) (visastatus_id :parameter-type 'integer)) .contactinfo-modify-submit) +(define-endpoint ("/resume/contactinfo/delete/:id" :method :delete) (&path (id 'integer)) .contactinfo-delete) +(define-endpoint ("/resume/education" :method :get) () .education) +(define-endpoint ("/resume/education/view" :method :get) () .education-view) +(define-endpoint ("/resume/education/add" :method :post) () .education-add) +(define-endpoint ("/resume/education/add/submit" :method :post) (&post (school :parameter-type 'string) (major :parameter-type 'string) (minor :parameter-type 'string) (degree :parameter-type 'string) (progress :parameter-type 'string) (start_date :parameter-type 'string) (end_date :parameter-type 'string)) .education-add-submit) +(define-endpoint ("/resume/education/modify" :method :post) (&post (id :parameter-type 'integer)) .education-modify) +(define-endpoint ("/resume/education/modify/submit" :method :post) (&post (id :parameter-type 'integer) (school :parameter-type 'string) (major :parameter-type 'string) (minor :parameter-type 'string) (degree :parameter-type 'string) (progress :parameter-type 'string) (start_date :parameter-type 'string) (end_date :parameter-type 'string)) .education-modify-submit) +(define-endpoint ("/resume/education/delete/:id" :method :delete) (&path (id 'integer)) .education-delete) +(define-endpoint ("/resume/language" :method :get) () .language) +(define-endpoint ("/resume/language/view" :method :get) () .language-view) +(define-endpoint ("/resume/language/add" :method :post) () .language-add) +(define-endpoint ("/resume/language/add/submit" :method :post) (&post (name :parameter-type 'string) (understanding_listening :parameter-type 'string) (understanding_reading :parameter-type 'string) (speaking_interaction :parameter-type 'string) (speaking_production :parameter-type 'string) (writing :parameter-type 'string)) .language-add-submit) +(define-endpoint ("/resume/language/modify" :method :post) (&post (id :parameter-type 'integer)) .language-modify) +(define-endpoint ("/resume/language/modify/submit" :method :post) (&post (id :parameter-type 'integer) (name :parameter-type 'string) (understanding_listening :parameter-type 'string) (understanding_reading :parameter-type 'string) (speaking_interaction :parameter-type 'string) (speaking_production :parameter-type 'string) (writing :parameter-type 'string)) .language-modify-submit) +(define-endpoint ("/resume/language/delete/:id" :method :delete) (&path (id 'integer)) .language-delete) +(define-endpoint ("/resume/skill" :method :get) () .skill) +(define-endpoint ("/resume/skill/view" :method :get) () .skill-view) +(define-endpoint ("/resume/skill/add" :method :post) () .skill-add) +(define-endpoint ("/resume/skill/add/submit" :method :post) (&post (skill :parameter-type 'string)) .skill-add-submit) +(define-endpoint ("/resume/skill/modify" :method :post) (&post (id :parameter-type 'integer)) .skill-modify) +(define-endpoint ("/resume/skill/modify/submit" :method :post) (&post (id :parameter-type 'integer) (skill :parameter-type 'string)) .skill-modify-submit) +(define-endpoint ("/resume/skill/delete/:id" :method :delete) (&path (id 'integer)) .skill-delete) -- cgit v1.3