Packages

exemplar

0.5.0-rc1
0.6.0 0.5.0-rc1

Markup Language Expressions for LFE: creating XML/HTML with S-expressions on the Erlang VM

HexDocs

Current section

Files

Jump to
Readme
2 Versions
0 Dependencies
0 Dependants
Files
Activity
exemplar src xmplr-html.lfe
Raw

src/xmplr-html.lfe 

(defmodule xmplr-html

  (export all))



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



(defun data->str

  ((`(#(tag ,tag) #(attr ()) #(content ())))

    (exemplar-html:make-html (atom_to_list tag)))

  ((`(#(tag ,tag) #(attr ,attrs) #(content ())))

    (exemplar-html:make-html (atom_to_list tag) attrs))

  ((`(#(tag ,tag) #(attr ()) #(content ,content)))

    (exemplar-html:make-html

      (atom_to_list tag)

      (content->str content)))

  ((`(#(tag ,tag) #(attr ,attrs) #(content ,content)))

    (exemplar-html:make-html

      (atom_to_list tag)

      attrs

      (content->str content)))

  ((elements)

    `#(error "Could not parse elements" ,elements)))



(defun content->str (content)

  (cond

    ((clj:string? content)

      content)

    ((xmplr-util:attrs? content)

      content)

    ((xmplr-util:element? content)

      (data->str content))

    ((xmplr-util:elements? content)

      (lists:map #'data->str/1 content))

    ('true

      `#(error "Could not convert content to string" ,content))))