GitHub Issue #191 - support nested :require prefix list syntax (#192)

Author: oakmac

lib/standard-clojure-style.js

@@ -1632,6 +1632,7 @@
     let prevNodeIsNewline = false
     let lineOfLastCommentRecording = -1
     let insidePrefixList = false
+    let prefixListParenNestingDepth = -1
     let prefixListPrefix = null
     let prefixListLineNo = -1
     const prefixListComments = {}
@@ -1784,10 +1785,13 @@
         if (insideRequireForm && requireSymbolIdx > 0) {
           requireSymbolIdx = -1
         }
-        if (insideRequireForm && insidePrefixList) {
+
+        if (insideRequireForm && insidePrefixList && prefixListParenNestingDepth !== -1 && parenNestingDepth === dec(prefixListParenNestingDepth)) {
           insidePrefixList = false
           prefixListPrefix = null
+          prefixListParenNestingDepth = -1
         }
+
         if (insideReaderConditional && parenNestingDepth === dec(readerConditionalParenNestingDepth)) {
           insideReaderConditional = false
           currentReaderConditionalPlatform = null
@@ -2319,6 +2323,7 @@
         if (isPrefixList) {
           const prefixListId = createId()
           insidePrefixList = true
+          prefixListParenNestingDepth = parenNestingDepth
           prefixListLineNo = lineNo
           prefixListPrefix = node.text
           currentPrefixListId = prefixListId

test_format/ns.eno

@@ -1985,3 +1985,20 @@
   (:require
    [garden.selectors :refer [&] :rename {& parent}]))
 --Expected
+
+# GitHub Issue #191 - expand nested prefix lists
+
+--Input
+(ns com.example.my-app
+  (:require
+   [com.example.my-app.foo
+    [bar :as bar :refer [fred]] ;; a comment
+    [baz :refer [qux] :as plugh]])) ;; another comment
+--Input
+
+--Expected
+(ns com.example.my-app
+  (:require
+   [com.example.my-app.foo.bar :as bar :refer [fred]] ;; a comment
+   [com.example.my-app.foo.baz :as plugh :refer [qux]])) ;; another comment
+--Expected

test_parse_ns/parse_ns.eno

@@ -3232,3 +3232,31 @@
   ]
 }
 --Expected
+
+# GitHub Issue #191 - expand nested prefix lists
+
+--Input
+(ns com.example.my-app
+  (:require
+   [com.example.my-app.foo
+    [bar :as bar]
+    [baz :refer [qux]]]))
+--Input
+
+--Expected
+{
+  "nsSymbol": "com.example.my-app",
+  "requires": [
+    {
+      "symbol": "com.example.my-app.foo.bar",
+      "as": "bar"
+    },
+    {
+      "symbol": "com.example.my-app.foo.baz",
+      "refer": [
+        {"symbol": "qux"}
+      ]
+    }
+  ]
+}
+--Expected