From f845a7b0588559750b1cb7eede1b3aecb450cdfe Mon Sep 17 00:00:00 2001 From: Gustaf Rydholm Date: Sun, 1 May 2022 23:06:03 +0200 Subject: style: fmt with fnlfmt --- fnl/config/comment.fnl | 36 +++++++++++++++--------------------- 1 file changed, 15 insertions(+), 21 deletions(-) (limited to 'fnl/config/comment.fnl') diff --git a/fnl/config/comment.fnl b/fnl/config/comment.fnl index 92df966..78eaa7d 100644 --- a/fnl/config/comment.fnl +++ b/fnl/config/comment.fnl @@ -1,28 +1,22 @@ ;; Language aware commenting. -(module config.comment - {autoload {util util}}) +(module config.comment {autoload {util util}}) -(defn- get-type [ctx U] - (if (= ctx.ctype U.ctype.line) - :__default - :__multiline)) +(defn- get-type [ctx U] (if (= ctx.ctype U.ctype.line) :__default :__multiline)) -(defn- get-location [ctx U] - (let [utils (require :ts_context_commentstring.utils)] - (if (= ctx.ctype U.ctype.block) - (utils.get_cursor_location) - (or (= ctx.cmotion U.cmotion.v) (= ctx.cmotion U.cmotion.V)) - (utils.get_visual_start_location) - nil))) +(defn- get-location [ctx U] (let [utils (require :ts_context_commentstring.utils)] + (if (= ctx.ctype U.ctype.block) + (utils.get_cursor_location) + (or (= ctx.cmotion U.cmotion.v) + (= ctx.cmotion U.cmotion.V)) + (utils.get_visual_start_location) + nil))) (defn- pre-hook [ctx] - (let [U (require :Comment.utils) - internal (require :ts_context_commentstring.internal)] - (internal.calculate_commentstring - {:key (get-type ctx U) - :location (get-location ctx U)}))) + (let [U (require :Comment.utils) + internal (require :ts_context_commentstring.internal)] + (internal.calculate_commentstring {:key (get-type ctx U) + :location (get-location ctx U)}))) (let [nvim-comment (util.load-plugin :Comment)] - (nvim-comment.setup - {:pre_hook (fn [ctx] - (pre-hook ctx))})) + (nvim-comment.setup {:pre_hook (fn [ctx] + (pre-hook ctx))})) -- cgit v1.2.3-70-g09d2