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

some testing of paredit of clojure in org and md files

Browse Source
This commit is contained in:
Proctor
2022-12-22 21:44:03 -06:00
parent f58001e2ec
commit 5c2859dac6
1 changed files with 32 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -11,6 +11,14 @@
(defn bool->int [bool] (if bool 1 0)) (defn bool->int [bool] (if bool 1 0))
(defn int->bool [x] (if (= 0 x) false true))
(defn toggle-global! [x] (->> (a.get nvim.g x)
(int->bool)
(not)
(bool->int)
(tset nvim.g x)))
(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) current-node (ts-utils.get_node_at_cursor)
range (if current-node [(current-node:range)]) range (if current-node [(current-node:range)])
@@ -53,9 +61,27 @@
; (nvim.del_augroup_by_name "BabeliteParedit") ; (nvim.del_augroup_by_name "BabeliteParedit")
; (nvim.get_autocmds {:group "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
; ;:pattern ["*.org" "*.md"] ;; ;:pattern ["*.org" "*.md"]
; :callback TreeSitterLangParedit})) ;; :callback TreeSitterLangParedit}))
; ;;
;; (defn paredit-toggle! [] (toggle-global :paredit_mode)
;; (nvim.fn.PareditInitBuffer)
;; nvim.g.paredit_mode
;; )
;;
;; \
;; (int->bool 0)
;; (defn test [x] (a.get nvim.g x))
;;
;; (test :pareditmode)
;; (a.get nvim.g :paredit_mode)
;; (comment ;
;; nvim.g.paredit_mode
;; ;
;;
;; (paredit-toggle!)
;; )