Commit | Line | Data |
---|---|---|
7b65de0b VS |
1 | (in-package "COMMON-LISP") |
2 | ||
3 | ;; These are convenience packages that export JS and browser DOM | |
4 | ;; symbols. If you :use the packages in a package FOO and then | |
5 | ;; obfuscate FOO, it will prevent the JS symbols from getting | |
6 | ;; mangled. As well, a package with symbols for the Prototype library | |
7 | ;; is included. | |
8 | ||
9 | (defpackage "PS-JS-SYMBOLS" | |
10 | (:export | |
79630c82 | 11 | #:to-fixed |
7b65de0b | 12 | #:encode-u-r-i-component |
79630c82 | 13 | #:size |
7b65de0b | 14 | #:*array |
79630c82 VS |
15 | #:*date |
16 | #:get-time | |
17 | #:arguments | |
18 | #:join | |
19 | #:prototype | |
20 | #:slice | |
21 | #:call | |
7b65de0b VS |
22 | )) |
23 | ||
24 | (defpackage "PS-DOM-SYMBOLS" | |
25 | (:export | |
26 | #:inner-h-t-m-l | |
27 | #:document | |
28 | #:window | |
29 | #:onload | |
30 | #:scroll-left | |
31 | #:offset-width | |
32 | #:offset-height | |
33 | #:client-x | |
34 | #:client-y | |
35 | #:style | |
36 | #:top | |
37 | #:width | |
38 | #:left | |
39 | #:display | |
40 | #:onmousemove | |
79630c82 VS |
41 | #:create-element |
42 | #:set-attribute | |
43 | #:append-child | |
7b65de0b VS |
44 | #:offset-height |
45 | #:offset-width | |
46 | #:client-height | |
47 | #:client-width | |
48 | #:scroll-height | |
49 | #:scroll-width | |
79630c82 VS |
50 | #:insert-row |
51 | #:insert-cell | |
7b65de0b VS |
52 | #:value |
53 | #:elements | |
79630c82 VS |
54 | #:get-elements-by-class-name |
55 | #:get-element-by-id | |
11a0e241 | 56 | #:onselectstart |
79630c82 VS |
57 | #:set-timeout |
58 | #:set-interval | |
7b65de0b VS |
59 | )) |
60 | ||
61 | (defpackage "PS-PROTOTYPE-LIB-SYMBOLS" | |
62 | (:export | |
63 | #:*event | |
79630c82 | 64 | #:observe |
7b65de0b | 65 | #:*ajax |
79630c82 VS |
66 | #:*request |
67 | #:console | |
7b65de0b | 68 | )) |