stuff

1 files changed, 10 insertions, 110 deletions

diff --git a/lisp/service/resume-service.lisp b/lisp/service/resume-service.lisp
index 53cb554..322ab30 100644
--- a/lisp/service/resume-service.lisp
+++ b/lisp/service/resume-service.lisp
@@ -38,116 +38,7 @@
     ((form :initarg :form
            :initform nil
            :accessor form))
-    (:documentation ""))
-
-  ;; resume
-
-  (defun resume-json ()
-    (with-auth (instance resume-service "resume-view")
-      (setf (title instance) "Resumes")))
-
-  (defclass resume/view-service (resume-service resume)
-    ((resumes :initarg :resumes
-              :initform nil
-              :accessor resumes)
-     (location-p :initform nil))
-    (:documentation ""))
-
-  (defun resume-view-json ()
-    (with-auth (instance resume/view-service "resume-view")
-      (with-resume-database
-        (let ((resume-pkg (make-instance 'resume-pkg))
-              (user (get-user)))
-          (setf (resumes instance) (get-records resume-pkg (make-instance 'resume :user_id (id user)) "name asc"))))
-      (sanitize-rest-json instance)
-      (loop for resume in (resumes instance)
-            do (sanitize-json resume))))
-
-  (defclass resume/add-service (resume/view-service)
-    ((form :initarg :form
-           :initform nil
-           :accessor form))
-    (:documentation ""))
-
-  (defun resume-add-json ()
-    (with-auth (instance resume/add-service "resume-modify")
-      (setf (title instance) "Resume - Add")
-      (setf (form instance) (make-form "resume-add-form"
-                                       nil
-                                       t
-                                       `((:name "name" :label "Name" :field-type "text" :required "required")
-                                         (:label "Add Resume" :field-type "button" :onclick "on_resume_add_submit_clicked()"))))))
-
-  (defun resume-add-submit-json (name)
-    (declare (special name))
-    (with-auth (instance resume/add-service "resume-modify")
-      (with-resume-database
-        (handler-case
-            (let* ((resume-pkg (make-instance 'resume-pkg))
-                   (user (get-user))
-                   (resume (make-instance 'resume :user_id (id user))))
-              (loop for param in (remove-if (lambda (x)
-                                              (intersection `(,x) '(id)))
-                                            (sb-introspect:function-lambda-list #'resume-add-submit-json))
-                    do (setf (slot-value resume param) (symbol-value param)))
-              (insert-record resume-pkg resume)
-              (setf (session-value :message) (format nil "Resume \"~a\" created successfully." (name resume))))
-          (error (e)
-            (setf (session-value :errormsg) (format nil "Error creating resume \"~a\". ~a" name e)))))))
-
-  (defclass resume/modify-service (resume/add-service)
-    ()
-    (:documentation ""))
-
-  (defun resume-modify-json (id)
-    (with-auth (instance resume/modify-service "resume-modify")
-      (setf (title instance) "Resume - Modify")
-      (with-resume-database
-        (let* ((resume-pkg (make-instance 'resume-pkg))
-               (user (get-user))
-               (resume (get-record resume-pkg (make-instance 'resume :id id :user_id (id user)))))
-          (if resume
-              (setf (form instance) (make-form "resume-modify-form"
-                                               nil
-                                               t
-                                               `((:name "id" :field-type "hidden" :value ,(id resume) :required "required")
-                                                 (:name "name" :label "Name" :field-type "text" :value ,(name resume) :required "required")
-                                                 (:label "Modify Resume" :field-type "button" :onclick "on_resume_modify_submit_clicked()"))))
-              (setf (session-value :errormsg) "Error: could not modify resume. Not found."))))))
-
-  (defun resume-modify-submit-json (id name)
-    (declare (special id name))
-    (with-auth (instance resume/modify-service "resume-modify")
-      (setf (title instance) "Resume - Modify")
-      (with-resume-database
-        (handler-case
-            (let* ((resume-pkg (make-instance 'resume-pkg))
-                   (user (get-user))
-                   (resume (get-record resume-pkg (make-instance 'resume :id id :user_id (id user)))))
-              (loop for param in (remove-if (lambda (x)
-                                              (intersection `(,x) '(id)))
-                                            (sb-introspect:function-lambda-list #'resume-modify-submit-json))
-                    do (setf (slot-value resume param) (symbol-value param)))
-              (update-record resume-pkg resume)
-              (setf (session-value :message) (format nil "Resume \"~a\" modified successfully." (name resume))))
-          (error (e)
-            (setf (session-value :errormsg) (format nil "Error modifying resume \"~a\". ~a" name e)))))))
-
-  (defclass resume/delete-service (resume/add-service)
-    ()
-    (:documentation ""))
-
-  (defun resume-delete-json (id)
-    (with-auth (instance resume/delete-service "resume-modify")
-      (with-resume-database
-        (let* ((resume-pkg (make-instance 'resume-pkg))
-               (user (get-user))
-               (resume (get-record resume-pkg (make-instance 'resume :id id :user_id (id user)))))
-          (if resume
-              (progn
-                (delete-resume resume-pkg resume)
-                (setf (session-value :message) (format nil "Resume \"~a\" deleted successfully." (name resume))))
-              (setf (session-value :errormsg) "Error: could not delete resume: not found.")))))))
+    (:documentation "")))
 
 ;; macros
 
@@ -287,6 +178,15 @@ needs to JOIN with other data."
        (define-endpoint (,(format nil "/resume/~a/modify/submit" component-lcase) :method :post) (&post (id :parameter-type 'integer) ,@rest-args) ,func-modify-submit-s ,@(append '(id) arg-names))
        (define-endpoint (,(format nil "/resume/~a/delete/:id" component-lcase) :method :delete) (&path (id 'integer)) ,func-delete-s id))))
 
+(define-resume-component (resume
+                          ((name :parameter-type 'string))
+                          `((:name "name" :label "Name" :field-type "text" :required "required")
+                            (:label "Add RESUME" :field-type "button" :onclick "on_resume_add_submit_clicked()"))
+                          `((:name "id" :field-type "hidden" :value ,(id resume) :required "required")
+                            (:name "name" :label "Name" :field-type "text" :value ,(name resume) :required "required")
+                            (:label "Modify RESUME" :field-type "button" :onclick "on_resume_modify_submit_clicked()"))
+                          "name asc"))
+
 (define-resume-component (contactinfo
                           ((address :parameter-type 'string) (city :parameter-type 'string) (state_id :parameter-type  'integer) (phone :parameter-type 'string) (email :parameter-type 'string) (url :parameter-type 'string) (visastatus_id :parameter-type 'integer))
                           `((:name "address" :label "Address" :field-type "text" :required "required")