nits

2 files changed, 12 insertions, 12 deletions

diff --git a/custom/jao-custom-eww.el b/custom/jao-custom-eww.el
index d4a68ea..4dcb1bc 100644
--- a/custom/jao-custom-eww.el
+++ b/custom/jao-custom-eww.el
@@ -166,7 +166,7 @@
 
 ;;; auto-readable
 (defvar jao-eww-auto-readable-urls
-  (regexp-opt '("guardian.co.uk" "theguardian.com" "github.com")))
+  (regexp-opt '("guardian.co.uk" "theguardian.com" "github.com" "eldiario.es")))
 
 (defun jao-eww-autoread ()
   (when (string-match-p jao-eww-auto-readable-urls (or (eww-current-url)))
diff --git a/init.el b/init.el
index b97c35b..ffde733 100644
--- a/init.el
+++ b/init.el
@@ -1217,9 +1217,9 @@
         (or (and (fboundp 'w3m-anchor) (w3m-anchor))
             (and (derived-mode-p 'eww-mode) (plist-get eww-data :url))))))
 
-(defun jao--url-prompt ()
+(defun jao--url-prompt (&optional prefix)
   (let* ((def (jao-url-around-point t))
-         (prompt (concat "URL" (if def (format " (%s): " def) ": "))))
+         (prompt (concat prefix "URL" (if def (format " (%s): " def) ": "))))
     (read-string prompt nil nil def)))
 
 ;;;; downloads using wget
@@ -1288,7 +1288,7 @@
 
 (defun jao-view-video (url)
   "Tries to stream a video from the current or given URL"
-  (interactive (list (jao--url-prompt)))
+  (interactive (list (jao--url-prompt "Video ")))
   (when url (funcall jao--video-player url)))
 
 (defun jao-maybe-view-video (url &rest _ignored)
@@ -1351,8 +1351,8 @@
   '("ps" "pdf" "dvi" "djvu" "zip" "gz" "tgz"))
 
 (defvar jao-browse-external-domains
-  '("github.com" "gitlab.com" "slack.com" "meet.google.com"
-    "twitter.com" "t.com" "linkedin.com" "bigml.com"))
+  '("github.com" "gitlab.com" "slack.com" "meet.google.com" "docs.google.com"
+    "x.com" "twitter.com" "t.com" "linkedin.com" "bigml.com"))
 
 (defvar jao-browse--external-regexp
   (format "https?://.*%s\\(/.*\\)?"
@@ -2636,12 +2636,12 @@
   :init
   (setq mastodon-instance-url "https://emacs.ch"
         mastodon-active-user "mail@jao.io"
-        mastodon-tl-position-after-update 'last-old-toot)
+        mastodon-tl-position-after-update nil)
   :config
-  (defun jao-mastodon--setup ()
-    (setq-local scroll-margin 12))
+  ;; (defun jao-mastodon--setup ()
+  ;;   (setq-local scroll-margin 12))
 
-  (add-hook 'mastodon-mode-hook #'jao-mastodon--setup)
+  ;; (add-hook 'mastodon-mode-hook #'jao-mastodon--setup)
   (with-eval-after-load "ewww"
     (define-key eww-mode-map (kbd "T") #'jao-mastodon-toot-url)))
 
@@ -3200,7 +3200,7 @@
     ("D" "open doc" jao-open-doc)]
    ["Monitors"
     ("p" "htop" jao-term-htop)
-    ("v" "vpn status" jao-mullvad-status)
+    ;; ("v" "vpn status" jao-mullvad-status)
     ;; ("m" "set tmr" tmr)
     ("x" "restart i3bar" jao-river-restart-i3bar :if jao-river-enabled-p)
     ("x" "restart xmobar" jao-xmobar-restart :if jao-exwm-enabled-p)
@@ -3210,7 +3210,7 @@
     ("b" "bluetooth" bluetooth-list-devices)
     ("c" "connect chats" jao-all-chats)
     ("m" "proton bridge" run-proton-bridge)
-    ]
+    ("v" "view video" jao-view-video)]
    ["Chats"
     ("t" "telegram" jao-chats-telega)
     ("s" "slack" jao-chats-slack)