mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-05-31 01:32:00 -07:00
Code Issues Projects Releases Wiki Activity

markdown-ts-mode: align default face definitions with markdown-mode

Browse source 
Match the out-of-the-box appearance of markdown-ts-mode to the
non-tree-sitter markdown-mode package, making switching between modes
less jarring.

* lisp/textmodes/markdown-ts-mode.el (markdown-ts-delimiter)
(markdown-ts-heading-1, markdown-ts-heading-2, markdown-ts-heading-3)
(markdown-ts-heading-4, markdown-ts-heading-5, markdown-ts-heading-6)
(markdown-ts-block-quote, markdown-ts-code-block, markdown-ts-code-span)
(markdown-ts-indented-code-block, markdown-ts-html-tag)
(markdown-ts-html-block, markdown-ts-thematic-break)
(markdown-ts-entity-reference, markdown-ts-numeric-character-reference)
(markdown-ts-table, markdown-ts-table-header, markdown-ts-table-cell)
(markdown-ts-table-delimiter-cell, markdown-ts-language-keyword)
(markdown-ts-list-marker, markdown-ts-hard-line-break-backslash)
(markdown-ts-hard-line-break-backslash-hidden)
(markdown-ts-hard-line-break-space-hidden)
(markdown-ts-task-unchecked, markdown-ts-task-checked): Tweak.
This commit is contained in:
João Távora 2026-05-14 10:38:46 +01:00
parent e0aeee2dc5
commit 133d1d591c
1 changed files with 27 additions and 27 deletions
Download patch file Download diff file Expand all files Collapse all files

54
lisp/textmodes/markdown-ts-mode.el
View file

