1 files changed, 70 insertions, 42 deletions
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)