1 files changed, 0 insertions, 87 deletions
diff --git a/service/generic-form.lisp b/service/generic-form.lisp
deleted file mode 100644
index 6e0c821..0000000
--- a/service/generic-form.lisp
+++ /dev/null
@@ -1,87 +0,0 @@
-;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*-
-(declaim (optimize (speed 0) (safety 3) (debug 3)))
-
-(in-package :ldapadmin)
-
-(defclass generic-form (base-service)
-  ((name :initarg :name
-         :initform nil
-         :accessor name)
-   (http-method :initarg :http-method
-                :initform "POST"
-                :accessor http-method)
-   (action :initarg :action
-           :initform nil
-           :accessor action)
-   (required-p :initarg :required-p
-               :initform nil
-               :accessor required-p)
-   (form-fields :initarg :form-fields
-                :initform nil
-                :accessor form-fields))
-  (:documentation ""))
-
-(defclass form-field (base-service)
-  ((name :initarg :name
-         :initform nil
-         :accessor name)
-   (label :initarg :label
-          :initform nil
-          :accessor label)
-   (value :initarg :value
-          :initform nil
-          :accessor value)
-   (checked :initarg :checked
-            :initform nil
-            :accessor checked)
-   (field-type :initarg :field-type
-               :initform nil
-               :accessor field-type)
-   (required :initarg :required
-             :initform nil
-             :accessor required)
-   (dismiss :initarg :dismiss
-            :initform nil
-            :accessor dismiss)
-   (options :initarg :options
-            :initform nil
-            :accessor options)
-   (onclick :initarg :onclick
-            :initform nil
-            :accessor onclick)
-   (onchange :initarg :onchange
-             :initform nil
-             :accessor onchange))
-  (:documentation ""))
-
-(defclass option (base-service)
-  ((label :initarg :label
-          :initform nil
-          :accessor label)
-   (value :initarg :value
-          :initform nil
-          :accessor value))
-  (:documentation ""))
-
-(defun make-form (name action required-p fields)
-  (make-instance 'generic-form
-                 :name name
-                 :action action
-                 :required-p required-p
-                 :form-fields (mapcar (lambda (field)
-                                        (make-instance 'form-field
-                                                       :name (getf field :name)
-                                                       :label (getf field :label)
-                                                       :value (getf field :value)
-                                                       :checked (getf field :checked)
-                                                       :field-type (getf field :field-type)
-                                                       :required (getf field :required)
-                                                       :dismiss (getf field :dismiss)
-                                                       :options (mapcar (lambda (option)
-                                                                          (make-instance 'option
-                                                                                         :label (getf option :label)
-                                                                                         :value (getf option :value)))
-                                                                        (getf field :options))
-                                                       :onclick (getf field :onclick)
-                                                       :onchange (getf field :onchange)))
-                                      fields)))