[emacs] web related changes in emacs

open newscorp au
update exitter submodule
use reddio for reddit

1 files changed, 13 insertions, 5 deletions

diff --git a/emacs/.emacs.d/init/ycp-web.el b/emacs/.emacs.d/init/ycp-web.el
index b156e9a..6b2c755 100644
--- a/emacs/.emacs.d/init/ycp-web.el
+++ b/emacs/.emacs.d/init/ycp-web.el
@@ -248,17 +248,22 @@
     "T" #'my-eww-top-path
     "b" #'my-eww-switch-by-title)
   (my-keybind global-map "\C-c\C-o" #'my-browse-url-at-point)
+  (my-setq-from-local my-newscorp-au-amp-nk)
   (setq browse-url-handlers
         `(("^https?://www.spectator.com.au\\>" .
            ,(lambda (url &rest args) (my-open-spectator-au url)))
+          (my-newscorp-au-url-p
+           . ,(lambda (url &rest _) (my-open-newscorp-au url)))
           (my-mastodon-url-p
-           . ,(lambda (url &rest args) (mastorg-open url)))
+           . ,(lambda (url &rest _) (mastorg-open url)))
           (my-hacker-news-url-p
-           . ,(lambda (url &rest args) (hnreader-comment url)))
+           . ,(lambda (url &rest _) (hnreader-comment url)))
           (reddio-reddit-url-p
-           . ,(lambda (url &rest args) (reddio-open-url url)))
+           . ,(lambda (url &rest _) (reddio-open-url url)))
           (my-stack-overflow-url-p
-           . ,(lambda (url &rest args) (sx-open-link url)))
+           . ,(lambda (url &rest _) (sx-open-link url)))
+          (exitter-post-url-p
+           . ,(lambda (url &rest _) (exitter-open-post url)))
           (stringp . browse-url-firefox)))
   )
 
@@ -349,7 +354,10 @@
    exitter-oauth-consumer-key exitter-oauth-consumer-secret
    exitter-access-token exitter-username exitter-password exitter-email
    exitter-oauth-token exitter-oauth-token-secret exitter-oauth-token-ctime)
-  (setq exitter-debug t)
+  (setq exitter-debug nil)
   )
 
+(my-package reddio
+  (:delay 60))
+
 (provide 'ycp-web)