nvim - more migration to pure fennel away from aniseed

nvim/.config/nvim/fnl/dotfiles/conceal.fnl

@@ -55,4 +55,4 @@
   (vim.api.nvim_create_autocmd [:FileType]
                                {:pattern ftype :callback setup-conceals}))
 
-{}
+{: setup-conceals}

nvim/.config/nvim/fnl/dotfiles/plugin/fugitive.fnl

@@ -1,10 +1,13 @@
-(module dotfiles.plugin.fugitive
+(local util (require :dotfiles.util))
-  {autoload {nvim aniseed.nvim
-             nu aniseed.nvim.util
-             core aniseed.core
-             util dotfiles.util}})
-
 ;; Determine load time of fugitive
-(nvim.ex.autocmd :FileType :fugitive :nmap :<buffer> :<leader>gp ":Git pull<CR>")
+;; (vim.api.nvim_create_autocmd [:FileType] {:pattern ftype :callback setup-conceals})
-(nvim.ex.autocmd :FileType :fugitive :nmap :<buffer> :<leader>gP ":Git push<CR>" )
+
-(nvim.ex.autocmd :FileType :fugitive :nmap :<buffer> :<leader>gF ":Git push -f<CR>" )
+(fn bufmap [mode from to] (util.noremap mode from to {:local? true}))
+
+(fn map-fugitive-keys []
+  (bufmap :n :<leader>gp ":Git pull<CR>"  )
+  (bufmap :n :<leader>gP ":Git push<CR>")
+  (bufmap :n :<leader>gF ":Git push -f<CR>"))
+
+(vim.api.nvim_create_autocmd [:FileType]
+                               {:pattern :fugitive :callback map-fugitive-keys})

nvim/.config/nvim/fnl/dotfiles/plugin/lspconfig.fnl

@@ -1,10 +1,8 @@
-(module dotfiles.plugin.lspconfig
+(local a (require :aniseed.core))
-        {autoload {a aniseed.core
+(local u (require :dotfiles.util))
-                   u dotfiles.util
+(local lsp (require :vim.lsp))
-                   nvim aniseed.nvim
+(local lspconfig (require :lspconfig))
-                   lsp vim.lsp
+(local cmp_nvim_lsp (require :cmp_nvim_lsp))
-                   lspconfig lspconfig
-                   cmp_nvim_lsp cmp_nvim_lsp}})
 
 (fn bufmap [mode from to] (u.noremap mode from to {:local? true}))
 
@@ -110,11 +108,12 @@
   ; --   buf_set_keymap('n', '<leader>q', '<cmd>lua vim.lsp.diagnostic.set_loclist()<CR>', opts)
   ; --   buf_set_keymap('n', '<leader>ic', "<cmd>lua vim.lsp.buf.incoming_calls()<CR>", opts)
   ; --   buf_set_keymap('x', '<leader>ic', "<cmd>lua vim.lsp.buf.incoming_calls()<CR>", opts)
