[Initial port to ucw-core
clinton@unknownlamer.org**20081203064010] {
hunk ./src/flowplayer.lisp 12
-(defcomponent flowplayer-component ()
-  ((ucw:dom-id :initform (js:gen-js-name-string :prefix "flowplayer"))
-   (auto-play :initarg :auto-play :accessor auto-play-p :initform nil)
+(defcomponent flowplayer-component (html-block-element-mixin)
+  ((auto-play :initarg :auto-play :accessor auto-play-p :initform nil)
hunk ./src/flowplayer.lisp 30
-   (playlist :initarg :playlist :accessor playlist :initform nil)))
-
+   (playlist :initarg :playlist :accessor playlist :initform nil))
+  (:default-initargs :dom-id (js:gen-js-name-string :prefix "flowplayer")))
hunk ./src/flowplayer.lisp 34
-  (<:div :id (slot-value self 'dom-id)
+  (<:div :id (html-element.dom-id self)
hunk ./src/flowplayer.lisp 40
-	     :data (action-href-body (:with-call/cc t
-				      :invocation-isolated nil)
-		     (call-as-window 'fallback-playlist :playlist (playlist self)))
+	     :data (action-href
+		    (register-action (:with-call/cc t)
+		      (call-as-window 'fallback-playlist :playlist (playlist self))))
hunk ./src/flowplayer.lisp 88
-     `(.write ,player-var ,(slot-value self 'dom-id)))))
+     `(.write ,player-var ,(html-element.dom-id self)))))
hunk ./src/flowplayer.lisp 106
-
-
+#|(defentry-point "^(test.ucw)$" (:application (get-golf-application :frontend)
+					     :class regexp-dispatcher)
+    ()
+  (call 'golf-window
+	:body (make-instance 'flowplayer-component
+			     :video-height 240
+			     :player-width 320
+			     :playlist '((:url "/audio.ucw?file=/tmp/movie.flv")
+					 (:url "/audio.ucw?file=/music/josh/2000-Porcupine%20Tree%20-%20Lightbulb%20Sun/04%20Shesmovedon.mp3" :name "Shesmovedon")
+					 (:url "/audio.ucw?file=/music/bittorrent/MDB/My%20Dying%20Bride%20-%202006%20-%20A%20Line%20of%20Deathless%20Kings/01%20-%20To%20Remain%20Tombless.mp3" :name "To Remain Tombless")))))
hunk ./src/flowplayer.lisp 117
+|#
hunk ./src/packages.lisp 2
-  (:use :common-lisp :ucw :ucw-compat)
+  (:use :common-lisp :ucw-core :ucw-standard)
hunk ./src/packages.lisp 63
-  (:use :common-lisp :ucw :ucw-compat :golgonooza :golgonooza-db
+  (:use :common-lisp :ucw-core :ucw-standard :ucw-forms :golgonooza :golgonooza-db
hunk ./src/packages.lisp 131
-  (:use :common-lisp :golf-config :golf-web :golf-db :golf-util :ucw :ucw-compat)
+  (:use :common-lisp :golf-config :golf-web :golf-db :golf-util
+	:ucw-core :ucw-standard)
hunk ./src/packages.lisp 142
-
-
hunk ./src/query-list-chooser.lisp 45
-  (<ucw:a :action-body (call (viewer-class selector) :item item)
+  (<ucw:a :action (call (viewer-class selector) :item item)
hunk ./src/query-list-chooser.lisp 100
-	   (<ucw:a :action-body (scroll-backward self)
+	   (<ucw:a :action (scroll-backward self)
hunk ./src/query-list-chooser.lisp 105
-	   (<ucw:a :action-body (scroll-forward self)
+	   (<ucw:a :action (scroll-forward self)
hunk ./src/query-list-chooser.lisp 109
-       (<ucw:a :action-body (scroll-start self)
+       (<ucw:a :action (scroll-start self)
hunk ./src/query-list-chooser.lisp 112
-       (<ucw:a :action-body (scroll-end self)
+       (<ucw:a :action (scroll-end self)
hunk ./src/simple-form.lisp 28
-(defclass form-validator (ucw::validator)
+(defclass form-validator (ucw-forms::validator)
hunk ./src/simple-form.lisp 31
-(defmethod ucw::validate :around ((form simple-form) (validator form-validator))
+(defmethod ucw-forms::validate :around ((form simple-form) (validator form-validator))
hunk ./src/simple-form.lisp 100
-  (remove-if-not (arnesi:compose #'ucw::form-field-p #'cdr)
+  (remove-if-not (arnesi:compose #'ucw-forms::form-field-p #'cdr)
hunk ./src/simple-form.lisp 113
-					       (if-bind msg (ucw::message f)
+					       (if-bind msg (ucw-forms::message f)
hunk ./src/simple-form.lisp 131
-						 (if-bind msg (ucw::message v)
+						 (if-bind msg (ucw-forms::message v)
hunk ./src/simple-form.lisp 140
-   (<ucw:submit :value "Ok" :action-body (process-form form))
-   (<ucw:submit :value "Cancel" :action-body (cancel-form form))))
+   (<ucw:submit :value "Ok" :action (process-form form))
+   (<ucw:submit :value "Cancel" :action (cancel-form form))))
hunk ./src/simple-form.lisp 150
-  (remove-if-not #'ucw::form-field-p
+  (remove-if-not #'ucw-forms::form-field-p
hunk ./src/simple-form.lisp 183
-			(if (not (ucw::validate form v))
+			(if (not (ucw-forms::validate form v))
hunk ./src/simple-form.lisp 199
-  (list (ucw::year field) (ucw::month field) (ucw::day field)))
+  (list (ucw-forms::year field) (ucw-forms::month field) (ucw-forms::day field)))
hunk ./src/site-control.lisp 46
-			 (length (ucw::remove-expired-sessions app))))
+			 (length (ucw-core::remove-expired-sessions app))))
hunk ./src/site-control.lisp 53
-			 ucw::*directory-for-temporary-files*))))))
+			 ucw-core::*directory-for-temporary-files*))))))
hunk ./src/site-control.lisp 87
-	    (ucw:create-server
+	    (ucw-core:create-server
hunk ./src/site-control.lisp 91
-	     :log-level (if *golf-dev-mode* ucw::+debug+ ucw::+warn+)
+	     :log-level (if *golf-dev-mode* ucw-core::+debug+ ucw-core::+warn+)
hunk ./src/site-control.lisp 94
-    (setf (ucw::request-content-length-limit-of
-	   (ucw::server.backend *golf-server*))
+    (setf (ucw-core::request-content-length-limit-of
+	   (ucw-core:server.backend *golf-server*))
hunk ./src/site-control.lisp 98
-    (setf ucw:*debug-on-error* *golf-dev-mode*)
-    (setf ucw::*inspect-components* nil)
-    (mapc (lambda (app) (setf (javascript-log-level app) nil))
-	  *golf-applications*)
-    (setq ucw::*directory-for-temporary-files*
+    (setf ucw-core:*debug-on-error* *golf-dev-mode*)
+    (setf ucw-core::*inspect-components* nil)
+    ;; (mapc (lambda (app) (setf (javascript-log-level app) nil))
+;; 	  *golf-applications*)
+    (setq ucw-core::*directory-for-temporary-files*
hunk ./src/site-control.lisp 112
-  (ucw:shutdown-server *golf-server*)
+  (ucw-core:shutdown-server *golf-server*)
hunk ./src/util.lisp 31
-  (setf (ucw::component.calling-component window) nil
-	(ucw::component.place window) (ucw:make-place
-				       (ucw:context.window-component
-					ucw:*context*))
-	(ucw::parent window) nil
-	(ucw::context.window-component ucw:*context*) window))
+  (setf (ucw-core::component.calling-component window) nil
+	(ucw-core::component.place window) (ucw-core::make-place
+					    (ucw-core:context.window-component
+					     ucw-core:*context*))
+	(ucw-core::parent window) nil
+	(ucw-core::context.window-component ucw-core:*context*) window))
hunk ./src/web-admin.lisp 9
-    :login-component 'golf-user-login-window))
+    ;:login-component 'user-login-window
+    ))
hunk ./src/web-admin.lisp 21
-(defmethod render ((self golf-user-login))
-  (<:p :class "username" "Username " (render (ucw::username self)))
-  (<:p :class "password" "Password " (render (ucw::password self)))
-  (<ucw:input :type "submit" :action-body (ucw::submit self) :value "Ok")
-  (<ucw:input :type "submit" :action-body (ucw::cancel self) :value "Cancel"))
-
hunk ./src/web-admin.lisp 31
-  (:default-initargs :viewer 'admin-show-viewer))
+  (:default-initargs :viewer-class 'admin-show-viewer))
hunk ./src/web-admin.lisp 38
-  (let ((show (viewer-show self)))
+  (let ((show (viewer-item self)))
hunk ./src/web-admin.lisp 49
-  ((show :initarg :show :accessor radio-show)))
+  ())
hunk ./src/web-admin.lisp 56
-  (let ((show (radio-show self)))
+  (let ((show (viewer-item self)))
hunk ./src/web-admin.lisp 115
-   (<:li (<ucw:a :action-body (call 'password-change-tool :user (session-user))
+   (<:li (<ucw:a :action (call 'password-change-tool :user (session-user))
hunk ./src/web-admin.lisp 117
-   (<:li (<ucw:a :action-body (call 'user-list) "Manage Users"))))
+   (<:li (<ucw:a :action (call 'user-list) "Manage Users"))))
hunk ./src/web-admin.lisp 170
+;; User List
+
+(defcomponent user-list (query-view elephant-query-view-mixin)
+  ()
+  (:default-initargs
+      :index-class 'golf-auth:user :index-slot 'golf-auth:username))
+
+(defmethod render ((self user-list))
+  (<:ul
+   (mapc (lambda (user)
+	   (<:li (<:as-html (golf-auth:username user))))
+	 (current-items self))))
+
hunk ./src/web-admin.lisp 208
-  (setf (ucw::uri.path url) "/admin/admin.ucw")
+  (setf (ucw-core::uri.path url) "/admin/admin.ucw")
hunk ./src/web-common.lisp 6
+			    application-with-www-root-mixin
hunk ./src/web-common.lisp 19
-			(<ucw:a :action-body ,(cadr control)
+			(<ucw:a :action ,(cadr control)
hunk ./src/web-common.lisp 37
-    (ucw::install-action-js id "onclick" action-object)))
+    ))
hunk ./src/web-common.lisp 41
-(defcomponent golf-window (standard-window-component-with-body)
+(defcomponent golf-window (standard-window-component)
hunk ./src/web-common.lisp 50
-(defcomponent golf-widget-component (widget-component)
+(defcomponent golf-widget-component (html-block-element-mixin)
hunk ./src/web-common.lisp 58
-  (unless (and (slot-boundp c 'css-class) (css-class c))
-    (setf (css-class c)
+  (unless (and (slot-boundp c 'ucw-core::css-class) (html-element.css-class c))
+    (setf (html-element.css-class c)
hunk ./src/web-common.lisp 108
-  (component-controls ("Ok" (ok self))))
+  (component-controls ("Ok" (answer t))))
hunk ./src/web-common.lisp 191
-	   (<ucw:a :action-body (scroll-backward self)
+	   (<ucw:a :action (scroll-backward self)
hunk ./src/web-common.lisp 196
-	   (<ucw:a :action-body (scroll-forward self)
+	   (<ucw:a :action (scroll-forward self)
hunk ./src/web-common.lisp 200
-       (<ucw:a :action-body (scroll-start self)
+       (<ucw:a :action (scroll-start self)
hunk ./src/web-common.lisp 203
-       (<ucw:a :action-body (scroll-end self)
+       (<ucw:a :action (scroll-end self)
hunk ./src/web-frontend.lisp 43
-	  `((:url ,(action-href-body (:with-call/cc t :invocation-isolated nil)
-				     (play-file self show))
+	  `((:url ,(ucw-core::action-href-body (:with-call/cc t)
+					       (play-file self show))
hunk ./src/web-frontend.lisp 62
-     (make-action-body (:with-call/cc t :invocation-isolated nil)
+     (ucw-core::make-action-body (:with-call/cc t)
hunk ./src/web-frontend.lisp 73
-      (setf (ucw::uri.path url)
+      (setf (ucw-core::uri.path url)
hunk ./src/web-frontend.lisp 89
-			     (make-action-body (:with-call/cc t
-						:invocation-isolated nil)
+			     (ucw-core::make-action-body (:with-call/cc t
+						)
hunk ./src/web-frontend.lisp 138
-  (setf (ucw::uri.path url) "/index.ucw")
+  (setf (ucw-core::uri.path url) "/index.ucw")
hunk ./start.lisp 1
+(asdf:operate 'asdf:load-op :rfc2388-binary)
+(asdf:operate 'asdf:load-op :golgonooza)
hunk ./start.lisp 8
-
-
-
+(defparameter *golf-server-host* "0.0.0.0")
hunk ./start.lisp 10
+(golf-user:start-site)
hunk ./tee-it-up.asd 31
-  :depends-on (:elephant :ucw :flexi-streams :cl-fad
-			 :metatilities :rfc2388-binary :cl-mime
-			 :clon :golgonooza :md5))
+  :depends-on (:elephant :ele-bdb :parenscript
+	       :ucw :ucw-forms :flexi-streams :cl-fad
+	       :metatilities :rfc2388-binary :cl-mime
+	       :clon :md5
+	       :golgonooza :golgonooza.elephant))
}