aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--luwak.el13
1 files changed, 12 insertions, 1 deletions
diff --git a/luwak.el b/luwak.el
index 224ce83..59a1ab1 100644
--- a/luwak.el
+++ b/luwak.el
@@ -28,6 +28,16 @@
(defcustom luwak-url-rewrite-function 'identity
"Function to rewrite url before loading."
:group 'luwak :type '(function))
+(defcustom luwak-tor-switch nil
+ "Switch behaviour of prefix arg concerning the use of tor.
+
+When nil, use tor by default, and not use it with a prefix arg.
+When non-nill, swap the tor-switch in prefix-arg effect."
+ :group 'luwak :type '(boolean))
+
+(defun luwak-toggle-tor-switch ()
+ (interactive)
+ (setq luwak-tor-switch (not luwak-tor-switch)))
(defun luwak-mode-name ()
(concat "luwak "
@@ -53,7 +63,8 @@
(defun luwak-open (url)
(interactive "sUrl to open: ")
- (luwak-open-internal url current-prefix-arg 'luwak-add-to-history))
+ (luwak-open-internal
+ url (xor luwak-tor-switch current-prefix-arg) 'luwak-add-to-history))
(defun luwak-copy-url ()
(interactive)