nvim - add table macro

also add reference hover/styling support

.gitignore

@@ -1 +0,0 @@
-nvim/.config/nvim/lua/*

nvim/.config/nvim/.nfnl.fnl

@@ -0,0 +1 @@
+{}

nvim/.config/nvim/fnl/config/macros.fnl

@@ -0,0 +1,14 @@
+;; [nfnl-macro]
+
+(fn tx [& args]
+  "Mixed sequential and associative tables at compile time. Because the Neovim ecosystem loves them but Fennel has no neat way to express them (which I think is fine, I don't like the idea of them in general)."
+  (let [to-merge (when (table? (. args (length args)))
+                   (table.remove args))]
+    (if to-merge
+        (do
+          (each [key value (pairs to-merge)]
+            (tset args key value))
+          args)
+        args)))
+
+{: tx}

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/core.fnl

@@ -1,28 +1,23 @@
-(module dotfiles.core
+(local a (require :nfnl.core))
-        {autoload {a aniseed.core}
-         require {anenv aniseed.env nvim aniseed.nvim}})
-
 (local u (require :dotfiles.util))
 
-(nvim.ex.set :shortmess+=c)
+(vim.cmd.set :shortmess+=c)
 
 ; don't give |ins-completion-menu| messages.
-(nvim.ex.set :path+=**)
+(vim.cmd.set :path+=**)
-(nvim.ex.set "wildignore+=*.o,*.obj,.git,*.rbc,*.class,.svn,vendor/gems/*")
+(vim.cmd.set "wildignore+=*.o,*.obj,.git,*.rbc,*.class,.svn,vendor/gems/*")
 
-(defn- safe-source
+(fn safe-source [filename]
-  [filename]
+  (let [glob (vim.fn.glob filename)]
-  (let [glob (nvim.fn.glob filename)]
     (if (not (a.empty? glob))
-        (nvim.ex.source filename))))
+        (vim.fn.source filename))))
 
 ; (a.map safe-source ["~/.vimrc" "~/.vimrc.local"])
 
-(def- backup-dir (.. (nvim.fn.glob :$HOME) :/.vim/backup))
+(local backup-dir (.. (vim.fn.glob :$HOME) :/.vim/backup))
-(def- undo-dir (.. (nvim.fn.glob :$HOME) :/.vim/backup))
+(local undo-dir (.. (vim.fn.glob :$HOME) :/.vim/backup))
 
-(def- on-opts
+(local on-opts [:autoindent
-  [:autoindent
                 :autoread
                 :expandtab
                 :exrc
@@ -46,8 +41,7 @@
                 :undofile
                 :wildmenu])
 
-(def- val-based-opts
+(local val-based-opts {; :t_Co 256
-  {; :t_Co 256
                        :laststatus 2
                        :encoding :utf-8
                        :history 500
@@ -86,16 +80,15 @@
                        :wildmode "list:longest,list:full"
                        :wrap false})
 
-(def- append-val-opts {:diffopt "algorithm:patience"})
+(local append-val-opts {:diffopt "algorithm:patience"})
 
-(defn- set-opt [[opt val]] (tset vim.opt (a.str opt) val))
+(fn set-opt [[opt val]] (tset vim.opt (a.str opt) val))
 
-(defn- set-opt+
+(fn set-opt+ [[opt val]]
-  [[opt val]]
+  (let [existing-opt-val (a.get vim.o opt)]
-  (let [existing-opt-val (a.get nvim.o opt)]
     (tset vim.opt (a.str opt) (a.str existing-opt-val "," val))))
 
-(defn- set-opt-on [opt] (set-opt [opt true]))
+(fn set-opt-on [opt] (set-opt [opt true]))
 
 (a.map set-opt-on on-opts)
 
@@ -103,12 +96,17 @@
 
 (a.map-indexed set-opt+ append-val-opts)
 
-(nvim.ex.syntax :on)
+(vim.cmd.syntax :on)
 ;; (nvim.ex.colorscheme :soluarized)
-(nvim.ex.colorscheme :solarized8)
+(vim.cmd.colorscheme :solarized8)
 
 ;; (nvim.ex.autocmd "vimenter" "*" "++nested" "colorscheme" "soluarized")
-(nvim.ex.autocmd :vimenter "*" :++nested :colorscheme :solarized8)
+
+(vim.api.nvim_create_autocmd [:vimenter]
+                             {:pattern "*"
+                              :command "colorscheme solarized8"
+                              :nested true})
+
 ;(nvim.ex.autocmd "vimenter" "*"  "luafile" "treesitter.lua")
 ;
 ; (nvim.fn.glob "~/.vimrc.local")
@@ -119,8 +117,3 @@
 (vim.api.nvim_create_user_command :FennelScratchBuffer make-fennel-scratch {})
 
 (u.nnoremap :<leader>fsb ":call FennelScratchBuffer ()<CR>")
-
-(fn compile-fnl [] (print :recompiling)
-  (anenv.init {:force true :init :dotfiles.init}))
-
-(vim.api.nvim_create_user_command :AniseedCompile compile-fnl {})

nvim/.config/nvim/fnl/dotfiles/init.fnl

@@ -1,10 +1,17 @@
-(module dotfiles.init
+(local a (require :nfnl.core))
-  {autoload
+(local str (require :nfnl.string))
-   {a aniseed.core}
+(local fs (require :nfnl.fs))
-   require
-   {nvim aniseed.nvim}})
 
+(fn require-all []
+  (let [require-exclusions (a.->set [:init])]
+    (->> (fs.relglob :fnl/dotfiles :*.fnl)
+         (a.map #(a.first (str.split $ :.fnl)))
+         (a.filter #(not (a.contains? require-exclusions $)))
+         (a.map #(.. :dotfiles. $))
+         ;(a.map #(require $))
+         )))
 
+;; (require-all)
 (require :dotfiles.core)
 (require :dotfiles.plugins)
 (require :dotfiles.mapping)
@@ -12,5 +19,4 @@
 (require :dotfiles.zoom-toggle)
 
 ;(nvim.ex.source "~/.vimrc")
-
 (a.println "(re)loaded")

nvim/.config/nvim/fnl/dotfiles/mapping.fnl

@@ -1,25 +1,19 @@
-(module dotfiles.mapping
+(local util (require :dotfiles.util))
-        {autoload {nvim aniseed.nvim
+(local nfnl (require :nfnl.api))
-                   nu aniseed.nvim.util
-                   core aniseed.core
-                   util dotfiles.util}})
 
-(defn- noremap [mode from to] "Sets a mapping with {:noremap true}."
+
-       (nvim.set_keymap mode from to {:noremap true}))
+(fn noremap [mode from to]
+  "Sets a mapping with {:noremap true}."
+  (vim.keymap.set mode from to {:noremap true}))
 
 ; (set nvim.g.mapleader "\\")
 
-(defn aniseed-reload []
+(vim.keymap.set :n "<leader>`"
-      (each [k _ (ipairs package.loaded)]
+                (fn []
-        (when (string.match k "^dotfiles%..+")
+                  (nfnl.compile-all-files (vim.fn.stdpath :config))
-          (tset package.loaded k nil)))
+                  (vim.cmd.source (.. (vim.fn.stdpath :config) :/init.lua))))
-      ((. (require :aniseed.env) :init) {:module :dotfiles.init :compile true})
-      (core.println "aniseed reloaded!"))
-
-(vim.keymap.set :n "<leader>`" aniseed-reload)
 
 ; (noremap :n "<leader>`" ":source ~/.config/nvim/init.lua<CR>")
-(noremap :n :<leader>! ":call AniseedCompile()<CR>")
 
 (noremap :n :<Enter> ":nohlsearch<Enter>/<BS>")
 
@@ -67,7 +61,10 @@
 (noremap :n :<leader>mv ":AsyncRun -mode=bang open -a Marked\\ 2.app '%:p'<cr>")
 
 ; Run current statement in DadBod-UI
-(nvim.ex.autocmd :FileType :sql :nmap :<leader>s :vap<leader>S)
+;; (nvim.ex.autocmd :FileType :sql :nmap :<leader>s :vap<leader>S)
+(vim.api.nvim_create_autocmd [:FileType]
+                             {:pattern :sql
+                              :command "nmap <leader>s vap<leader>S"})
 
 (noremap :n :Q ":.!bash <CR>")
 
@@ -81,10 +78,11 @@
 ; Trim trailing Whitespace in current line
 (util.lnnoremap :tw "<C-U>.s/\\s\\+$//ge<CR>:nohlsearch<Enter>/<BS>")
 
-
 ;; <Leader><C-l> in terminal to clear scrollback buffer
 ;; nmap <silent> <leader><C-l> :set scrollback=1 \| set scrollback=100000<cr>
-(util.lnnoremap :<C-k> ":set scrollback=1 | :set scrollback 100000<cr>" {:silent true})
+(util.lnnoremap :<C-k> ":set scrollback=1 | :set scrollback 100000<cr>"
+                {:silent true})
+
 ;; tmap <silent> <leader><C-l> <C-\><C-n><leader><C-l>i
 (util.ltnoremap :<C-k> "<C-\\><C-n><leader><C-l>i" {:silent true})
 

nvim/.config/nvim/fnl/dotfiles/plugin/cmp.fnl

@@ -1,10 +1,9 @@
-(module dotfiles.plugin.cmp {autoload {nvim aniseed.nvim luasnip luasnip}})
+(local cmp (require :cmp))
+(local luasnip (require :luasnip))
 
-(module config.plugin.cmp {autoload {nvim aniseed.nvim cmp cmp}})
+(local cmp-src-menu-items {:buffer :buff :conjure :conj :nvim_lsp :lsp})
 
-(def- cmp-src-menu-items {:buffer :buff :conjure :conj :nvim_lsp :lsp})
+(local cmp-srcs [{:name :nvim_lsp}
-
-(def- cmp-srcs [{:name :nvim_lsp}
                  {:name :nvim_lua}
                  {:name :luasnip}
                  {:name :vsnip}

nvim/.config/nvim/fnl/dotfiles/plugin/colorizer.fnl

@@ -1,13 +1,18 @@
-(module dotfiles.plugin.colorizer
+(let [colorizer (require :colorizer)]
-  {autoload {colorizer colorizer}})
+  (colorizer.setup ["*"] {:RGB true
-
+                          ; #RGB hex codes, like #F00
-(colorizer.setup [:*]
+                          :RRGGBB true
-                  {:RGB      true ; #RGB hex codes, like #F00
+                          ; #RRGGBB hex codes, like #00FF00
-                   :RRGGBB   true ; #RRGGBB hex codes, like #00FF00
+                          :names true
-                   :names    true ; "Name" codes like Blue
+                          ; "Name" codes like Blue
-                   :RRGGBBAA true ; #RRGGBBAA hex codes
+                          :RRGGBBAA true
-                   :rgb_fn   true ; CSS rgb() and rgba() functions
+                          ; #RRGGBBAA hex codes
-                   :hsl_fn   true ; CSS hsl() and hsla() functions
+                          :rgb_fn true
-                   :css      true ; Enable all CSS features: rgb_fn, hsl_fn, names, RGB, RRGGBB
+                          ; CSS rgb() and rgba() functions
-                   :css_fn   true ; Enable all CSS *functions*: rgb_fn, hsl_fn
+                          :hsl_fn true
-                   })
+                          ; CSS hsl() and hsla() functions
+                          :css true
+                          ; Enable all CSS features: rgb_fn, hsl_fn, names, RGB, RRGGBB
+                          :css_fn true
+                          ; Enable all CSS *functions*: rgb_fn, hsl_fn
+                          }))

nvim/.config/nvim/fnl/dotfiles/plugin/compe.fnl

@@ -1,36 +0,0 @@
-(module dotfiles.plugin.compe
-  {autoload {nvim aniseed.nvim}})
-
-(set nvim.o.completeopt "menuone,noselect")
-
-(let [compe (require :compe)]
-  (when compe
-    (compe.setup
-      {:enabled true
-       :autocomplete true
-       :debug false
-       :min_length 1
-       :preselect "enable"
-       :throttle_time 80
-       :source_timeout 200
-       :incomplete_delay 400
-       :max_abbr_width 100
-       :max_kind_width 100
-       :max_menu_width 100
-       :documentation true
-       :source {:path true
-                :buffer true
-                :calc true
-                :emoji true
-                :nvim_lsp true
-                :nvim_lua true
-                :conjure true
-                :orgmode true
-                :vsnip true
-                :vim_dadbod_completion true}})))
-
-(nvim.ex.inoremap "<silent><expr> <C-Space> compe#complete()")
-(nvim.ex.inoremap "<silent><expr> <CR> compe#confirm('<CR>')")
-(nvim.ex.inoremap "<silent><expr> <C-e> compe#close('<C-e>')")
-(nvim.ex.inoremap "<silent><expr> <C-f> compe#scroll({ 'delta': +4 })")
-(nvim.ex.inoremap "<silent><expr> <C-d> compe#scroll({ 'delta': -4 })")

nvim/.config/nvim/fnl/dotfiles/plugin/conjure.fnl

@@ -1,13 +1,13 @@
-(module dotfiles.plugin.conjure
+(local core (require :nfnl.core))
-  {autoload {a aniseed.core
+(local conjure-config (require :conjure.config))
-             conjure-config conjure.config
-             nvim aniseed.nvim}})
 
 ; (set nvim.g.conjure#eval#result_register "*")
 ; (set nvim.g.conjure#log#botright true)
-(set nvim.g.conjure#mapping#doc_word "gk")
+(set vim.g.conjure#mapping#doc_word :gk)
-(set nvim.g.conjure#client#clojure#nrepl#mapping#session_clone :sC)
+(set vim.g.conjure#client#clojure#nrepl#mapping#session_clone :sC)
-(set nvim.g.conjure#extract#tree_sitter#enabled true)
+(set vim.g.conjure#extract#tree_sitter#enabled true)
 
-(conjure-config.assoc-in [:filetypes] (a.concat (conjure-config.filetypes) [:markdown] ))
+(conjure-config.assoc-in [:filetypes]
-(conjure-config.assoc-in [:filetype :markdown] "conjure.client.clojure.nrepl")
+                         (core.concat (conjure-config.filetypes) [:markdown]))
+
+(conjure-config.assoc-in [:filetype :markdown] :conjure.client.clojure.nrepl)

nvim/.config/nvim/fnl/dotfiles/plugin/dadbodui.fnl

@@ -1,4 +0,0 @@
-(module dotfiles.plugin.dadbodui
-  {autoload { nvim aniseed.nvim }})
-
-

nvim/.config/nvim/fnl/dotfiles/plugin/easyalign.fnl

@@ -1,5 +1,2 @@
-(module dotfiles.plugin.easyalign
+(let [util (require :dotfiles.util)]
-  {autoload {nvim aniseed.nvim
+  (util.noremap :v :<leader><bslash> :EasyAlign*<Bar>))
-             util dotfiles.util }})
-
-(util.noremap :v :<leader><bslash> "EasyAlign*<Bar>")

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/headlines.fnl

@@ -1,2 +1 @@
-(module dotfiles.plugin.headlines
+(local headlines (require :headlines))
-  {autoload {headlines headlines}})

nvim/.config/nvim/fnl/dotfiles/plugin/hex.fnl

@@ -1,3 +1,3 @@
-(module dotfiles.plugin.hex {autoload {nvim aniseed.nvim hex hex}})
+(let [hex (require :hex)]
-
+  (when hex
-(hex.setup)
+    (hex.setup)))

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

@@ -1,17 +1,26 @@
-(module dotfiles.plugin.lspconfig
+(local a (require :nfnl.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
-                   mason dotfiles.plugin.mason
-                   cmp_nvim_lsp cmp_nvim_lsp}})
 
-(defn bufmap [mode from to] (u.noremap mode from to {:local? true}))
+(fn bufmap [mode from to opts]
+  (u.noremap mode from to (a.merge {:local? true} opts)))
 
-(defn nbufmap [from to] (bufmap :n from to))
+(fn nbufmap [from to opts] (bufmap :n from to opts))
 
-(defn xbufmap [from to] (bufmap :x from to))
+(fn xbufmap [from to opts] (bufmap :x from to opts))
+
+(fn lsp-execute-command [client cmd ...]
+  (let [buf-uri (vim.uri_from_bufnr 0)
+        cursor (vim.api.nvim_win_get_cursor 0)
+        r (- (a.first cursor) 1)
+        c (a.second cursor)
+        opts [buf-uri r c]
+        args (a.concat opts [...])]
+    ;;(client.exec_cmd {:command cmd :arguments args} {:bufnr 0})
+    (client.request_sync :workspace/executeCommand
+                         {:command cmd :arguments args} nil 0)))
 
 (vim.diagnostic.config {:signs {:text {vim.diagnostic.severity.ERROR "☢️"
                                        vim.diagnostic.severity.WARN "⚠️"
@@ -21,7 +30,7 @@
                                 ;; :numhl {vim.diagnostic.severity.WARN :WarningMsg}
                                 }})
 
-(def core-nmappings
+(local core-nmappings
        {:gd "lua vim.lsp.buf.definition()"
         :gD "lua vim.lsp.buf.declaration()"
         :gi "lua vim.lsp.buf.implementation()"
@@ -39,20 +48,23 @@
         :<leader>rn "lua vim.lsp.buf.rename()"
         :<leader>fa "lua vim.lsp.buf.format()"})
 
-(def client-nmappings
+(local client-nmappings {:clojure_lsp {;;:<leader>cn "call LspExecuteCommand('clean-ns')"
-  {:clojure_lsp {:<leader>cn "call LspExecuteCommand('clean-ns')"
+                                       ;; :<leader>ref "call LspExecuteCommand('extract-function', input('Function name: '))"
-                 :<leader>ref "call LspExecuteCommand('extract-function', input('Function name: '))"
+                                       ;; :<leader>id "call LspExecuteCommand('inline-symbol')"
-                 :<leader>id "call LspExecuteCommand('inline-symbol')"
+                                       ;; :<leader>il "call LspExecuteCommand('introduce-let', input('Binding name: '))"
-                 :<leader>il "call LspExecuteCommand('introduce-let', input('Binding name: '))"
+                                       ;;:<leader>m2l "call LspExecuteCommand('move-to-let', input('Binding name: '))"
-                 :<leader>m2l "call LspExecuteCommand('move-to-let', input('Binding name: '))"}})
+                                       }})
 
-(def client-command-lnmappings
+;;(vim.fn.input "foo: ")
-  {:clojure_lsp {:ai [:add-import-to-namespace ["input('Namespace name: ')"]]
+
+(local client-command-lnmappings
+       {:clojure_lsp {:ai [:add-import-to-namespace
+                           [(lambda [] (vim.fn.input "Namespace name: "))]]
                       :am [:add-missing-libspec []]
                       :as [:add-require-suggestion
-                      ["input('Namespace name: ')"
+                           [(lambda [] (vim.fn.input "Namespace name: "))
-                       "input('Namespace as: ')"
+                            (lambda [] (vim.fn.input "Namespace as: "))
-                       "input('Namespace name: ')"]]
+                            (lambda [] (vim.fn.input "Namespace name: "))]]
                       :cc [:cycle-coll []]
                       :cn [:clean-ns []]
                       :cp [:cycle-privacy []]
@@ -61,17 +73,25 @@
                       :db [:drag-backward []]
                       :df [:drag-forward []]
                       :dk [:destructure-keys []]
-                 :ed [:extract-to-def ["input('Definition name: ')"]]
+                      :ed [:extract-to-def
-                 :ef [:extract-function ["input('Function name: ')"]]
+                           [(lambda [] (vim.fn.input "Definition name: "))]]
+                      :ref [:extract-function
+                            [(lambda [] (vim.fn.input "Function name: "))]]
                       :el [:expand-let []]
                       :fe [:create-function []]
-                 :il [:introduce-let ["input('Binding name: ')"]]
+                      :il [:introduce-let
+                           [(lambda [] (vim.fn.input "Binding name: "))]]
                       :is [:inline-symbol []]
                       :ma [:resolve-macro-as []]
-                 :mf [:move-form ["input('File name: ')"]]
+                      :mf [:move-form
-                 :ml [:move-to-let ["input('Binding name: ')"]]
+                           [(lambda [] (vim.fn.input "File name: "))]]
-                 :pf [:promote-fn ["input('Function name: ')"]]
+                      :ml [:move-to-let
-                 :sc [:change-collection ["input('Collection type: ')"]]
+                           [(lambda [] (vim.fn.input "Binding name: "))]]
+                      :pf [:promote-fn
+                           [(lambda [] (vim.fn.input "Function name: "))]]
+                      :sc [:change-collection
+                           [(lambda [] (vim.fn.input ""))
+                            "input('Collection type: ')"]]
                       :sm [:sort-map []]
                       :tf [:thread-first-all []]
                       :tF [:thread-first []]
@@ -80,30 +100,34 @@
                       :ua [:unwind-all []]
                       :uw [:unwind-thread []]}})
 
-(def server-specific-opts {})
+(local server-specific-opts {})
 
-(defn bind-client-mappings
+(fn bind-client-mappings [client]
-  [client]
   (let [client-name (a.get client :name)
         mappings (a.get client-nmappings client-name)
         command-lnmappings (a.get client-command-lnmappings client-name)]
     (when mappings
       (each [mapping cmd (pairs mappings)]
-        (nbufmap mapping cmd)))
+        (nbufmap mapping cmd {})))
     (when command-lnmappings
       (each [lnmapping command-mapping (pairs command-lnmappings)]
         (let [lsp-cmd (a.first command-mapping)
-              opts-str (accumulate [s "" i opt (ipairs (a.second command-mapping))]
+              ;;lsp-cmd (.. client-name "." (a.first command-mapping))
-                         (.. s ", " opt))
+              ;;opts (a.second command-mapping)
               mapping (.. :<leader> lnmapping)
-              cmd (.. "call LspExecuteCommand('" lsp-cmd "'" opts-str ")")]
+              cmd (lambda []
-          (nbufmap mapping cmd))))))
+                    (let [opts (accumulate [s "" _i opt (ipairs (a.second command-mapping))]
+                                 (.. s
+                                     (if (= :function (type opt))
+                                         (opt)
+                                         opt)))]
+                      (lsp-execute-command client lsp-cmd opts)))]
+          (nbufmap mapping cmd {:desc (.. "LSP command `" lsp-cmd "`")}))))))
 
-(defn on_attach
+(fn on_attach [client bufnr]
-  [client bufnr]
   (each [mapping cmd (pairs core-nmappings)]
-    (nbufmap mapping cmd)) ; x mode mappings
+    (nbufmap mapping cmd {})) ; x mode mappings
-  (xbufmap :<leader>fa "lua vim.lsp.buf.format()") ; --   buf_set_keymap('n', 'gs', '<Cmd>lua vim.lsp.buf.document_symbol()<CR>', opts)
+  (xbufmap :<leader>fa "lua vim.lsp.buf.format()" {:desc "Format buffer"}) ; --   buf_set_keymap('n', 'gs', '<Cmd>lua vim.lsp.buf.document_symbol()<CR>', opts)
   ; --   buf_set_keymap('n', 'gS', '<Cmd>lua vim.lsp.buf.workspace_symbol()<CR>', opts)
   ; --   buf_set_keymap('n', 'gt', '<cmd>lua vim.lsp.buf.type_definition()<CR>', opts)
   ; --   buf_set_keymap('n', '<leader>wa', '<cmd>lua vim.lsp.buf.add_workspace_folder()<CR>', opts)
@@ -112,39 +136,57 @@
   ; --   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)
+  (when client.server_capabilities.documentHighlightProvider
+    (each [hlgroup base-group (pairs {:LspReferenceRead :SpecialKey
+                                      :LspReferenceText :SpecialKey
+                                      :LspReferenceWrite :SpecialKey})]
+      (vim.api.nvim_set_hl 0 hlgroup
+                           (a.merge (vim.api.nvim_get_hl_by_name base-group
+                                                                 true)
+                                    {:italic true
+                                     :foreground "#6c71c4"
+                                     :background :NONE})))
+    (let [group (vim.api.nvim_create_augroup :LspDocumentHighlight
+                                             {:clear true})]
+      (vim.api.nvim_create_autocmd [:CursorHold :CursorHoldI]
+                                   {: group
+                                    :pattern :<buffer>
+                                    :callback (lambda []
+                                                (vim.lsp.buf.document_highlight))})
+      (vim.api.nvim_create_autocmd [:CursorMoved]
+                                   {: group
+                                    :pattern :<buffer>
+                                    :callback (lambda []
+                                                (vim.lsp.buf.clear_references))})))
   (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."))
 
-(def base-server-opts
+(local base-server-opts
        (let [capabilities (cmp_nvim_lsp.default_capabilities (lsp.protocol.make_client_capabilities))]
          {: on_attach : capabilities :flags {:debounce_text_changes 150}}))
 
-(defn default-server-handler
+(fn default-server-handler [server-name]
-  [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 specific-opts)]
-        server-opts (a.merge base-server-opts server-opts)]
+    (vim.lsp.config server-name server-opts)))
-    (server.setup server-opts)))
 
-(defn lsp-execute-command
+(fn setup-handlers [language_servers]
-  [cmd ...]
+  (each [_ server-name (pairs language_servers)]
-  (let [buf-uri (vim.uri_from_bufnr 0)
+    (default-server-handler server-name)))
-        cursor (vim.api.nvim_win_get_cursor 0)
-        r (- (a.first cursor) 1)
-        c (a.second cursor)
-        opts [buf-uri r c]
-        args (a.concat opts [...])]
-    (vim.lsp.buf.execute_command {:command cmd :arguments args})))
-
-(mason.setup)
-
-(when-let [mason-lspconfig (require :mason-lspconfig)] (mason-lspconfig.setup)
-          (mason-lspconfig.setup_handlers {1 default-server-handler}))
 
 (u.nnoremap :<leader>li :LspInfo)
 
-(vim.api.nvim_create_user_command :LspExecuteCommand lsp-execute-command {})
+(vim.api.nvim_create_user_command :LspExecuteCommand lsp-execute-command
+                                  {:nargs "+"})
+
+; (let [mason-lspconfig (require :mason-lspconfig)]
+;   (when mason-lspconfig
+;     (mason-lspconfig.setup)
+;     (mason-lspconfig.setup_handlers [default-server-handler])))
+
+{: on_attach : default-server-handler : setup-handlers}

nvim/.config/nvim/fnl/dotfiles/plugin/luasnip.fnl

@@ -1,19 +1,17 @@
-(module dotfiles.plugin.luasnip
+(let [luasnip (require :luasnip)
-        {autoload {nvim aniseed.nvim util dotfiles.util luasnip luasnip}
+      select_choice (require :luasnip.extras.select_choice)]
-         require {select_choice luasnip.extras.select_choice}})
+  (when luasnip
-
+    (vim.keymap.set [:i :s] :<C-k>
-(vim.keymap.set [:i :s] :<C-k>
                     (fn []
                       (if (luasnip.expand_or_jumpable)
-                      (luasnip.expand_or_jump))) {:silent true})
+                          (luasnip.expand_or_jump)))
-
+                    {:silent true})
-(vim.keymap.set [:i :s] :<C-j>
+    (vim.keymap.set [:i :s] :<C-j>
                     (fn []
                       (if (luasnip.jumpable -1)
                           (luasnip.jump -1))) {:silent true})
-
+    (vim.keymap.set :i :<C-l>
-(vim.keymap.set :i :<C-l> (fn []
+                    (fn []
                       (if (luasnip.choice_active)
                           (luasnip.choice 1))))
-
+    (vim.keymap.set :i :<C-u> select_choice)))
-(vim.keymap.set :i :<C-u> select_choice)

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

@@ -1,10 +1,16 @@
-(module dotfiles.plugin.mason
+(local mason (require :mason))
-        {autoload {a aniseed.core
+(local mason-lspconf (require :mason-lspconfig))
-                   nvim aniseed.nvim mason mason mason-lspconf mason-lspconfig}})
+(local lspconfig (require :dotfiles.plugin.lspconfig))
 
-(defn setup []
+(fn setup []
-  (when mason
   (mason.setup {:ui {:icons {:package_installed "✓"}}})
   (when mason-lspconf
-      (mason-lspconf.setup {:ensure_installed [:lua_ls]})
+    (mason-lspconf.setup {:ensure_installed [:lua_ls] :automatic_enable true})
-      (mason-lspconf.setup_handlers {1 default-server-handler}))))
+    (lspconfig.setup-handlers (mason-lspconf.get_installed_servers))))
+
+(setup)
+;; (mason.setup)
+;; 
+;; (when-let [mason-lspconfig (require :mason-lspconfig)]
+;;   (mason-lspconfig.setup)
+;;           (mason-lspconfig.setup_handlers {1 default-server-handler}))

nvim/.config/nvim/fnl/dotfiles/plugin/nfnl.fnl

@@ -0,0 +1,2 @@
+(local nfnl (require :nfnl))
+(nfnl.setup {:compile_on_write true})

nvim/.config/nvim/fnl/dotfiles/plugin/null-ls.fnl

@@ -1,13 +1,8 @@
-(module dotfiles.plugin.null-ls
+(let [null-ls (require :null-ls)
-        {autoload {nvim aniseed.nvim
+      lspconfig (require :dotfiles.plugin.lspconfig)]
-                   a aniseed.core
+  (when null-ls
-                   nu aniseed.nvim.util
+    (local null-ls-server-options
-                   null-ls null-ls
-                   lspconfig dotfiles.plugin.lspconfig}})
-
-(def null-ls-server-options
            {:sources [null-ls.builtins.formatting.stylua
                       null-ls.builtins.formatting.fnlfmt]
             :on_attach lspconfig.on_attach})
-
+    (null-ls.setup null-ls-server-options)))
-(null-ls.setup null-ls-server-options)

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

@@ -1,32 +1,32 @@
-(module dotfiles.plugin.orgbullets
+(local core (require :nfnl.core))
-        {autoload {nvim aniseed.nvim a aniseed.core ts-utils dotfiles.ts-utils}})
+(local conceal (require :dotfiles.conceal))
+(local ts-utils (require :dotfiles.ts-utils))
+(local stars ["◉" "⦾" "○" "✸" "✿" "✶" "•" "‣"])
 
-(def stars ["◉" "⦾" "○" "✸" "✿" "✶" "•" "‣"])
+(local stars-query "(headline (stars) @stars)")
 
-(def stars-query "(headline (stars) @stars)")
+(fn star-index [heading-level]
-
+  (let [star-count (core.count stars)
-(defn star-index [heading-level]
-      (let [star-count (a.count stars)
         idx (math.fmod heading-level star-count)]
     (if (< 0 idx)
         idx
         star-count)))
 
-(defonce extmark-namespace (vim.api.nvim_create_namespace :HeaderStars))
+(local extmark-namespace (vim.api.nvim_create_namespace :HeaderStars))
 
-(def star-captures (ts-utils.make-query :org stars-query))
+(local star-captures (ts-utils.make-query :org stars-query))
 
-(defn gen-star-extmarks []
+(fn gen-star-extmarks []
   (when (= :org vim.bo.filetype)
     (let [bufnr (vim.api.nvim_get_current_buf)
-              star-count (a.count stars)]
+          star-count (core.count stars)]
       (vim.api.nvim_buf_clear_namespace bufnr extmark-namespace 0 -1)
       (each [id node metadata (star-captures bufnr)]
         (let [[start-line start-col end-row end-col] [(node:range)]
               heading-level (if (= start-line end-row)
                                 (- end-col start-col))
-                  star (a.get stars (star-index heading-level))
+              star (core.get stars (star-index heading-level))
-                  replacement (string.format (a.str "%" (+ 2 heading-level) :s)
+              replacement (string.format (core.str "%" (+ 2 heading-level) :s)
                                          star)]
           (vim.api.nvim_buf_set_extmark bufnr extmark-namespace start-line
                                         start-col
@@ -36,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/orgmode.fnl

@@ -1,11 +1,6 @@
-(module dotfiles.plugin.orgmode {autoload {orgmode orgmode}})
+(let [orgmode (require :orgmode)]
-
+  ;;(orgmode.setup_ts_grammar)
-;;(orgmode.setup_ts_grammar)
+  (orgmode.setup {:org_agenda_files ["~/Dropbox/org/*" "~/my-orgs/**/*"]
-
-(orgmode.setup {:org_agenda_files ["~/Dropbox/org/*" "~/my-orgs/**/*"]
                   :org_default_notes_file "~/Dropbox/org/refile.org"
-                :mappings {
+                  :mappings {:org {:org_toggle_checkbox :<C-.>}}})
-                  :org {
+  (require :dotfiles.plugin.orgbullets))
-                    :org_toggle_checkbox :<C-.>}}})
-
-(require :dotfiles.plugin.orgbullets)

