From 05be990e3aa7903a158c2294abcb1f9a4e116aad Mon Sep 17 00:00:00 2001 From: TEC Date: Tue, 30 Aug 2022 01:45:41 +0800 Subject: org: Tweak styling of url in resource prompt * lisp/org.el (org--confirm-resource-safe): Style domain with a link, and url with an underline. (cherry picked from Org-mode commit 1061db94acf785f4b8f1140649e3857d52693115) --- lisp/org/org.el | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/lisp/org/org.el b/lisp/org/org.el index accb57e1167..5e9740ef2d2 100644 --- a/lisp/org/org.el +++ b/lisp/org/org.el @@ -4815,13 +4815,15 @@ org--confirm-resource-safe (if domain (concat (propertize "d" 'face 'success) - " to download this resource, and mark this domain as safe.\n ") + " to download this resource, and mark the domain (" + (propertize domain 'face '(:inherit org-link :weight normal)) + ") as safe.\n ") "") (propertize "f" 'face 'success) (if current-file (concat " to download this resource, and permanantly mark all resources in " - (propertize current-file 'face 'fixed-pitch-serif) + (propertize current-file 'face 'underline) " as safe.\n ") "") (propertize "y" 'face 'warning)