Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

better unobtrusive JS action links, working on Firefox now

  • Loading branch information...
commit e4f47d8e290f545df18ca7d6ba66920cf52ca691 1 parent 767e90a
John Fremlin authored
Showing with 1 addition and 1 deletion.
  1. +1 −1  src/webapp/js-library.lisp
2  src/webapp/js-library.lisp
View
@@ -96,7 +96,7 @@
(defun handle-special-elements (parent)
(dolist (element (! (parent get-elements-by-tag-name) "a"))
(when (equal (~ element class-name) (unquote +action-link-class+))
- (setf (~ element onclick) (+ "asyncSubmitLink(\'" (~ element href) "\')"))))
+ (setf (~ element onclick) (lambda () (async-submit-link (~ element href))))))
(dolist (element (! (parent get-elements-by-tag-name) "div"))
(when (equal (~ element class-name) (unquote +html-class-scroll-to-bottom+))
(setf (~ element scroll-top) (~ element scroll-height)))
Please sign in to comment.
Something went wrong with that request. Please try again.