[elpa] externals/luwak 9c95bcb74f 27/28: adding an example url rewrite function

[ELPA Syncer]

branch: externals/luwak
commit 9c95bcb74ffccbbc50a529dbbec81e24ddce6baf
Author: Yuchen Pei <hi@ypei.me>
Commit: Yuchen Pei <hi@ypei.me>

    adding an example url rewrite function
---
 luwak.el | 11 +++++++++++
 1 file changed, 11 insertions(+)

diff --git a/luwak.el b/luwak.el
index 08eb7931ff..93b3d0fd0d 100644
--- a/luwak.el
+++ b/luwak.el
@@ -364,6 +364,17 @@ When non-nill, swap the tor-switch in prefix-arg effect."
       (write-file file-name)))
   (message "Wrote %s." file-name))
 
+;; Example url rewrite function
+(defun luwak-rewrite-ddg-result (url)
+  "Rewrites ddg result url to save one jump."
+  (let ((new-url url))
+    (when (string-match
+           "^https://duckduckgo.com/l/\\?uddg=\\(.*\\)&rut=.*$" url)
+      (setq new-url (url-unhex-string (match-string 1 url))))
+    (unless (equal url new-url)
+      (message "Rewriting %s to %s" url new-url))
+    new-url))
+
 (provide 'luwak)
 
 ;;; luwak.el ends here