From 1a54f3532dcd812b5b4c1c1ecfcf366d9aa10669 Mon Sep 17 00:00:00 2001 From: jao Date: Tue, 30 Sep 2025 01:46:39 +0100 Subject: tiny safari integration --- lib/doc/jao-mac.el | 11 ++++++++++- 1 file changed, 10 insertions(+), 1 deletion(-) (limited to 'lib/doc') diff --git a/lib/doc/jao-mac.el b/lib/doc/jao-mac.el index c828507..b9da4ab 100644 --- a/lib/doc/jao-mac.el +++ b/lib/doc/jao-mac.el @@ -116,13 +116,22 @@ (jao-mac-run-applescript jao-nnw--current-article-script)) (defun jao-nnw-browse-current-article () - (interactive) "Browse the URL of the current NNW article." + (interactive) (if-let* ((url (jao-nnw-current-article))) (unless (string-empty-p url) (browse-url url)) (message "No article selected in NetNewsWire"))) +;;; Safari +(defun jao-safari-current-url () + (jao-mac-tell-app "Safari" "return URL of current tab of window 1")) + +(defun jao-safari-browse-current () + "Browse the URL of the current Safari topmost document." + (interactive) + (browse-url (jao-safari-current-url))) + ;;; Firefox (defvar jao-ffox--current-url-script (jao-mac-applescript-prepare -- cgit v1.2.3