Created an html5 tags file and system, as well as exported the html5 document stuff

Author: bobbysmith007

buildnode-html5.asd

@@ -0,0 +1,20 @@
+;; -*- lisp -*-
+
+(eval-when (:compile-toplevel :load-toplevel :execute)
+  (unless (find-package :net.acceleration.buildnode.system)
+    (defpackage :net.acceleration.buildnode.system
+	(:use :common-lisp :asdf))))
+
+(in-package :net.acceleration.buildnode.system)
+
+(defsystem :buildnode-html5
+  :description "Tool for building up an xml dom of an html5 document"
+  :components
+  ((:module :src
+	    :serial T
+	    :components
+	    ((:module :tags
+		      :serial T
+		      :components
+		      ((:file "html5-tags"))))))
+  :depends-on (:buildnode))

buildnode.asd

@@ -29,7 +29,9 @@
 		     :cl-interpol
 		     ;; TODO:
 		     ;; for html-generation - probably not a dependancy of the whole library
-		     :closure-html 
+		     :closure-html
+                     :cl-ppcre
+                     :symbol-munger
 		     ))
 
 (defsystem :buildnode-test

src/buildnode.lisp

@@ -626,6 +626,12 @@ This sets the doctype to be html 4.01 strict."
     (append-nodes *document* ,@body)
     *document*))
 
+(defmacro with-html5-document-to-file ((filename) &body body)
+  "Creates an html-document, writes out the results to filename"
+  `(let ((*html-compatibility-mode* T))
+    (write-doc-to-file (with-html5-document ,@body)
+     ,filename)))
+
 (defmacro with-html5-document (&body body)
   "(with-html5-document ( a bunch of child nodes of the document )) --> cxml:dom document
 Creates an environment in which the special variable *document* is available

src/packages.lisp

@@ -29,6 +29,9 @@
    #:with-xhtml-document-to-file
    #:with-html-document
    #:with-html-document-to-file
+   #:with-html5-document
+   #:with-html5-document-to-file
+   #:with-html5-document-to-string
    #:append-nodes
    #:insert-nodes
    #:add-children

src/tags/html5-tags.lisp

@@ -0,0 +1,129 @@
+(in-package :net.acceleration.buildnode)
+(cl-interpol:enable-interpol-syntax)
+
+(eval-always
+  (unless (find-package :net.acceleration.html5)
+    (defpackage :net.acceleration.html5 (:nicknames :html5) (:use ))))
+
+(pushnew :buildnode-html5 *features* :test #'eql)
+
+(defparameter +html5-namespace+ "http://www.w3.org/1999/xhtml")
+
+(defparameter +html5-tag-spec+
+  "a – hyperlink CHANGED
+abbr – abbreviation
+address – contact information
+area – image-map hyperlink
+article – article NEW
+aside – tangential content NEW
+audio – audio stream NEW
+b – offset text conventionally styled in bold CHANGED
+base – base URL
+bdi – BiDi isolate NEW
+bdo – BiDi override
+blockquote – block quotation
+body – document body
+br – line break
+button – button
+button type=submit – submit button
+button type=reset – reset button
+button type=button – button with no additional semantics
+canvas – canvas for dynamic graphics NEW
+caption – table title
+cite – cited title of a work CHANGED
+code – code fragment
+col – table column
+colgroup – table column group
+command – command NEW
+datalist – predefined options for other controls NEW
+dd – description or value
+del – deleted text
+details – control for additional on-demand information NEW
+dfn – defining instance
+div – generic flow container
+dl – description list
+dt – term or name
+em – emphatic stress
+embed – integration point for plugins NEW
+fieldset – set of related form controls
+figcaption – figure caption NEW
+figure – figure with optional caption NEW
+footer – footer NEW
+form – user-submittable form
+h1 – heading
+h2 – heading
+h3 – heading
+h4 – heading
+h5 – heading
+h6 – heading
+head – document metadata container
+header – header NEW
+hgroup – heading group NEW
+hr – thematic break CHANGED
+html – root element
+i – offset text conventionally styled in italic CHANGED
+iframe – nested browsing context (inline frame)
+img – image
+input – input control CHANGED
+ins – inserted text
+kbd – user input
+keygen – key-pair generator/input control NEW
+label – caption for a form control
+legend – title or explanatory caption
+li – list item
+link – inter-document relationship metadata
+map – image-map definition
+mark – marked (highlighted) text NEW
+menu – list of commands CHANGED
+meta – metadata CHANGED
+meter – scalar gauge NEW
+nav – group of navigational links NEW
+noscript – fallback content for script
+object – generic external content
+ol – ordered list
+optgroup – group of options
+option – option
+output – result of a calculation in a form NEW
+p – paragraph
+param – initialization parameters for plugins
+pre – preformatted text
+progress – progress indicator NEW
+q – quoted text
+rp – ruby parenthesis NEW
+rt – ruby text NEW
+ruby – ruby annotation NEW
+s – struck text CHANGED
+samp – (sample) output
+script – embedded script
+section – section NEW
+select – option-selection form control
+small – small print CHANGED
+source – media source NEW
+span – generic span
+strong – strong importance
+style – style (presentation) information
+sub – subscript
+summary – summary, caption, or legend for a details control NEW
+sup – superscript
+table – table
+tbody – table row group
+td – table cell
+textarea – text input area
+tfoot – table footer row group
+th – table header cell
+thead – table heading group
+time – date and/or time NEW
+title – document title
+tr – table row
+track – supplementary media track NEW
+u – offset text conventionally styled with an underline CHANGED
+ul – unordered list
+var – variable or placeholder text
+video – video NEW
+wbr – line-break opportunity")
+
+(iter (for row in (cl-ppcre:split #?r"\n" +html5-tag-spec+))
+  (for (name doc) = (cl-ppcre:split #?r" – " row))
+  (for sname = (symbol-munger:english->lisp-symbol name :net.acceleration.html5))
+  (def-tag-node :net.acceleration.html5 `',name  +xhtml-namespace+ doc)
+  (export sname :net.acceleration.html5))

