From 01d4fb81c6a5991f88bbe135ac8ef2e11e0f983c Mon Sep 17 00:00:00 2001
From: Kyle Meyer <kyle@kyleam.com>
Date: Sat, 7 Mar 2015 18:24:03 -0500
Subject: Rework indentation

- Change continued field values to support Python indentation.  This
  is useful when the value is using something like format (but only
  applies to naked field keys).

- Don't move back to the start of the line when in a continued field
  value.

- When on the first line of block, only indent to main offset.

- Move to current indentation if point is before it.  Unless there is
  one possible value for indentation, don't adjust indentation any
  further.
---
 test-snakemake-mode.el | 325 ++++++++++++++++++++++++++++++++++++++++++++-----
 1 file changed, 293 insertions(+), 32 deletions(-)

(limited to 'test-snakemake-mode.el')

diff --git a/test-snakemake-mode.el b/test-snakemake-mode.el
index b48b128..859c28a 100644
--- a/test-snakemake-mode.el
+++ b/test-snakemake-mode.el
@@ -49,10 +49,13 @@ Also, mute messages."
 (def-edebug-spec org-test-with-temp-text (form body))
 
 
-(ert-deftest test-snakemake-mode/indentation ()
-  "Test `snakemake-indent-line'."
+
+;;; Indentation
 
-  ;; At top of rule block
+(ert-deftest test-snakemake-mode/indentation-at-rule-block ()
+  "Test `snakemake-indent-line' at top of rule block."
+
+  ;; Always shift first line of block to column 0.
   (should
    (string=
     "rule abc:"
@@ -60,18 +63,51 @@ Also, mute messages."
         "rule abc:"
       (snakemake-indent-line)
       (buffer-string))))
-
-  ;; At top of rule block, repeated
   (should
    (string=
     "rule abc:"
     (snakemake-with-temp-text
-        "rule abc:"
+        "     rule abc:"
       (snakemake-indent-line)
+      (buffer-string))))
+
+  ;; Don't move point if beyond column 0.
+  (should
+   (string=
+    "rule abc:  "
+    (snakemake-with-temp-text
+        "    rule abc:  <point>"
       (snakemake-indent-line)
       (buffer-string))))
+  (should
+   (string=
+    "rule "
+    (snakemake-with-temp-text
+        "    rule <point>abc:  <point>"
+      (snakemake-indent-line)
+      (buffer-substring (point-min) (point))))))
 
-  ;; Below a rule block
+(ert-deftest test-snakemake-mode/indentation-outside-rule ()
+  "Test `snakemake-indent-line' outside rule block."
+  ;; Use standard Python mode indentation outside of rule blocks.
+  (should
+   (string=
+    "
+def ok():
+    "
+    (snakemake-with-temp-text
+        "
+def ok():
+<point>"
+      (snakemake-indent-line)
+      (buffer-string)))))
+
+(ert-deftest test-snakemake-mode/indentation-field-key ()
+  "Test `snakemake-indent-line' on field key line."
+
+  ;; Always indent first line to `snakemake-indent-field-offset'.
+  ;; Move point to `snakemake-indent-field-offset' if it is before any
+  ;; text on the line.
   (should
    (string=
     "
@@ -83,8 +119,6 @@ rule abc:
 <point>"
       (snakemake-indent-line)
       (buffer-string))))
-
-  ;; Below a rule block, repeated
   (should
    (string=
     "
@@ -97,35 +131,93 @@ rule abc:
       (snakemake-indent-line)
       (snakemake-indent-line)
       (buffer-string))))
+  (should
+   (string=
+    "
+rule abc:
+    text"
+    (snakemake-with-temp-text
+        "
+rule abc:
+text<point>"
+      (snakemake-indent-line)
+      (buffer-substring (point-min) (point)))))
+  (should
+   (string=
+    "
+rule abc:
+    te"
+    (snakemake-with-temp-text
+        "
+rule abc:
+te<point>xt"
+      (snakemake-indent-line)
+      (buffer-substring (point-min) (point)))))
 
