blob: bfce3c1dd2b0fa9f04d77a842917f181fa5f7d71 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
|
;;; -*- 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."))))))
|
