Added filter: escape XML-unsafe characters (|e).

1 files changed, 17 insertions, 1 deletions

diff --git a/zencoding-mode.el b/zencoding-mode.el
index 123cdb3..3ae06d8 100644
--- a/zencoding-mode.el
+++ b/zencoding-mode.el
@@ -392,7 +392,8 @@
   '("html" (zencoding-primary-filter zencoding-make-html-tag)
     "c"    (zencoding-primary-filter zencoding-make-commented-html-tag)
     "haml" (zencoding-primary-filter zencoding-make-haml-tag)
-    "hic"  (zencoding-primary-filter zencoding-make-hiccup-tag)))
+    "hic"  (zencoding-primary-filter zencoding-make-hiccup-tag)
+    "e"    (zencoding-escape-xml)))
 
 (defun zencoding-primary-filter (input proc)
   "Process filter that needs to be executed first, ie. not given output from other filter."
@@ -507,6 +508,18 @@
         (concat prefix body suffix))
     ""))
 
+(defun zencoding-escape-xml (input proc)
+  "Escapes XML-unsafe characters: <, > and &."
+  (replace-regexp-in-string
+   "<" "&lt;"
+   (replace-regexp-in-string
+    ">" "&gt;"
+    (replace-regexp-in-string
+     "&" "&amp;"
+     (if (stringp input)
+         input
+       (zencoding-process-filter (zencoding-default-filter) input))))))
+
 (defun zencoding-transform (ast-with-filters)
   "Transform AST (containing filter data) into string."
   (let ((filters (cadr ast-with-filters))
@@ -739,6 +752,9 @@
                                            "    [:a [:b]]"
                                            "    [:p"
                                            "        [:b]]]")
+                 ;; Filter: escape
+                 ("script src=&quot;|e"    "&lt;script src=\"&amp;quot;\"&gt;"
+                                           "&lt;/script&gt;")
                  )))
     (mapc (lambda (input)
             (let ((expected (mapconcat 'identity (cdr input) "\n"))