paredit.fnl formatting

nvim/.config/nvim/fnl/dotfiles/plugin/paredit.fnl

@@ -5,33 +5,26 @@
                    paredit paredit
                    ts-parsers nvim-treesitter.parsers
                    ts-utils nvim-treesitter.ts_utils
-             languagetree vim.treesitter.languagetree
+                   languagetree vim.treesitter.languagetree}})
-             }})
 
-(defn list-member? [xs x]
+(defn list-member? [xs x] (a.some #(= x $1) (a.vals xs)))
-  (a.some #(= x $1) (a.vals xs)))
 
-(defn bool->int [bool]
+(defn bool->int [bool] (if bool 1 0))
-  (if bool 1 0))
 
-(defn language-at-cursor []
+(defn language-at-cursor [] (let [parser (ts-parsers.get_parser)
-  (let [parser (ts-parsers.get_parser)
                                   current-node (ts-utils.get_node_at_cursor)
-        range (if current-node
+                                  range (if current-node [(current-node:range)])
-                [(current-node:range)])
                                   lang (if range
-               (languagetree.language_for_range parser range))]
+                                           (languagetree.language_for_range parser
+                                                                            range))]
                               (if lang
                                   (lang:lang))))
 
-(defn parser-language []
+(defn parser-language [] (let [parser (ts-parsers.get_parser)]
-  (let [parser (ts-parsers.get_parser)]
                            (when parser
                              (parser:lang))))
 
-(def- paredit-langs
+(def- paredit-langs [:clojure
-  [
-   :clojure
                      :fennel
                      :hy
                      :janet
@@ -40,21 +33,13 @@
                      :lisp
                      :racket
                      :scheme
-   :shen
+                     :shen])
-   ])
 
-(def- paredit-host-langs
+(def- paredit-host-langs [:org :markdown :asciidoc])
-  [
-   :org
-   :markdown
-   :asciidoc
-   ])
 
-(defn- host-lang-in? [langs]
+(defn- host-lang-in? [langs] (list-member? langs (parser-language)))
-  (list-member? langs (parser-language)))
 
-(defn paredit-lang? [lang]
+(defn paredit-lang? [lang] (list-member? paredit-langs lang))
-  (list-member? paredit-langs lang))
 
 (defn TreeSitterLangParedit []
       (when (host-lang-in? paredit-host-langs)
@@ -68,9 +53,9 @@
 ; (nvim.del_augroup_by_name "BabeliteParedit")
 ; (nvim.get_autocmds {:group "BabeliteParedit"})
 
-(let [group (nvim.create_augroup "BabeliteParedit" {:clear true})]
+; (let [group (nvim.create_augroup "BabeliteParedit" {:clear true})]
-  (nvim.create_autocmd ["CursorHold" "CursorMoved"]
+;   (nvim.create_autocmd ["CursorHold" "CursorMoved"]
-                       {:group group
+;                        {:group group
-                        ;:pattern ["*.org" "*.md"]
+;                         ;:pattern ["*.org" "*.md"]
-                        :callback TreeSitterLangParedit}))
+;                         :callback TreeSitterLangParedit}))
-
+;