mirrors
/
org-mode
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git
0
0
Fork 1
Code Releases Activity

Review face for export dispatcher highlighted keys 

* lisp/org-faces.el (org-dispatcher-highlight): Define new face.

* lisp/ox.el (org-export--dispatch-ui): Apply org-dispatcher-highlight
face.

The intent is to decouple the dispatcher's interface from the generic
org-warning face.  The dispatcher's active keys are thus made easier
to tell apart, without interfering with other applications of
org-warning.
This commit is contained in:
Protesilaos Stavrou 2020-10-12 12:41:31 +03:00 committed by Bastien
parent e5bf534e14
commit 7ebb2d5629
2 changed files with 15 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
lisp/org-faces.el
View File

@ -45,6 +45,20 @@ The foreground color of this face should be equal to the background
color of the frame."
:group 'org-faces)
(defface org-dispatcher-highlight
'((default :weight bold)
(((class color) (min-colors 88) (background dark))
:background "gray20" :foreground "gold1")
(((class color) (min-colors 88) (background light))
:background "SlateGray1" :foreground "DarkBlue")
(((class color) (min-colors 16) (background dark))
:foreground "yellow")
(((class color) (min-colors 16) (background light))
:foreground "blue")
(t :inverse-video t))
"Face for highlighted keys in the dispatcher."
:group 'org-faces)
(defface org-level-1 '((t :inherit outline-1))
"Face used for level 1 headlines."
:group 'org-faces)

2
lisp/ox.el
View File

@ -6706,7 +6706,7 @@ back to standard interface."
;; on the first key, if any. A nil value means KEY will
;; only be activated at first level.
(if (or (eq access-key t) (eq access-key first-key))
(propertize key 'face 'org-warning)
(propertize key 'face 'org-dispatcher-highlight)
key)))
(fontify-value
(lambda (value)