Permalink
Browse files

better unobtrusive JS action links, working on Firefox now

  • Loading branch information...
1 parent a92f13f commit 767e90a2c03a2b90a0c6733dcd3ccd485f0d60a7 @vii committed Jun 3, 2012
Showing with 1 addition and 6 deletions.
  1. +1 −6 src/webapp/js-library.lisp
View
7 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 href) (+ "javascript:asyncSubmitLinkHref(\'" (~ element href) "\')"))))
+ (setf (~ element onclick) (+ "asyncSubmitLink(\'" (~ 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)))
@@ -225,11 +225,6 @@
(return true) ; error occurred so actually submit the form normally
(return false)))
- (defun async-submit-link-href (link)
- (when (async-submit-link link)
- (setf (~ window location) link))
- t)
-
(defun channel (name counter)
(setf (aref *channels* name) counter))

0 comments on commit 767e90a

Please sign in to comment.