Reddit 1.0 source code
Never played around with Lisp, so excuse the ignorance. Is this typical to construct HTML in Lisp? This feels incredibly verbose and error prone, not to mention confusing and hard to grok. Good luck having a designer mockup&#x2F;write HTML.<p><pre><code>    (defun login-panel ()
       (pbox &quot;login&#x2F;register&quot;
         (:form :id &quot;logform&quot; :class &quot;nomargin&quot;
           (:table :style &quot;border-collapse: collapse&quot;
                   (:tr (:td :colspan &quot;2&quot;  &quot;username:&quot;))
                   (:tr (:td :colspan &quot;2&quot; (:input :id &quot;loguser&quot; :class &quot;txt&quot; :name &quot;user&quot; :type &quot;text&quot; :size 15)))
                   (:tr (:td :colspan &quot;2&quot; &quot;password:&quot;))
                   (:tr (:td :colspan &quot;2&quot; (:input :id &quot;logpass&quot; :class &quot;txt&quot; :name &quot;pass&quot; :type &quot;password&quot; :size 15)))
                   (:tr (:td :colspan &quot;2&quot; (:input :id &quot;logmem&quot; :type &quot;checkbox&quot; :name &quot;mem&quot; &quot;remember me&quot;)))
                   (:tr (:td :colspan &quot;2&quot; (:span :id &quot;logerror&quot; :class &quot;error&quot; &quot;&quot;)))
                   (:tr (:td (:input :id &quot;logbtn&quot; :class &quot;btn&quot; :type &quot;submit&quot; :value &quot;Login&quot; :onclick &quot;login(); return false&quot;))
                        (:td (:input :class &quot;btn&quot; :type &quot;submit&quot; :value &quot;Register&quot; :onclick &quot;register(); return false&quot;)))
                   (:tr (:td :nowrap t :colspan &quot;2&quot; :align &quot;center&quot; :class &quot;little&quot; (:a :href &quot;&#x2F;password&quot; &quot;what&#x27;s my password?&quot;)))))))</code></pre>