From 4ca15d0aa017119670ae454d69911e1ee0e55131 Mon Sep 17 00:00:00 2001 From: aktersnurra Date: Sat, 23 Apr 2022 21:22:44 +0200 Subject: style: format --- fnl/config/ncomment.fnl | 30 +++++++++++++++--------------- 1 file changed, 15 insertions(+), 15 deletions(-) (limited to 'fnl/config/ncomment.fnl') diff --git a/fnl/config/ncomment.fnl b/fnl/config/ncomment.fnl index 3d0b1b6..2da59c6 100644 --- a/fnl/config/ncomment.fnl +++ b/fnl/config/ncomment.fnl @@ -1,23 +1,23 @@ ;; 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-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- get-location [ctx U] + (if (= ctx.ctype U.ctype.block) + ((require :ts_context_commentstring.utils).get_cursor_location) + (or (= ctx.cmotion U.motion.v) (= ctx.cmotion 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 [U (require :Comment.utils)] + ((require :ts_context_commentstring.internal).calculate_commentstring + {:key (get-type ctx U) + :location (get-location ctx U)}))) (let [ncomment (util.load-plugin :Comment)] - (ncomment.setup {:pre_hook (fn [ctx] - (pre-hook ctx))})) + (ncomment.setup + {:pre_hook (fn [ctx] + (pre-hook ctx))})) -- cgit v1.2.3-70-g09d2