anchor.diff:               (<th align="left" width="0%" nowrap="nowrap"> "Captcha:")
                (<td>
                 (let* ((number1 (+ 32 (random 68)))
  -		     (number2 (+ 32 (random 68)))
  -		     (description (format nil "What do you get when you multiply ~A by ~A?" number1 number2)))
  -		(multiple-value-bind (captcha captchaid)
  -		   (make-captcha 4 :string (format nil "~4,'0D" (* number1 number2)))
  -		 (list
  -		  (<div style= "display: table-cell;" title= ? description>
  -			captcha)
  -		  (<div class= "altdiv" >
  -			description)
  -		  <input type="text" name="captcha" />
  -		  <input type="hidden" name="captchaid" value=?captchaid />))))))
  +                     (number2 (+ 32 (random 68)))
  +                     (description (format nil "What do you get when you multiply ~A by ~A?" number1 number2)))
  +                (multiple-value-bind (captcha captchaid)
  +                   (make-captcha 4 :string (format nil "~4,'0D" (* number1 number2)))
  +                 (list
  +                  (<div style= "display: table-cell;" title= ? description>
  +                        captcha)
  +                  (<div class= "altdiv" >
  +                        description)
  +                  <input type="text" name="captcha" />
  +                  <input type="hidden" name="captchaid" value=?captchaid />))))))
             (unless annotate
  -	    
  +
               (list
  -	     (<tr>
  -	      (<th align="left" width="0%" nowrap="nowrap">
  -		   "Colorize as: ")
  -	      (<td> (let ((default (gethash default-channel *coloring-type-defaults*)))
  -		      (<select name="colorize">
  -			       (<option value="None" $(unless default
  -							'("selected" "SELECTED"))> "None") 
  -			       (loop for pair in (colorize:coloring-types)
  -				     collect (<option value=?(cdr pair) $(if (eq (car pair) default)
  -									     '("selected" "SELECTED"))>
  -									     (cdr pair)))))))
  -	     (<tr>
  -	      (<th align="left" width="0%" nowrap="nowrap">
  -		   "Expires in: ")
  -	      (<td> (<select name="expiration">
  -			     (loop for pair in *expiration-options*
  -				   for first = t then nil
  -				   collect (<option value=?(car pair) $(if first '("selected" "SELECTED"))>
  -						    (car pair))))))))
  +             (<tr>
  +              (<th align="left" width="0%" nowrap="nowrap">
  +                   "Colorize as: ")
  +              (<td> (let ((default (gethash default-channel *coloring-type-defaults*)))
  +                      (<select name="colorize">
  +                               (<option value="None" $(unless default
  +                                                        '("selected" "SELECTED"))> "None")
  +                               (loop for pair in (colorize:coloring-types)
  +                                     collect (<option value=?(cdr pair) $(if (eq (car pair) default)
  +                                                                             '("selected" "SELECTED"))>
  +                                                                             (cdr pair)))))))
  +             (<tr>
  +              (<th align="left" width="0%" nowrap="nowrap">
  +                   "Expires in: ")
  +              (<td> (<select name="expiration">
  +                             (loop for pair in *expiration-options*
  +                                   for first = t then nil
  +                                   collect (<option value=?(car pair) $(if first '("selected" "SELECTED"))>
  +                                                    (car pair))))))))
             (<tr>
              (<th align="left" valign="top" width="0%" nowrap="nowrap">
                   "Enter your paste:")
  
positive.code:                                      (string-equal default-channel "None"))
                                  (find default-channel *channels* :test #'string-equal)))
         (new-paste-form :annotate annotate-paste :default-channel default-channel))
        (t 
           (xml-to-string
            (lisppaste-wrap-page
             "Select a channel"
  
negative.code: ;;;; See the LICENSE file for licensing information.
  
  (in-package :lisppaste)
  