-  ;; At rule field key.
+  ;; Always indent field key to `snakemake-indent-field-offset'.
+  ;; Move point to `snakemake-indent-field-offset' if it is before any
+  ;; text on the line.
   (should
    (string=
     "
 rule abc:
+    input: 'infile'
     output:"
     (snakemake-with-temp-text
         "
 rule abc:
+    input: 'infile'
 <point>output:"
       (snakemake-indent-line)
       (buffer-string))))
-
-  ;; At rule field key, repeated
   (should
    (string=
     "
 rule abc:
+    input: 'infile'
     output:"
     (snakemake-with-temp-text
         "
 rule abc:
+    input: 'infile'
 <point>output:"
       (snakemake-indent-line)
       (snakemake-indent-line)
       (buffer-string))))
+  (should
+   (string=
+    "
+rule abc:
+    input: 'infile'
+    output:  "
+    (snakemake-with-temp-text
+        "
+rule abc:
+    input: 'infile'
+output:  <point>"
+      (snakemake-indent-line)
+      (buffer-string))))
+  (should
+   (string=
+    "
+rule abc:
+    input: 'infile'
+    "
+    (snakemake-with-temp-text
+        "
+rule abc:
+    input: 'infile'
+<point>  output:"
+      (snakemake-indent-line)
+      (buffer-substring (point-min) (point))))))
 
-  ;; Below a naked rule field key
+(ert-deftest test-snakemake-mode/indentation-field-value ()
+  "Test `snakemake-indent-line' on field value line."
+
+  ;; Always indent line below naked field key to
+  ;; `snakemake-indent-field-offset' +
+  ;; `snakemake-indent-value-offset'.  Move point to to this position
+  ;; as well if it is before any text on the line.
   (should
    (string=
     "
@@ -139,8 +231,6 @@ rule abc:
 <point>"
       (snakemake-indent-line)
       (buffer-string))))
-
-  ;; Below a naked rule field key, repeated
   (should
    (string=
     "
@@ -155,8 +245,72 @@ rule abc:
       (snakemake-indent-line)
       (snakemake-indent-line)
       (buffer-string))))
+  (should
+   (string=
+    "
+rule abc:
+    output:
+        "
+    (snakemake-with-temp-text
+        "
+rule abc:
+    output:
+              <point>"
+      (snakemake-indent-line)
+      (buffer-string))))
 
