blob: 082cda5e4da0c5ac42c2d462cc6d4d02cad6e3c6 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*-
(declaim (optimize (speed 0) (safety 3) (debug 3)))
(in-package #:music-dispensary)
;; ========================================================================== ;;
(defclass login (generic-form)
()
(:documentation ""))
(define-generic-form-constructor (login "login-form" "/login/authenticate")
'((:name "username" :label "Username" :field-type "text")
(:name "password" :label "Password" :field-type "password")
(:name "submit" :label "Login" :field-type "button")))
(defun login-json ()
(objects-to-json `(,(make-instance 'login))))
|
