Add snakemake-compile-project-file-at-point

1 files changed, 8 insertions, 0 deletions

diff --git a/lisp/init-snakemake.el b/lisp/init-snakemake.el
index 5198667..64d235c 100644
--- a/lisp/init-snakemake.el
+++ b/lisp/init-snakemake.el
@@ -11,4 +11,12 @@
              (set (make-local-variable 'compile-command)
                   (snakemake-compile-command))))
 
+(defun km/snakemake-compile-project-file-at-point ()
+  "Run Snakemake to produce project file at point."
+  (interactive)
+  (let ((compile-command (concat (snakemake-compile-command) " "
+                                 (km/project-filename-at-point)))
+        (default-directory (projectile-project-root)))
+    (call-interactively 'compile)))
+
 (provide 'init-snakemake)