feat(comment): add fnl config

1 files changed, 26 insertions, 0 deletions

diff --git a/fnl/config/ncomment.fnl b/fnl/config/ncomment.fnl
new file mode 100644
index 0000000..68d4c97
--- /dev/null
+++ b/fnl/config/ncomment.fnl
@@ -0,0 +1,26 @@
+;; Language aware commenting.
+(module config.ncomment
+  {autoload {util util}})
+
+
+(defn- get-type [ctx U]
+  (or (and (= ctx.ctype U.ctype.line) :__default) :__multiline))
+
+(defn- get-location [ctx U]
+  (if (= ctx.ctype U.ctype.block)
+    ((require :ts_context_commentstring.utils).get_cursor_location)
+    (or (= ctx.motion U.motion.v) (= ctx.motion U.cmotion.V))
+    ((require :ts_context_commentstring.utils).get_visual_start_location)
+    (nil)))
+
+(defn- pre-hook [ctx]
+  (let [U (require :Comment.utils)]
+    ((require :ts_context_commentstring.internal).calculate_commentstring {
+        :key (get-type ctx U)
+        :location (get-location ctx U)})))
+
+(let [(ok? ncomment) util.load-plugin :Comment]
+  (when ok?
+    (ncomment.setup 
+      {:pre_hook (fn [ctx]
+                     (pre-hook ctx))})))