(in-package "ZMA.WEB")

(defun fmt-entry (plist key)
  (let ((entry (getf plist key)))
   (format nil "~A" (or entry ""))))

(defmacro sym-namel (sym) `(str:downcase (symbol-name `,,sym)))

(defun symn2key (symn) (intern (str:upcase symn) :keyword))
(defun symn2pkey (symn) (intern (str:upcase (str:replace-all "_" "-" symn)) :keyword))


(defun field-name-to-label (fn-str)
  (str:replace-all "-"  " " (str:concat (str:capitalize fn-str) ":")))

(defmacro defield (field-name)
  (let ((fn-str (sym-namel field-name)))
    `(defroute (,(format nil "/uebersicht/:etri/~A" fn-str) :method :POST) (&key _parsed etri)
       (with-params (,field-name)
         (with-db
           (execute (update :stammdaten
                      (set= ,(symn2key fn-str) ,field-name)
                      (where (:= :entrinitaet etri))))
           (let ((sd (get-stammdaten-of-etri etri)))
             (spinneret:with-html-string
               (:tr (:td (:b ,(field-name-to-label fn-str)))
                    (:td (fmt-entry sd ,(symn2pkey fn-str)))
                    (:td (:button :class "btn btn-primary"
                                  :hx-get (format nil ,(format nil "/uebersicht/~~A/~A/bearbeiten" fn-str) etri)
                                  :hx-target "closest tr"
                                  :hx-swap "outerHTML"
                                  (:i :class "bi bi-pencil-fill")))))))))))


(defmacro defieldit (field-name)
  (let ((fn-str (sym-namel field-name)))
    `(defroute ,(format nil "/uebersicht/:etri/~A/bearbeiten" fn-str) (&key etri)
         (let* ((sd (get-stammdaten-of-etri etri))
                (wv (fmt-entry sd ,(symn2pkey fn-str))))
           (spinneret:with-html-string
             (:tr (:td (:b ,(field-name-to-label fn-str)))
                  (:td  (:input :id ,fn-str :name ,fn-str :type "text" :value wv))
                  (:td (:button :class "btn btn-primary"
                                :hx-post (format nil ,(format nil "/uebersicht/~~A/~A" fn-str) etri)
                                :hx-include ,(format nil "#~A" fn-str)
                                :hx-target "closest tr"
                                :hx-swap "outerHTML"
                                (:i :class "bi bi-floppy-fill")))))))))

(defmacro tr (varname &key (disabled nil))
  (let* ((vnstr (sym-namel varname))
         (vnkey (symn2pkey vnstr))
         (vnstrl (str:downcase vnstr)))
    `(spinneret:with-html
       (:tr (:td (:b ,(field-name-to-label vnstr)))
            (:td (fmt-entry sd ,vnkey))
            (:td (:button :class ,(str:concat "btn " (if disabled " disabled btn-secondary" " btn-primary"))
                          :hx-get (format nil ,(format nil "/uebersicht/~~A/~A/bearbeiten" vnstrl) etri)
                          :hx-target "closest tr"
                          :hx-swap "outerHTML"
                          (:i :class "bi bi-pencil-fill")))))))
(defun tab-inhalt-stammdaten (etri)
  (let* ((sd (get-stammdaten-of-etri etri)))
    (spinneret:with-html-string
      (:table :class "table table-striped border"
              (:thead)
              (:tbody
               (tr rufname :disabled t)
               (tr nachname :disabled t)
               (tr geburtsdatum :disabled t)
               (tr weitere_vornamen)
               (tr geburtsland)
               (tr geburtsort_code))))))

(defield weitere_vornamen)
(defield geburtsland)
(defield geburtsort_code)
(defieldit weitere_vornamen)
(defieldit geburtsland)
(defieldit geburtsort_code)

;; (defroute "/uebersicht/:etri/weitere-vornamen/bearbeiten" (&key etri)
;;   (let* ((sd (get-stammdaten-of-etri etri))
;;          (wv (fmt-entry sd :weitere-vornamen)))
;;     (spinneret:with-html-string
;;       (:tr (:td (:b "Weitere Vornamen:"))
;;            (:td  (:input :id "weitere-vornamen" :name "weitere-vornamen" :type "text" :value wv))
;;            (:td (:button :class "btn btn-primary"
;;                          :hx-post (format nil "/uebersicht/~A/weitere-vornamen" etri)
;;                          :hx-include "#weitere-vornamen"
;;                          :hx-target "closest tr"
;;                          :hx-swap "outerHTML"
;;                          (:i :class "bi bi-floppy-fill")))))))