Add EL_ESCAPE option

1 files changed, 16 insertions, 4 deletions

@@ -2,6 +2,9 @@
 
 ### Code:
 
+## Escape < and > with backslashes.
+EL_ESCAPE=true
+
 el() { # el NAME ARGS...
     ## Create an HTML element named NAME using ARGS.
     # Any ARGS that contain an equals sign will be made into attributes of the
@@ -12,18 +15,23 @@ el() { # el NAME ARGS...
     # No validation is done on any arguments in this function.  It could create
     # something that looks vaguely like an HTML element but isn't valid.
     _name="$1"; shift || return 1 # Require at least an element name
-    _element="\\<$_name"
+    _element="$_name"
     _content=""
     _process_args=true
 
     while test -n "$1"; do
         case "$1" in
-            --) if "$_process_args"; then
+            --)
+                if "$_process_args"; then
                     _process_args=false
                 else
                     _content="$_content${_content:+ }$1"
                 fi
                 ;;
+            '\<'*)
+                _process_args=false
+                _content="$_content${_content:+ }$1"
+                ;;
             *=*)
                 if "$_process_args"; then
                     _element="$_element ${1%%=*}=\"${1#*=}\""
@@ -40,8 +48,12 @@ el() { # el NAME ARGS...
         esac
         shift
     done
-    _element="$_element\\>"
-    printf '%s%s\\</%s\\>\n' "$_element" "$_content" "$_name"
+    if $EL_ESCAPE; then
+        fmt='\<%s\>%s\</%s\>\n'
+    else
+        fmt='<%s>%s</%s>\n'
+    fi
+    printf "$fmt" "$_element" "$_content" "$_name"
 }
 
 ### HTML5 element aliases