fixes for external url browsingmain

2 files changed, 7 insertions, 2 deletions

diff --git a/custom/jao-custom-browse.el b/custom/jao-custom-browse.el
index ba47df7..0f4ae65 100644
--- a/custom/jao-custom-browse.el
+++ b/custom/jao-custom-browse.el
@@ -149,7 +149,7 @@
     "t.com" "linkedin.com" "bigml.com" "slack.com" "zoom.us"))
 
 (defvar jao-browse--external-regexp
-  (format "https?://.*%s\\(/.*\\)?"
+  (format "https?://\\(.+\\.\\)*%s\\(/.*\\)?"
           (regexp-opt jao-browse-external-domains)))
 
 (defun jao-wget--regexp ()
diff --git a/init.el b/init.el
index 61dac7c..0be081f 100644
--- a/init.el
+++ b/init.el
@@ -1808,6 +1808,11 @@
    ;; (global-set-key (kbd "s-n") #'jao-open-nnw)
    (global-set-key (kbd "s-t") #'jao-open-telegram)
 
+   (defun jao-safari-internal-browse ()
+     (interactive)
+     (when-let ((url (jao-safari-current-url)))
+       (jao-browse-url-browse url)))
+
    (transient-define-prefix jao-transient-utils ()
      "Global operations."
      [["Notes"
@@ -1821,7 +1826,7 @@
        ("c" "view cache" doc-view-dired-cache)]
       ["External"
        ("xn" "browse NNW article" jao-nnw-browse-current-article)
-       ("xs" "browse safary article" jao-safari-browse-current)
+       ("xs" "browse safary article" jao-safari-internal-browse)
        ("xk" "open skim doc" jao-skim-open-current-doc)
        ("xe" "choose an emoji" ns-do-show-character-palette)]
       ["Blog"