Ecto somehow managed to fuck up all the fixed-width text used for program code in the LISP entries. This will get fixed ASAP, sorry.<\/p>\n
Update<\/strong>: it should be better now :). Here is the LISP sourcecode I used to cleanup the entries. I replace P entries with monospace font with PRE entries. This sourcecode uses the HTML pattern matcher which can be found at svn:\/\/bknr.net\/trunk\/bknr\/src\/html-match . It is a real memory abuser, and quite slow too, but it works \ud83d\ude42<\/p>\n Ecto somehow managed to fuck up all the fixed-width text used for program code in the LISP entries. This will get fixed ASAP, sorry. Update: it should be better now :). Here is the LISP sourcecode I used to cleanup … Continue reading (defun load-file (file)\n (with-open-file (s file :direction :input)\n (let ((lines (loop for line = (read-line s nil 'eof)\n until (eql line 'eof)\n collect line)))\n (reduce #'(lambda (s1 s2) (concatenate 'string s1 s2)) lines :initial-value \"\"))))\n\n(defun cleanup-ecto (file output-file)\n (let* ((body (cons :html\n (net.html.parser:parse-html (load-file file))))\n (res (html-replace body\n (html-pattern ((:p :style \"font-family:monospace;font-size:13pt;\") ?body)\n (cons :pre\n (html-replace ?body\n (html-pattern :br (string #\\Newline))))))))\n (with-open-file (s output-file :direction :output :if-exists :supersede)\n (net.html.generator:html-stream s\n (mapcar #'(lambda (x) (net.html.generator:html-print x s))\n (cdr res))))))\n<\/pre>\n","protected":false},"excerpt":{"rendered":"