(defmodule exemplar-html
  (export all))

(include-lib "exemplar/include/html-macros.lfe")

(defun make-html (tag)
  (exemplar-xml:make-xml tag))

(defun make-html
  (("!doctype" data)
    (io_lib:format (++ (handle-doctype data) "~n") '()))
  (("link" attrs)
    (exemplar:non-closing-tag "link" attrs))
  (("meta" attrs)
    (exemplar:non-closing-tag "meta" attrs))
  (("script" content-or-attrs)
    (cond
     ((xmplr-util:attrs? content-or-attrs)
      (make-html "script" content-or-attrs ""))
     ((clj:string? content-or-attrs)
      (make-html "script" '() content-or-attrs))))
  ((tag content-or-attrs)
   (let ((data (exemplar-xml:make-xml tag content-or-attrs)))
     (cond
       ;; if it's a list, it could be a list of elements or it could be a list
       ;; of attr/value pairs
       ((xmplr-util:attrs? content-or-attrs)
         (++ (exemplar:self-closing-tag tag content-or-attrs)))
       ;; if it's a string, use the make-xml/2 function, since that's going to
       ;; be content
       ((clj:string? content-or-attrs)
         data)
       ;; if it's a list of elements (i.e., not a list of attrs), use the same
       ;; function, but flatten the result
       ((clj:list? content-or-attrs)
         (lists:flatten data))))))

(defun make-html (tag attrs content)
  (exemplar-xml:make-xml tag attrs content))

(defun doctype ()
  (exemplar:opening-tag "!DOCTYPE html"))

(defun doctype (arg1 arg2)
  (exemplar:opening-tag
    (lists:flatten
      (io_lib:format "!DOCTYPE html PUBLIC \"~s\" \"~s\"" `(,arg1 ,arg2)))))

(defun handle-doctype
  (('html)
    (doctype))
  (('(html))
    (doctype))
  ((`(,_ ,_ ,arg1 ,arg2))
    (doctype arg1 arg2)))