https://wiki.kram.nz/index.php?action=history&feed=atom&title=SE701%3AApril_2 2026-04-29T07:21:35Z Revision history for this page on the wiki MediaWiki 1.45.3 https://wiki.kram.nz/index.php?title=SE701:April_2&diff=12293&oldid=prev 2008-11-03T05:27:41Z

<p>2 revision(s)</p> <p><b>New page</b></p><div> ;; HTML generation<br /> <br /> ;; &lt;nowiki&gt;&lt;p&gt;This is a paragraph &lt;i&gt;with &lt;b&gt;italics&lt;/b&gt;&lt;/i&gt; &lt;b&gt;with bold&lt;/b&gt; &lt;/p&gt;&lt;/nowiki&gt;<br /> <br /> ;; p entity<br /> ;; text &quot;This is a paragraph &quot;<br /> ;; i entity<br /> ;; text &quot;with &quot;<br /> ;; b entity<br /> <br /> ;; (write-html (:p &quot;This is &lt; &gt; &amp; a paragraph &quot; (:i with (:b italics))))<br /> <br /> ;; (write-html &quot;simple string&quot;)<br /> ;; (write-html &#039;symbol)<br /> <br /> ;; also: attributes, &lt;nowiki&gt;&lt;p class=&quot;main&quot; style=&quot;...&quot;&gt;&lt;/nowiki&gt;<br /> ;; (:p :class &quot;main&quot; :style &quot;...&quot; stuff ...)<br /> <br /> (defvar *html-output* *standard-output*)<br /> <br /> (defvar *html-escapes* &#039;((#\&gt; . &quot;&amp;gt;&quot;)<br /> (#\&lt; . &quot;&amp;lt;&quot;)<br /> (#\&amp; . &quot;&amp;amp;&quot;)))<br /> <br /> (defvar *attr-escapes* &#039;((#\&gt; . &quot;&amp;gt;&quot;)<br /> (#\&lt; . &quot;&amp;lt;&quot;)<br /> (#\&amp; . &quot;&amp;amp;&quot;)<br /> (#\&quot; . &quot;&amp;quot;&quot;)<br /> (#\&#039; . &quot;&amp;apos;&quot;)))<br /> (defvar *escapes* *html-escapes*)<br /> <br /> <br /> (defun write-html-char (c)<br /> (let ((esc (cdr (find c *escapes* :key #&#039;car))))<br /> (cond<br /> (esc<br /> (format *html-output* &quot;~a&quot; esc))<br /> ((standard-char-p c)<br /> (format *html-output* &quot;~a&quot; c))<br /> (t<br /> (format *html-output* &quot;&amp;#~d;&quot; (char-code c))))))<br /> <br /> <br /> (defun write-html-literal (literal)<br /> (map nil #&#039;write-html-char (format nil &quot;~a&quot; literal)))<br /> <br /> <br /> (defun html-write-attr (attr)<br /> (if (cdr attr)<br /> (progn<br /> (format *html-output* &quot; ~a=\&quot;&quot; (car attr))<br /> (write-html-literal (cdr attr))<br /> (format *html-output* &quot;\&quot;&quot;))<br /> (format *html-output* &quot; ~a&quot; (car attr))))<br /> <br /> <br /> (defun html-extract (html)<br /> (labels ((html-extract-attrs (attrs elts)<br /> (if (and (keywordp (car elts)) (keywordp (cadr elts)))<br /> ;; (:selected :class &quot;foo&quot; ...)<br /> ;; --&gt; interpret :selected as a flag (attribute with no value)<br /> (html-extract-attrs (cons (cons (car elts) nil) attrs)<br /> (cdr elts)))<br /> (if (keywordp (car elts))<br /> ;; normal :keyword value pair<br /> (html-extract-attrs (cons (cons (car elts) (cadr elts)) attrs)<br /> (cddr elts))<br /> ;; end of attributes<br /> (values (car html) (nreverse attrs) elts))))<br /> (html-extract-attrs &#039;() (cdr html))))<br /> <br /> <br /> (defun write-html (html)<br /> (if (consp html)<br /> (multiple-value-bind (tag attrs elts) (html-extract html)<br /> (format *html-output* &quot;&lt;~a&quot; tag)<br /> (let ((*escapes* *attr-escapes*)) (mapcar #&#039;html-write-attr attrs))<br /> (format *html-output* &quot;&gt;&quot;)<br /> (mapcar #&#039;write-html elts)<br /> (format *html-output* &quot;&lt;/~a&gt;&quot; tag))<br /> (progn<br /> (write-html-literal html)<br /> (format *html-output* &quot; &quot;))))</div>

Mark