[Use jQuery to make inserting images into pages easier
clinton@unknownlamer.org**20081216075155] hunk ./src/web-admin.lisp 38
-  ((content (textarea-field :rows 30 :cols 80)))
+  ((content (textarea-field :rows 30 :cols 80 :dom-id "content-editor")))
hunk ./src/web-admin.lisp 45
-    (<:div (<ucw:submit :value "Preview" :action (call 'markdown-preview
-						       :text (value content)))
+    (<: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
+						 :text (value content)))
hunk ./src/web-admin.lisp 57
-	     (<:p (<:ah "To display the image you uploaded insert ")
-		  (<:code (<:format "{image ~S}" *last-image-upload*))
-		  (<:ah " into the document where you want to display it."))
+	     (<: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*)))
hunk ./src/web-admin.lisp 71
-
hunk ./src/web-admin.lisp 179
+(defmethod render :after ((e page-editor))
+  (<:a :id "foo" :href "#" (<:ah "foo"))
+  (<ucw:script
+   `(.droppable ($ "#content-editor")
+		(ps:create
+		 :accept ".droppable-image-link"
+		 :drop (lambda (event ui)
+			 (let* ((text (.text ($ this)))
+				(before (.substring
+					 text 0 ui.element[0].selection-start))
+				(after (.substr
+					text ui.element[0].selection-end)))
+			   (.append (.empty ($ this))
+				    (+ before
+				       (.data ui.draggable "markdown-text")
+				       after))))))))
+
+
hunk ./src/web-admin.lisp 311
+    :javascript '((:src "static/js/jquery/jquery-1.2.6.js"))