From 1061db94acf785f4b8f1140649e3857d52693115 Mon Sep 17 00:00:00 2001 From: TEC Date: Tue, 30 Aug 2022 01:45:41 +0800 Subject: [PATCH] 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. --- lisp/org.el | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/lisp/org.el b/lisp/org.el index 618e42015..3bb34256a 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -4586,13 +4586,15 @@ returns non-nil if any of them match." (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)