[Put markdown form fields into a fieldset
clinton@unknownlamer.org**20090215223324
 Ignore-this: cf83f43bf1bfb91d4da115290b675985
] hunk ./src/web-admin.lisp 23
-    (<:div (<:script :src "static/js/jquery/ui/ui.core.js")
-	   (<:script :src "static/js/jquery/ui/ui.draggable.js")
-	   (<:script :src "static/js/jquery/ui/ui.droppable.js")
-	   (<ucw:submit :value "Preview" :action (call 'markdown-preview
+    (<:fieldset
+     (<:legend "Markdown")
+     (<:script :src "static/js/jquery/ui/ui.core.js")
+     (<:script :src "static/js/jquery/ui/ui.draggable.js")
+     (<:script :src "static/js/jquery/ui/ui.droppable.js")
+     (<ucw:submit :value "Preview" :action (call 'markdown-preview
hunk ./src/web-admin.lisp 30
-	   (<ucw:submit
-	    :value "Upload Image"
-	    :action (setf *last-image-upload*
-			  (let ((path (call 'image-upload)))
-			    (format nil "~A.~A" (pathname-name path)
-				                (pathname-type path)))))
-	   (<:a :href "http://daringfireball.net/projects/markdown/syntax"
-		:target "_new"
-		(<:as-html "Markdown Syntax Reference"))
-	   (when *last-image-upload*
-	     (<:p (<:img :id "last-image-upload"
-			 :class "droppable-image-link"
-			 :alt "last uploaded image"
-			 :style "max-width: 200px;"
-			 :src (format nil
-				      "/static/img/uploaded/~A" *last-image-upload*))
-		  (<:ah "Drag the image into the document where you want to display it."))
-	     (<ucw:script
-	      `(.data (.draggable ($ "#last-image-upload")
-				  (ps:create :revert true))
-		      "markdown-text"
-		      ,(format nil "{image ~S}" *last-image-upload*)))
-	     (setf *last-image-upload* nil)))))
+     (<ucw:submit
+      :value "Upload Image"
+      :action (setf *last-image-upload*
+		    (let ((path (call 'image-upload)))
+		      (format nil "~A.~A" (pathname-name path)
+			      (pathname-type path)))))
+     (<:a :href "http://daringfireball.net/projects/markdown/syntax"
+	  :target "_new"
+	  (<:as-html "Markdown Syntax Reference"))
+     (when *last-image-upload*
+       (<:p (<:img :id "last-image-upload"
+		   :class "droppable-image-link"
+		   :alt "last uploaded image"
+		   :style "max-width: 200px;"
+		   :title *last-image-upload*
+		   :src (format nil
+				"/static/img/uploaded/~A" *last-image-upload*))
+	    (<:ah "Drag the image into the document where you want to display it."))
+       (<ucw:script
+	`(.data (.draggable ($ "#last-image-upload")
+			    (ps:create :revert true))
+		"markdown-text"
+		,(format nil "{image ~S}" *last-image-upload*)))
+       (setf *last-image-upload* nil)))))