added languages

1 files changed, 28 insertions, 0 deletions

diff --git a/lisp/webapps/resume/site.lisp b/lisp/webapps/resume/site.lisp
index d8c1fb5..584c0b7 100644
--- a/lisp/webapps/resume/site.lisp
+++ b/lisp/webapps/resume/site.lisp
@@ -194,6 +194,27 @@
 (defmacro .education-delete ()
   `(education-delete-json id))
 
+(defmacro .language ()
+  `(language-json))
+
+(defmacro .language-view ()
+  `(language-view-json))
+
+(defmacro .language-add ()
+  `(language-add-json))
+
+(defmacro .language-add-submit ()
+  `(language-add-submit-json name understanding_listening understanding_reading speaking_interaction speaking_production writing))
+
+(defmacro .language-modify ()
+  `(language-modify-json id))
+
+(defmacro .language-modify-submit ()
+  `(language-modify-submit-json id name understanding_listening understanding_reading speaking_interaction speaking_production writing))
+
+(defmacro .language-delete ()
+  `(language-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,3 +273,10 @@
 (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)