[Initial video gallery implementation
clinton@unknownlamer.org**20090521195911
 Ignore-this: 197f657d5083c388f7503d48ecf5391b
 Very basic, but it does what is needed. Eventually this will all be
 replaced by my fancy Oothoon based youtube syndication magic, but I
 have to finish writing Oothoon first and whatnot...
] hunk ./beesknees.asd 15
+     (:file "video-gallery" :depends-on ("packages"))
hunk ./beesknees.asd 20
+     (:file "frontend-videos" :depends-on ("packages" "video-gallery" "web-common"))
hunk ./beesknees.asd 22
-					"frontend-weblog"))
+					"frontend-weblog" "frontend-videos"))
hunk ./beesknees.asd 25
+     (:file "admin-videos" :depends-on ("packages" "admin-common"
+					"video-gallery"))
hunk ./beesknees.asd 30
-				     "admin-weblog" "markdown-editor"
-				     "image-manager"))
+				     "admin-weblog" "admin-videos"
+				     "markdown-editor" "image-manager"))
addfile ./src/admin-videos.lisp
hunk ./src/admin-videos.lisp 1
-
+(in-package :beesknees.web)
+
+(define-html-form video-editor ()
+  ((title (string-field :input-size 80
+			:validators (make-validators 'not-empty-validator)))
+   (youtube-id (string-field :input-size 11
+			     :validators (make-validators 'not-empty-validator)))
+   (thumbnail (image-selector-field
+	       :image-directory (merge-pathnames
+				 "wwwroot/img/thumbnails/*.*"
+				 beesknees.site-control::*bee-data-root*))))
+  ((video :initarg :video :accessor edited-video :initform nil)))
+
+(defmethod initialize-instance :after ((editor video-editor) &rest keys)
+  (declare (ignore keys))
+  (when-bind video (edited-video editor)
+    (with-slots (title youtube-id thumbnail)
+	editor
+      (setf (value title) (beesknees.videos:title video)
+	    (value youtube-id) (beesknees.videos:youtube-id video)
+	    (value thumbnail) (beesknees.videos:thumbnail video)))))
+
+(defaction process-form ((editor video-editor))
+  (elephant:ensure-transaction ()
+    (let ((video (or (edited-video editor)
+		     (make-instance 'beesknees.videos:youtube-video))))
+      (with-slots (title youtube-id thumbnail)
+	  editor
+	(setf (beesknees.videos:title video) (value title)
+	      (beesknees.videos:youtube-id video) (value youtube-id)
+	      (beesknees.videos:thumbnail video) (value thumbnail)))
+      (answer video))))
+
+(defcomponent video-list (bee-admin-list)
+  ()
+  (:default-initargs
+   :index-class 'beesknees.videos:youtube-video
+   :index-slot 'beesknees.videos:youtube-id
+   :page-size 10
+   :reverse t))
+
+(defmethod golgonooza:render-query-view-result ((video beesknees.videos:youtube-video)
+						(list video-list))
+  (<ucw:a :action (call 'video-editor :video video)
+	  (<:as-html (beesknees.videos:title video))))
addfile ./src/frontend-videos.lisp
hunk ./src/frontend-videos.lisp 1
+(in-package :beesknees.web)
+
+(defcomponent bee-videos-video (bee-video)
+  ())
+
+(defmethod render :after ((vid bee-videos-video))
+  (<ucw:a :action (answer) (<:ah "Back")))
+
+(defcomponent bee-videos (golgonooza:query-ranged-view-mixin
+			  golgonooza-db:elephant-query-view-mixin
+			  golgonooza:query-view
+			  bee-widget)
+  ()
+  (:default-initargs
+   :index-class 'beesknees.videos:youtube-video
+   :index-slot 'beesknees.videos:youtube-id
+   :reverse t))
+
+(defmethod golgonooza:render-query-view-result ((video beesknees.videos:youtube-video)
+						(list bee-videos))
+  (<:div :class "video-entry"
+	 (<ucw:a :action (call 'bee-videos-video
+			       :video-id (beesknees.videos:youtube-id video))
+		 (<:img :src (format nil "~Astatic/img/thumbnails/~A"
+				     (application.url-prefix
+				      (context.application *context*))
+				     (beesknees.videos:thumbnail video))
+			:alt (beesknees.videos:title video)))))
hunk ./src/packages.lisp 78
+(defpackage :beesknees.videos
+  (:use :cl :elephant)
+  (:export
+   #:youtube-video
+   #:youtube-id
+   #:title
+   #:thumbnail))
+
addfile ./src/video-gallery.lisp
hunk ./src/video-gallery.lisp 1
+(in-package :beesknees.videos)
+
+(defpclass youtube-video ()
+  ((youtube-id :initarg :video-id :accessor youtube-id :index t)
+   (title :initarg :title :accessor title)
+   (thumbnail :initarg :thumbnail :initform nil :accessor thumbnail)))
hunk ./src/web-admin.lisp 200
+(defcomponent video-admin (tabbed-pane)
+  ()
+  (:default-initargs
+    :current-component-key 'list
+    :contents `((list . ,(make-instance 'video-list))
+		(new . ,(make-instance 'toplevel :wrap 'video-editor)))))
+
hunk ./src/web-admin.lisp 216
+				     (videos . ,(make-instance 'video-admin))
hunk ./src/web-frontend.lisp 12
-(defcomponent bee-videos (bee-widget)
-  ((video-component :initarg :video :component t :accessor video-component)))
-
-(defmethod render ((c bee-videos))
-  (render (video-component c)))
-
hunk ./src/web-frontend.lisp 78
-	     (videos . ,(make-instance 'bee-videos
-				       :name :videos
-				       :video (make-instance 'bee-video
-							     :video-id "GQGyewgR9rw")))
+	     (videos . ,(make-instance 'bee-videos))
hunk ./static/css/frontend.css 60
-.bee-videos .bee-video
-{ 
-  display: block;
-  margin-left: auto;
-  margin-right: auto;
-  margin-top: auto;
-  margin-bottom: auto;
-  width:  425px;
-  height: 355px; 
-}
-
hunk ./static/css/frontend.css 168
+
+div.bee-videos
+{ 
+  margin-left: auto;
+  margin-right: auto;
+  padding: 0em;
+  max-width: 650px;
+}
+
+div.bee-videos div.video-entry
+{ 
+  display: inline-block;
+  margin-left: auto;
+  margin-right: auto;
+  padding: 3px;
+}
+
+div.video-entry img
+{ 
+  border: none;
+  padding: 0em;
+  margin: 0em;
+}
+
+.bee-videos-video
+{ 
+  display: block;
+  margin-left: auto;
+  margin-right: auto;
+  margin-top: auto;
+  margin-bottom: auto;
+  width:  425px;
+  height: 355px; 
+}
adddir ./static/img/thumbnails