Enable LSP structure view, implement commenter

Author: rockofox

build.gradle.kts

@@ -8,7 +8,7 @@ plugins {
 }
 
 group = "boo.fox"
-version = "1.3.5"
+version = "1.4.0"
 
 repositories {
     mavenCentral()

src/main/kotlin/boo/fox/haskelllsp/language/HaskellCommenter.kt

@@ -0,0 +1,26 @@
+package boo.fox.haskelllsp.language
+
+import com.intellij.lang.Commenter
+
+class HaskellCommenter: Commenter {
+    override fun getLineCommentPrefix(): String {
+        return "--"
+    }
+
+    override fun getBlockCommentPrefix(): String {
+        return "{-"
+    }
+
+    override fun getBlockCommentSuffix(): String {
+        return "-}"
+    }
+
+    override fun getCommentedBlockCommentPrefix(): String {
+        return "{-"
+    }
+
+    override fun getCommentedBlockCommentSuffix(): String {
+        return "-}"
+    }
+
+}

src/main/resources/META-INF/plugin.xml

@@ -13,6 +13,11 @@
     </description>
 
     <change-notes><![CDATA[
+    <h3>1.4.0</h3>
+    <ul>
+        <li>Enable LSP structure view</li>
+        <li>Implement commenter</li>
+    </ul>
     <h3>1.3.5</h3>
     <ul>
         <li>Update LSP4IJ to 0.8</li>
@@ -71,6 +76,8 @@
                 language="Haskell"
                 extensions="hs">
         </fileType>
+        <lang.commenter language="Haskell"
+                         implementationClass="boo.fox.haskelllsp.language.HaskellCommenter"/>
         <internalFileTemplate name="Haskell File"/>
         <lang.parserDefinition language="Haskell"
                                implementationClass="boo.fox.haskelllsp.language.HaskellParserDefinition"/>
@@ -82,6 +89,8 @@
         <codeInsight.parameterInfo
                 language="Haskell"
                 implementationClass="com.redhat.devtools.lsp4ij.features.signatureHelp.LSPParameterInfoHandler"/>
+        <lang.psiStructureViewFactory language="Haskell"
+                                      implementationClass="com.redhat.devtools.lsp4ij.features.documentSymbol.LSPDocumentSymbolStructureViewFactory"/>
         <notificationGroup id="Haskell LSP"
                            displayType="BALLOON"/>
     </extensions>