Packages

exemplar

0.6.0
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
2 Dependencies
0 Dependants
Files
Activity
exemplar include xml-macros.lfe
Raw

include/xml-macros.lfe 

(defmacro defelem arg

  (let ((tag (car arg)))

    `(progn

       (defun ,tag ()

         (exemplar-xml:make-xml (atom_to_list ',tag)))

       (defun ,tag (content)

         (exemplar-xml:make-xml (atom_to_list ',tag) content))

       (defun ,tag (attrs content)

         (exemplar-xml:make-xml (atom_to_list ',tag) attrs content)))))



(defun loaded-xml-macros ()

  "This is just a dummy function for display purposes when including from the

  REPL (the last function loaded has its name printed in stdout).



  This function needs to be the last one in this include."

  'ok)