fixes asNimCode for QuotedX (#1207)

The test is not irrelevant. It fixes some code with `quoted`, which is
reported during sem phases

Author: ringabout

src/nimony/renderer.nim

@@ -1142,6 +1142,27 @@ proc gpragmaBlock(g: var SrcGen, n: var Cursor) =
   gstmts(g, n, c, doIndent = true)
   skipParRi(n)
 
+proc isUseSpace(n: Cursor): bool =
+  template isAlpha(s: Cursor): bool =
+    pool.strings[s.litId][0] in {'a'..'z', 'A'..'Z'}
+
+  result = true
+  var n = n
+
+  assert n.kind != ParRi
+  let firstSon = n
+  skip n
+
+  if n.kind != ParRi:
+    let secondSon = n
+    skip n
+    if n.kind == ParRi:
+      assert firstSon.kind == Ident and secondSon.kind == Ident
+      # handle `=destroy`, `'big' and handle setters, e.g. `foo=`
+      if (pool.strings[firstSon.litId] in ["=", "'"] and isAlpha(secondSon)) or
+          (pool.strings[secondSon.litId] == "=" and isAlpha(firstSon)):
+        result = false
+
 proc gsub(g: var SrcGen, n: var Cursor, c: Context, fromStmtList = false, isTopLevel = false) =
   case n.kind
   of ParLe:
@@ -1732,8 +1753,19 @@ proc gsub(g: var SrcGen, n: var Cursor, c: Context, fromStmtList = false, isTopL
 
     of QuotedX:
       inc n
+
+      let useSpace = isUseSpace(n)
       put(g, tkAccent, "`")
-      gsub(g, n, c)
+
+      var afterFirst = false
+      while n.kind != ParRi:
+        if afterFirst:
+          if useSpace:
+            put(g, tkSpaces, Space)
+        else:
+          afterFirst = true
+        gsub(g, n, c)
+
       put(g, tkAccent, "`")
       skipParRi(n)
 

tests/nimony/plugins/trenderer.nim

@@ -16,3 +16,14 @@ renderTree:
 
   var s = @[1, 2, 3]
   echo s[0]
+
+  type
+    Foo = object
+      id: int
+
+  proc `=destroy`(x: Foo) =
+    discard
+
+  block:
+    var m = Foo(id: 12)
+    `=destroy`(m)

tests/nimony/plugins/trenderer.output

@@ -12,3 +12,12 @@ discard foo(2)
 var s: seq = @([1, 2, 3])
 write stdout, s[0]
 write stdout, '\n'
+type
+  Foo = object
+    id: int
+proc =destroy(x: Foo) =
+  discard
+
+block:
+  var m: Foo = Foo(id: 12)
+  =destroy(m)