diff options
| -rw-r--r-- | snakemake-mode.el | 6 | ||||
| -rw-r--r-- | snakemake.el | 18 |
2 files changed, 12 insertions, 12 deletions
diff --git a/snakemake-mode.el b/snakemake-mode.el index b397e2d..05a76f0 100644 --- a/snakemake-mode.el +++ b/snakemake-mode.el @@ -171,7 +171,7 @@ "Move to beginning of rule block. With ARG, do it that many times. Negative ARG signals to move forward rather than backward." - (when (or (null arg) (= arg 0)) + (when (or (null arg) (zerop arg)) (setq arg 1)) (funcall (if (> arg 0) #'re-search-backward @@ -192,7 +192,7 @@ forward rather than backward." "Move to beginning of current rule block or function. With ARG, do it that many times. Negative ARG signals to move forward rather than backward." - (when (or (null arg) (= arg 0)) + (when (or (null arg) (zerop arg)) (setq arg 1)) (let ((choose-fn (if (> arg 0) #'max #'min)) (cands (delq nil @@ -240,7 +240,7 @@ returned." ;; :after-block-start. :after-block-start)) (let* ((initial-indent (current-indentation)) - (goto-first-p (or (not previous) (= initial-indent 0)))) + (goto-first-p (or (not previous) (zerop initial-indent)))) (save-excursion (save-restriction (widen) diff --git a/snakemake.el b/snakemake.el index 9ec7b42..fca801e 100644 --- a/snakemake.el +++ b/snakemake.el @@ -222,12 +222,12 @@ with DIRECTORY and the Snakefile's modification time." TYPE can be `all' or `target'." (snakemake--split-lines (with-temp-buffer - (if (= 0 (snakemake-insert-output - "--nocolor" - (cl-case type - (all "--list") - (target "--list-target-rules") - (t (user-error "Invalid rule type: %s" type))))) + (if (zerop (snakemake-insert-output + "--nocolor" + (cl-case type + (all "--list") + (target "--list-target-rules") + (t (user-error "Invalid rule type: %s" type))))) (buffer-string) (error "Error finding rules"))) t)) @@ -250,7 +250,7 @@ The file list is determined by the output of (snakemake-with-cache directory ("target-files") (snakemake--split-lines (with-temp-buffer - (if (= 0 (call-process snakemake-file-target-program nil t)) + (if (zerop (call-process snakemake-file-target-program nil t)) (buffer-string) (error "Error finding file targets"))))))) @@ -271,7 +271,7 @@ exit status is non-zero.") (goto-char (point-min)) (cond ((re-search-forward snakemake-valid-target-re nil t)) - ((and (= ex-code 0) + ((and (zerop ex-code) ;; Lean towards misclassifying targets as valid rather ;; than silently dropping valid targets as invalid. (not (re-search-forward snakemake-invalid-target-re @@ -483,7 +483,7 @@ $ snakemake -s <current file> --{dag,rulegraph} | display" (setq ret-val (call-process snakemake-program nil t nil (if rule-graph "--rulegraph" "--dag") "--snakefile" file))) - (if (= 0 ret-val) + (if (zerop ret-val) (progn (image-mode) (snakemake-graph-mode) (setq snakemake-graph-id file)) |