;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*-
(declaim (optimize (speed 0) (safety 3) (debug 3)))

(in-package :resume)

(defclass resumes-service (auth-service)
  ((title :initarg :title
          :initform nil
          :accessor title))
  (:documentation ""))

(defun resumes-json ()
  (with-auth (instance resumes-service "resume-view")
    (setf (title instance) "Resumes")))

(defclass resumes/view-service (resumes-service resume)
  ((resumes :initarg :resumes
            :initform nil
            :accessor resumes)
   (location-p :initform nil))
  (:documentation ""))

(defun resumes-view-json ()
  (with-auth (instance resumes/view-service "resume-view")
    (with-resume-database
      (let ((resume-pkg (make-instance 'resume-pkg))
            (user (get-user)))
        (setf (resumes instance) (get-all-resumes-for-user resume-pkg user))))
    (sanitize-rest-json instance)
    (loop for resume in (resumes instance)
          do (sanitize-json resume))))

(defclass resumes/add-service (resumes/view-service)
  ((form :initarg :form
         :initform nil
         :accessor form))
  (:documentation ""))

(defun resumes-add-json ()
  (with-auth (instance resumes/add-service "resume-modify")
    (setf (title instance) "Resume - Add")
    (setf (form instance) (make-form "resumes-add-form"
                                     nil
                                     t
                                     `((:name "name" :label "Name" :field-type "text" :required "required")
                                       (:label "Add Resume" :field-type "button" :onclick "on_resumes_add_submit_clicked()"))))))

(defun resumes-add-submit-json (name)
  (declare (special name))
  (with-auth (instance resumes/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) :name name)))
            (insert-resume 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 resumes/modify-service (resumes/add-service)
  ()
  (:documentation ""))

(defun resumes-modify-json (id)
  (with-auth (instance resumes/modify-service "resume-modify")
    (setf (title instance) "Resume - Modify")
    (with-resume-database
      (let* ((resume-pkg (make-instance 'resume-pkg))
             (user (get-user))
             (resume (get-resume resume-pkg (make-instance 'resume :id id :user_id (id user)))))
        (if resume
            (setf (form instance) (make-form "resumes-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_resumes_modify_submit_clicked()"))))
            (setf (session-value :errormsg) "Error: could not modify resume. Not found."))))))

(defun resumes-modify-submit-json (id name)
  (with-auth (instance resumes/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-resume resume-pkg (make-instance 'resume :id id :user_id (id user)))))
            (setf (name resume) name)
            (update-resume 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 resumes/delete-service (resumes/add-service)
  ()
  (:documentation ""))

(defun resumes-delete-json (id)
  (with-auth (instance resumes/delete-service "resume-modify")
    (with-resume-database
      (let* ((resume-pkg (make-instance 'resume-pkg))
             (user (get-user))
             (resume (get-resume resume-pkg (make-instance 'resume :id id :user_id (id user)))))
        (if resume
            (progn
              ;; TODO delete stuff
              (setf (session-value :errormsg) nil)
              (setf (session-value :message) "Resume deleted successfully."))
            (setf (session-value :errormsg) "Error: could not delete resume: not found."))))))