summaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/hypnotisml.lisp9
-rw-r--r--src/package.lisp4
2 files changed, 10 insertions, 3 deletions
diff --git a/src/hypnotisml.lisp b/src/hypnotisml.lisp
index 13e4bab..adbb14d 100644
--- a/src/hypnotisml.lisp
+++ b/src/hypnotisml.lisp
@@ -4,9 +4,11 @@
;;; UTILITIES
+(def:var *noindent* :init nil :doc "Turns off indentation")
(def:var *indent* :doc "Current indentation" :init 0)
(defun indent (stream &optional (indent *indent*))
- (loop :repeat indent :do (write-char #\space stream)))
+ (unless *noindent*
+ (loop :repeat indent :do (write-char #\space stream))))
(let ((counter 0)
(hostid (sxhash (list (lisp-implementation-type)
@@ -263,6 +265,11 @@ already present in the element."
;;; RENDERING
+(defun html-string (elem &key (pretty t))
+ (let ((*noindent* (not pretty)))
+ (with-output-to-string (out)
+ (html elem out))))
+
(defgeneric html (elem stream)
(:documentation "Renders an element as HTML"))
diff --git a/src/package.lisp b/src/package.lisp
index 36d975b..4c0c94f 100644
--- a/src/package.lisp
+++ b/src/package.lisp
@@ -180,5 +180,5 @@
;; rendering
(:export
- #:html)
- )
+ #:html
+ #:html-string))