added education

1 files changed, 28 insertions, 0 deletions

diff --git a/lisp/webapps/resume/site.lisp b/lisp/webapps/resume/site.lisp
index 2142c9c..d8c1fb5 100644
--- a/lisp/webapps/resume/site.lisp
+++ b/lisp/webapps/resume/site.lisp
@@ -173,6 +173,27 @@
 (defmacro .contactinfo-delete ()
   `(contactinfo-delete-json id))
 
+(defmacro .education ()
+  `(education-json))
+
+(defmacro .education-view ()
+  `(education-view-json))
+
+(defmacro .education-add ()
+  `(education-add-json))
+
+(defmacro .education-add-submit ()
+  `(education-add-submit-json school major minor degree progress start_date end_date))
+
+(defmacro .education-modify ()
+  `(education-modify-json id))
+
+(defmacro .education-modify-submit ()
+  `(education-modify-submit-json id school major minor degree progress start_date end_date))
+
+(defmacro .education-delete ()
+  `(education-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)
@@ -224,3 +245,10 @@
 (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)