From 7ffea30d691cd7a46b6969767b6840dabaaea428 Mon Sep 17 00:00:00 2001 From: Kyle Meyer Date: Sun, 26 Mar 2017 19:06:46 -0400 Subject: Rename snakemake-compile Make the name and popup description more general so that they still apply when the terminal interface is added. --- snakemake.el | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) (limited to 'snakemake.el') diff --git a/snakemake.el b/snakemake.el index 2a860b2..2299182 100644 --- a/snakemake.el +++ b/snakemake.el @@ -39,7 +39,7 @@ ;; names from Dired, Org links, and general text under point that ;; looks like a file name. ;; -;; snakemake-compile +;; snakemake-build ;; ;; This action leads to an interactive `compile' call that allows ;; you to edit the command before it is run. @@ -598,7 +598,7 @@ $ snakemake [ARGS] -- " args)) ;;;###autoload -(defun snakemake-compile (&optional args) +(defun snakemake-build (&optional args) "Read `compile' command for building targets. $ snakemake [ARGS] -- " @@ -612,6 +612,8 @@ $ snakemake [ARGS] -- " (default-directory (snakemake-snakefile-directory))) (call-interactively #'compile))) +(define-obsolete-function-alias 'snakemake-compile 'snakemake-build "1.2.0") + ;;;###autoload (autoload 'snakemake-popup "snakemake" nil t) (magit-define-popup snakemake-popup "Popup console for running Snakemake." @@ -626,7 +628,7 @@ $ snakemake [ARGS] -- " '((?a "Allowed rules" "--allowed-rules " snakemake-read-rules) (?j "Number of jobs" "-j")) :actions - '((?c "Compile" snakemake-compile) nil nil + '((?c "Edit and run command" snakemake-build) nil nil (?p "Build target at point" snakemake-build-targets-at-point) (?f "Build file" snakemake-build-file-target) (?r "Build rule" snakemake-build-rule-target)) -- cgit v1.2.3