1 files changed, 50 insertions, 0 deletions
diff --git a/emacs/.emacs.d/lisp/my/my-web.el b/emacs/.emacs.d/lisp/my/my-web.el
index 311bcf9..95592fd 100644
--- a/emacs/.emacs.d/lisp/my/my-web.el
+++ b/emacs/.emacs.d/lisp/my/my-web.el
@@ -148,5 +148,55 @@
     (kill-new url)
     (message "Copied link: %s" url)))
 
+;;; webgetter
+(require 'my-net)
+(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")))
+        (url-user-agent "Mozilla/5.0 (compatible; Googlebot/2.1; +http://www.google.com/bot.html)"))
+    (let ((file-name
+           (if no-overwrite
+               (my-make-unique-file-name
+                (my-make-file-name-from-url url)
+                my-download-dir)
+             (expand-file-name
+              (my-make-file-name-from-url url)
+              my-download-dir))))
+      (url-copy-file url file-name (not no-overwrite))
+      (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)))))
+
+(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