src/tags/tags.lisp

@@ -21,26 +21,32 @@
 (when (boundp 'swank::*application-hints-tables*)
   (pushnew *tags-indentation-hints* swank::*application-hints-tables*))
 
+;; TODO, so hacky, but I had to make it work, please fix this future me I am
+;; guessing that originally the evals everywhere were to make sure that
+;; everything is evaled once
+(defun %do-def-tag-node (package name namespace docstring &optional fn-name)
+  (let* ((evaled-name (eval name))
+	 (name (or fn-name
+                   (symbol-munger:english->lisp-symbol (eval package))))
+	 (tagname evaled-name))
+    (eval
+     `(progn
+       (CL:defun ,name (&optional attributes &rest children )
+         ,@(when docstring (list docstring))
+         (declare (special *document*))
+         (create-complete-element *document*
+                                  ,namespace
+                                  ,tagname
+                                  attributes
+                                  children))
+       (setf (gethash ',name *tags-indentation-hints*) 1)
+       ))))
 
 (defmacro def-tag-node (package name  namespace docstring &optional fn-name )
   "Defines a tag function in the package with the name and prefix specified
 for example: :net.acceleration.xul \"box\" \"xul\" will create a function #'box in the :net.acceleration.xul
 lisp namespace. When this function is called it will create a 'xul:box' node in the xmlns provided in the namespace param"
-  (let* ((evaled-name (eval name))
-	 (name (or fn-name
-		   (intern (string-upcase evaled-name) (eval package))))
-	 (tagname evaled-name))
-    `(progn
-      (CL:defun ,name (&optional attributes &rest children )
-	,@(when docstring (list docstring))
-	(declare (special *document*))
-	(create-complete-element *document*
-				 ,namespace
-				 ,tagname
-				 attributes
-				 children))
-       (setf (gethash ',name *tags-indentation-hints*) 1)
-      )))
+  `(%do-def-tag-node ,package ,name ,namespace ,docstring ,fn-name))
 
 (defun ?xml-stylesheet (href &optional (type "text/css" ))
   "adds an xml-stylesheet processing instruction to the cxml:dom document bound to the