@ -583,11 +583,11 @@ newline."
:group 'markdown-ts-faces :group 'markdown-ts-faces
:group 'faces) :group 'faces)
(defface markdown-ts-delimiter '((t (:inherit shadow))) (defface markdown-ts-delimiter '((t (:inherit shadow :slant normal :weight normal)))
"Face for the # before Markdown headings." "Face for the # before Markdown headings."
:version "31.1") :version "31.1")
(defface markdown-ts-heading-1 '((t (:inherit outline-1))) (defface markdown-ts-heading-1 '((t (:inherit font-lock-function-name-face :weight bold)))
"Face for first level Markdown headings." "Face for first level Markdown headings."
:version "31.1") :version "31.1")
@ -595,23 +595,23 @@ newline."
"Face for setext Markdown headings (headings underlined by === or ---)." "Face for setext Markdown headings (headings underlined by === or ---)."
:version "31.1") :version "31.1")
(defface markdown-ts-heading-2 '((t (:inherit outline-2))) (defface markdown-ts-heading-2 '((t (:inherit font-lock-function-name-face :weight bold)))
"Face for second level Markdown headings." "Face for second level Markdown headings."
:version "31.1") :version "31.1")
(defface markdown-ts-heading-3 '((t (:inherit outline-3))) (defface markdown-ts-heading-3 '((t (:inherit font-lock-function-name-face :weight bold)))
"Face for third level Markdown headings." "Face for third level Markdown headings."
:version "31.1") :version "31.1")
(defface markdown-ts-heading-4 '((t (:inherit outline-4))) (defface markdown-ts-heading-4 '((t (:inherit font-lock-function-name-face :weight bold)))
"Face for fourth level Markdown headings." "Face for fourth level Markdown headings."
:version "31.1") :version "31.1")
(defface markdown-ts-heading-5 '((t (:inherit outline-5))) (defface markdown-ts-heading-5 '((t (:inherit font-lock-function-name-face :weight bold)))
"Face for fifth level Markdown headings." "Face for fifth level Markdown headings."
:version "31.1") :version "31.1")
(defface markdown-ts-heading-6 '((t (:inherit outline-6))) (defface markdown-ts-heading-6 '((t (:inherit font-lock-function-name-face :weight bold)))
"Face for sixth level Markdown headings." "Face for sixth level Markdown headings."
:version "31.1") :version "31.1")
@ -627,7 +627,7 @@ newline."
"Face for Markdown strikethrough text." "Face for Markdown strikethrough text."
:version "31.1") :version "31.1")
(defface markdown-ts-block-quote '((t (:inherit italic))) (defface markdown-ts-block-quote '((t (:inherit font-lock-doc-face)))
"Face for Markdown block quotes." "Face for Markdown block quotes."
:version "31.1") :version "31.1")
@ -639,11 +639,11 @@ newline."
"Face for Markdown link destinations (URLs)." "Face for Markdown link destinations (URLs)."
:version "31.1") :version "31.1")
(defface markdown-ts-code-span '((t (:inherit font-lock-keyword-face))) (defface markdown-ts-code-span '((t (:inherit (markdown-ts-code-block font-lock-constant-face))))
"Face for Markdown inline code spans." "Face for Markdown inline code spans."
:version "31.1") :version "31.1")
(defface markdown-ts-code-block '((t (:extend t))) (defface markdown-ts-code-block '((t (:inherit fixed-pitch :extend t)))
"Face for Markdown fenced code block content. "Face for Markdown fenced code block content.
Alter this face to add a `:background' for a visually distinct Alter this face to add a `:background' for a visually distinct
code block region, e.g.: code block region, e.g.:
@ -666,29 +666,29 @@ Used instead of `markdown-ts-code-block' when `markdown-ts-hide-markup'
is non-nil." is non-nil."
:version "31.1") :version "31.1")
(defface markdown-ts-indented-code-block '((t (:inherit font-lock-string-face))) (defface markdown-ts-indented-code-block '((t (:inherit (markdown-ts-code-block font-lock-constant-face))))
"Face for Markdown indented code blocks." "Face for Markdown indented code blocks."
:version "31.1") :version "31.1")
(defface markdown-ts-html-tag '((t (:inherit font-lock-doc-markup-face))) (defface markdown-ts-html-tag '((t (:inherit font-lock-type-face)))
"Face for inline HTML tags in Markdown." "Face for inline HTML tags in Markdown."
:version "31.1") :version "31.1")
(defface markdown-ts-html-block '((t (:inherit font-lock-doc-markup-face))) (defface markdown-ts-html-block '((t (:inherit font-lock-type-face)))
"Face for HTML blocks in Markdown." "Face for HTML blocks in Markdown."
:version "31.1") :version "31.1")
(defface markdown-ts-thematic-break '((t (:inherit shadow :extend t))) (defface markdown-ts-thematic-break '((t (:inherit markdown-ts-delimiter :extend t)))
"Face for Markdown thematic breaks (horizontal rules). "Face for Markdown thematic breaks (horizontal rules).
Customize this face to add a :background for a full-width visual rule." Customize this face to add a :background for a full-width visual rule."
:version "31.1") :version "31.1")
(defface markdown-ts-entity-reference '((t (:inherit font-lock-builtin-face))) (defface markdown-ts-entity-reference '((t (:inherit font-lock-variable-name-face)))
"Face for named HTML entity references like & and ©." "Face for named HTML entity references like & and ©."
:version "31.1") :version "31.1")
(defface markdown-ts-numeric-character-reference (defface markdown-ts-numeric-character-reference
'((t (:inherit font-lock-escape-face))) '((t (:inherit font-lock-variable-name-face)))
"Face for numeric character references like A and A." "Face for numeric character references like A and A."
:version "31.1") :version "31.1")
@ -696,19 +696,19 @@ Customize this face to add a :background for a full-width visual rule."
"Face for LaTeX / math content in Markdown ($...$ and $$...$$)." "Face for LaTeX / math content in Markdown ($...$ and $$...$$)."
:version "31.1") :version "31.1")
(defface markdown-ts-table-header '((t (:inherit (bold font-lock-doc-face)))) (defface markdown-ts-table-header '((t (:inherit markdown-ts-table)))
"Face for Markdown pipe table header cells." "Face for Markdown pipe table header cells."
:version "31.1") :version "31.1")
(defface markdown-ts-table-cell '((t (:inherit default))) (defface markdown-ts-table-cell '((t (:inherit markdown-ts-table)))
"Face for Markdown pipe table data cells." "Face for Markdown pipe table data cells."
:version "31.1") :version "31.1")
(defface markdown-ts-table-delimiter-cell '((t (:inherit font-lock-doc-face))) (defface markdown-ts-table-delimiter-cell '((t (:inherit markdown-ts-table)))
"Face for Markdown pipe table delimiter cells (--- separators)." "Face for Markdown pipe table delimiter cells (--- separators)."
:version "31.1") :version "31.1")
(defface markdown-ts-table '((t (:extend t))) (defface markdown-ts-table '((t (:inherit (markdown-ts-code-block) :extend t)))
"Face for Markdown table. "Face for Markdown table.
Alter this face to add a `:background' for a visually distinct table Alter this face to add a `:background' for a visually distinct table
region, e.g.: region, e.g.:
@ -722,21 +722,21 @@ region, e.g.:
(set-face-attribute \\='markdown-ts-in-table nil :background \"gray95\")" (set-face-attribute \\='markdown-ts-in-table nil :background \"gray95\")"
:version "31.1") :version "31.1")
(defface markdown-ts-language-keyword '((t (:inherit font-lock-keyword-face))) (defface markdown-ts-language-keyword '((t (:inherit font-lock-type-face)))
"Face for the language keyword for Markdown code blocks." "Face for the language keyword for Markdown code blocks."
:version "31.1") :version "31.1")
(defface markdown-ts-list-marker '((t (:inherit shadow))) (defface markdown-ts-list-marker '((t (:inherit shadow :slant normal :weight normal)))
"Face for Markdown list markers like - and *." "Face for Markdown list markers like - and *."
:version "31.1") :version "31.1")
(defface markdown-ts-hard-line-break-backslash (defface markdown-ts-hard-line-break-backslash
'((t (:inherit outline-4 :weight bold))) '((t (:inherit font-lock-constant-face :underline t)))
"Face for Markdown hard line breaks introduced by a trailing backslash." "Face for Markdown hard line breaks introduced by a trailing backslash."
:version "31.1") :version "31.1")
(defface markdown-ts-hard-line-break-backslash-hidden (defface markdown-ts-hard-line-break-backslash-hidden
'((t (:inherit outline-4 :weight bold))) '((t (:inherit font-lock-constant-face :underline t)))
"Face for trailing-backslash hard line break when markup is hidden." "Face for trailing-backslash hard line break when markup is hidden."
:version "31.1") :version "31.1")
@ -749,15 +749,15 @@ shadow-colored block."
:version "31.1") :version "31.1")
(defface markdown-ts-hard-line-break-space-hidden (defface markdown-ts-hard-line-break-space-hidden
'((t (:inherit outline-4 :weight bold))) '((t (:inherit font-lock-constant-face :underline t)))
"Face for trailing-spaces hard line break when markup is hidden." "Face for trailing-spaces hard line break when markup is hidden."
:version "31.1") :version "31.1")
(defface markdown-ts-task-unchecked '((t (:inherit markdown-ts-list-marker))) (defface markdown-ts-task-unchecked '((t (:inherit font-lock-builtin-face)))
"Face for Markdown unchecked task list markers." "Face for Markdown unchecked task list markers."
:version "31.1") :version "31.1")
(defface markdown-ts-task-checked '((t (:inherit markdown-ts-list-marker))) (defface markdown-ts-task-checked '((t (:inherit font-lock-builtin-face)))
"Face for Markdown checked task list markers." "Face for Markdown checked task list markers."
:version "31.1") :version "31.1")