-  ;; Below a filled rule field key
+  ;; Add step with Python indentation for non-blank lines under naked
+  ;; field keys.  Field keys with values starting on the same line do
+  ;; not use Python indentation because this is invalid syntax in
+  ;; Snakemake.
+  (should
+   (string=
+    "
+rule abc:
+    output: 'file{}{}'.format('one',
+    'two'"
+    (snakemake-with-temp-text
+        "
+rule abc:
+    output: 'file{}{}'.format('one',
+<point>'two'"
+      (snakemake-indent-line)
+      (buffer-string))))
+  (should
+   (string=
+    "
+rule abc:
+    output:
+        'file{}{}'.format('one',
+                          'two'"
+    (snakemake-with-temp-text
+        "
+rule abc:
+    output:
+        'file{}{}'.format('one',
+<point>'two'"
+      (snakemake-indent-line)
+      (buffer-string))))
+  (should
+   (string=
+    "
+rule abc:
+    output:
+        'file{}{}'.format('one',
+    "
+    (snakemake-with-temp-text
+        "
+rule abc:
+    output:
+        'file{}{}'.format('one',
+<point>"
+      (snakemake-indent-line)
+      (buffer-string))))
+
+  ;; On non-naked field key cycle indentation between
+  ;; `snakemake-indent-field-offset' and column of previous field
+  ;; value.  If point is before any text on the line, move it to the
+  ;; start of the text instead.
   (should
    (string=
     "
@@ -170,8 +324,6 @@ rule abc:
 <point>"
       (snakemake-indent-line)
       (buffer-string))))
-
-  ;; Below a filled rule field key, repeated once
   (should
    (string=
     "
@@ -186,8 +338,6 @@ rule abc:
       (snakemake-indent-line)
       (snakemake-indent-line)
       (buffer-string))))
-
-  ;; Below a filled rule field key, repeated twice
   (should
    (string=
     "
@@ -203,37 +353,94 @@ rule abc:
       (snakemake-indent-line)
       (snakemake-indent-line)
       (buffer-string))))
-
-  ;; Body of a run field
   (should
    (string=
     "
 rule abc:
-    run:
-        with this:
-            "
+    output: 'file'
+    'text'"
     (snakemake-with-temp-text
         "
 rule abc:
-    run:
-        with this:
-<point>"
+    output: 'file'
+<point>'text'"
       (snakemake-indent-line)
       (buffer-string))))
-
-  ;; Outside a rule block
   (should
    (string=
     "
-def ok():
+rule abc:
+    output: 'file'
+            'text'"
+    (snakemake-with-temp-text
+        "
+rule abc:
+    output: 'file'
+<point>'text'"
+      (snakemake-indent-line)
+      (snakemake-indent-line)
+      (buffer-string))))
+  (should
+   (string=
     "
+rule abc:
+    output: 'file'
+    'text' "
     (snakemake-with-temp-text
         "
-def ok():
+rule abc:
+    output: 'file'
+'text' <point>"
+      (snakemake-indent-line)
+      (buffer-string))))
+  (should
+   (string=
+    "
+rule abc:
+    output: 'file'
+  "
+    (snakemake-with-temp-text
+        "
+rule abc:
+    output: 'file'
+<point>  'text'"
+      (snakemake-indent-line)
+      (buffer-substring (point-min) (point)))))
+  (should
+   (string=
+    "
+rule abc:
+    output: 'file'
+    'text'"
+    (snakemake-with-temp-text
+        "
+rule abc:
+    output: 'file'
+<point>  'text'"
+      (snakemake-indent-line)
+      (snakemake-indent-line)
+      (buffer-string))))
+
+  ;; Indent body of run field according to Python mode.
+  (should
+   (string=
+    "
+rule abc:
+    run:
+        with this:
+            "
+    (snakemake-with-temp-text
+        "
+rule abc:
+    run:
+        with this:
 <point>"
       (snakemake-indent-line)
       (buffer-string)))))
 
+
+;;; Other
+
 (ert-deftest test-snakemake-mode/in-rule-block ()
   "Test `snakemake-in-rule-or-subworkflow-block-p'"
 
@@ -283,6 +490,25 @@ subworkflow otherworkflow:
     snakefile: '../path/to/otherworkflow/Snakefile'"
     (should (snakemake-in-rule-or-subworkflow-block-p))))
 
+(ert-deftest test-snakemake-mode/first-field-line-p ()
+  "Test `snakemake-first-field-line-p'."
+  (snakemake-with-temp-text
+      "
+rule abc:
+<point>"
+    (should (snakemake-first-field-line-p)))
+  (snakemake-with-temp-text
+      "
+rule abc:
+<point>    output: 'file'"
+    (should (snakemake-first-field-line-p)))
+  (snakemake-with-temp-text
+      "
+rule abc:
+    output:
+<point>"
+    (should-not (snakemake-first-field-line-p))))
+
 (ert-deftest test-snakemake-mode/below-naked-field-p ()
   "Test `snakemake-below-naked-field-p'."
   (snakemake-with-temp-text
@@ -303,6 +529,41 @@ rule abc:
     output: <point>"
     (should-not (snakemake-below-naked-field-p))))
 
+(ert-deftest test-snakemake-mode/naked-field-line-p ()
+  "Test `snakemake-naked-field-line-p'."
+  (snakemake-with-temp-text
+      "
+rule abc:
+    output:
+<point>"
+    (should (snakemake-naked-field-line-p)))
+  (snakemake-with-temp-text
+      "
+rule abc:
+    output:
+        'file',
+         <point>"
+    (should (snakemake-naked-field-line-p)))
+  (snakemake-with-temp-text
+      "
+rule abc:
+    output: <point>"
+    (should (snakemake-naked-field-line-p)))
+  (snakemake-with-temp-text
+      "
+rule abc:
+    output: 'file'
+<point>"
+    (should-not (snakemake-naked-field-line-p)))
+  (snakemake-with-temp-text
+      "
+rule abc:
+    input:
+        'infile'
+    output: 'file'
+<point>"
+    (should-not (snakemake-naked-field-line-p))))
+
 (ert-deftest test-snakemake-mode/run-field-line-p ()
   "Test `snakemake-run-field-line-p'."
   (snakemake-with-temp-text
-- 
cgit v1.2.3