Allow customization of the list items face

This commit is contained in:
Étienne Deparis 2020-11-20 21:43:28 +01:00
parent dba9c8f760
commit f52f23f4e4
1 changed files with 5 additions and 1 deletions

View File

@ -52,6 +52,10 @@
'((t :inherit italic))
"Face for quoted lines in Gemini"
:group 'gemini-mode)
(defface gemini-ulist-face
'((t :inherit font-lock-keyword-face))
"Face for unordered list items in Gemini"
:group 'gemini-mode)
(defvar gemini-highlights
(let* ((gemini-heading-rest-regexp "^####+[[:blank:]]*.*$")
@ -67,7 +71,7 @@
(,gemini-heading-2-regexp . 'gemini-heading-face-2)
(,gemini-heading-1-regexp . 'gemini-heading-face-1)
(,gemini-link-regexp . 'link)
(,gemini-ulist-regexp . 'font-lock-keyword-face)
(,gemini-ulist-regexp . 'gemini-ulist-face)
(,gemini-preformatted-regexp . 'font-lock-builtin-face)
(,gemini-quote-regexp . 'gemini-quote-face)))
"Font lock keywords for `gemini-mode'.")