nvim-config/fnl/personalize.fnl

(let [cmp (require :cmp)
      luasnip (require :luasnip)]
  {:options (fn []
              (set vim.g.mapleader " ")
              (set vim.g.maplocalleader "\\")
              (set vim.o.termguicolors true)
              (set vim.o.clipboard :unnamedplus)
              (set vim.o.wrap false)
              (set vim.opt.colorcolumn "80,120")
              (vim.cmd.colorscheme :everforest)
              (set vim.o.formatoptions :tncro)
              (set vim.o.conceallevel 2)
              (set vim.o.splitbelow true)
              (set vim.o.splitright true))
   :keymap (fn []
             (let [nmap #(vim.keymap.set :n $1 $2 {:desc $3})
                   tmap #(vim.keymap.set :t $1 $2)]
               (nmap :<Tab> :<C-^> "Toggle alternate-file")
               (nmap :<C-x> ":bn|bd!#<cr>" "Delete a buffer without removing the split")
               (nmap :<leader>w :80<C-W>|)
               (nmap :<C-h> :<C-W>h)
               (nmap :<C-j> :<C-W>j)
               (nmap :<C-k> :<C-W>k)
               (nmap :<C-l> :<C-W>l)
               (tmap :<C-h> :<C-\><C-n><C-w>h)
               (tmap :<C-j> :<C-\><C-n><C-w>j)
               (tmap :<C-k> :<C-\><C-n><C-w>k)
               (tmap :<C-l> :<C-\><C-n><C-w>l)
               (tmap :<C-w> "<C-\\><C-n>")
               (nmap :<leader>to ":new term://bash|resize 8<cr>")
               (vim.api.nvim_create_autocmd 
                 [:BufWinEnter :WinEnter] 
                 {:pattern "term://*"
                  :command "startinsert"})
               (nmap :<leader>dj 
                     #(vim.cmd (.. "vsplit ~/TDC-Obsidian/Journal/"
                                   (os.date "%Y") "/"
                                   (os.date "%m") "/"
                                   (os.date "%Y-%m-%d")
                                   ".md")
                     "Open today's journal"))
               (nmap :<leader>o ":Telescope find_files<cr>" "Telescope find_files")
               (nmap :<leader>b ":Telescope buffers<cr>" "Telescope buffers")
               (nmap :<leader>s ":Telescope live_grep<cr>" "Telescope live_grep")
               (nmap :<leader>e ":Telescope emoji<cr>" "Telescope emoji")
               (let [duck (require :duck)]
                 (nmap :<leader><leader> #(duck.hatch) "hatch a duck")
                 (nmap :<leader>dk #(duck.cook) "cook a duck"))
             ))
   :treesitter-languages [:c
                          :lua
                          :vim
                          :vimdoc
                          :query
                          :fennel
                          :racket]
   :language-servers {:lua_ls {:filetypes [:lua]
                               :Lua {:workspace {:checkThirdParty false}}
                               :telemetry {:enable false}
                               :diagnostics {:globals [:vim]}}
                      :fennel_language_server {:filetypes [:fennel]
                                               :fennel {:workspace {:library (vim.api.nvim_list_runtime_paths)}
                                                        :diagnostics {:globals [:vim]}}}
                      :bashls {:filetypes [:bash]}
                      :marksman {:filetypes [:markdown]}}
   :lsp-attach (fn [_ bufnr]
                 (let [nmap #(vim.keymap.set :n $1 $2
                                             {:buffer bufnr
                                              :desc (.. "LSP: " $3)})
                       telescope (require :telescope.builtin)]
                   (nmap :gd vim.lsp.buf.definition "[G]o to [D]efiniton")
                   (nmap :gr telescope.lsp_references "[G]o to [R]eferences")
                   (nmap :gI vim.lsp.buf.implementation
                         "[G]o to [I]mplementation")))
   :cmp-mapping {:<C-j> (cmp.mapping.select_next_item)
                 :<C-k> (cmp.mapping.select_prev_item)
                 :<C-d> (cmp.mapping.scroll_docs -4)
                 :<C-f> (cmp.mapping.scroll_docs 4)
                 :<C-Space> (cmp.mapping.complete)
                 :<CR> (cmp.mapping.confirm {:behavior cmp.ConfirmBehavior.Replace
                                             :select true})
                 :<Tab> (cmp.mapping (fn [fallback]
                                       (if (cmp.visible) (cmp.select_prev_item)
                                           (luasnip.expand_or_locally_jumpable) (luasnip.expand_or_jump)
                                           (fallback)))
                                     [:i :s])
                 :<S-Tab> (cmp.mapping (fn [fallback]
                                         (if (cmp.visible)
                                             (cmp.select_prev_item)
                                             (luasnip.locally_jumpable -1)
                                             (luasnip.jump -1) (fallback)))
                                       [:i :s])}})