From 7151441ebe66cbb89650b248cbe60ed74dca20b5 Mon Sep 17 00:00:00 2001 From: Jason McBrayer Date: Wed, 27 May 2020 14:43:30 -0400 Subject: [PATCH] Apply flycheck-package recommendations --- gemini-mode.el | 20 ++++++++++++-------- 1 file changed, 12 insertions(+), 8 deletions(-) diff --git a/gemini-mode.el b/gemini-mode.el index 2e489e2..3e70109 100644 --- a/gemini-mode.el +++ b/gemini-mode.el @@ -1,4 +1,4 @@ -;;; gemini-mode.el --- A simple highlighting package for text/gemini +;;; gemini-mode.el --- A simple highlighting package for text/gemini ;; Copyright (C) 2020 Jason McBrayer @@ -28,19 +28,23 @@ ;; You should have received a copy of the GNU Affero General Public License ;; along with this program. If not, see . - +;;; Code: (defface gemini-heading-face-1 '((t :inherit bold :height 1.8)) - "Face for Gemini headings level 1") + "Face for Gemini headings level 1" + :group 'gemini-mode) (defface gemini-heading-face-2 '((t :inherit bold :height 1.4)) - "Face for Gemini headings level 2") + "Face for Gemini headings level 2" + :group 'gemini-mode) (defface gemini-heading-face-3 '((t :inherit bold :height 1.2)) - "Face for Gemini headings level 3") + "Face for Gemini headings level 3" + :group 'gemini-mode) (defface gemini-heading-face-rest '((t :inherit bold)) - "Face for Gemini headings below level 3") + "Face for Gemini headings below level 3" + :group 'gemini-mode) (defvar gemini-highlights (let* ((gemini-heading-3-regexp "^###\s.*$") @@ -53,7 +57,7 @@ (,gemini-heading-2-regexp . 'gemini-heading-face-2) (,gemini-heading-1-regexp . 'gemini-heading-face-1) (,gemini-link-regexp . 'link))) - "Font lock keywords for gemini-mode") + "Font lock keywords for gemini-mode.") ;;;###autoload (define-derived-mode gemini-mode text-mode "gemini" @@ -62,7 +66,7 @@ (visual-line-mode 1)) ;;;###autoload -(progn +(progn (add-to-list 'auto-mode-alist '("\\.gmi\\'" . gemini-mode)) (add-to-list 'auto-mode-alist '("\\.gemini\\'" . gemini-mode)) (add-to-list 'auto-mode-alist '("\\.geminimap\\'" . gemini-mode)))