Added convenience packages that export JS and browser DOM symbols, to be used to...

diff --git a/parenscript.asd b/parenscript.asd
index 05808b7..6489738 100755 (executable)
--- a/parenscript.asd
+++ b/parenscript.asd
@@ -25,6 +25,7 @@
                                      (:file "printer")
                                      (:file "compilation-interface")
                                      (:file "deprecated-interface")
+                                     (:file "js-dom-symbol-exports")
                                      ;; standard library
                                      (:module :lib
                                               :components ((:file "ps-html")

diff --git a/src/js-dom-symbol-exports.lisp b/src/js-dom-symbol-exports.lisp
new file mode 100644 (file)
index 0000000..4850b14
--- /dev/null
+++ b/src/js-dom-symbol-exports.lisp
@@ -0,0 +1,60 @@
+(in-package "COMMON-LISP")
+
+;; These are convenience packages that export JS and browser DOM
+;; symbols. If you :use the packages in a package FOO and then
+;; obfuscate FOO, it will prevent the JS symbols from getting
+;; mangled. As well, a package with symbols for the Prototype library
+;; is included.
+
+(defpackage "PS-JS-SYMBOLS"
+  (:export
+   #:.to-fixed
+   #:encode-u-r-i-component
+   #:.push
+   #:.size
+   #:*array
+   #:set-timeout
+   #:set-interval
+   ))
+
+(defpackage "PS-DOM-SYMBOLS"
+  (:export
+   #:inner-h-t-m-l
+   #:document
+   #:window
+   #:onload
+   #:scroll-left
+   #:offset-width
+   #:offset-height
+   #:client-x
+   #:client-y
+   #:style
+   #:top
+   #:width
+   #:left
+   #:display
+   #:onmousemove
+   #:.create-element
+   #:.set-attribute
+   #:.append-child
+   #:offset-height
+   #:offset-width
+   #:client-height
+   #:client-width
+   #:scroll-height
+   #:scroll-width
+   #:.insert-row
+   #:.insert-cell
+   #:value
+   #:elements
+   #:.get-elements-by-class-name
+   #:.get-element-by-id
+   ))
+
+(defpackage "PS-PROTOTYPE-LIB-SYMBOLS"
+  (:export
+   #:*event
+   #:.observe
+   #:*ajax
+   #:.*request
+   ))