diff options
Diffstat (limited to 'fnl/config/comment.fnl')
| -rw-r--r-- | fnl/config/comment.fnl | 36 |
1 files changed, 15 insertions, 21 deletions
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))})) |