From f0fdde8b8b26ba75d8c2a66c298e75b274c46615 Mon Sep 17 00:00:00 2001
From: Proctor <steven.proctor@gmail.com>
Date: Thu, 20 Oct 2022 19:20:36 -0500
Subject: [PATCH] paredit.fnl formatting

---
 .../nvim/fnl/dotfiles/plugin/paredit.fnl      | 107 ++++++++----------
 1 file changed, 46 insertions(+), 61 deletions(-)

diff --git a/nvim/.config/nvim/fnl/dotfiles/plugin/paredit.fnl b/nvim/.config/nvim/fnl/dotfiles/plugin/paredit.fnl
index 402f45c..e0e2333 100644
--- a/nvim/.config/nvim/fnl/dotfiles/plugin/paredit.fnl
+++ b/nvim/.config/nvim/fnl/dotfiles/plugin/paredit.fnl
@@ -1,76 +1,61 @@
 (module dotfiles.plugin.paredit
-  {autoload {nvim aniseed.nvim
-             a aniseed.core
-             nu aniseed.nvim.util
-             paredit paredit
-             ts-parsers nvim-treesitter.parsers
-             ts-utils nvim-treesitter.ts_utils
-             languagetree vim.treesitter.languagetree
-             }})
+        {autoload {nvim aniseed.nvim
+                   a aniseed.core
+                   nu aniseed.nvim.util
+                   paredit paredit
+                   ts-parsers nvim-treesitter.parsers
+                   ts-utils nvim-treesitter.ts_utils
+                   languagetree vim.treesitter.languagetree}})
 
-(defn list-member? [xs x]
-  (a.some #(= x $1) (a.vals xs)))
+(defn list-member? [xs x] (a.some #(= x $1) (a.vals xs)))
 
-(defn bool->int [bool]
-  (if bool 1 0))
+(defn bool->int [bool] (if bool 1 0))
 
-(defn language-at-cursor []
-  (let [parser (ts-parsers.get_parser)
-        current-node (ts-utils.get_node_at_cursor)
-        range (if current-node
-                [(current-node:range)])
-        lang (if range
-               (languagetree.language_for_range parser range))]
-    (if lang
-      (lang:lang))))
+(defn language-at-cursor [] (let [parser (ts-parsers.get_parser)
+                                  current-node (ts-utils.get_node_at_cursor)
+                                  range (if current-node [(current-node:range)])
+                                  lang (if range
+                                           (languagetree.language_for_range parser
+                                                                            range))]
+                              (if lang
+                                  (lang:lang))))
 
-(defn parser-language []
-  (let [parser (ts-parsers.get_parser)]
-    (when parser
-      (parser:lang))))
+(defn parser-language [] (let [parser (ts-parsers.get_parser)]
+                           (when parser
+                             (parser:lang))))
 
-(def- paredit-langs
-  [
-   :clojure
-   :fennel
-   :hy
-   :janet
-   :julia
-   :lfe
-   :lisp
-   :racket
-   :scheme
-   :shen
-   ])
+(def- paredit-langs [:clojure
+                     :fennel
+                     :hy
+                     :janet
+                     :julia
+                     :lfe
+                     :lisp
+                     :racket
+                     :scheme
+                     :shen])
 
-(def- paredit-host-langs
-  [
-   :org
-   :markdown
-   :asciidoc
-   ])
+(def- paredit-host-langs [:org :markdown :asciidoc])
 
-(defn- host-lang-in? [langs]
-  (list-member? langs (parser-language)))
+(defn- host-lang-in? [langs] (list-member? langs (parser-language)))
 
-(defn paredit-lang? [lang]
-  (list-member? paredit-langs lang))
+(defn paredit-lang? [lang] (list-member? paredit-langs lang))
 
 (defn TreeSitterLangParedit []
-  (when (host-lang-in? paredit-host-langs)
-    (when-let [cursor-lang (language-at-cursor)]
-      (->> cursor-lang
-           (paredit-lang?)
-           (bool->int)
-           (set nvim.g.paredit_mode))
-      (nvim.fn.PareditInitBuffer))))
+      (when (host-lang-in? paredit-host-langs)
+        (when-let [cursor-lang (language-at-cursor)]
+                  (->> cursor-lang
+                       (paredit-lang?)
+                       (bool->int)
+                       (set nvim.g.paredit_mode))
+                  (nvim.fn.PareditInitBuffer))))
 
 ; (nvim.del_augroup_by_name "BabeliteParedit")
 ; (nvim.get_autocmds {:group "BabeliteParedit"})
 
-(let [group (nvim.create_augroup "BabeliteParedit" {:clear true})]
-  (nvim.create_autocmd ["CursorHold" "CursorMoved"]
-                       {:group group
-                        ;:pattern ["*.org" "*.md"]
-                        :callback TreeSitterLangParedit}))
-
+; (let [group (nvim.create_augroup "BabeliteParedit" {:clear true})]
+;   (nvim.create_autocmd ["CursorHold" "CursorMoved"]
+;                        {:group group
+;                         ;:pattern ["*.org" "*.md"]
+;                         :callback TreeSitterLangParedit}))
+;