guix/gnu/packages/patches/sbcl-aserve-add-HTML-5-elements.patch
Foo Chuan Wei d1072f21ba
gnu: sbcl-aserve: Add HTML5 elements to htmlgen.
* gnu/patches/sbcl-aserve-add-HTML-5-elements.patch: New file.
* gnu/patches/sbcl-aserve-fix-rfe12668.patch: New file.
* gnu/local.mk (dist_patch_DATA): Add them.
* gnu/packages/lisp-xyz.scm (sbcl-aserve)[source]: Use them.

Signed-off-by: Guillaume Le Vaillant <glv@posteo.net>
2021-12-12 10:24:52 +01:00

63 lines
1.7 KiB
Diff

From 940679fb75073a59186099e3dd7fb381e727db6b Mon Sep 17 00:00:00 2001
From: Kevin Layer <layer@franz.com>
Date: Thu, 31 Oct 2013 04:27:29 -0700
Subject: [PATCH 1/2] rfe12668: add HTML 5 elements to htmlgen
Add the new elements listed here:
http://www.w3.org/TR/html5-diff/#new-elements
Change-Id: I7f64363751130644caf90ecdd65c13175d77ae97
---
aserve/htmlgen/htmlgen.cl | 38 ++++++++++++++++++++++++++++++++++++--
1 file changed, 36 insertions(+), 2 deletions(-)
diff --git a/aserve/htmlgen/htmlgen.cl b/aserve/htmlgen/htmlgen.cl
index 59248ef..0c0d6e8 100644
--- a/aserve/htmlgen/htmlgen.cl
+++ b/aserve/htmlgen/htmlgen.cl
@@ -747,6 +747,40 @@
(def-std-html :var t nil)
-(def-std-html :wbr nil nil)
-
(def-std-html :xmp t nil)
+
+;; html 5
+
+(def-std-html :section t nil)
+(def-std-html :article t nil)
+(def-std-html :main t nil)
+(def-std-html :aside t nil)
+(def-std-html :hgroup t nil)
+(def-std-html :header t nil)
+(def-std-html :footer t nil)
+(def-std-html :nav t nil)
+(def-std-html :figure t nil)
+(def-std-html :figcaption t nil)
+
+(def-std-html :video t nil)
+(def-std-html :audio t nil)
+(def-std-html :source t nil)
+(def-std-html :track t nil)
+(def-std-html :embed t nil)
+(def-std-html :mark t nil)
+(def-std-html :progress t nil)
+(def-std-html :meter t nil)
+(def-std-html :time t nil)
+(def-std-html :data t nil)
+(def-std-html :dialog t nil)
+(def-std-html :ruby t nil)
+(def-std-html :rt t nil)
+(def-std-html :rp t nil)
+(def-std-html :bdi t nil)
+(def-std-html :wbr nil nil)
+(def-std-html :canvas t nil)
+(def-std-html :menuitem t nil)
+(def-std-html :details t nil)
+(def-std-html :datalist t nil)
+(def-std-html :keygen t nil)
+(def-std-html :output t nil)
--
2.25.1