-  (nvim.buf_set_option 0 :omnifunc "v:lua.vim.lsp.omnifunc")
+  (vim.api.nvim_set_option_value :omnifunc "v:lua.vim.lsp.omnifunc" {:buf 0})
   (bind-client-mappings client)
   (if client.server_capabilities.documentFormattingProvider
-      (nvim.ex.autocmd :BufWritePre :<buffer> ":lua vim.lsp.buf.format()")) ;  (nvim.ex.autocmd "BufEnter,CursorHold,InsertLeave" :<buffer> :lua "vim.lsp.codelens.refresh()")
+      (vim.api.nvim_create_autocmd [:BufWritePre]
-  ; client autocmds ;  -- vim.api.nvim_command[[autocmd BufWritePre <buffer> lua vim.lsp.buf_request_sync(vim.api.nvim_get_current_buf(), 'workspace/executeCommand', {command = 'clean-ns', arguments = {vim.uri_from_bufnr(1), vim.api.nvim_win_get_cursor(0)[1], vim.api.nvim_win_get_cursor(0)[2]}, title = 'Clean Namespace'})]]
+                                   {:pattern :<buffer>
+                                    :callback (lambda [] (vim.lsp.buf.format))}))
   (print "LSP Client Attached."))
 
 (local base-server-opts
@@ -124,7 +123,7 @@
 (fn default-server-handler [server-name]
   (let [specific-opts (a.get server-specific-opts server-name {})
         server (a.get lspconfig server-name)
-        server-opts (a.merge base-server-opts server-opts)]
+        server-opts (a.merge base-server-opts specific-opts)]
     (server.setup server-opts)))
 
 (fn lsp-execute-command [cmd ...]
@@ -139,3 +138,10 @@
 (u.nnoremap :<leader>li :LspInfo)
 
 (vim.api.nvim_create_user_command :LspExecuteCommand lsp-execute-command {})
+
+; (let [mason-lspconfig (require :mason-lspconfig)]
+;   (when mason-lspconfig
+;     (mason-lspconfig.setup)
+;     (mason-lspconfig.setup_handlers [default-server-handler])))
+
+{: on_attach : default-server-handler}

nvim/.config/nvim/fnl/dotfiles/plugin/mason.fnl

@@ -1,12 +1,14 @@
+(local mason (require :mason))
+(local mason-lspconf (require :mason-lspconfig) )
+(local lspconfig (require :dotfiles.plugin.lspconfig))
+
+(local a (require :aniseed.core))
+
 (fn setup []
-  (let [mason (require :mason)
-        mason-lspconf (require :mason-lspconfig)
-        lspconfig (require :dotfiles.plugin.lspconfig)]
-    (when mason
     (mason.setup {:ui {:icons {:package_installed "✓"}}})
     (when mason-lspconf
       (mason-lspconf.setup {:ensure_installed [:lua_ls]})
-        (mason-lspconf.setup_handlers {1 lspconfig.default-server-handler})))))
+      (mason-lspconf.setup_handlers [lspconfig.default-server-handler])))
 
 (setup)
 ;; (mason.setup)

nvim/.config/nvim/fnl/dotfiles/plugin/orgbullets.fnl

@@ -1,6 +1,5 @@
-(module dotfiles.plugin.orgbullets {autoload {nvim aniseed.nvim}})
-
 (local core (require :aniseed.core))
+(local conceal (require :dotfiles.conceal))
 (local ts-utils (require :dotfiles.ts-utils))
 (local stars ["◉" "⦾" "○" "✸" "✿" "✶" "•" "‣"])
 
@@ -37,12 +36,10 @@
                                          :virt_text_pos :overlay
                                          :hl_mode :combine}))))))
 
-(let [group (nvim.create_augroup :HeaderStars {:clear true})]
+(let [group (vim.api.nvim_create_augroup :HeaderStars {:clear true})]
-  (nvim.create_autocmd [:FileChangedShellPost
+  (vim.api.nvim_create_autocmd [:FileChangedShellPost
                                 :Syntax
                                 :TextChanged
                                 :InsertLeave
                                 :WinScrolled]
-                       {: group
+                               {: group :callback conceal.setup-conceals}))
-                        ;; :pattern [:*.org]
-                        :callback gen-star-extmarks}))

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

@@ -1,11 +1,8 @@
-(module dotfiles.plugin.paredit
-        {autoload {nvim aniseed.nvim
-                   paredit paredit
-                   ts-parsers nvim-treesitter.parsers
-                   ts-utils nvim-treesitter.ts_utils
-                   languagetree vim.treesitter.languagetree}})
-
 (local a (require :aniseed.core))
+(local treesitter (require :dotfiles.plugin.treesitter))
+(local ts-parsers (require :nvim-treesitter.parsers))
+(local ts-utils (require :nvim-treesitter.ts_utils))
+(local languagetree (require :vim.treesitter.languagetree))
 
 (set vim.g.paredit_smartjump 1)
 
@@ -60,42 +57,15 @@
               (->> cursor-lang
                    (paredit-lang?)
                    (bool->int)
-                   (set nvim.g.paredit_mode))
+                   (set vim.g.paredit_mode))
-              (nvim.fn.PareditInitBuffer))))
+              (vim.fn.PareditInitBuffer))))
 
