proctor/dotfiles
1
0
Fork 0
mirror of https://github.com/stevenproctor/dotfiles.git synced 2026-01-28 08:39:56 -06:00
Code Issues Packages Projects Releases Wiki Activity

paredit.fnl formatting

Browse Source
This commit is contained in:
Proctor
2022-10-20 19:20:36 -05:00
parent 94c07708b6
commit f0fdde8b8b
1 changed files with 46 additions and 61 deletions
Download Patch File Download Diff File Expand all files Collapse all files

53
nvim/.config/nvim/fnl/dotfiles/plugin/paredit.fnl
View File

@@ -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]
(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)
(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)])
range (if current-node [(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 []
(let [parser (ts-parsers.get_parser)]
(defn parser-language [] (let [parser (ts-parsers.get_parser)]
(when parser
(parser:lang))))
(def- paredit-langs
[
:clojure
(def- paredit-langs [:clojure
:fennel
:hy
:janet
@@ -40,21 +33,13 @@
:lisp
:racket
:scheme
:shen
])
: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)
@@ -68,9 +53,9 @@
; (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}))
;