diff options
Diffstat (limited to 'snakemake-mode.el')
| -rw-r--r-- | snakemake-mode.el | 22 |
1 files changed, 12 insertions, 10 deletions
diff --git a/snakemake-mode.el b/snakemake-mode.el index d7373f4..fd4763a 100644 --- a/snakemake-mode.el +++ b/snakemake-mode.el @@ -93,6 +93,7 @@ "group" "handover" "input" + "localrule" "log" "message" "name" @@ -404,9 +405,9 @@ For automatic highlighting of embedded regions, you need to set (unless (require 'mmm-mode nil t) (user-error "You need to install mmm-mode")) - (when (unless (bound-and-true-p mmm-global-mode)) + (unless (bound-and-true-p mmm-global-mode) (display-warning 'snakemake-mode "To get automatic syntax highlighting of -embedded R, you need to set mmm-global-mode to a non-nil value such as 'maybe.")) +embedded R, you need to set mmm-global-mode to a non-nil value such as `maybe'.")) (mmm-add-classes '((snakemake-R-call-double @@ -456,6 +457,7 @@ embedded R, you need to set mmm-global-mode to a non-nil value such as 'maybe.") (,(rx line-start (group "use rule ")) 1 font-lock-keyword-face) (,(snakemake-rx (group sm-builtin)) 1 font-lock-builtin-face))) +(defvar snakemake-font-lock-keywords) (if (bound-and-true-p python-font-lock-keywords-level-1) (with-no-warnings ;; In Emacs 27 `python-font-lock-keywords' was split up into @@ -469,14 +471,14 @@ embedded R, you need to set mmm-global-mode to a non-nil value such as 'maybe.") (defvar snakemake-font-lock-keywords-maximum-decoration (append snakemake--font-lock-keywords python-font-lock-keywords-maximum-decoration)) - (defvar snakemake-font-lock-keywords - ;; Mirrors `python-font-lock-keywords'. - '(snakemake-font-lock-keywords-level-1 - snakemake-font-lock-keywords-level-1 - snakemake-font-lock-keywords-level-2 - snakemake-font-lock-keywords-maximum-decoration))) - (defvar snakemake-font-lock-keywords - (append snakemake--font-lock-keywords python-font-lock-keywords))) + (setq snakemake-font-lock-keywords + ;; Mirrors `python-font-lock-keywords'. + '(snakemake-font-lock-keywords-level-1 + snakemake-font-lock-keywords-level-1 + snakemake-font-lock-keywords-level-2 + snakemake-font-lock-keywords-maximum-decoration))) + (setq snakemake-font-lock-keywords + (append snakemake--font-lock-keywords python-font-lock-keywords))) ;;;###autoload (define-derived-mode snakemake-mode python-mode "Snakemake" |