diff options
Diffstat (limited to 'snakemake-mode.el')
| -rw-r--r-- | snakemake-mode.el | 45 |
1 files changed, 27 insertions, 18 deletions
diff --git a/snakemake-mode.el b/snakemake-mode.el index cd8a421..853f356 100644 --- a/snakemake-mode.el +++ b/snakemake-mode.el @@ -132,6 +132,33 @@ "Regexp matching a call to a builtin Snakemake function.") +;;; Info and navigation + +(defun snakemake-block-bounds () + "Return bounds of rule or subworkflow block at point." + (save-excursion + (save-restriction + (prog-widen) + (let ((pos (point))) + (end-of-line) + (and (re-search-backward snakemake-rule-or-subworkflow-re nil t) + (let ((rule-start (or (match-beginning 1) + (match-beginning 3))) + (rule-indent (current-indentation)) + rule-end) + (beginning-of-line) + (forward-line) + (while (and (or (< rule-indent (current-indentation)) + (looking-at-p "^\\s-*$")) + (or (not (eobp)) + (progn (setq rule-end (point-max)) + nil))) + (setq rule-end (line-end-position)) + (forward-line)) + (when (<= rule-start pos rule-end) + (cons rule-start rule-end)))))))) + + ;;; Indentation (defun snakemake--calculate-indentation (&optional previous) @@ -224,24 +251,6 @@ returned." (and (memq this-command python-indent-trigger-commands) (eq last-command this-command)))) -(defun snakemake-in-rule-or-subworkflow-block-p () - "Return non-nil if point is in block or on first blank line following one." - (let ((blank-p (lambda nil - (and (looking-at-p "^\\s-*$") - ;; Ignore newlines in docstrings. - (not (nth 3 (syntax-ppss))))))) - (save-excursion - (beginning-of-line) - (when (funcall blank-p) - (forward-line -1)) - (catch 'in-block - (while (not (funcall blank-p)) - (cond ((looking-at-p snakemake-rule-or-subworkflow-re) - (throw 'in-block t)) - ((bobp) - (throw 'in-block nil))) - (forward-line -1)))))) - ;;; Imenu |