diff options
| author | Kyle Meyer <kyle@kyleam.com> | 2016-05-24 23:56:42 -0400 |
|---|---|---|
| committer | Kyle Meyer <kyle@kyleam.com> | 2016-05-24 23:56:42 -0400 |
| commit | 9ed551af664fc0ffc7346db5308328524457de0a (patch) | |
| tree | a32e3812d78ba08f8a89b098dd465d0f034e785c /snakemake-mode.el | |
| parent | 2e71246aa406b2d51441a961ec468833656b6798 (diff) | |
| download | snakemake-mode-9ed551af664fc0ffc7346db5308328524457de0a.tar.gz | |
indentation: Account for trailing comments
Diffstat (limited to 'snakemake-mode.el')
| -rw-r--r-- | snakemake-mode.el | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/snakemake-mode.el b/snakemake-mode.el index 5b4fb28..512b103 100644 --- a/snakemake-mode.el +++ b/snakemake-mode.el @@ -255,7 +255,8 @@ returned." (skip-chars-backward " \t\n") (beginning-of-line) (cond - ((cl-some (lambda (re) (looking-at-p (concat re "\\s-*$"))) + ((cl-some (lambda (re) + (looking-at-p (concat re "\\s-*\\(?:#.*\\)?$"))) (list snakemake-field-key-indented-re snakemake-rule-or-subworkflow-re snakemake-toplevel-command-re)) @@ -284,9 +285,11 @@ returned." (not (equal (match-string-no-properties 1) "run")) (cond (goto-first-p - (if (equal (match-string-no-properties 2) "") - above-indent - (- (match-beginning 2) (line-beginning-position)))) + (let ((field-val (match-string-no-properties 2))) + (if (or (equal field-val "") + (string-match-p "\\`#" field-val)) + above-indent + (- (match-beginning 2) (line-beginning-position))))) ((< field-indent initial-indent) field-indent))))))))))))) |