1 files changed, 47 insertions, 2 deletions
diff --git a/emacs/.emacs.d/lisp/my/my-web.el b/emacs/.emacs.d/lisp/my/my-web.el
index 3aaddb8..f33f30c 100644
--- a/emacs/.emacs.d/lisp/my/my-web.el
+++ b/emacs/.emacs.d/lisp/my/my-web.el
@@ -150,7 +150,6 @@
 
 ;;; webgetter
 (require 'my-net)
-(require 'luwak)
 (defun my-open-spectator-au (url &optional no-overwrite)
   (interactive "sspectator.com.au link: ")
   (let ((url-request-extra-headers '(("X-Forwarded-For" . "66.249.66.1")))
@@ -164,7 +163,53 @@
               (my-make-file-name-from-url url)
               my-download-dir))))
       (url-copy-file url file-name (not no-overwrite))
-      (luwak-open (format "file://%s" file-name)))))
+      (browse-url-firefox (format "file://%s" file-name)))))
+
+(defun my-mastodon-url-p (url)
+  "Guess if a url is a mastodon post.
+e.g. https://hostux.social/@fsf/113709722998924141
+"
+  (pcase-let* ((urlobj (url-generic-parse-url url))
+               (`(,path . _) (url-path-and-query urlobj)))
+    (string-match-p "^/@[^/]+/[0-9]\\{18\\}$" path)))
+
+(defun my-hacker-news-url-p (url)
+  "Check if a url is a hacker news post.
+e.g. https://news.ycombinator.com/item?id=42505454"
+  (let ((urlobj (url-generic-parse-url url)))
+    (and (equal "news.ycombinator.com" (url-host urlobj))
+         (string-match-p "^/item\\?id=[0-9]+$" (url-filename urlobj)))))
+
+(defvar my-newscorp-au-amp-nk nil)
+(defun my-open-newscorp-au (url)
+  (interactive "sNews Corp AU link: ")
+  (pcase-let* ((urlobj (url-generic-parse-url url))
+               (`(,path . _) (url-path-and-query urlobj)))
+    (setf (url-filename urlobj)
+          (format "%s?amp&nk=%s" path my-newscorp-au-amp-nk))
+    (browse-url-firefox (url-recreate-url urlobj))))
+
+(defun my-newscorp-au-url-p (url)
+  (string-match-p "^\\(www\\.\\)?\\(heraldsun\\|theaustralian\\)\\.com\\.au$"
+                  (url-host (url-generic-parse-url url))))
+
+(defun my-stack-overflow-url-p (url)
+  "Guess whether a url stack overflow question
+e.g.
+https://emacs.stackexchange.com/questions/40887/in-org-mode-how-do-i-link-to-internal-documentation"
+  (pcase-let* ((urlobj (url-generic-parse-url url))
+               (`(,path . _) (url-path-and-query urlobj)))
+    (string-match-p "^/questions/[0-9]+/.+$" path))  )
+
+(advice-add 'server-visit-files :around #'my-ec-handle-http)
+(defun my-ec-handle-http (orig-fun files client &rest args)
+  ;; (message "GOT %s" files)
+  (dolist (var files)
+    (let ((fname (expand-file-name (car var))))
+      (when (string-match ".*/?\\(https?:\\)/+" fname)
+        (browse-url (replace-match "\\1//" nil nil fname))
+        (setq files (delq var files)))))
+  (apply orig-fun files client args))
 
 (provide 'my-web)
 ;;; my-web.el ends here