[emacs] web related changes in emacs

open newscorp au
update exitter submodule
use reddio for reddit

1 files changed, 15 insertions, 2 deletions

diff --git a/emacs/.emacs.d/lisp/my/my-web.el b/emacs/.emacs.d/lisp/my/my-web.el
index 95592fd..f33f30c 100644
--- a/emacs/.emacs.d/lisp/my/my-web.el
+++ b/emacs/.emacs.d/lisp/my/my-web.el
@@ -180,6 +180,19 @@ e.g. https://news.ycombinator.com/item?id=42505454"
     (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.
@@ -193,8 +206,8 @@ https://emacs.stackexchange.com/questions/40887/in-org-mode-how-do-i-link-to-int
   ;; (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))
+      (when (string-match ".*/?\\(https?:\\)/+" fname)
+        (browse-url (replace-match "\\1//" nil nil fname))
         (setq files (delq var files)))))
   (apply orig-fun files client args))