helm/home/profiles/nvim/config/fnl/conf/mappings.fnl

(local nvim (require :lib/nvim))
(import-macros {: do-req } :lib/macros)

(local wk (require :which-key))

;; Convenient way to indent stuff in visual mode
(nvim.keymap [:v] "<" "<gv" {:noremap true})
(nvim.keymap [:v] ">" ">gv" {:noremap true})
(nvim.keymap [:n] "<space>" "<NOP>" {:noremap true :silent true})
;; Convenient way to move stuff in visual mode
(nvim.keymap [:v] "J" ":m '>+1<CR>gv=gv" {:noremap true})
(nvim.keymap [:v] "K" ":m '>-2<CR>gv=gv" {:noremap true})
;; Convientent screen shifting 
(nvim.keymap [:n] "n" "nzzzv" {:noremap true})
(nvim.keymap [:n] "N" "Nzzzv" {:noremap true})
(nvim.keymap [:n] "J" "mzJ'z" {:noremap true})
; Fix Y
(nvim.keymap [:n] "Y" "y$")
; Unmap Q
(nvim.keymap [] "Q" "<Nop>")

; FTerm
(vim.api.nvim_create_user_command "FTermToggle" (fn [_] 
                                                  ((-> (require :FTerm) 
                                                      (. :toggle)))) 
                                  {:bang true})
(nvim.keymap [:t] "<TAB>" "<cmd>:FTermToggle<CR>")
(nvim.keymap [:n] "<TAB>" "<cmd>:FTermToggle<CR>" {:noremap true})

; Buffer Movement
(nvim.keymap [:n] "gT" ":BufferPrevious<CR>" {:silent true :noremap true}) 
(nvim.keymap [:n] "gt" ":BufferNext<CR>" {:silent true :noremap true}) 
(nvim.keymap [:n] "gj" ":BufferPick<CR>" {:silent true :noremap true}) 
(nvim.keymap [:n] "gb" ":Telescope buffers<CR>" {:silent true :noremap true}) 
(nvim.keymap [:n] "gq" ":BufferClose<CR>" {:silent true :noremap true}) 

; Flash
(vim.api.nvim_create_user_command "Flash" (fn [_] (do-req :flash :jump)) {})
(vim.api.nvim_create_user_command "FlashTreesitter" (fn [] (do-req :flash :treesitter)) {})
(nvim.keymap [:n] "f" "<cmd>Flash<CR>") 
(nvim.keymap [:n] "s" "<cmd>FlashTreesitter<CR>") 

(local
  normal-map-leader
  {"t" [":Neotree toggle<CR>"
        "Toggle neo-tree"]
   "w" ["<cmd>:w<cr>"
        "Write file"]
   "q" ["<cmd>:q<cr>"
        "Quit"]
   "r" [":RainbowParenthesesToggleAll<CR>"
        "Toggle Rainbow Parens"]
   "u" [":UndotreeToggle<CR>"
        "Toggle Undo Tree"]
   ; Telescope 
   "f" {:name "Files"
        :f ["<cmd>Telescope find_files<cr>"
             "Find Files (in Telescope)"]
        :g ["<cmd>Telescope live_grep<cr>"
             "Find Grep (in Telescope)"]
        :b ["<cmd>Telescope buffers<cr>"
             "Find Buffers"]
        :h ["<cmd>Telescope help_tags<cr>"
             "Find Help"]
        :t ["<cmd>Telescope tags<cr>"
            "Find Tags"]
        :r ["<cmd>Telescope oldfiles<CR>"
            "Recent files"]}
   ; Git
   "g" {:name "Git"
         "s" [":G<CR>"
              "Git Status"]
         "f" [":G fetch --all<cr>"
              "Git Fetch"]
         "b" [":GBranches<cr>"
              "Git Branch"]
         "p" [":Git! push<cr>"
              "Git Push"]
         "d" [":GDiff<cr>"
              "Git Diff"]
         "h" [""
              "Commit Hunk under Cursor"]}
         ; For handling merges
         ;     nmap <leader>gl :diffget //3<CR>
         ;     nmap <leader>gh :diffget //2<CR>
         ;     nnoremap <leader>gc :G commit -v -q %:p<CR>
   ; Buffers
   "b" {:name "Buffer"
        :b ["<cmd>:Telescope buffers<CR>"
            "Buffer List"]
        :q ["<cmd>:BufferClose<CR>"
             "Buffer Quit"]
        :n ["<cmd>:BufferNext<CR>"
            "Buffer Next"]
        :N ["<cmd>:tabp<CR>"
            "Buffer Previous"]
        :p ["<cmd>:tabp<CR>"
            "Buffer Previous"]}
   ; Search
   "s" {:name "Search"
        :b ["<cmd>Telescope current_buffer_fuzzy_find<CR>"
            "Search in current buffer"]
        :s ["<cmd>Telescope live_grep<CR>"
            "Search in project"]
        :t ["<cmd>TodoTelescope<CR>"
            "Search TODOs in project"]
        :c ["<cmd>let @/ = \"\"<CR>:echo 'Search highlight cleared'<CR>"
            "Clear search"]}
   ; Code
   "c" {:name "Code"
        :d [":lua vim.lsp.buf.definition()<CR>"
            "Go to Definition"]
        :i [":lua require('telescope.builtin').lsp_implementation()<CR>"
            "Implementation"]
        :s [":lua vim.lsp.buf.signature_help()<CR>"
            "Signature Help"]
        :r [":Lspsaga rename<CR>"
            "Rename Symbol"]
        :h [":Lspsaga hover_doc<CR>"
            "Hover doc"]
        :o ["<cmd>AerialToggle!<CR>"
            "Outline"]
        :t [":LspDiagnostics 0"
            "Find Errors in Buffer"]}
   ; Kitaab
   "z" {:name "Kitaab"
        :n [":ZettelNew<CR>"
            "Zettel New"]}
   "v" {:name "Tabs"
        :v [":vnew<CR>"
            "Vertical Split"]
        :h [":new<CR>"
            "Horizontal Split"]}})

(wk.register normal-map-leader {:prefix "<leader>"})