starting resume logic

1 files changed, 43 insertions, 50 deletions

diff --git a/lisp/webapps/resume/site.lisp b/lisp/webapps/resume/site.lisp
index 3e31ac1..a7e5916 100644
--- a/lisp/webapps/resume/site.lisp
+++ b/lisp/webapps/resume/site.lisp
@@ -30,10 +30,19 @@
   `(location-json location))
 
 (defmacro .home-get ()
-  `(home-json))
+  `(about-us-json "home"))
 
 (defmacro .home-post ()
-  `(home-json message errormsg))
+  `(about-us-json "home" message errormsg))
+
+(defmacro .home-view ()
+  `(about-us-view-json "home"))
+
+(defmacro .home-modify ()
+  `(about-us-modify-json "home"))
+
+(defmacro .home-modify-submit ()
+  `(about-us-modify-submit-json "home" content))
 
 (defmacro .menu ()
   `(menu-json))
@@ -71,42 +80,6 @@
 (defmacro .password-submit ()
   `(password-submit-json id pwd pwd2))
 
-(defmacro .lessons ()
-  `(about-us-json "lessons"))
-
-(defmacro .lessons-view ()
-  `(about-us-view-json "lessons"))
-
-(defmacro .lessons-modify ()
-  `(about-us-modify-json "lessons"))
-
-(defmacro .lessons-modify-submit ()
-  `(about-us-modify-submit-json "lessons" content))
-
-(defmacro .gigs ()
-  `(about-us-json "gigs"))
-
-(defmacro .gigs-view ()
-  `(about-us-view-json "gigs"))
-
-(defmacro .gigs-modify ()
-  `(about-us-modify-json "gigs"))
-
-(defmacro .gigs-modify-submit ()
-  `(about-us-modify-submit-json "gigs" content))
-
-(defmacro .programming ()
-  `(about-us-json "programming"))
-
-(defmacro .programming-view ()
-  `(about-us-view-json "programming"))
-
-(defmacro .programming-modify ()
-  `(about-us-modify-json "programming"))
-
-(defmacro .programming-modify-submit ()
-  `(about-us-modify-submit-json "programming" content))
-
 (defmacro .contact-us ()
   `(contact-us-json))
 
@@ -158,10 +131,34 @@
 (defmacro .users-delete ()
   `(users-delete-json id))
 
+(defmacro .resumes ()
+  `(resumes-json))
+
+(defmacro .resumes-view ()
+  `(resumes-view-json))
+
+(defmacro .resumes-add ()
+  `(resumes-add-json))
+
+(defmacro .resumes-add-submit ()
+  `(resumes-add-submit-json name))
+
+(defmacro .resumes-modify ()
+  `(resumes-modify-json id))
+
+(defmacro .resumes-modify-submit ()
+  `(resumes-modify-submit-json id name))
+
+(defmacro .resumes-delete ()
+  `(users-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)
 (define-endpoint ("/home" :method :post) (&post (message :parameter-type 'string) (errormsg :parameter-type 'string)) .home-post)
+(define-endpoint ("/home/view" :method :get) () .home-view)
+(define-endpoint ("/home/modify" :method :post) () .home-modify)
+(define-endpoint ("/home/modify/submit" :method :post) (&post (content :parameter-type 'string)) .home-modify-submit)
 (define-endpoint ("/menu" :method :get) () .menu)
 (define-endpoint ("/menu/user" :method :get) () .menu-user)
 (define-endpoint ("/login" :method :get) () .login)
@@ -174,18 +171,6 @@
 (define-endpoint ("/profile/modify/submit" :method :post) (&post (id :parameter-type 'integer) (username :parameter-type 'string) (first_name :parameter-type 'string) (last_name :parameter-type 'string) (email :parameter-type 'string) (phone :parameter-type 'string)) .profile-modify-submit)
 (define-endpoint ("/password" :method :get) () .password)
 (define-endpoint ("/password/submit" :method :post) (&post (id :parameter-type 'integer) (pwd :parameter-type 'string) (pwd2 :parameter-type 'string)) .password-submit)
-(define-endpoint ("/lessons" :method :get) () .lessons)
-(define-endpoint ("/lessons/view" :method :get) () .lessons-view)
-(define-endpoint ("/lessons/modify" :method :post) () .lessons-modify)
-(define-endpoint ("/lessons/modify/submit" :method :post) (&post (content :parameter-type 'string)) .lessons-modify-submit)
-(define-endpoint ("/gigs" :method :get) () .gigs)
-(define-endpoint ("/gigs/view" :method :get) () .gigs-view)
-(define-endpoint ("/gigs/modify" :method :post) () .gigs-modify)
-(define-endpoint ("/gigs/modify/submit" :method :post) (&post (content :parameter-type 'string)) .gigs-modify-submit)
-(define-endpoint ("/programming" :method :get) () .programming)
-(define-endpoint ("/programming/view" :method :get) () .programming-view)
-(define-endpoint ("/programming/modify" :method :post) () .programming-modify)
-(define-endpoint ("/programming/modify/submit" :method :post) (&post (content :parameter-type 'string)) .programming-modify-submit)
 (define-endpoint ("/contact-us" :method :get) () .contact-us)
 (define-endpoint ("/contact-us/view" :method :get) () .contact-us-view)
 (define-endpoint ("/contact-us/email" :method :post) (&post (first_name :parameter-type 'string) (last_name :parameter-type 'string) (email :parameter-type 'string) (phone :parameter-type 'string) (comments :parameter-type 'string)) .contact-us-email)
@@ -204,3 +189,11 @@
 (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)