nvim/.config/nvim/fnl/dotfiles/plugin/packer.fnl

@@ -1,8 +1,4 @@
-(module dotfiles.plugin.packer
+(local u (require :dotfiles.util))
-  {autoload
-   {u dotfiles.util}
-   require
-   {nvim aniseed.nvim}})
 
 (u.nnoremap :<leader>pi :PackerInstall)
 (u.nnoremap :<leader>pu :PackerUpdate)

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

@@ -1,40 +1,40 @@
-(module dotfiles.plugin.paredit
+(local a (require :nfnl.core))
-        {autoload {nvim aniseed.nvim
+(local treesitter (require :dotfiles.plugin.treesitter))
-                   a aniseed.core
+(local ts-parsers (require :nvim-treesitter.parsers))
-                   nu aniseed.nvim.util
+(local ts-utils (require :nvim-treesitter.ts_utils))
-                   paredit paredit
+(local languagetree (require :vim.treesitter.languagetree))
-                   ts-parsers nvim-treesitter.parsers
-                   ts-utils nvim-treesitter.ts_utils
-                   languagetree vim.treesitter.languagetree}})
 
-(set nvim.g.paredit_smartjump 1)
+(set vim.g.paredit_smartjump 1)
 
-(defn list-member? [xs x] (a.some #(= x $1) (a.vals xs)))
+(fn list-member? [xs x]
+  (a.some #(= x $1) (a.vals xs)))
 
-(defn bool->int [bool] (if bool 1 0))
+(fn bool->int [bool] (if bool 1 0))
 
-(defn int->bool [x] (if (= 0 x) false true))
+(fn int->bool [x] (if (= 0 x) false true))
 
-(defn toggle-global! [x] (->> (a.get nvim.g x)
+(fn toggle-global! [x]
+  (->> (a.get vim.g x)
        (int->bool)
        (not)
        (bool->int)
-                              (tset nvim.g x)))
+       (tset vim.g x)))
 
-(defn language-at-cursor [] (let [parser (ts-parsers.get_parser)
+(fn 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
+                 (languagetree.language_for_range parser range))]
-                                                                            range))]
     (if lang
         (lang:lang))))
 
-(defn parser-language [] (let [parser (ts-parsers.get_parser)]
+(fn parser-language []
+  (let [parser (ts-parsers.get_parser)]
     (when parser
       (parser:lang))))
 
-(def- paredit-langs [:clojure
+(local paredit-langs [:clojure
                       :fennel
                       :hy
                       :janet
@@ -45,50 +45,33 @@
                       :scheme
                       :shen])
 
-(def- paredit-host-langs [:org :markdown :asciidoc])
+(local paredit-host-langs [:org :markdown :asciidoc])
 
-(defn- host-lang-in? [langs] (list-member? langs (parser-language)))
+(fn host-lang-in? [langs] (list-member? langs (parser-language)))
 
-(defn paredit-lang? [lang] (list-member? paredit-langs lang))
+(fn paredit-lang? [lang] (list-member? paredit-langs lang))
 
-(defn TreeSitterLangParedit []
+(fn TreeSitterLangParedit []
   (when (host-lang-in? paredit-host-langs)
-        (when-let [cursor-lang (language-at-cursor)]
+    (let [cursor-lang (language-at-cursor)]
+      (when cursor-lang
         (->> cursor-lang
              (paredit-lang?)
              (bool->int)
-                       (set nvim.g.paredit_mode))
+             (set vim.g.paredit_mode))
-                  (nvim.fn.PareditInitBuffer))))
+        (vim.fn.PareditInitBuffer)))))
 
+(vim.api.nvim_create_autocmd [:FileType]
+                             {:pattern :ruby
+                              :callback (lambda []
+                                          (vim.fn.PareditInitBalancingAllBracketsBuffer))})
 
-(nvim.ex.autocmd :FileType :ruby :call "PareditInitBalancingAllBracketsBuffer()")
+(vim.api.nvim_create_autocmd [:FileType]
-(nvim.ex.autocmd :FileType :javascript :call "PareditInitBalancingAllBracketsBuffer()")
+                             {:pattern :javascript
-(nvim.ex.autocmd :FileType :terraform :call "PareditInitBalancingAllBracketsBuffer()")
+                              :callback (lambda []
+                                          (vim.fn.PareditInitBalancingAllBracketsBuffer))})
 
-; (nvim.del_augroup_by_name "BabeliteParedit")
+(vim.api.nvim_create_autocmd [:FileType]
-; (nvim.get_autocmds {:group "BabeliteParedit"})
+                             {:pattern :terraform
-
+                              :callback (lambda []
-;;(let [group (nvim.create_augroup :BabeliteParedit {:clear true})]
+                                          (vim.fn.PareditInitBalancingAllBracketsBuffer))})
-;;  (nvim.create_autocmd [:CursorHold :CursorMoved]
-;;                       {: group
-;;                        ;:pattern ["*.org" "*.md"]
-;;                        :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!)
-;;   )

nvim/.config/nvim/fnl/dotfiles/plugin/smartsplits.fnl

@@ -1,27 +1,19 @@
-(module dotfiles.plugin.smartsplits
+(let [smart-splits (require :smart-splits)]
-        {autoload {nvim aniseed.nvim
+  (when smart-splits
-                   a aniseed.core
+    (smart-splits.setup)
-                   smart-splits smart-splits
+    ;; recommended mappings
-                   ;; util dotfiles.util
+    ;; resizing splits
-                   }})
+    ;; these keymaps will also accept a range,
-
+    ;; for example `10<A-h>` will `resize_left` by `(10 * config.default_amount)`
-(smart-splits.setup)
+    (vim.keymap.set :n :<M-S-h> smart-splits.resize_left)
-
+    (vim.keymap.set :n :<M-S-j> smart-splits.resize_down)
-;; recommended mappings
+    (vim.keymap.set :n :<M-S-k> smart-splits.resize_up)
-;; resizing splits
+    (vim.keymap.set :n :<M-S-l> smart-splits.resize_right) ; ; moving between splits
-;; these keymaps will also accept a range,
+    (vim.keymap.set :n :<M-h> smart-splits.move_cursor_left)
-;; for example `10<A-h>` will `resize_left` by `(10 * config.default_amount)`
+    (vim.keymap.set :n :<M-j> smart-splits.move_cursor_down)
-(vim.keymap.set :n :<M-S-h> smart-splits.resize_left)
+    (vim.keymap.set :n :<M-k> smart-splits.move_cursor_up)
-(vim.keymap.set :n :<M-S-j> smart-splits.resize_down)
+    (vim.keymap.set :n :<M-l> smart-splits.move_cursor_right) ; ; swapping buffers between windows
-(vim.keymap.set :n :<M-S-k> smart-splits.resize_up)
+    (vim.keymap.set :n :<leader><leader>h smart-splits.swap_buf_left)
-(vim.keymap.set :n :<M-S-l> smart-splits.resize_right)
+    (vim.keymap.set :n :<leader><leader>j smart-splits.swap_buf_down)
-;; moving between splits
+    (vim.keymap.set :n :<leader><leader>k smart-splits.swap_buf_up)
-(vim.keymap.set :n :<M-h> smart-splits.move_cursor_left)
+    (vim.keymap.set :n :<leader><leader>l smart-splits.swap_buf_right)))
-(vim.keymap.set :n :<M-j> smart-splits.move_cursor_down)
-(vim.keymap.set :n :<M-k> smart-splits.move_cursor_up)
-(vim.keymap.set :n :<M-l> smart-splits.move_cursor_right)
-;; swapping buffers between windows
-(vim.keymap.set :n :<leader><leader>h smart-splits.swap_buf_left)
-(vim.keymap.set :n :<leader><leader>j smart-splits.swap_buf_down)
-(vim.keymap.set :n :<leader><leader>k smart-splits.swap_buf_up)
-(vim.keymap.set :n :<leader><leader>l smart-splits.swap_buf_right)

nvim/.config/nvim/fnl/dotfiles/plugin/telescope.fnl

@@ -1,10 +1,7 @@
-(module dotfiles.plugin.telescope
+(local util (require :dotfiles.util))
-        {autoload {nvim aniseed.nvim
+(local telescope (require :telescope))
-                   util dotfiles.util
-                   telescope telescope
-                   project-nvim project_nvim}})
 
-(def vimgrep_arguments [:ag
+(local vimgrep_arguments [:ag
                           :--nocolor
                           :--noheading
                           :--number

nvim/.config/nvim/fnl/dotfiles/plugin/whichkey.fnl

@@ -1,5 +1,3 @@
-(module dotfiles.plugin.whichkey
+(let [which-key (require :which-key)]
-  {autoload {which-key which-key}})
+  (when which-key
-
+    (which-key.setup {})))
-(which-key.setup {})
-

nvim/.config/nvim/fnl/dotfiles/plugin/yanky.fnl

@@ -1,9 +1,4 @@
-(module dotfiles.plugin.yanky {autoload {nvim aniseed.nvim
+(local yanky (require :yanky))
-                                         a aniseed.core
-                                         ;; util dotfiles.util
-                                         yanky yanky}
-                               ;; require {minpac minpac}
-                               })
 
 (yanky.setup {:ring {:history_length 100
                      :storage :shada

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

@@ -1,24 +1,21 @@
-(module dotfiles.plugins {autoload {nvim aniseed.nvim
+(local packer (require :packer))
-                                    a aniseed.core
+(local core (require :nfnl.core))
-                                    ;; util dotfiles.util
-                                    packer packer}
-                          ;; require {minpac minpac}
-                          })
 
-(defn safe-require-plugin-config [name]
+(fn safe-require-plugin-config [name]
   (let [(ok? val-or-err) (pcall require (.. :dotfiles.plugin. name))]
     (when (not ok?)
       (print (.. "dotfiles error: " val-or-err)))))
 
-(defn- use [pkgs] "Iterates through the arguments as pairs and calls packer's use function for
+(fn use [pkgs]
+  "Iterates through the arguments as pairs and calls packer's use function for
   each of them. Works around Fennel not liking mixed associative and sequential
   tables as well."
   (packer.startup (fn [use]
                     (each [name opts (pairs pkgs)]
                       (-?> (. opts :mod) (safe-require-plugin-config))
-                           (use (a.assoc opts 1 name))))))
+                      (use (core.assoc opts 1 name))))))
 
-(def- packages {:Olical/aniseed {}
+(local packages {:Olical/nfnl {}
                  :Olical/conjure {:mod :conjure}
                  :Olical/fennel.vim {}
                  :ahmedkhalf/project.nvim {}
@@ -50,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}
@@ -59,17 +57,26 @@
                  ;   :michaelb/sniprun {:run "bash ./install.sh" :mod :sniprun}
                  :mrjones2014/smart-splits.nvim {:mod :smartsplits}
                  :mechatroner/rainbow_csv {}
+                 :MunifTanjim/nui.nvim {}
                  :neovim/nvim-lspconfig {:mod :lspconfig}
                  :norcalli/nvim-colorizer.lua {:mod :colorizer}
+                 :nvim-neo-tree/neo-tree.nvim {:branch :v3.x
+                                               :require [:nvim-lua/plenary.nvim
+                                                         :nvim-tree/nvim-web-devicons
+                                                         ; not strictly required, but recommended
+                                                         :MunifTanjim/nui.nvim
+                                                         ; :3rd/image.nvim, ; Optional image support in preview window: See `# Preview Mode` for more information
+                                                         ]}
                  :nvim-orgmode/orgmode {:mod :orgmode}
                  :nvim-telescope/telescope.nvim {:requires [[:nvim-lua/popup.nvim]
                                                             [:nvim-lua/plenary.nvim]]
                                                  :mod :telescope}
+                 :nvim-tree/nvim-web-devicons {}
                  :nvim-treesitter/nvim-treesitter {:run ":TSUpdate"
                                                    :mod :treesitter}
                  :nvim-treesitter/playground {}
                  :radenling/vim-dispatch-neovim {}
-                :RaafatTurki/hex.nvim { :mod :hex }
+                 :RaafatTurki/hex.nvim {:mod :hex}
                  :rafamadriz/friendly-snippets {}
                  :skywind3000/asyncrun.vim {}
                  ;; :tjdevries/sg.nvim {:run "cargo build --workspace"
@@ -89,15 +96,16 @@
                  :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 {}
                  ; :thecontinium/asyncomplete-conjure.vim {}
                  ; :jose-elias-alvarez/null-ls.nvim {:mod :null-ls
                  ;                                   :requires [:nvim-lua/plenary.nvim]}
-                } ; :tpope/vim-fireplace {} ; Clojure
+                 }
-      ; :tpope/vim-sexp-mappings-for-regular-people {}
+       ; :tpope/vim-fireplace {} ; Clojure ; :tpope/vim-sexp-mappings-for-regular-people {}
        )
 
 (use packages)

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

@@ -1,18 +1,14 @@
-(module dotfiles.terraform-helpers
-        {autoload {a aniseed.core}
-         require {anenv aniseed.env nvim aniseed.nvim u dotfiles.util}})
-
 (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>")

nvim/.config/nvim/fnl/dotfiles/ts-utils.fnl

@@ -1,12 +1,15 @@
-(module dotfiles.ts-utils {autoload {nvim aniseed.nvim a aniseed.core}})
+(local core (require :nfnl.core))
 
-(defn root [bufnr lang] (let [parser (vim.treesitter.get_parser bufnr lang {})
+(fn root [bufnr lang]
-                              tree (a.first (: parser :parse))]
+  (let [parser (vim.treesitter.get_parser bufnr lang {})
+        tree (core.first (: parser :parse))]
     (: tree :root)))
 
-(defn make-query [lang query-string]
+(fn make-query [lang query-string]
   (let [query (vim.treesitter.query.parse lang "(headline (stars) @stars)")]
     (fn [bufnr]
       (let [root-node (root bufnr lang)
             iter-captures (query.iter_captures query root-node bufnr 0 -1)]
         iter-captures))))
+
+{: root : make-query}

nvim/.config/nvim/fnl/dotfiles/util.fnl

@@ -1,12 +1,20 @@
-(local a (require :aniseed.core))
+(local a (require :nfnl.core))
+
+(fn fn? [x]
+  (= :function (type x)))
 
 (fn noremap [mode from to opts]
-  (let [map-opts {:noremap true :silent true}
+  (let [local? (a.get opts :local?)
-        to (.. ":" to :<cr>)
+        opts (a.assoc opts :local? nil)
+        map-opts (a.merge opts {:noremap true :silent true})
+        to (if (fn? to)
+               to
+               (.. ":" to :<cr>))
         buff-num (a.get opts :buff-num)]
-    (if (or (a.get opts :local?) buff-num)
+    (if (or local? buff-num)
-        (vim.api.nvim_buf_set_keymap (or buff-num 0) mode from to map-opts)
+        (vim.keymap.set mode from to
-        (vim.api.nvim_set_keymap mode from to map-opts))))
+                        (a.merge map-opts {:buffer (or buff-num 0)}))
+        (vim.keymap.set mode from to map-opts))))
 
 (fn nnoremap [from to opts] (noremap :n from to opts))
 
@@ -16,7 +24,7 @@
 
 (fn vnoremap [from to opts] (noremap :v from to opts))
 
-(fn lnnoremap [from to] (nnoremap (.. :<leader> from) to))
+(fn lnnoremap [from to opts] (nnoremap (.. :<leader> from) to opts))
 
 (fn ltnoremap [from to opts] (noremap :v (.. :<leader> from) to opts))
 

nvim/.config/nvim/init.lua

@@ -4,7 +4,7 @@ local fn = vim.fn
 local pack_path = fn.stdpath("data") .. "/site/pack"
 local fmt = string.format
 
-function ensure (user, repo)
+function ensure(user, repo)
   -- Ensures a given github.com/USER/REPO is cloned in the pack/packer/start directory.
   local install_path = fmt("%s/packer/start/%s", pack_path, repo, repo)
   if fn.empty(fn.glob(install_path)) > 0 then
@@ -15,11 +15,13 @@ end
 
 -- Bootstrap essential plugins required for installing and loading the rest.
 ensure("wbthomason", "packer.nvim")
-ensure("Olical", "aniseed")
+-- ensure("Olical", "aniseed")
 ensure("lifepillar", "vim-solarized8")
 
 -- Enable Aniseed's automatic compilation and loading of Fennel source code.
-vim.g["aniseed#env"] = {
+-- vim.g["aniseed#env"] = {
-  module = "dotfiles.init",
+--   module = "dotfiles.init",
-  compile = true
+--   compile = true
-}
+-- }
+--
+require 'dotfiles.init'

nvim/.config/nvim/lua/dotfiles/conceal.lua

@@ -0,0 +1,30 @@
+-- [nfnl] fnl/dotfiles/conceal.fnl
+local u = require("dotfiles.util")
+local conceals = {defn = "\240\157\145\147", fn = "\206\187", lambda = "\206\187", ["and"] = "\226\136\167", ["&&"] = "\226\136\167", ["or"] = "\226\136\168", ["||"] = "\226\136\168", ["not"] = "\194\172", ["!"] = "\194\172", ["for"] = "\226\136\128", ["in"] = "\226\136\136", ["true"] = "\226\138\164", ["false"] = "\226\138\165"}
+local function setup_conceals()
+  vim.fn.clearmatches()
+  for the_match, replacement in pairs(conceals) do
+    local the_match0 = ("\\<" .. the_match .. "\\>")
+    vim.fn.matchadd("Conceal", the_match0, 0, -1, {conceal = replacement})
+  end
+  vim.wo.conceallevel = 2
+  vim.wo.concealcursor = "nvc"
+  return nil
+end
+local function toggle_conceal()
+  if (0 == vim.wo.conceallevel) then
+    vim.wo.conceallevel = 2
+    return nil
+  else
+    vim.wo.conceallevel = 0
+    return nil
+  end
+end
+vim.api.nvim_create_user_command("ToggleConceal", toggle_conceal, {})
+vim.api.nvim_create_user_command("SetupConceals", setup_conceals, {})
+u.nnoremap("<leader>ts", "call ToggleConceal()")
+local pretty_filetypes = {"fennel", "clojure"}
+for _, ftype in pairs(pretty_filetypes) do
+  vim.api.nvim_create_autocmd({"FileType"}, {pattern = ftype, callback = setup_conceals})
+end
+return {["setup-conceals"] = setup_conceals}

nvim/.config/nvim/lua/dotfiles/core.lua

@@ -0,0 +1,46 @@
+-- [nfnl] fnl/dotfiles/core.fnl
+local a = require("nfnl.core")
+local u = require("dotfiles.util")
+vim.cmd.set("shortmess+=c")
+vim.cmd.set("path+=**")
+vim.cmd.set("wildignore+=*.o,*.obj,.git,*.rbc,*.class,.svn,vendor/gems/*")
+local function safe_source(filename)
+  local glob = vim.fn.glob(filename)
+  if not a["empty?"](glob) then
+    return vim.fn.source(filename)
+  else
+    return nil
+  end
+end
+local backup_dir = (vim.fn.glob("$HOME") .. "/.vim/backup")
+local undo_dir = (vim.fn.glob("$HOME") .. "/.vim/backup")
+local on_opts = {"autoindent", "autoread", "expandtab", "exrc", "hlsearch", "ignorecase", "incsearch", "number", "ruler", "secure", "shiftround", "showcmd", "showmatch", "smartcase", "splitbelow", "splitright", "termguicolors", "title", "undofile", "wildmenu"}
+local val_based_opts = {laststatus = 2, encoding = "utf-8", history = 500, redrawtime = 5000, scrolloff = 3, guifont = "Hasklig", guifontwide = "Hasklig", background = "dark", backupdir = backup_dir, directory = backup_dir, grepprg = "ag --vimgrep", tags = "tags", updatetime = 300, signcolumn = "auto:1-3", colorcolumn = {81, 100}, cmdheight = 2, undodir = undo_dir, undolevels = 1000, undoreload = 10000, foldmethod = "expr", foldexpr = "nvim_treesitter#foldexpr()", foldlevelstart = 100, foldlevel = 99, tabstop = 2, shiftwidth = 2, softtabstop = 2, mouse = "", list = true, listchars = "tab:\226\158\165\\ ,trail:\194\183,nbsp:\226\150\160", backspace = "indent,eol,start", wildmode = "list:longest,list:full", wrap = false}
+local append_val_opts = {diffopt = "algorithm:patience"}
+local function set_opt(_2_)
+  local opt = _2_[1]
+  local val = _2_[2]
+  vim.opt[a.str(opt)] = val
+  return nil
+end
+local function set_opt_2b(_3_)
+  local opt = _3_[1]
+  local val = _3_[2]
+  local existing_opt_val = a.get(vim.o, opt)
+  vim.opt[a.str(opt)] = a.str(existing_opt_val, ",", val)
+  return nil
+end
+local function set_opt_on(opt)
+  return set_opt({opt, true})
+end
+a.map(set_opt_on, on_opts)
+a["map-indexed"](set_opt, val_based_opts)
+a["map-indexed"](set_opt_2b, append_val_opts)
+vim.cmd.syntax("on")
+vim.cmd.colorscheme("solarized8")
+vim.api.nvim_create_autocmd({"vimenter"}, {pattern = "*", command = "colorscheme solarized8", nested = true})
+local function make_fennel_scratch()
+  return vim.cmd("new | setlocal bt=nofile bh=wipe nobl noswapfile nu filetype=fennel")
+end
+vim.api.nvim_create_user_command("FennelScratchBuffer", make_fennel_scratch, {})
+return u.nnoremap("<leader>fsb", ":call FennelScratchBuffer ()<CR>")

nvim/.config/nvim/lua/dotfiles/init.lua

@@ -0,0 +1,23 @@
+-- [nfnl] fnl/dotfiles/init.fnl
+local a = require("nfnl.core")
+local str = require("nfnl.string")
+local fs = require("nfnl.fs")
+local function require_all()
+  local require_exclusions = a["->set"]({"init"})
+  local function _1_(_241)
+    return ("dotfiles." .. _241)
+  end
+  local function _2_(_241)
+    return not a["contains?"](require_exclusions, _241)
+  end
+  local function _3_(_241)
+    return a.first(str.split(_241, ".fnl"))
+  end
+  return a.map(_1_, a.filter(_2_, a.map(_3_, fs.relglob("fnl/dotfiles", "*.fnl"))))
+end
+require("dotfiles.core")
+require("dotfiles.plugins")
+require("dotfiles.mapping")
+require("dotfiles.conceal")
+require("dotfiles.zoom-toggle")
+return a.println("(re)loaded")

nvim/.config/nvim/lua/dotfiles/mapping.lua

@@ -0,0 +1,38 @@
+-- [nfnl] fnl/dotfiles/mapping.fnl
+local util = require("dotfiles.util")
+local nfnl = require("nfnl.api")
+local function noremap(mode, from, to)
+  return vim.keymap.set(mode, from, to, {noremap = true})
+end
+local function _1_()
+  nfnl["compile-all-files"](vim.fn.stdpath("config"))
+  return vim.cmd.source((vim.fn.stdpath("config") .. "/init.lua"))
+end
+vim.keymap.set("n", "<leader>`", _1_)
+noremap("n", "<Enter>", ":nohlsearch<Enter>/<BS>")
+noremap("n", "<leader>zz", ":normal! 1z=<cr>")
+noremap("i", "<C-V><C-O>", ":set paste<CR><C-R><C-R>+<C-O>:set nopaste<CR>")
+noremap("n", "<F5>", "\"=strftime(\"%F\")<CR>p")
+noremap("i", "<F5>", "<C-R>=strftime(\"%F\")<CR>")
+noremap("n", "<M-5>", "\"=trim(system('date -u'))<CR>p")
+noremap("i", "<M-5>", "<C-R>=trim(system('date -u'))<CR>")
+noremap("v", "<leader>ah", "S<a href=\"\" target=\"_blank\" rel=\"nopener noreferrer\"><CR>")
+noremap("v", "<leader>ml", "xi[<c-r>\"]()<esc>")
+noremap("n", "<C-e>", "3<C-e>")
+noremap("n", "<C-y>", "3<C-y>")
+noremap("n", "<C-k>", "[e")
+noremap("n", "<C-j>", "]e")
+noremap("v", "<C-k>", "[egv")
+noremap("v", "<C-j>", "]egv")
+noremap("n", "<leader>jpp", ":%!python -m json.tool --indent=2<CR>")
+noremap("c", "w!!", "w !sudo tee % >/dev/null")
+noremap("n", "gnh", ":GitGutterNextHunk<CR>")
+noremap("n", "gph", ":GitGutterPrevHunk<CR>")
+noremap("n", "gsh", ":GitGutterStageHunk<CR>")
+noremap("n", "<leader>mv", ":AsyncRun -mode=bang open -a Marked\\ 2.app '%:p'<cr>")
+vim.api.nvim_create_autocmd({"FileType"}, {pattern = "sql", command = "nmap <leader>s vap<leader>S"})
+noremap("n", "Q", ":.!bash <CR>")
+util.lvnoremap("tw", "<C-U>s/\\s\\+$//ge<CR>:nohlsearch<Enter>/<BS>")
+util.lnnoremap("tw", "<C-U>.s/\\s\\+$//ge<CR>:nohlsearch<Enter>/<BS>")
+util.lnnoremap("<C-k>", ":set scrollback=1 | :set scrollback 100000<cr>", {silent = true})
+return util.ltnoremap("<C-k>", "<C-\\><C-n><leader><C-l>i", {silent = true})

nvim/.config/nvim/lua/dotfiles/plugin/cmp.lua

@@ -0,0 +1,18 @@
+-- [nfnl] fnl/dotfiles/plugin/cmp.fnl
+local cmp = require("cmp")
+local luasnip = require("luasnip")
+local cmp_src_menu_items = {buffer = "buff", conjure = "conj", nvim_lsp = "lsp"}
+local cmp_srcs = {{name = "nvim_lsp"}, {name = "nvim_lua"}, {name = "luasnip"}, {name = "vsnip"}, {name = "conjure"}, {name = "buffer"}, {name = "orgmode"}, {name = "emoji", max_item_count = 8}}
+local cmp0 = require("cmp")
+local function _1_(entry, item)
+  item.menu = (cmp_src_menu_items[entry.source.name] or "")
+  return item
+end
+local function _2_(args)
+  if args then
+    return luasnip.lsp_expand(args.body)
+  else
+    return nil
+  end
+end
+return cmp0.setup({formatting = {format = _1_}, mapping = {["<C-p>"] = cmp0.mapping.select_prev_item(), ["<C-n>"] = cmp0.mapping.select_next_item(), ["<C-b>"] = cmp0.mapping.scroll_docs(( - 4)), ["<C-f>"] = cmp0.mapping.scroll_docs(4), ["<C-Space>"] = cmp0.mapping.complete(), ["<C-e>"] = cmp0.mapping.close(), ["<C-y>"] = cmp0.mapping.confirm({select = true})}, snippet = {expand = _2_}, sources = cmp_srcs})

nvim/.config/nvim/lua/dotfiles/plugin/colorizer.lua

@@ -0,0 +1,3 @@
+-- [nfnl] fnl/dotfiles/plugin/colorizer.fnl
+local colorizer = require("colorizer")
+return colorizer.setup({"*"}, {RGB = true, RRGGBB = true, names = true, RRGGBBAA = true, rgb_fn = true, hsl_fn = true, css = true, css_fn = true})

nvim/.config/nvim/lua/dotfiles/plugin/conjure.lua

@@ -0,0 +1,8 @@
+-- [nfnl] fnl/dotfiles/plugin/conjure.fnl
+local core = require("nfnl.core")
+local conjure_config = require("conjure.config")
+vim.g["conjure#mapping#doc_word"] = "gk"
+vim.g["conjure#client#clojure#nrepl#mapping#session_clone"] = "sC"
+vim.g["conjure#extract#tree_sitter#enabled"] = true
+conjure_config["assoc-in"]({"filetypes"}, core.concat(conjure_config.filetypes(), {"markdown"}))
+return conjure_config["assoc-in"]({"filetype", "markdown"}, "conjure.client.clojure.nrepl")

nvim/.config/nvim/lua/dotfiles/plugin/dadbodui.lua

@@ -0,0 +1,2 @@
+-- [nfnl] fnl/dotfiles/plugin/dadbodui.fnl
+

nvim/.config/nvim/lua/dotfiles/plugin/easyalign.lua

@@ -0,0 +1,3 @@
+-- [nfnl] fnl/dotfiles/plugin/easyalign.fnl
+local util = require("dotfiles.util")
+return util.noremap("v", "<leader><bslash>", "EasyAlign*<Bar>")

nvim/.config/nvim/lua/dotfiles/plugin/fugitive.lua

@@ -0,0 +1,11 @@
+-- [nfnl] fnl/dotfiles/plugin/fugitive.fnl
+local util = require("dotfiles.util")
+local function bufmap(mode, from, to)
+  return util.noremap(mode, from, to, {["local?"] = true})
+end
+local function map_fugitive_keys()
+  bufmap("n", "<leader>gp", ":Git pull<CR>")
+  bufmap("n", "<leader>gP", ":Git push<CR>")
+  return bufmap("n", "<leader>gF", ":Git push -f<CR>")
+end
+return vim.api.nvim_create_autocmd({"FileType"}, {pattern = "fugitive", callback = map_fugitive_keys})

nvim/.config/nvim/lua/dotfiles/plugin/headlines.lua

@@ -0,0 +1,3 @@
+-- [nfnl] fnl/dotfiles/plugin/headlines.fnl
+local headlines = require("headlines")
+return nil

nvim/.config/nvim/lua/dotfiles/plugin/hex.lua

@@ -0,0 +1,7 @@
+-- [nfnl] fnl/dotfiles/plugin/hex.fnl
+local hex = require("hex")
+if hex then
+  return hex.setup()
+else
+  return nil
+end

nvim/.config/nvim/lua/dotfiles/plugin/lspconfig.lua

@@ -0,0 +1,153 @@
+-- [nfnl] fnl/dotfiles/plugin/lspconfig.fnl
+local a = require("nfnl.core")
+local u = require("dotfiles.util")
+local lsp = require("vim.lsp")
+local lspconfig = require("lspconfig")
+local cmp_nvim_lsp = require("cmp_nvim_lsp")
+local function bufmap(mode, from, to, opts)
+  return u.noremap(mode, from, to, a.merge({["local?"] = true}, opts))
+end
+local function nbufmap(from, to, opts)
+  return bufmap("n", from, to, opts)
+end
+local function xbufmap(from, to, opts)
+  return bufmap("x", from, to, opts)
+end
+local function lsp_execute_command(client, cmd, ...)
+  local buf_uri = vim.uri_from_bufnr(0)
+  local cursor = vim.api.nvim_win_get_cursor(0)
+  local r = (a.first(cursor) - 1)
+  local c = a.second(cursor)
+  local opts = {buf_uri, r, c}
+  local args = a.concat(opts, {...})
+  return client.request_sync("workspace/executeCommand", {command = cmd, arguments = args}, nil, 0)
+end
+vim.diagnostic.config({signs = {text = {[vim.diagnostic.severity.ERROR] = "\226\152\162\239\184\143", [vim.diagnostic.severity.WARN] = "\226\154\160\239\184\143", [vim.diagnostic.severity.INFO] = "\226\132\185\239\184\143", [vim.diagnostic.severity.HINT] = "\240\159\148\142"}}})
+local core_nmappings = {gd = "lua vim.lsp.buf.definition()", gD = "lua vim.lsp.buf.declaration()", gi = "lua vim.lsp.buf.implementation()", gr = "lua vim.lsp.buf.references()", K = "lua vim.lsp.buf.hover()", ["[g"] = "lua vim.diagnostic.goto_prev()", ["]g"] = "lua vim.diagnostic.goto_next()", ["<leader>ca"] = "lua vim.lsp.buf.code_action()", ["<leader>cl"] = "lua vim.lsp.codelens.run()", ["<leader>ic"] = "lua vim.lsp.buf.incoming_calls()", ["<leader>sld"] = "lua vim.diagnostic.open_float(nil, {source = 'always'})", ["<leader>rn"] = "lua vim.lsp.buf.rename()", ["<leader>fa"] = "lua vim.lsp.buf.format()"}
+local client_nmappings = {clojure_lsp = {}}
+local client_command_lnmappings
+local function _1_()
+  return vim.fn.input("Namespace name: ")
+end
+local function _2_()
+  return vim.fn.input("Namespace name: ")
+end
+local function _3_()
+  return vim.fn.input("Namespace as: ")
+end
+local function _4_()
+  return vim.fn.input("Namespace name: ")
+end
+local function _5_()
+  return vim.fn.input("Definition name: ")
+end
+local function _6_()
+  return vim.fn.input("Function name: ")
+end
+local function _7_()
+  return vim.fn.input("Binding name: ")
+end
+local function _8_()
+  return vim.fn.input("File name: ")
+end
+local function _9_()
+  return vim.fn.input("Binding name: ")
+end
+local function _10_()
+  return vim.fn.input("Function name: ")
+end
+local function _11_()
+  return vim.fn.input("")
+end
+client_command_lnmappings = {clojure_lsp = {ai = {"add-import-to-namespace", {_1_}}, am = {"add-missing-libspec", {}}, as = {"add-require-suggestion", {_2_, _3_, _4_}}, cc = {"cycle-coll", {}}, cn = {"clean-ns", {}}, cp = {"cycle-privacy", {}}, ct = {"create-test", {}}, df = {"drag-forward", {}}, db = {"drag-backward", {}}, dk = {"destructure-keys", {}}, ed = {"extract-to-def", {_5_}}, ref = {"extract-function", {_6_}}, el = {"expand-let", {}}, fe = {"create-function", {}}, il = {"introduce-let", {_7_}}, is = {"inline-symbol", {}}, ma = {"resolve-macro-as", {}}, mf = {"move-form", {_8_}}, ml = {"move-to-let", {_9_}}, pf = {"promote-fn", {_10_}}, sc = {"change-collection", {_11_, "input('Collection type: ')"}}, sm = {"sort-map", {}}, tf = {"thread-first-all", {}}, tF = {"thread-first", {}}, tl = {"thread-last-all", {}}, tL = {"thread-last", {}}, ua = {"unwind-all", {}}, uw = {"unwind-thread", {}}}}
+local server_specific_opts = {}
+local function bind_client_mappings(client)
+  local client_name = a.get(client, "name")
+  local mappings = a.get(client_nmappings, client_name)
+  local command_lnmappings = a.get(client_command_lnmappings, client_name)
+  if mappings then
+    for mapping, cmd in pairs(mappings) do
+      nbufmap(mapping, cmd, {})
+    end
+  else
+  end
+  if command_lnmappings then
+    for lnmapping, command_mapping in pairs(command_lnmappings) do
+      local lsp_cmd = a.first(command_mapping)
+      local mapping = ("<leader>" .. lnmapping)
+      local cmd
+      local function _13_()
+        local opts
+        do
+          local s = ""
+          for _i, opt in ipairs(a.second(command_mapping)) do
+            local _14_
+            if ("function" == type(opt)) then
+              _14_ = opt()
+            else
+              _14_ = opt
+            end
+            s = (s .. _14_)
+          end
+          opts = s
+        end
+        return lsp_execute_command(client, lsp_cmd, opts)
+      end
+      cmd = _13_
+      nbufmap(mapping, cmd, {desc = ("LSP command `" .. lsp_cmd .. "`")})
+    end
+    return nil
+  else
+    return nil
+  end
+end
+local function on_attach(client, bufnr)
+  for mapping, cmd in pairs(core_nmappings) do
+    nbufmap(mapping, cmd, {})
+  end
+  xbufmap("<leader>fa", "lua vim.lsp.buf.format()", {desc = "Format buffer"})
+  vim.api.nvim_set_option_value("omnifunc", "v:lua.vim.lsp.omnifunc", {buf = 0})
+  bind_client_mappings(client)
+  if client.server_capabilities.documentHighlightProvider then
+    for hlgroup, base_group in pairs({LspReferenceRead = "SpecialKey", LspReferenceText = "SpecialKey", LspReferenceWrite = "SpecialKey"}) do
+      vim.api.nvim_set_hl(0, hlgroup, a.merge(vim.api.nvim_get_hl_by_name(base_group, true), {italic = true, foreground = "#6c71c4", background = "NONE"}))
+    end
+    local group = vim.api.nvim_create_augroup("LspDocumentHighlight", {clear = true})
+    local function _17_()
+      return vim.lsp.buf.document_highlight()
+    end
+    vim.api.nvim_create_autocmd({"CursorHold", "CursorHoldI"}, {group = group, pattern = "<buffer>", callback = _17_})
+    local function _18_()
+      return vim.lsp.buf.clear_references()
+    end
+    vim.api.nvim_create_autocmd({"CursorMoved"}, {group = group, pattern = "<buffer>", callback = _18_})
+  else
+  end
+  if client.server_capabilities.documentFormattingProvider then
+    local function _20_()
+      return vim.lsp.buf.format()
+    end
+    vim.api.nvim_create_autocmd({"BufWritePre"}, {pattern = "<buffer>", callback = _20_})
+  else
+  end
+  return print("LSP Client Attached.")
+end
+local base_server_opts
+do
+  local capabilities = cmp_nvim_lsp.default_capabilities(lsp.protocol.make_client_capabilities())
+  base_server_opts = {on_attach = on_attach, capabilities = capabilities, flags = {debounce_text_changes = 150}}
+end
+local function default_server_handler(server_name)
+  local specific_opts = a.get(server_specific_opts, server_name, {})
+  local server_opts = a.merge(base_server_opts, specific_opts)
+  return vim.lsp.config(server_name, server_opts)
+end
+local function setup_handlers(language_servers)
+  for _, server_name in pairs(language_servers) do
+    default_server_handler(server_name)
+  end
+  return nil
+end
+u.nnoremap("<leader>li", "LspInfo")
+vim.api.nvim_create_user_command("LspExecuteCommand", lsp_execute_command, {nargs = "+"})
+return {on_attach = on_attach, ["default-server-handler"] = default_server_handler, ["setup-handlers"] = setup_handlers}

nvim/.config/nvim/lua/dotfiles/plugin/luasnip.lua

@@ -0,0 +1,32 @@
+-- [nfnl] fnl/dotfiles/plugin/luasnip.fnl
+local luasnip = require("luasnip")
+local select_choice = require("luasnip.extras.select_choice")
+if luasnip then
+  local function _1_()
+    if luasnip.expand_or_jumpable() then
+      return luasnip.expand_or_jump()
+    else
+      return nil
+    end
+  end
+  vim.keymap.set({"i", "s"}, "<C-k>", _1_, {silent = true})
+  local function _3_()
+    if luasnip.jumpable(-1) then
+      return luasnip.jump(-1)
+    else
+      return nil
+    end
+  end
+  vim.keymap.set({"i", "s"}, "<C-j>", _3_, {silent = true})
+  local function _5_()
+    if luasnip.choice_active() then
+      return luasnip.choice(1)
+    else
+      return nil
+    end
+  end
+  vim.keymap.set("i", "<C-l>", _5_)
+  return vim.keymap.set("i", "<C-u>", select_choice)
+else
+  return nil
+end

nvim/.config/nvim/lua/dotfiles/plugin/mason.lua

@@ -0,0 +1,14 @@
+-- [nfnl] fnl/dotfiles/plugin/mason.fnl
+local mason = require("mason")
+local mason_lspconf = require("mason-lspconfig")
+local lspconfig = require("dotfiles.plugin.lspconfig")
+local function setup()
+  mason.setup({ui = {icons = {package_installed = "\226\156\147"}}})
+  if mason_lspconf then
+    mason_lspconf.setup({ensure_installed = {"lua_ls"}, automatic_enable = true})
+    return lspconfig["setup-handlers"](mason_lspconf.get_installed_servers())
+  else
+    return nil
+  end
+end
+return setup()

nvim/.config/nvim/lua/dotfiles/plugin/nfnl.lua

@@ -0,0 +1,3 @@
+-- [nfnl] fnl/dotfiles/plugin/nfnl.fnl
+local nfnl = require("nfnl")
+return nfnl.setup({compile_on_write = true})

nvim/.config/nvim/lua/dotfiles/plugin/null-ls.lua

@@ -0,0 +1,9 @@
+-- [nfnl] fnl/dotfiles/plugin/null-ls.fnl
+local null_ls = require("null-ls")
+local lspconfig = require("dotfiles.plugin.lspconfig")
+if null_ls then
+  local null_ls_server_options = {sources = {null_ls.builtins.formatting.stylua, null_ls.builtins.formatting.fnlfmt}, on_attach = lspconfig.on_attach}
+  return null_ls.setup(null_ls_server_options)
+else
+  return nil
+end

nvim/.config/nvim/lua/dotfiles/plugin/orgbullets.lua

@@ -0,0 +1,41 @@
+-- [nfnl] fnl/dotfiles/plugin/orgbullets.fnl
+local core = require("nfnl.core")
+local conceal = require("dotfiles.conceal")
+local ts_utils = require("dotfiles.ts-utils")
+local stars = {"\226\151\137", "\226\166\190", "\226\151\139", "\226\156\184", "\226\156\191", "\226\156\182", "\226\128\162", "\226\128\163"}
+local stars_query = "(headline (stars) @stars)"
+local function star_index(heading_level)
+  local star_count = core.count(stars)
+  local idx = math.fmod(heading_level, star_count)
+  if (0 < idx) then
+    return idx
+  else
+    return star_count
+  end
+end
+local extmark_namespace = vim.api.nvim_create_namespace("HeaderStars")
+local star_captures = ts_utils["make-query"]("org", stars_query)
+local function gen_star_extmarks()
+  if ("org" == vim.bo.filetype) then
+    local bufnr = vim.api.nvim_get_current_buf()
+    local star_count = core.count(stars)
+    vim.api.nvim_buf_clear_namespace(bufnr, extmark_namespace, 0, -1)
+    for id, node, metadata in star_captures(bufnr) do
+      local start_line,start_col,end_row,end_col = node:range()
+      local heading_level
+      if (start_line == end_row) then
+        heading_level = (end_col - start_col)
+      else
+        heading_level = nil
+      end
+      local star = core.get(stars, star_index(heading_level))
+      local replacement = string.format(core.str("%", (2 + heading_level), "s"), star)
+      vim.api.nvim_buf_set_extmark(bufnr, extmark_namespace, start_line, start_col, {end_col = end_col, end_row = end_row, virt_text = {{replacement, {}}}, virt_text_pos = "overlay", hl_mode = "combine"})
+    end
+    return nil
+  else
+    return nil
+  end
+end
+local group = vim.api.nvim_create_augroup("HeaderStars", {clear = true})
+return vim.api.nvim_create_autocmd({"FileChangedShellPost", "Syntax", "TextChanged", "InsertLeave", "WinScrolled"}, {group = group, callback = conceal["setup-conceals"]})

nvim/.config/nvim/lua/dotfiles/plugin/orgmode.lua

@@ -0,0 +1,4 @@
+-- [nfnl] fnl/dotfiles/plugin/orgmode.fnl
+local orgmode = require("orgmode")
+orgmode.setup({org_agenda_files = {"~/Dropbox/org/*", "~/my-orgs/**/*"}, org_default_notes_file = "~/Dropbox/org/refile.org", mappings = {org = {org_toggle_checkbox = "<C-.>"}}})
+return require("dotfiles.plugin.orgbullets")

nvim/.config/nvim/lua/dotfiles/plugin/packer.lua

@@ -0,0 +1,4 @@
+-- [nfnl] fnl/dotfiles/plugin/packer.fnl
+local u = require("dotfiles.util")
+u.nnoremap("<leader>pi", "PackerInstall")
+return u.nnoremap("<leader>pu", "PackerUpdate")

nvim/.config/nvim/lua/dotfiles/plugin/paredit.lua

@@ -0,0 +1,93 @@
+-- [nfnl] fnl/dotfiles/plugin/paredit.fnl
+local a = require("nfnl.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")
+vim.g.paredit_smartjump = 1
+local function list_member_3f(xs, x)
+  local function _1_(_241)
+    return (x == _241)
+  end
+  return a.some(_1_, a.vals(xs))
+end
+local function bool__3eint(bool)
+  if bool then
+    return 1
+  else
+    return 0
+  end
+end
+local function int__3ebool(x)
+  if (0 == x) then
+    return false
+  else
+    return true
+  end
+end
+local function toggle_global_21(x)
+  vim.g[x] = bool__3eint(not int__3ebool(a.get(vim.g, x)))
+  return nil
+end
+local function language_at_cursor()
+  local parser = ts_parsers.get_parser()
+  local current_node = ts_utils.get_node_at_cursor()
+  local range
+  if current_node then
+    range = {current_node:range()}
+  else
+    range = nil
+  end
+  local lang
+  if range then
+    lang = languagetree.language_for_range(parser, range)
+  else
+    lang = nil
+  end
+  if lang then
+    return lang:lang()
+  else
+    return nil
+  end
+end
+local function parser_language()
+  local parser = ts_parsers.get_parser()
+  if parser then
+    return parser:lang()
+  else
+    return nil
+  end
+end
+local paredit_langs = {"clojure", "fennel", "hy", "janet", "julia", "lfe", "lisp", "racket", "scheme", "shen"}
+local paredit_host_langs = {"org", "markdown", "asciidoc"}
+local function host_lang_in_3f(langs)
+  return list_member_3f(langs, parser_language())
+end
+local function paredit_lang_3f(lang)
+  return list_member_3f(paredit_langs, lang)
+end
+local function TreeSitterLangParedit()
+  if host_lang_in_3f(paredit_host_langs) then
+    local cursor_lang = language_at_cursor()
+    if cursor_lang then
+      vim.g.paredit_mode = bool__3eint(paredit_lang_3f(cursor_lang))
+      return vim.fn.PareditInitBuffer()
+    else
+      return nil
+    end
+  else
+    return nil
+  end
+end
+local function _10_()
+  return vim.fn.PareditInitBalancingAllBracketsBuffer()
+end
+vim.api.nvim_create_autocmd({"FileType"}, {pattern = "ruby", callback = _10_})
+local function _11_()
+  return vim.fn.PareditInitBalancingAllBracketsBuffer()
+end
+vim.api.nvim_create_autocmd({"FileType"}, {pattern = "javascript", callback = _11_})
+local function _12_()
+  return vim.fn.PareditInitBalancingAllBracketsBuffer()
+end
+return vim.api.nvim_create_autocmd({"FileType"}, {pattern = "terraform", callback = _12_})

nvim/.config/nvim/lua/dotfiles/plugin/smartsplits.lua

@@ -0,0 +1,19 @@
+-- [nfnl] fnl/dotfiles/plugin/smartsplits.fnl
+local smart_splits = require("smart-splits")
+if smart_splits then
+  smart_splits.setup()
+  vim.keymap.set("n", "<M-S-h>", smart_splits.resize_left)
+  vim.keymap.set("n", "<M-S-j>", smart_splits.resize_down)
+  vim.keymap.set("n", "<M-S-k>", smart_splits.resize_up)
+  vim.keymap.set("n", "<M-S-l>", smart_splits.resize_right)
+  vim.keymap.set("n", "<M-h>", smart_splits.move_cursor_left)
+  vim.keymap.set("n", "<M-j>", smart_splits.move_cursor_down)
+  vim.keymap.set("n", "<M-k>", smart_splits.move_cursor_up)
+  vim.keymap.set("n", "<M-l>", smart_splits.move_cursor_right)
+  vim.keymap.set("n", "<leader><leader>h", smart_splits.swap_buf_left)
+  vim.keymap.set("n", "<leader><leader>j", smart_splits.swap_buf_down)
+  vim.keymap.set("n", "<leader><leader>k", smart_splits.swap_buf_up)
+  return vim.keymap.set("n", "<leader><leader>l", smart_splits.swap_buf_right)
+else
+  return nil
+end

nvim/.config/nvim/lua/dotfiles/plugin/telescope.lua

@@ -0,0 +1,28 @@
+-- [nfnl] fnl/dotfiles/plugin/telescope.fnl
+local util = require("dotfiles.util")
+local telescope = require("telescope")
+local vimgrep_arguments = {"ag", "--nocolor", "--noheading", "--number", "--column", "--nobreak", "--smart-case", "--hidden", "--ignore", ".git", "--follow"}
+telescope.load_extension("projects")
+telescope.load_extension("yank_history")
+telescope.setup({pickers = {buffers = {mappings = {n = {d = "delete_buffer"}}}}, extensions = {projects = {projects = {}}}})
+util.lnnoremap("fc", "Telescope commands")
+util.lnnoremap("fC", "Telescope command_history")
+util.lnnoremap("ff", "Telescope git_files hidden=true")
+util.lnnoremap("f-", "Telescope find_files")
+util.lnnoremap("fg", "Telescope live_grep")
+util.lnnoremap("*", "Telescope grep_string")
+util.lnnoremap("fb", "Telescope buffers")
+util.lnnoremap("fd", "Telescope diagnostics")
+util.lnnoremap("fH", "Telescope help_tags")
+util.lnnoremap("fh", "Telescope oldfiles")
+util.lnnoremap("fp", "Telescope projects")
+util.lnnoremap("fm", "Telescope keymaps")
+util.lnnoremap("fM", "Telescope marks")
+util.lnnoremap("ft", "Telescope filetypes")
+util.lnnoremap("fq", "Telescope quickfix")
+util.lnnoremap("fl", "Telescope loclist")
+util.lnnoremap("fsi", "Telescope lsp_implementations")
+util.lnnoremap("fsr", "Telescope lsp_references")
+util.lnnoremap("fsS", "Telescope lsp_document_symbols")
+util.lnnoremap("fss", "Telescope lsp_workspace_symbols")
+return util.lnnoremap("fy", "Telescope yank_history")

nvim/.config/nvim/lua/dotfiles/plugin/toggleterm.lua

@@ -0,0 +1,14 @@
+-- [nfnl] fnl/dotfiles/plugin/toggleterm.fnl
+local toggleterm = require("toggleterm")
+toggleterm.setup({open_mapping = "<c-\\>", start_in_insert = true, insert_mappings = true, terminal_mappings = true, persist_size = true, persist_mode = true, autochdir = true})
+local function set_terminal_keymaps()
+  vim.keymap.set("t", "<esc>", "<C-\\><C-n>")
+  vim.keymap.set("t", "jk", "<C-\\><C-n>")
+  vim.keymap.set("t", "<C-h>", "<Cmd>wincmd h<CR>")
+  vim.keymap.set("t", "<C-j>", "<Cmd>wincmd j<CR>")
+  vim.keymap.set("t", "<C-k>", "<Cmd>wincmd k<CR>")
+  vim.keymap.set("t", "<C-l>", "<Cmd>wincmd l<CR>")
+  return vim.keymap.set("t", "<C-w>", "<C-\\><C-n><C-w>")
+end
+vim.api.nvim_create_user_command("SetTerminalKeymaps", set_terminal_keymaps, {})
+return vim.api.nvim_create_autocmd({"TermOpen"}, {pattern = "term://*", callback = set_terminal_keymaps})

nvim/.config/nvim/lua/dotfiles/plugin/treesitter.lua

@@ -0,0 +1,3 @@
+-- [nfnl] fnl/dotfiles/plugin/treesitter.fnl
+local treesitter_configs = require("nvim-treesitter.configs")
+return treesitter_configs.setup({highlight = {enable = true, additional_vim_regex_highlighting = {"org"}}, ensure_installed = "all", rainbow = {enable = true, extended_mode = true, max_file_lines = 10000, colors = {"#dc322f", "#b58900", "#d33682", "#859900", "#2aa198", "#268bd2", "#6c71c4"}}})

nvim/.config/nvim/lua/dotfiles/plugin/whichkey.lua

@@ -0,0 +1,7 @@
+-- [nfnl] fnl/dotfiles/plugin/whichkey.fnl
+local which_key = require("which-key")
+if which_key then
+  return which_key.setup({})
+else
+  return nil
+end

nvim/.config/nvim/lua/dotfiles/plugin/yanky.lua

@@ -0,0 +1,23 @@
+-- [nfnl] fnl/dotfiles/plugin/yanky.fnl
+local yanky = require("yanky")
+yanky.setup({ring = {history_length = 100, storage = "shada", sync_with_numbered_registers = true, cancel_event = "update"}, system_clipboard = {sync_with_ring = true}})
+vim.keymap.set("n", "p", "<Plug>(YankyPutAfter)")
+vim.keymap.set("n", "P", "<Plug>(YankyPutBefore)")
+vim.keymap.set("n", "gp", "<Plug>(YankyGPutAfter)")
+vim.keymap.set("n", "gP", "<Plug>(YankyGPutBefore)")
+vim.keymap.set("n", "<c-n>", "<Plug>(YankyCycleForward)")
+vim.keymap.set("n", "<c-p>", "<Plug>(YankyCycleBackward)")
+vim.keymap.set("n", "]p", "<Plug>(YankyPutIndentAfterLinewise)")
+vim.keymap.set("n", "[p", "<Plug>(YankyPutIndentBeforeLinewise)")
+vim.keymap.set("n", "]P", "<Plug>(YankyPutIndentAfterLinewise)")
+vim.keymap.set("n", "[P", "<Plug>(YankyPutIndentBeforeLinewise)")
+vim.keymap.set("n", ">p", "<Plug>(YankyPutIndentAfterShiftRight)")
+vim.keymap.set("n", "<p", "<Plug>(YankyPutIndentAfterShiftLeft)")
+vim.keymap.set("n", ">P", "<Plug>(YankyPutIndentBeforeShiftRight)")
+vim.keymap.set("n", "<P", "<Plug>(YankyPutIndentBeforeShiftLeft)")
+vim.keymap.set("n", "=p", "<Plug>(YankyPutAfterFilter)")
+vim.keymap.set("n", "=P", "<Plug>(YankyPutBeforeFilter)")
+vim.keymap.set("x", "p", "<Plug>(YankyPutAfter)")
+vim.keymap.set("x", "P", "<Plug>(YankyPutBefore)")
+vim.keymap.set("x", "gp", "<Plug>(YankyGPutAfter)")
+return vim.keymap.set("x", "gP", "<Plug>(YankyGPutBefore)")

nvim/.config/nvim/lua/dotfiles/plugins.lua

@@ -0,0 +1,29 @@
+-- [nfnl] fnl/dotfiles/plugins.fnl
+local packer = require("packer")
+local core = require("nfnl.core")
+local function safe_require_plugin_config(name)
+  local ok_3f, val_or_err = pcall(require, ("dotfiles.plugin." .. name))
+  if not ok_3f then
+    return print(("dotfiles error: " .. val_or_err))
+  else
+    return nil
+  end
+end
+local function use(pkgs)
+  local function _2_(use0)
+    for name, opts in pairs(pkgs) do
+      do
+        local tmp_3_ = opts.mod
+        if (nil ~= tmp_3_) then
+          safe_require_plugin_config(tmp_3_)
+        else
+        end
+      end
+      use0(core.assoc(opts, 1, name))
+    end
+    return nil
+  end
+  return packer.startup(_2_)
+end
+local packages = {["Olical/nfnl"] = {}, ["Olical/conjure"] = {mod = "conjure"}, ["Olical/fennel.vim"] = {}, ["ahmedkhalf/project.nvim"] = {}, ["airblade/vim-gitgutter"] = {}, ["akinsho/toggleterm.nvim"] = {mod = "toggleterm"}, ["clojure-vim/vim-jack-in"] = {}, ["christianrondeau/vim-base64"] = {}, ["dhruvasagar/vim-table-mode"] = {}, ["folke/lsp-colors.nvim"] = {}, ["folke/which-key.nvim"] = {mod = "whichkey"}, ["gbprod/yanky.nvim"] = {mod = "yanky"}, ["hashivim/vim-terraform"] = {}, ["HiPhish/rainbow-delimiters.nvim"] = {}, ["hrsh7th/nvim-cmp"] = {requires = {"hrsh7th/cmp-buffer", "hrsh7th/cmp-emoji", "hrsh7th/cmp-nvim-lsp", "hrsh7th/cmp-nvim-lua", "hrsh7th/cmp-path", "hrsh7th/cmp-vsnip", "hrsh7th/vim-vsnip-integ", "L3MON4D3/LuaSnip", "PaterJason/cmp-conjure", "saadparwaiz1/cmp_luasnip"}, mod = "cmp"}, ["hrsh7th/vim-vsnip"] = {}, ["hrsh7th/vim-vsnip-integ"] = {}, ["Iron-E/nvim-soluarized"] = {}, ["jiangmiao/auto-pairs"] = {}, ["nvimtools/none-ls.nvim"] = {mod = "null-ls", requires = {"nvim-lua/plenary.nvim"}}, ["junegunn/vim-easy-align"] = {mod = "easyalign"}, ["kovisoft/paredit"] = {mod = "paredit", require = {"nvim-treesitter/nvim-treesitter"}}, ["kristijanhusak/vim-dadbod-completion"] = {}, ["kristijanhusak/vim-dadbod-ui"] = {}, ["L3MON4D3/LuaSnip"] = {mod = "luasnip"}, ["lifepillar/vim-solarized8"] = {}, ["lukas-reineke/headlines.nvim"] = {mod = "headlines"}, ["mrjones2014/smart-splits.nvim"] = {mod = "smartsplits"}, ["mechatroner/rainbow_csv"] = {}, ["MunifTanjim/nui.nvim"] = {}, ["neovim/nvim-lspconfig"] = {mod = "lspconfig"}, ["norcalli/nvim-colorizer.lua"] = {mod = "colorizer"}, ["nvim-neo-tree/neo-tree.nvim"] = {branch = "v3.x", require = {"nvim-lua/plenary.nvim", "nvim-tree/nvim-web-devicons", "MunifTanjim/nui.nvim"}}, ["nvim-orgmode/orgmode"] = {mod = "orgmode"}, ["nvim-telescope/telescope.nvim"] = {requires = {{"nvim-lua/popup.nvim"}, {"nvim-lua/plenary.nvim"}}, mod = "telescope"}, ["nvim-tree/nvim-web-devicons"] = {}, ["nvim-treesitter/nvim-treesitter"] = {run = ":TSUpdate", mod = "treesitter"}, ["nvim-treesitter/playground"] = {}, ["radenling/vim-dispatch-neovim"] = {}, ["RaafatTurki/hex.nvim"] = {mod = "hex"}, ["rafamadriz/friendly-snippets"] = {}, ["skywind3000/asyncrun.vim"] = {}, ["tpope/vim-dadbod"] = {}, ["tpope/vim-dispatch"] = {}, ["tpope/vim-fugitive"] = {mod = "fugitive"}, ["tpope/vim-git"] = {}, ["tpope/vim-pathogen"] = {}, ["tpope/vim-rails"] = {}, ["tpope/vim-repeat"] = {}, ["tpope/vim-rhubarb"] = {}, ["tpope/vim-surround"] = {}, ["tpope/vim-unimpaired"] = {}, ["tpope/vim-vinegar"] = {}, ["wbthomason/packer.nvim"] = {mod = "packer"}, ["williamboman/mason.nvim"] = {mod = "mason", requires = {"williamboman/mason-lspconfig.nvim", "neovim/nvim-lspconfig"}}}
+return use(packages)

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

@@ -0,0 +1,10 @@
+-- [nfnl] fnl/dotfiles/terraform-helpers.fnl
+local function append_to_buf(bufno, lines)
+  if lines then
+    return vim.aip.nvim_buf_set_lines(bufno, -1, -1, false, lines)
+  else
+    return nil
+  end
+end
+local tf_log_bufno = nil
+return nil

nvim/.config/nvim/lua/dotfiles/ts-utils.lua

@@ -0,0 +1,17 @@
+-- [nfnl] fnl/dotfiles/ts-utils.fnl
+local core = require("nfnl.core")
+local function root(bufnr, lang)
+  local parser = vim.treesitter.get_parser(bufnr, lang, {})
+  local tree = core.first(parser:parse())
+  return tree:root()
+end
+local function make_query(lang, query_string)
+  local query = vim.treesitter.query.parse(lang, "(headline (stars) @stars)")
+  local function _1_(bufnr)
+    local root_node = root(bufnr, lang)
+    local iter_captures = query.iter_captures(query, root_node, bufnr, 0, -1)
+    return iter_captures
+  end
+  return _1_
+end
+return {root = root, ["make-query"] = make_query}

nvim/.config/nvim/lua/dotfiles/util.lua

@@ -0,0 +1,44 @@
+-- [nfnl] fnl/dotfiles/util.fnl
+local a = require("nfnl.core")
+local function fn_3f(x)
+  return ("function" == type(x))
+end
+local function noremap(mode, from, to, opts)
+  local local_3f = a.get(opts, "local?")
+  local opts0 = a.assoc(opts, "local?", nil)
+  local map_opts = a.merge(opts0, {noremap = true, silent = true})
+  local to0
+  if fn_3f(to) then
+    to0 = to
+  else
+    to0 = (":" .. to .. "<cr>")
+  end
+  local buff_num = a.get(opts0, "buff-num")
+  if (local_3f or buff_num) then
+    return vim.keymap.set(mode, from, to0, a.merge(map_opts, {buffer = (buff_num or 0)}))
+  else
+    return vim.keymap.set(mode, from, to0, map_opts)
+  end
+end
+local function nnoremap(from, to, opts)
+  return noremap("n", from, to, opts)
+end
+local function tnoremap(from, to, opts)
+  return noremap("t", from, to, opts)
+end
+local function inoremap(from, to, opts)
+  return noremap("i", from, to, opts)
+end
+local function vnoremap(from, to, opts)
+  return noremap("v", from, to, opts)
+end
+local function lnnoremap(from, to, opts)
+  return nnoremap(("<leader>" .. from), to, opts)
+end
+local function ltnoremap(from, to, opts)
+  return noremap("v", ("<leader>" .. from), to, opts)
+end
+local function lvnoremap(from, to, opts)
+  return noremap("t", ("<leader>" .. from), to, opts)
+end
+return {noremap = noremap, nnoremap = nnoremap, tnoremap = tnoremap, inoremap = inoremap, vnoremap = vnoremap, lnnoremap = lnnoremap, ltnoremap = ltnoremap, lvnoremap = lvnoremap}

nvim/.config/nvim/lua/dotfiles/zoom-toggle.lua

@@ -0,0 +1,17 @@
+-- [nfnl] fnl/dotfiles/zoom-toggle.fnl
+local u = require("dotfiles.util")
+local unzoom_21 = nil
+local function zoom_toggle()
+  if unzoom_21 then
+    vim.cmd(unzoom_21)
+    unzoom_21 = nil
+    return nil
+  else
+    unzoom_21 = vim.fn.winrestcmd()
+    vim.fn.resize()
+    return vim.fn.vertical("resize")
+  end
+end
+vim.api.nvim_create_user_command("ZoomToggle", zoom_toggle, {})
+u.nnoremap("<M-z>", ":call ZoomToggle()<CR>")
+return u.tnoremap("<M-z>", "<c-\\><c-n>:call ZoomToggle()<CR>")