[Initial image uploading support
clinton@unknownlamer.org**20081216030512
 * Images can be uploaded for bee-page
 * markdown extension {image "uploaded-name"} to display an uploaded image
] hunk ./src/web-admin.lisp 107
+(define-html-form image-upload (file-upload-form)
+  ((image (file-upload-field)))
+  ())
+
+(defaction process-form ((form image-upload))
+  (with-slots (image) form
+    (let ((upload-stream
+	   (let ((original-file-name (rfc2388-binary:get-header-attribute
+				      (rfc2388-binary:get-header (value image)
+								 "Content-Disposition")
+				      "filename")))
+	     (open (make-pathname
+		    :directory `(:absolute ,beesknees.site-control::*bee-data-root*
+					   "wwwroot" "img" "uploaded")
+		    :name (pathname-name original-file-name)
+		    :type (pathname-type original-file-name))
+		   :direction :output
+		   :element-type 'unsigned-byte
+		   :if-exists :supersede))))
+      (fad:copy-stream (mime-part-body (value image)) upload-stream)
+      (answer (file-namestring upload-stream)))))
+
hunk ./src/web-admin.lisp 132
-   (content (textarea-field :rows 30 :cols 80)))
+   (content (textarea-field :rows 30 :cols 80 :dom-id "page-edit-area")))
hunk ./src/web-admin.lisp 153
+(defvar *last-image-upload* nil)
+
hunk ./src/web-admin.lisp 159
+	   (<ucw:submit
+	    :value "Upload Image"
+	    :action (setf *last-image-upload* (call 'image-upload)))
hunk ./src/web-admin.lisp 164
-		(<:as-html "Markdown Syntax Reference")))))
+		(<:as-html "Markdown Syntax Reference"))
+	   (when *last-image-upload*
+	     (<: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."))
+	     (setf *last-image-upload* nil)))))
hunk ./src/web-common.lisp 29
-(defpclass bee-page ()
+(markdown:defextension (image :arguments ((name :required) alt float)
+			      :insertp t)
+  (ecase phase
+    (:parse nil)
+    (:render (yaclml:with-yaclml-output-to-string
+	       ;; fixme: use url-prefix
+	       (<:img :src (format nil "/static/img/uploaded/~A" name)
+		      :alt (or alt "image")
+		      :style (if (eq float :float) "float: right;" ""))))))
+
+(pushnew 'cl-markdown-user:image markdown:*render-active-functions*)
+
+(defpclass bee-page (golgonooza-db:cacheable-persistent-object)