summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorKyle Meyer <kyle@kyleam.com>2014-08-24 00:19:18 -0400
committerKyle Meyer <kyle@kyleam.com>2014-08-24 00:19:18 -0400
commit0c44981cdde622579d09e5be2c0eea44a7f87ce9 (patch)
treed5be52d6d2552a4a95ab70aaf674e26b99c9bf27
parentd95bb21e64d2c00498073051847964161fc9fa23 (diff)
downloademacs.d-0c44981cdde622579d09e5be2c0eea44a7f87ce9.tar.gz
Add snakemake-compile-project-file-at-point
-rw-r--r--lisp/init-snakemake.el8
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)