;;; -*- 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)