From f76a4f1eb665e223be19f200336409a3de48f5bb Mon Sep 17 00:00:00 2001 From: Gustaf Rydholm Date: Mon, 4 Apr 2022 22:35:15 +0200 Subject: feat(comment): add fnl config --- fnl/config/ncomment.fnl | 26 ++++++++++++++++++++++++++ 1 file changed, 26 insertions(+) create mode 100644 fnl/config/ncomment.fnl 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))}))) -- cgit v1.2.3-70-g09d2