Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
parenscript
parenscript
Commits
beec0f72
Commit
beec0f72
authored
Feb 09, 2017
by
Vladimir Sedach
Committed by
GitHub
Feb 09, 2017
Browse files
Merge pull request #33 from jasom/ps-dom-fixes
Correct two keywords in ps-dom.lisp
parents
4745033a
67fe33dd
Changes
1
Hide whitespace changes
Inline
Side-by-side
src/lib/ps-dom.lisp
View file @
beec0f72
...
...
@@ -3,13 +3,13 @@
;; Utilities for accessing standard DOM functionality in a Lispier, PSier way.
(
defpsmacro
inner-html
(
el
)
`
(
@
,
el
:
inner-h-t-m-l
))
`
(
@
,
el
'
inner-h-t-m-l
))
(
defpsmacro
uri-encode
(
str
)
`
(
if
(
null
,
str
)
""
(
encode-u-r-i-component
,
str
)))
(
defpsmacro
attribute
(
el
attr
)
`
((
@
,
el
:
get-attribute
)
,
attr
))
`
((
@
,
el
'
get-attribute
)
,
attr
))
(
defun
assert-is-one-of
(
val
options
)
(
unless
(
member
val
options
)
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment