js-syms.lisp
41 lines
| 868 B
| text/x-common-lisp
|
CommonLispLexer
/ src / js-syms.lisp
r25 | ||||
(in-package sugar-qsp.js) | ||||
;;; Contains symbols from standard JS library to avoid obfuscating | ||||
;;; and/or namespacing them | ||||
(cl:defmacro syms (cl:&rest syms) | ||||
`(cl:progn | ||||
,@(cl:loop :for sym :in syms | ||||
:collect `(cl:export ',sym)))) | ||||
(syms | ||||
;; main | ||||
window | ||||
r32 | *object assign | |||
r25 | now | |||
onload | ||||
keys includes | ||||
has-own-property | ||||
;; api | ||||
r33 | document get-element-by-id get-elements-by-tag-name | |||
r25 | onclick onchange | |||
r30 | atob btoa split | |||
r25 | alert prompt | |||
set-timeout set-interval clear-interval | ||||
*promise *j-s-o-n | ||||
r31 | href parse match | |||
r25 | set-prototype-of | |||
body append-child remove-child | ||||
r29 | add ; remove (is already in COMMON-LISP) | |||
create-element set-attribute class-list | ||||
r25 | *file-reader read-as-text | |||
style display src | ||||
r30 | page-x page-y | |||
top left | ||||
r25 | ;; lib | |||
*number parse-int | ||||
r30 | to-string to-upper-case concat | |||
r26 | click target current-target files index-of result | |||
decode-u-r-i-component splice | ||||
r25 | ) | |||