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
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
|
;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*-
(declaim (optimize (speed 0) (safety 3) (debug 3)))
(in-package :resume)
(defmacro .base (&optional (start-url "/home"))
`(org-ckons-http::html5
`(html
(head
((meta :name "viewport" :content "width=device-width, initial-scale=1, shrink-to-fit=no"))
((meta :charset "utf-8"))
((title) ,(title *webapp*))
,@(mapcar (lambda (css)
`((link :rel "stylesheet" :href ,(getf css :href) :integrity ,(getf css :integrity) :crossorigin ,(getf css :crossorigin))))
'((:href "https://cdn.jsdelivr.net/npm/bootstrap@4.6.2/dist/css/bootstrap.min.css" :integrity "sha384-xOolHFLEh07PJGoPkLv1IbcEPTNtaed2xpHsD9ESMhqIYd0nLMwNLD69Npy4HI+N" :crossorigin "anonymous")
(:href "/static/css/stylesheet.css" :crossorigin "anonymous")))
,@(mapcar (lambda (js)
`((script :type "text/javascript" :src ,(getf js :src) :integrity ,(getf js :integrity) :crossorigin ,(getf js :crossorigin))))
'((:src "https://code.jquery.com/jquery-3.7.1.slim.min.js" :integrity "sha256-kmHvs0B+OpCW5GVHUNjv9rOmY0IvSIRcf7zGUDTDQM8=" :crossorigin "anonymous")))
((script :type "text/javascript" :src "/cljs-out/dev-main.js")))
((body :onload ,(format nil "resume.core.start(~a)" ,(if start-url
(format nil "'~a'" start-url)
"null")))
((div :id "app"))
,@(mapcar (lambda (js)
`((script :type "text/javascript" :src ,(getf js :src) :integrity ,(getf js :integrity) :crossorigin ,(getf js :crossorigin))))
'((:src "https://cdn.jsdelivr.net/npm/bootstrap@4.6.2/dist/js/bootstrap.bundle.min.js" :integrity "sha384-Fy6S3B9q64WdZWQUiU+q4/2Lc9npb8tCaSX9FK7E8HnRr0Jz8D6OP9dO5Vg3Q9ct" :crossorigin "anonymous")))))))
(defmacro .location ()
`(location-json location))
(defmacro .home-get ()
`(home-json))
(defmacro .home-post ()
`(home-json message errormsg))
(defmacro .menu ()
`(menu-json))
(defmacro .menu-user ()
`(menu-user-json))
(defmacro .login ()
`(login-json))
(defmacro .login-authenticate ()
`(login-authenticate-json username pwd))
(defmacro .login-forgot ()
`(login-forgot-json))
(defmacro .logout ()
`(logout-json))
(defmacro .profile ()
`(profile-json))
(defmacro .profile-view ()
`(profile-view-json))
(defmacro .profile-modify ()
`(profile-modify-json))
(defmacro .profile-modify-submit ()
`(profile-modify-submit-json id username first_name last_name email phone))
(defmacro .password ()
`(password-json))
(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))
(defmacro .contact-us-view ()
`(contact-us-view-json))
(defmacro .contact-us-email ()
`(contact-us-email-json first_name last_name email phone comments))
(defmacro .messages ()
`(messages-json))
(defmacro .messages-results ()
`(messages-results-json read))
(defmacro .messages-mark ()
`(messages-mark-json read id))
(defmacro .users ()
`(users-json))
(defmacro .users-view ()
`(users-view-json))
(defmacro .users-add ()
`(users-add-json))
(defmacro .users-add-submit ()
`(users-add-submit-json role_groups first_name last_name email))
(defmacro .users-register ()
`(users-register-json hash))
(defmacro .users-register-form ()
`(users-register-form-json hash))
(defmacro .users-register-submit ()
`(users-register-submit-json hash username pwd pwd2 phone))
(defmacro .users-modify ()
`(users-modify-json id))
(defmacro .users-modify-submit ()
`(users-modify-submit-json id role_groups username first_name last_name email phone))
(defmacro .users-toggle-active ()
`(users-toggle-active-json id))
(defmacro .users-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 ("/menu" :method :get) () .menu)
(define-endpoint ("/menu/user" :method :get) () .menu-user)
(define-endpoint ("/login" :method :get) () .login)
(define-endpoint ("/login/authenticate" :method :post) (&post (username :parameter-type 'string) (pwd :parameter-type 'string)) .login-authenticate)
(define-endpoint ("/login/forgot" :method :get) () .login-forgot)
(define-endpoint ("/logout" :method :get) () .logout)
(define-endpoint ("/profile" :method :get) () .profile)
(define-endpoint ("/profile/view" :method :get) () .profile-view)
(define-endpoint ("/profile/modify" :method :post) () .profile-modify)
(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)
(define-endpoint ("/messages" :method :get) () .messages)
(define-endpoint ("/messages/results" :method :post) (&post (read :parameter-type 'string)) .messages-results)
(define-endpoint ("/messages/mark" :method :post) (&post (read :parameter-type 'string) (id :parameter-type 'integer)) .messages-mark)
(define-endpoint ("/users" :method :get) () .users)
(define-endpoint ("/users/view" :method :get) () .users-view)
(define-endpoint ("/users/add" :method :post) () .users-add)
(define-endpoint ("/users/add/submit" :method :post) (&post (role_groups :parameter-type 'string) (first_name :parameter-type 'string) (last_name :parameter-type 'string) (email :parameter-type 'string)) .users-add-submit)
(define-endpoint ("/register/:hash" :method :get) (&path (hash 'string)) .base (format nil "/register/~a" hash))
(define-endpoint ("/users/register" :method :post) (&post (hash :parameter-type 'string)) .users-register)
(define-endpoint ("/users/register/form" :method :post) (&post (hash :parameter-type 'string)) .users-register-form)
(define-endpoint ("/users/register/submit" :method :post) (&post (hash :parameter-type 'string) (username :parameter-type 'string) (pwd :parameter-type 'string) (pwd2 :parameter-type 'string) (phone :parameter-type 'string)) .users-register-submit)
(define-endpoint ("/users/modify" :method :post) (&post (id :parameter-type 'integer)) .users-modify)
(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)
|
