diff options
Diffstat (limited to 'webstats/stats.paren')
| -rw-r--r-- | webstats/stats.paren | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/webstats/stats.paren b/webstats/stats.paren index 4721272..6491020 100644 --- a/webstats/stats.paren +++ b/webstats/stats.paren @@ -13,14 +13,15 @@ (when (or (= 1 (@ event which)) (= 2 (@ event which))) (chain event (prevent-default)) - (let ((link (getprop event 'target 'href))) + (let ((link (getprop event 'current-target 'href))) (chain (register-visit (create :click link :page (@ document location href))) (finally (lambda () - (if (= 1 (@ event which)) - (setf (@ window location href) link) - (chain window (open link "_blank"))))))))) + (if (or (= 2 (@ event which)) + (eql (@ event target target) "_blank")) + (chain window (open link "_blank")) + (setf (@ window location href) link)))))))) (defun instrument-links () (for-of (link ((@ document query-selector-all) "a")) |