X-Git-Url: https://git.hcoop.net/clinton/lisp-on-lines.git/blobdiff_plain/4358148e6c67fcc2ae24050c54d8050b4dc03f9d..e8fd1a9a2f3b68a8aee14b8776ff8398ba717eef:/src/ucw/packages.lisp?ds=sidebyside

diff --git a/src/ucw/packages.lisp b/src/ucw/packages.lisp
index 3f43698..0a35539 100644
--- a/src/ucw/packages.lisp
+++ b/src/ucw/packages.lisp
@@ -2,30 +2,22 @@
 (defpackage lisp-on-lines-ucw
   (:documentation "An LoL Layer over ucw.basic")
   (:nicknames #:lol-ucw)
-  (:use #:lisp-on-lines #:ucw :common-lisp :arnesi :yaclml :puri)
-  (:shadow 
-   #:standard-window-component
-   #:make-action
-   #:standard-action
-   #:uri-parse-error
-   #:standard-application)
-
-  (:shadowing-import-from :ucw
-   #:parent)
+  (:use #:lisp-on-lines #:ucw-core :common-lisp :arnesi :yaclml :js :contextl)
+
+  (:shadowing-import-from :js
+   #:new)  
+  (:shadowing-import-from :ucw-core
+   #:parent )
+  (:import-from :ucw-standard 
+	#:call #:answer	#:defaction #:*source-component*)
   
-  (:import-from :ucw
-   #:register-action-in-frame
-   #:+action-parameter-name+
-   #:context.current-frame
-   #:uri.query
-   #:*current-component*
-   #:find-action
-   #:service)
+
 		
   (:export 
-   ;;; Symbols marked ";*" are not from UCW 
-   ;;; but either shadowed or created for lol. 
 
+   ;;; First, LOL-UCW exports. The rest are from UCW.
+   #:lol-component
+   #:*source-component*
    #:defcomponent
 
    #:uri.query
@@ -36,6 +28,8 @@
    #:shutdown-server
 
 
+   ;; Sessions
+   #:get-session-value
    ;; Standard Application
    #:standard-application
    #:register-application
@@ -45,10 +39,11 @@
    #:*context*
    #:context.current-frame
    #:context.window-component
-
+   #:*current-component*
 
    ;; Actions
    #:call
+   #:answer
    #:make-action
    #:find-action
    #:defaction
@@ -62,11 +57,18 @@
 
    ;; Standard Components
    #:render
+   #:render-html-body
    #:component
+
    #:standard-component-class
+   #:described-component-class
+
+   #:container
+   #:find-component
    
    #:standard-window-component ;*
    #:window-body
+   #:info-message
 
    ))