yogsototh/gemini-mode
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

Add support for quoted text

Browse source
This commit is contained in:
Jason McBrayer 2020-06-15 07:34:41 -04:00
parent 8ad9cba802
commit 09bd4cafe7
1 changed files with 10 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
gemini-mode.el
View file

@ -4,7 +4,7 @@
;; Author: Jason McBrayer <jmcbray@carcosa.net>, tastytea <tastytea@tastytea.de> ;; Author: Jason McBrayer <jmcbray@carcosa.net>, tastytea <tastytea@tastytea.de>
;; Created: 20 May 2020 ;; Created: 20 May 2020
;; Version: 0.5.2 ;; Version: 0.6.0
;; Keywords: languages ;; Keywords: languages
;; Homepage: https://git.carcosa.net/jmcbray/gemini.el ;; Homepage: https://git.carcosa.net/jmcbray/gemini.el
;; Package-Requires: ((emacs "24.3")) ;; Package-Requires: ((emacs "24.3"))
@ -48,6 +48,10 @@
'((t :inherit bold)) '((t :inherit bold))
"Face for Gemini headings below level 3" "Face for Gemini headings below level 3"
:group 'gemini-mode) :group 'gemini-mode)
(defface gemini-quote-face
'((t :inherit italic))
"Face for quoted lines in Gemini"
:group 'gemini-mode)
(defvar gemini-highlights (defvar gemini-highlights
(let* ((gemini-heading-3-regexp "^###\s.*$") (let* ((gemini-heading-3-regexp "^###\s.*$")
@ -55,15 +59,17 @@
(gemini-heading-1-regexp "^#\s.*$") (gemini-heading-1-regexp "^#\s.*$")
(gemini-heading-rest-regexp "^###+\s.*$") (gemini-heading-rest-regexp "^###+\s.*$")
(gemini-link-regexp "^=>.*$") (gemini-link-regexp "^=>.*$")
(gemini-ulist-regexp "^\\*") (gemini-ulist-regexp "^\\* .*$")
(gemini-preformatted-regexp "^```")) (gemini-preformatted-regexp "^```")
(gemini-quote-regexp "^> .*$"))
`((,gemini-heading-rest-regexp . 'gemini-heading-face-rest) `((,gemini-heading-rest-regexp . 'gemini-heading-face-rest)
(,gemini-heading-3-regexp . 'gemini-heading-face-3) (,gemini-heading-3-regexp . 'gemini-heading-face-3)
(,gemini-heading-2-regexp . 'gemini-heading-face-2) (,gemini-heading-2-regexp . 'gemini-heading-face-2)
(,gemini-heading-1-regexp . 'gemini-heading-face-1) (,gemini-heading-1-regexp . 'gemini-heading-face-1)
(,gemini-link-regexp . 'link) (,gemini-link-regexp . 'link)
(,gemini-ulist-regexp . 'font-lock-keyword-face) (,gemini-ulist-regexp . 'font-lock-keyword-face)
(,gemini-preformatted-regexp . 'font-lock-builtin-face))) (,gemini-preformatted-regexp . 'font-lock-builtin-face)
(,gemini-quote-regexp . 'gemini-quote-face)))
"Font lock keywords for `gemini-mode'.") "Font lock keywords for `gemini-mode'.")
(defvar gemini-mode-map (defvar gemini-mode-map