summaryrefslogtreecommitdiff
path: root/lisp
diff options
context:
space:
mode:
authorKyle Meyer <kyle@kyleam.com>2014-11-19 00:35:20 -0500
committerKyle Meyer <kyle@kyleam.com>2014-11-19 00:35:20 -0500
commitc5239d61bf425157d3cc1a3b13ac5110c6a884c8 (patch)
treec5987a9b954be7a7542e852c4c195ecba974a83c /lisp
parent29ac73cbed8784db8f1516aebec63ce578f76df9 (diff)
downloademacs.d-c5239d61bf425157d3cc1a3b13ac5110c6a884c8.tar.gz
Add command snakemake-compile-project-rule
Diffstat (limited to 'lisp')
-rw-r--r--lisp/init-snakemake.el10
1 files changed, 9 insertions, 1 deletions
diff --git a/lisp/init-snakemake.el b/lisp/init-snakemake.el
index 553cde3..369167a 100644
--- a/lisp/init-snakemake.el
+++ b/lisp/init-snakemake.el
@@ -26,10 +26,18 @@ run."
(default-directory (projectile-project-root)))
(call-interactively 'compile)))
+(defun km/snakemake-compile-project-rule ()
+ "Run `snakemake-compile-rule' from project root."
+ (interactive)
+ (let ((default-directory (projectile-project-root)))
+ (call-interactively #'snakemake-compile-rule)))
+
(autoload 'snakemake-compile-command "snakemake-mode")
(after 'init-external
(define-key km/compile-map "p"
- 'km/snakemake-compile-project-file-at-point))
+ 'km/snakemake-compile-project-file-at-point)
+ (define-key km/compile-map "b"
+ 'km/snakemake-compile-project-rule))
(provide 'init-snakemake)