Update of /project/lisppaste/cvsroot/lisppaste2 In directory clnet:/tmp/cvs-serv23816
Modified Files: web-server.lisp Log Message: Oops. Monospace.
--- /project/lisppaste/cvsroot/lisppaste2/web-server.lisp 2007/01/16 01:10:44 1.89 +++ /project/lisppaste/cvsroot/lisppaste2/web-server.lisp 2007/01/16 02:37:39 1.90 @@ -1,4 +1,4 @@ -;;;; $Id: web-server.lisp,v 1.89 2007/01/16 01:10:44 bmastenbrook Exp $ +;;;; $Id: web-server.lisp,v 1.90 2007/01/16 02:37:39 bmastenbrook Exp $ ;;;; $Source: /project/lisppaste/cvsroot/lisppaste2/web-server.lisp,v $
;;;; See the LICENSE file for licensing information. @@ -945,21 +945,22 @@ (<table width="100%" class="paste-area"> (<tr> (<td bgcolor="#F4F4F4" colspan="2" width="100%"> - (when line-numbers (make-unescaped-string (line-number))) - ;; FIXME!!! This all needs to be converted to use - ;; XML objects natively. - (make-unescaped-string - (if colorize-as - (memoize-format (list (paste-contents paste) - colorize-as - line-numbers) - (lambda () - (colorize:format-scan colorize-as - (mapcar #'(lambda (e) - (cons (car e) - (encode (cdr e)))) - (colorize:scan-string colorize-as (paste-contents paste)))))) - (encode (paste-contents paste))))))))))) + (<tt> + (when line-numbers (make-unescaped-string (line-number))) + ;; FIXME!!! This all needs to be converted to use + ;; XML objects natively. + (make-unescaped-string + (if colorize-as + (memoize-format (list (paste-contents paste) + colorize-as + line-numbers) + (lambda () + (colorize:format-scan colorize-as + (mapcar #'(lambda (e) + (cons (car e) + (encode (cdr e)))) + (colorize:scan-string colorize-as (paste-contents paste)))))) + (encode (paste-contents paste))))))))))))
(defmethod handle-request-response ((handler display-paste-handler) method request) (let* ((paste-number (parse-integer