Permalink
Browse files

better unobtrusive JS action links, working on Firefox now

  • Loading branch information...
1 parent 767e90a commit e4f47d8e290f545df18ca7d6ba66920cf52ca691 @vii committed Jun 3, 2012
Showing with 1 addition and 1 deletion.
  1. +1 −1 src/webapp/js-library.lisp
@@ -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)))

0 comments on commit e4f47d8

Please sign in to comment.