Add snakemake-compile-command function

1 files changed, 8 insertions, 3 deletions

diff --git a/snakemake-mode.el b/snakemake-mode.el
index 79a12f5..ca96570 100644
--- a/snakemake-mode.el
+++ b/snakemake-mode.el
@@ -235,14 +235,19 @@ column of the first non-blank character."
 
 (add-hook 'snakemake-mode-hook 'snakemake-set-imenu-generic-expression)
 
+(defun snakemake-compile-command ()
+  "Return Snakemake compile command.
+Flags are taken from `snakemake-compile-command-options'."
+  (mapconcat 'identity
+             (cons "snakemake" snakemake-compile-command-options)
+             " "))
+
 ;;;###autoload
 (define-derived-mode snakemake-mode python-mode "Snakemake"
   "Mode for editing Snakemake files."
   (set (make-local-variable 'indent-line-function) 'snakemake-indent-line)
   (font-lock-add-keywords nil snakemake-font-lock-keywords)
-  (set (make-local-variable 'compile-command)
-       (mapconcat 'identity
-                  (cons "snakemake" snakemake-compile-command-options) " ")))
+  (set (make-local-variable 'compile-command) (snakemake-compile-command)))
 
 ;;;###autoload
 (add-to-list 'auto-mode-alist '("Snakefile\\'" . snakemake-mode))