ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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.
This commit is contained in:
TEC 2022-08-30 01:45:41 +08:00
parent 1ae801e9c8
commit 1061db94ac
No known key found for this signature in database
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/org.el
View File

@ -4586,13 +4586,15 @@ returns non-nil if any of them match."
(if domain (if domain
(concat (concat
(propertize "d" 'face 'success) (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) (propertize "f" 'face 'success)
(if current-file (if current-file
(concat (concat
" to download this resource, and permanantly mark all resources in " " 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 ") " as safe.\n ")
"") "")
(propertize "y" 'face 'warning) (propertize "y" 'face 'warning)