-(nvim.ex.autocmd :FileType :ruby :call
+(vim.api.nvim_create_autocmd [:FileType]
-                 "PareditInitBalancingAllBracketsBuffer()")
+                             {:pattern :ruby :callback (lambda [] (vim.fn.PareditInitBalancingAllBracketsBuffer))})
 
-(nvim.ex.autocmd :FileType :javascript :call
+(vim.api.nvim_create_autocmd [:FileType]
-                 "PareditInitBalancingAllBracketsBuffer()")
+                             {:pattern :javascript :callback (lambda [] (vim.fn.PareditInitBalancingAllBracketsBuffer))})
 
-(nvim.ex.autocmd :FileType :terraform :call
+(vim.api.nvim_create_autocmd [:FileType]
-                 "PareditInitBalancingAllBracketsBuffer()")
+                             {:pattern terraform :callback (lambda [] ( vim.fn.PareditInitBalancingAllBracketsBuffer))})
 
-; (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
-;;                        ;:pattern ["*.org" "*.md"]
-;;                        :callback TreeSitterLangParedit}))
-;;
-
-;; (fn paredit-toggle! [] (toggle-global :paredit_mode)
-;;       (nvim.fn.PareditInitBuffer)
-;; nvim.g.paredit_mode
-;;       )
-;; 
-;; \
-;; (int->bool 0)
-;; (fn test [x] (a.get nvim.g x))
-;; 
-;; (test :pareditmode)
-;; (a.get nvim.g :paredit_mode)
-;; (comment ;
-;;   nvim.g.paredit_mode
-;;   ;
-;; 
-;;   (paredit-toggle!)
-;;   )

nvim/.config/nvim/fnl/dotfiles/plugins.fnl

@@ -47,7 +47,8 @@
                  :nvimtools/none-ls.nvim {:mod :null-ls
                                           :requires [:nvim-lua/plenary.nvim]}
                  :junegunn/vim-easy-align {:mod :easyalign}
-                 :kovisoft/paredit {:mod :paredit}
+                 :kovisoft/paredit {:mod :paredit
+                                    :require [:nvim-treesitter/nvim-treesitter] }
                  :kristijanhusak/vim-dadbod-completion {}
                  :kristijanhusak/vim-dadbod-ui {}
                  :L3MON4D3/LuaSnip {:mod :luasnip}
@@ -86,7 +87,8 @@
                  :wbthomason/packer.nvim {:mod :packer}
                  ;; :williamboman/nvim-lsp-installbuilder {}
                  :williamboman/mason.nvim {:mod :mason
-                                           :requires [:williamboman/mason-lspconfig.nvim]}
+                                           :requires [:williamboman/mason-lspconfig.nvim
+                                                      :neovim/nvim-lspconfig]}
                  ; NeoVim lsp server installs
                  ; :p00f/nvim-ts-rainbow {}
                  ; :luochen1990/rainbow {}

nvim/.config/nvim/fnl/dotfiles/terraform-helpers.fnl

@@ -1,16 +1,14 @@
-(module dotfiles.terraform-helpers {require {nvim aniseed.nvim}})
-
 (fn append-to-buf [bufno lines]
   (when lines
-    (nvim.buf_set_lines buffno -1 -1 false lines)))
+    (vim.aip.nvim_buf_set_lines bufno -1 -1 false lines)))
 
 (var tf-log-bufno nil)
 
-(fn terraform-import []
+;; (fn terraform-import []
-  (vim.fn.jobstart [:terraform :import :-no-color address id]
+;;   (vim.fn.jobstart [:terraform :import :-no-color address id]
-                   {:stdout_buffered true
+;;                    {:stdout_buffered true
-                    :on_stdout (fn [_ data]
+;;                     :on_stdout (fn [_ data]
-                                 (append-to-buf bufno data))}))
+;;                                  (append-to-buf tf-log-bufno data))}))
-
+;; 
 ; (nu.fn-bridge :ZoomToggle :dotfiles.zoom-toggle :zoom-toggle {:return false})
 ; (u.nnoremap :<C-W>z ":call ZoomToggle()<CR>")