blob: f74236c839df0bee8dc7bf16e20f7153bd919d30 (
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
|
;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*-
(declaim (optimize (speed 0) (safety 3) (debug 3)))
(in-package #:music-dispensary)
;; ========================================================================== ;;
(defmacro .base ()
`(html5
`(html
(head
((meta :name "viewport" :content "width=device-width, initial-scale=1"))
((meta :charset "utf-8"))
((title) ,(title *webapp*))
,@(mapcar (lambda (css)
`((link :rel "stylesheet" :href ,css)))
'("https://maxcdn.bootstrapcdn.com/bootstrap/3.3.7/css/bootstrap.min.css")))
,@(mapcar (lambda (js)
`((script :type "text/javascript" :src ,js)))
'("https://ajax.googleapis.com/ajax/libs/jquery/3.2.0/jquery.min.js"
"https://maxcdn.bootstrapcdn.com/bootstrap/3.3.7/js/bootstrap.min.js"
"/static/js/cljs/main.js"))
(body
((div :class "container-fluid")
((div :class "page-header")
((h2 :align "center") ,(title *webapp*)))
((div :id "menu" :class "well"))
((div :id "errormsg"))
((div :id "message"))
((div :id "body")))))))
;; ========================================================================== ;;
(defmacro .location ()
`(location-json))
(defmacro .home ()
`(home-json))
(defmacro .menu ()
`(menu-json))
(defmacro .login ()
`(login-json))
(defmacro .login-authenticate ()
`(login-authenticate-json username password))
(defmacro .logout ()
`(logout-json))
(defmacro .browse ()
`(browse-json))
(defmacro .browse-browser ()
`(browse-browser-json relative-path node))
(defmacro .browse-papersize ()
`(browse-papersize-json))
(defmacro .browse-generate ()
`(browse-generate-json file papersize))
;; ========================================================================== ;;
(define-endpoint :get "/" () .base)
(define-endpoint :get "/location" () .location)
(define-endpoint :get "/home" () .home)
(define-endpoint :get "/menu" () .menu)
(define-endpoint :get "/login" () .login)
(define-endpoint :post "/login/authenticate" ((username :parameter-type 'string) (password :parameter-type 'string)) .login-authenticate)
(define-endpoint :get "/logout" () .logout)
(define-endpoint :get "/browse" () .browse)
(define-endpoint :post "/browse/browser" ((relative-path :parameter-type 'string) (node :parameter-type 'string)) .browse-browser)
(define-endpoint :get "/browse/papersize" () .browse-papersize)
(define-endpoint :post "/browse/generate" ((file :parameter-type 'string) (papersize :parameter-type 'string)) .browse-generate)
|
