mirror of
https://github.com/Cian-H/my_nvim_config.git
synced 2026-08-16 14:42:49 +01:00
356 lines
16 KiB
Fennel
356 lines
16 KiB
Fennel
;; Declare vim as a known global for fennel-ls linting
|
|
(local vim _G.vim)
|
|
|
|
;; Helper functions for keybindings
|
|
|
|
(fn gitsigns-nav [chord dir]
|
|
(if vim.wo.diff
|
|
(vim.cmd.normal {1 chord :bang true})
|
|
(let [gs (require :gitsigns)]
|
|
(gs.nav_hunk dir))))
|
|
|
|
(fn harpoon-select [idx]
|
|
(let [hp (require :harpoon)]
|
|
(: (hp:list) :select idx)))
|
|
|
|
(fn trouble-nav [dir fallback-cmd]
|
|
(let [tr (require :trouble)]
|
|
(if (tr.is_open)
|
|
((. tr dir) {:skip_groups true :jump true})
|
|
(let [(ok err) (pcall vim.cmd fallback-cmd)]
|
|
(when (not ok)
|
|
(vim.notify err vim.log.levels.ERROR))))))
|
|
|
|
(fn toggle-lisp-tooling []
|
|
(let [rm (require :rainbow-delimiters)]
|
|
(rm.toggle 0)
|
|
(let [active (rm.is_enabled 0)
|
|
buf (vim.api.nvim_get_current_buf)
|
|
lisp-fts [:clojure :fennel :scheme :lisp :janet :racket :hy :elisp]
|
|
filetype (vim.api.nvim_get_option_value :filetype {: buf})]
|
|
(if (vim.tbl_contains lisp-fts filetype)
|
|
(let [(has-paredit paredit-config) (pcall require
|
|
:nvim-paredit.config)]
|
|
(if has-paredit
|
|
(let [keys paredit-config.config.keys]
|
|
(if active
|
|
(let [(has-kb keybindings) (pcall require
|
|
:nvim-paredit.utils.keybindings)]
|
|
(if has-kb
|
|
(keybindings.setup_keybindings {: keys : buf})))
|
|
(each [keymap action (pairs keys)]
|
|
(when action
|
|
(let [mode (or action.mode [:n :x])
|
|
modes (if (= (type mode) :string) [mode] mode)]
|
|
(each [_ m (ipairs modes)]
|
|
(pcall vim.keymap.del m keymap {:buffer buf}))))))))
|
|
(vim.notify (.. "Lisp Tooling: " (if active :ON :OFF))
|
|
vim.log.levels.INFO))
|
|
(vim.notify (.. "Rainbow Delimiters: " (if active :ON :OFF))
|
|
vim.log.levels.INFO)))))
|
|
|
|
;; Define the keybindings prefix trie
|
|
(local trie
|
|
{;; Globals (No leader)
|
|
:<A-h> [:<C-w>h "Window Left" :globals]
|
|
:<A-j> [:<C-w>j "Window Down" :globals]
|
|
:<A-k> [:<C-w>k "Window Up" :globals]
|
|
:<A-l> [:<C-w>l "Window Right" :globals]
|
|
:<A-=> [:<C-w>+ "Resize Increase Height" :globals]
|
|
:<A--> [:<C-w>- "Resize Decrease Height" :globals]
|
|
:<A-.> [:<C-w>> "Resize Increase Width" :globals]
|
|
"<A-,>" [:<C-w>< "Resize Decrease Width" :globals]
|
|
:<A-n> [:<C-w>s "Split Window Horizontal" :globals]
|
|
"<A-;>" [:<C-w>x "Swap Window" :globals]
|
|
:<A-q> [":q<CR>" "Close Window" :globals]
|
|
:<Esc> [:<cmd>nohlsearch<CR> "Clear Highlight" :globals]
|
|
;; Atone
|
|
:U [#(let [atone (require :atone.core)] (atone.toggle))
|
|
"[U]ndotree"
|
|
:atone]
|
|
;; Gitsigns (no-leader)
|
|
"]c" [#(gitsigns-nav "]c" :next)
|
|
"Next Hunk"
|
|
:gitsigns
|
|
{:expr true :mode :n}]
|
|
"[c" [#(gitsigns-nav "[c" :prev)
|
|
"Previous Hunk"
|
|
:gitsigns
|
|
{:expr true :mode :n}]
|
|
;; Harpoon (no-leader Alt keys)
|
|
:<A-a> [#(harpoon-select 1) "Harpoon file 1" :harpoon]
|
|
:<A-s> [#(harpoon-select 2) "Harpoon file 2" :harpoon]
|
|
:<A-d> [#(harpoon-select 3) "Harpoon file 3" :harpoon]
|
|
:<A-f> [#(harpoon-select 4) "Harpoon file 4" :harpoon]
|
|
;; LSP (no-leader)
|
|
:K [#(vim.lsp.buf.hover) "[K] Hover Documentation" :lsp]
|
|
:gd [#(let [tb (require :telescope.builtin)] (tb.lsp_definitions))
|
|
"[G]oto [D]efinition"
|
|
:lsp]
|
|
:ge [#(vim.lsp.buf.declaration) "[G]oto D[e]claration" :lsp]
|
|
:gi [#(let [tb (require :telescope.builtin)] (tb.lsp_implementations))
|
|
"[G]oto [I]mplementation"
|
|
:lsp]
|
|
:gr [#(let [tb (require :telescope.builtin)] (tb.lsp_references))
|
|
"[G]oto [R]eferences"
|
|
:lsp]
|
|
:gt [#(let [tb (require :telescope.builtin)] (tb.lsp_type_definitions))
|
|
"[G]oto [T]ype"
|
|
:lsp]
|
|
;; Todo comments (no-leader)
|
|
"]t" [#(let [tc (require :todo-comments)] (tc.jump_next))
|
|
"Next Todo Comment"
|
|
:todo_comments]
|
|
"[t" [#(let [tc (require :todo-comments)] (tc.jump_prev))
|
|
"Previous Todo Comment"
|
|
:todo_comments]
|
|
;; Trouble (no-leader)
|
|
"[q" [#(trouble-nav :prev :cprev)
|
|
"Previous Trouble/Quickfix Item"
|
|
:trouble]
|
|
"]q" [#(trouble-nav :next :cnext)
|
|
"Next Trouble/Quickfix Item"
|
|
:trouble]
|
|
;; Leader mappings
|
|
:<leader> {:name :Leader
|
|
;; Agenda / Org Mode Group
|
|
:a {:name "[A]genda" :icon ""}
|
|
;; Search Group
|
|
:s {:name "[S]earch"
|
|
:icon ""
|
|
:h [#(let [tb (require :telescope.builtin)]
|
|
(tb.help_tags))
|
|
"[S]earch [H]elp"
|
|
:telescope]
|
|
:k [#(let [tb (require :telescope.builtin)] (tb.keymaps))
|
|
"[S]earch [K]eymaps"
|
|
:telescope]
|
|
:f [#(let [tb (require :telescope.builtin)]
|
|
(tb.find_files))
|
|
"[S]earch [F]iles"
|
|
:telescope]
|
|
:b [#(let [tb (require :telescope.builtin)] (tb.buffers))
|
|
"[S]earch [B]uffers"
|
|
:telescope]
|
|
:s [#(let [tb (require :telescope.builtin)] (tb.builtin))
|
|
"[S]earch [S]elect Telescope"
|
|
:telescope]
|
|
:w [#(let [tb (require :telescope.builtin)]
|
|
(tb.grep_string))
|
|
"[S]earch current [W]ord"
|
|
:telescope]
|
|
:g [#(let [tb (require :telescope.builtin)]
|
|
(tb.live_grep))
|
|
"[S]earch by [G]rep"
|
|
:telescope]
|
|
:d [#(let [tb (require :telescope.builtin)]
|
|
(tb.diagnostics))
|
|
"[S]earch [D]iagnostics"
|
|
:telescope]
|
|
:r [#(let [tb (require :telescope.builtin)] (tb.resume))
|
|
"[S]earch [R]esume"
|
|
:telescope]
|
|
:. [#(let [tb (require :telescope.builtin)]
|
|
(tb.oldfiles))
|
|
"[S]earch Recent Files (\".\" for repeat)"
|
|
:telescope]
|
|
:/ [#(let [tb (require :telescope.builtin)]
|
|
(tb.live_grep {:grep_open_files true
|
|
:prompt_title "Live Grep in Open Files"}))
|
|
"[S]earch [/] in Open Files"
|
|
:telescope]
|
|
:n [#(let [tb (require :telescope.builtin)]
|
|
(tb.find_files {:cwd (vim.fn.stdpath :config)}))
|
|
"[S]earch [N]eovim files"
|
|
:telescope]
|
|
:t [:<cmd>TodoTelescope<cr> :Todo :todo_comments]
|
|
:T ["<cmd>TodoTelescope keywords=TODO,FIX,FIXME<cr>"
|
|
:Todo/Fix/Fixme
|
|
:todo_comments]}
|
|
;; Search buffer (not in s group but starts with /)
|
|
:/ [#(let [tb (require :telescope.builtin)]
|
|
(tb.current_buffer_fuzzy_find ((. (require :telescope.themes)
|
|
:get_dropdown) {:winblend 10
|
|
:previewer false})))
|
|
"[/] Fuzzily search in current buffer"
|
|
:telescope]
|
|
;; Code Group
|
|
:c {:name "[C]ode"
|
|
:icon ""
|
|
:s [#(let [tb (require :telescope.builtin)]
|
|
(tb.lsp_document_symbols))
|
|
"[C]ode [S]ymbols"
|
|
:lsp]
|
|
:w [#(let [tb (require :telescope.builtin)]
|
|
(tb.lsp_dynamic_workspace_symbols))
|
|
"[C]ode [W]orkspace Symbols"
|
|
:lsp]
|
|
:d [":lua require('neogen').generate()<CR>"
|
|
"[C]ode Add [D]ocumentation"
|
|
:neogen]
|
|
:i [#(vim.lsp.inlay_hint.enable (not (vim.lsp.inlay_hint.is_enabled)))
|
|
"[I]nlay Hints"
|
|
:lsp]
|
|
:a [#(vim.lsp.buf.code_action) "[C]ode [A]ction" :lsp]}
|
|
;; Rename (leaf, not group)
|
|
:r [#(vim.lsp.buf.rename) "[R]ename" :lsp]
|
|
;; Format (leaf, not group)
|
|
:f [#(vim.lsp.buf.format) "[F]ormat" :lsp]
|
|
;; Diagnostics Group
|
|
:d {:name "[D]iagnostics"
|
|
:icon ""
|
|
:d [#(vim.diagnostic.open_float)
|
|
"Show [D]iagnostics"
|
|
:globals]}
|
|
;; Git Group
|
|
:g {:name "[G]it"
|
|
:icon ""
|
|
:s [#(let [gs (require :gitsigns)] (gs.stage_hunk))
|
|
"[G]it [S]tage Hunk"
|
|
:gitsigns
|
|
{:mode [:n :v]}]
|
|
:r [#(let [gs (require :gitsigns)] (gs.reset_hunk))
|
|
"[G]it [R]eset Hunk"
|
|
:gitsigns
|
|
{:mode [:n :v]}]
|
|
:p [#(let [gs (require :gitsigns)] (gs.preview_hunk))
|
|
"[G]it [P]review Hunk"
|
|
:gitsigns
|
|
{:mode :n}]
|
|
:b [#(let [gs (require :gitsigns)] (gs.blame_line))
|
|
"[G]it [B]lame Line"
|
|
:gitsigns
|
|
{:mode :n}]}
|
|
;; Workspace Group (empty group for which-key)
|
|
:w {:name "[W]orkspace" :icon ""}
|
|
;; Tree Group
|
|
:t {:name "[T]ree"
|
|
:icon ""
|
|
:t [#(vim.api.nvim_command "Neotree toggle")
|
|
"[T]ree [T]oggle"
|
|
:neotree]
|
|
:s [#(vim.api.nvim_command "Neotree show")
|
|
"[T]ree [S]how"
|
|
:neotree]
|
|
:c [#(vim.api.nvim_command "Neotree close")
|
|
"[T]ree [C]lose"
|
|
:neotree]
|
|
:f [#(vim.api.nvim_command "Neotree focus")
|
|
"[T]ree [F]ocus"
|
|
:neotree]
|
|
:g [#(vim.api.nvim_command "Neotree git_status")
|
|
"[T]ree [G]it Status"
|
|
:neotree]
|
|
:b [#(vim.api.nvim_command "Neotree buffers")
|
|
"[T]ree [B]uffers"
|
|
:neotree]
|
|
:e [#(vim.cmd.Oil) "[T]ree [E]dit" :oil]}
|
|
;; LazyGit Group
|
|
:l {:name "[L]azyGit"
|
|
:icon ""
|
|
:g [#(let [s (require :snacks)] (s.lazygit))
|
|
"[L]azy[G]it"
|
|
:lazygit]
|
|
:l [#(let [s (require :snacks)] (s.lazygit.log))
|
|
"[L]azyGit [L]og"
|
|
:lazygit]
|
|
:f [#(let [s (require :snacks)] (s.lazygit.log_file))
|
|
"[L]azyGit [F]ile Log"
|
|
:lazygit]}
|
|
;; Overseer Group
|
|
:o {:name "[O]verseer"
|
|
:icon ""
|
|
:b [#(vim.cmd.OverseerBuild)
|
|
"[O]verseer [B]uild"
|
|
:overseer]
|
|
:c [#(vim.cmd.OverseerRunCmd)
|
|
"[O]verseer Run [C]ommand"
|
|
:overseer]
|
|
:r [#(vim.cmd.OverseerRun) "[O]verseer [R]un" :overseer]
|
|
:t [#(vim.cmd.OverseerToggle)
|
|
"[O]verseer [T]oggle"
|
|
:overseer]}
|
|
;; Harpoon Group
|
|
:h {:name "[H]arpoon"
|
|
:icon ""
|
|
:a [#(let [hp (require :harpoon)] (: (hp:list) :add))
|
|
"[H]arpoon [A]dd file"
|
|
:harpoon]
|
|
:q [#(let [hp (require :harpoon)]
|
|
(hp.ui:toggle_quick_menu (hp:list)))
|
|
"[H]arpoon [Q]uick menu"
|
|
:harpoon]}
|
|
;; Trouble Group
|
|
:x {:name "[X] Trouble"
|
|
:icon ""
|
|
:t ["<cmd>Trouble todo toggle<cr>" :Todo :todo_comments]
|
|
:T ["<cmd>Trouble todo toggle filter = {tag = {TODO,FIX,FIXME}}<cr>"
|
|
:Todo/Fix/Fixme
|
|
:todo_comments]
|
|
:x ["<cmd>Trouble diagnostics toggle<cr>"
|
|
:Diagnostics
|
|
:trouble]
|
|
:X ["<cmd>Trouble diagnostics toggle filter.buf=0<cr>"
|
|
"Buffer Diagnostics"
|
|
:trouble]
|
|
:s ["<cmd>Trouble symbols toggle<cr>"
|
|
"Symbols (Trouble)"
|
|
:trouble]
|
|
:S ["<cmd>Trouble lsp toggle<cr>"
|
|
"LSP references/definitions/... (Trouble)"
|
|
:trouble]
|
|
:L ["<cmd>Trouble loclist toggle<cr>"
|
|
"Location List"
|
|
:trouble]
|
|
:Q ["<cmd>Trouble qflist toggle<cr>"
|
|
"Quickfix List"
|
|
:trouble]}
|
|
;; Rainbow Delimiters / Lisp tooling
|
|
"(" [#(toggle-lisp-tooling)
|
|
"Toggle Lisp Tooling (Rainbow & Paredit)"
|
|
:rainbow_delimiters]
|
|
;; Precognition (empty group for which-key)
|
|
:p {:name "[P]recognition" :icon ""}
|
|
;; Cheatsheet (empty group for which-key)
|
|
:? {:name "[?] Cheatsheet" :icon ""}}
|
|
;; Local Leader
|
|
:<localleader> {:name "[L]ocal Leader (\\\\)"
|
|
:icon ""
|
|
:x {:name "Local [X] UV" :icon ""}}})
|
|
|
|
;; Flatten/parse the prefix trie into the flat representation for Neovim config
|
|
(local M {:groups []})
|
|
|
|
(fn traverse [node prefix]
|
|
(if (= (type node) :table)
|
|
(if (. node 1)
|
|
;; Leaf node: [rhs description plugin-name opts]
|
|
(let [[rhs desc ?plugin ?opts] node
|
|
plugin (or ?plugin :globals)
|
|
opts (or ?opts {})
|
|
entry (collect [k v (pairs opts)] (values k v))]
|
|
(tset entry 1 prefix)
|
|
(tset entry 2 rhs)
|
|
(set entry.desc desc)
|
|
;; Ensure the list for this plugin exists
|
|
(when (not (. M plugin))
|
|
(tset M plugin []))
|
|
(table.insert (. M plugin) entry))
|
|
;; Branch node
|
|
(do
|
|
;; Check if it has group metadata
|
|
(when (and node.name (not= prefix ""))
|
|
(let [group-entry {1 prefix :group node.name}]
|
|
(when node.icon
|
|
(set group-entry.icon node.icon))
|
|
(table.insert M.groups group-entry)))
|
|
;; Recursively traverse children
|
|
(each [k v (pairs node)]
|
|
(when (and (not= k :name) (not= k :icon))
|
|
(traverse v (.. prefix k))))))))
|
|
|
|
;; Execute the traversal on the top-level trie
|
|
(traverse trie "")
|
|
|
|
M
|