summaryrefslogtreecommitdiff
path: root/fnl
diff options
context:
space:
mode:
Diffstat (limited to 'fnl')
-rw-r--r--fnl/config/ncomment.fnl26
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))})))