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

(in-package :resume)

(defclass resume-pkg (record-pkg)
  ()
  (:documentation ""))

;; resumes

(defmethod get-all-resumes ((resume-pkg resume-pkg) (user user))
    (let ((resume (make-instance 'resume :user_id (id user))))
      (get-records resume-pkg resume "name asc")))

(defmethod insert-resume ((resume-pkg resume-pkg) (resume resume))
  (setf (*table resume) (format nil
                                "resume.insert_resume(~a, '~a')"
                                (user_id resume)
                                (name resume)))
  (caar (call-pg-function resume-pkg resume)))

(defmethod delete-resume ((resume-pkg resume-pkg) (resume resume))
  (setf (*table resume) (format nil
                                "resume.delete_resume(~a)"
                                (id resume)))
  (caar (call-pg-function resume-pkg resume)))

;; contactinfo

(defmethod get-all-contactinfo ((resume-pkg resume-pkg) (user user))
  (let ((contactinfo-v (make-instance 'contactinfo-v :user_id (id user))))
    (get-records resume-pkg contactinfo-v "state_name asc, city asc, address asc, email asc, phone asc, visastatus asc")))

(defmethod insert-contactinfo ((resume-pkg resume-pkg) (contactinfo contactinfo))
  (setf (*table contactinfo) (format nil
                                     "resume.insert_contactinfo(~a, ~a, ~a, '~a', '~a', '~a', '~a')"
                                     (user_id contactinfo)
                                     (state_id contactinfo)
                                     (visastatus_id contactinfo)
                                     (address contactinfo)
                                     (city contactinfo)
                                     (phone contactinfo)
                                     (email contactinfo)))
  (caar (call-pg-function resume-pkg contactinfo)))

;; education

(defmethod get-all-education ((resume-pkg resume-pkg) (user user))
  (let ((education (make-instance 'education :user_id (id user))))
    (get-records resume-pkg education "school asc, end_date asc, major asc, minor asc")))

(defmethod insert-education ((resume-pkg resume-pkg) (education education))
  (setf (*table education) (format nil
                                     "resume.insert_education(~a, '~a', '~a', '~a', '~a', '~a', '~a', '~a')"
                                     (user_id education)
                                     (school education)
                                     (start_date education)
                                     (end_date education)
                                     (major education)
                                     (minor education)
                                     (degree education)
                                     (progress education)))
  (caar (call-pg-function resume-pkg education)))

;; language



;; job