(import-macros {: use : reuse} :relude) (use nvim {: map : fun : api : opt : cmd}) (reuse plugins) (use picker) (import-macros {: augroup : defcommand} :nvim) (set opt.shell :fish) (do ; MatchIt must be unloaded for MatchPair to work correctly (set vim.g.loaded_matchit true) (set vim.g.matchup_surround_enabled true)) (do ; Colors (cmd.colorscheme :blame) (opt {:termguicolors true :guicursor ["n-v-c-sm:block-Cursor" "i-ci-ve:ver25-Cursor" "r-cr-o:hor20-Cursor"]})) (do ; Indentation (opt {:shiftwidth 2 :expandtab true :textwidth 80 :wrap false :linebreak true :formatoptions :tcqjl})) (do ; UI (opt {:updatetime 500 :title true :showmode true :signcolumn "yes:1"})) (do ; Display tabs and trailing spaces visually (opt {:fillchars ["vert:┃" "fold:·"] :list true :listchars ["tab:→ " "trail:·" "nbsp:␣" "extends:↦" "precedes:↤"] :conceallevel 0 :concealcursor :nc})) (do ; Ignore case. ; If your code uses different casing to differentiate files, then you need ; mental help (opt {:wildignorecase true :wildmode :full :fileignorecase true :wildignore [:*.o "*~" :**/.git/** :**/node_modules/** :**/_build/** :**/deps/** :**/target/** :**/uploads/** :*.lock]})) (opt {:diffopt+ [:indent-heuristic "algorithm:patience"] :iskeyword+ ["-"]}) (do ; Autowrite file whenever possible (opt {:hidden false :autowriteall true})) (do (set opt.mousescroll ["ver:3" "hor:0"]) ; Keep cursor in the middle (let [value 9999 enter (fn [] (set opt.window.signcolumn :no) (set opt.window.scrolloff 0)) leave (fn [] (set opt.window.signcolumn "yes:1") (set opt.window.scrolloff value))] (set opt.scrolloff value) (augroup terminal-scrolloff (on TermOpen "*" (enter)) (on BufEnter "term://*" (enter)) (on BufLeave "term://*" (leave))))) (do ; XXI century - we have cursors now (set opt.mouse :a)) (do (set opt.title true) (augroup window-title (on BufEnter "*" (let [cwd (fun.getcwd) project (fun.fnamemodify cwd ":p:~:h")] (set opt.titlestring (.. "nvim " project)))))) (do ; TreeSitter (let [try-start (fn [] (let [(value _error) (vim.treesitter.get_parser nil nil {:error false})] (if value (vim.treesitter.start))))] (defcommand TSStart (try-start)) (defcommand TSStop (vim.treesitter.stop)) (augroup ts-start (on FileType [:elixir :eex :heex :fennel :rust :nix :css] (try-start))))) (do ; Split in CORRECT places (opt {:splitright true :splitbelow true})) (do ; Searching (opt {:ignorecase true :smartcase true :inccommand :nosplit})) (do ; Permanent undo (set opt.undofile true)) (do ; Save only meaningful data to sessions (set opt.sessionoptions [:blank :buffers :curdir :folds :tabpages :winsize :terminal])) (do ; Folding (opt {:foldmethod :expr :foldexpr "nvim_treesitter#foldexpr()" :foldlevel 999}) (map :n : "foldlevel(\".\") ? \"za\" : \"\\\"" {:expr true})) (do ; Completion (opt {:complete ["." :w :b :t :k :kspell] :completeopt [:menuone :noselect :noinsert]})) (do ; Clap (map :n : #(picker.find-files))) (do ; Additional "Close" commands (map :n :ZS ":wa") (map :n :ZA ":qa") (map :n :ZX ":cq")) (do ; Swap ; and : for easier command line mode (let [swap (fn [a b] (map :nx a b) (map :nx b a))] (swap ";" ":") (map :n "q;" "q:"))) (do ; Expand abbreviation when hit (map :i : "")) (do ; Make Vim behaviour consistent (map :n :Y :y$)) (do ; Code formatting (map :n :g= "=aGg``") (map :nx :Q :gq) (map :n :gQ "gqaG``")) (do ; Smart `0` ; Goes to the beginning of the text at first and later goes to the beginning of ; the line, alternates afterwards (map :n :0 "virtcol('.') - 1 <= indent('.') && col('.') > 1 ? '0' : '_'" {:expr true})) (do ; Help viewing and opening URLs (defcommand Dash {:nargs "?"} (fun.dash#open (tostring args))) (map :n :gK ":Dash") (map :n :gq #(let [name (fun.expand :)] (fun.jobstart [:open name] {:detach true}) (print :Open name)))) (do ; Text object for whole file (map :o :aG ":normal! ggVG")) (do ; Quickly disable highlight (map :n "," ":nohlsearch")) (do ; Frequently used unimpaired mappings (let [unimpaired (fn [char left right] (map :n (.. "[" char) left) (map :n (.. "]" char) right))] (unimpaired :w :gT :gt))) (do ; Terminal mappings ; (map :n :c ":term") (map :n :s ":Start") (map :n :v ":vert Start") (map :n :t ":tab Start") (map :t : "

") (map :n : :) (map :n :q :) (map :n :

:) (map :i :

:)) ; (when (fun.executable :nvr) ; (set vim.env.EDITOR "nvr -cc split -c 'set bufhidden=delete' --remote-wait"))) (do ; Git mappings (let [leader :U git-map (fn [lhs cmd] (map :n (.. leader lhs) (.. ":Git " cmd)))] (map :n leader :) (map :n (.. leader leader) (.. leader :u) {:noremap false}) (git-map :p :push) (git-map :s "") (git-map :d :diff) (git-map :B :blame) (git-map :c :commit) (git-map :u :pull) (git-map :g :log))) ; (do ; Split management ; (set vim.g.choosewin_label :QWERTASDF) ; (map :n :

"(choosewin)") ; (map :n : "(choosewin)")) (do ; Search (when (fun.executable :rg) (opt {:grepprg "rg --vimgrep --no-heading --smart-case" :grepformat "%f:%l:%c:%m,%f:%l%m,%f %l%m"}))) (do ; Matchparen (set vim.g.matchup_matchparen_offscreen {:method :popup}) (augroup matchparen-term (let [term "term://*"] (on BufEnter term (cmd.NoMatchParen)) (on BufLeave term (cmd.DoMatchParen))))) (do ; Autoreload Direnv after writing the .envrc (when (fun.executable :direnv) (augroup autoreload-envrc (on BufWritePost :.envrc (fun.system ["direnv" "allow" (fun.expand "%")]) (cmd.DirenvExport))))) (do ; Setup Lua extensions (let [setup (fn [package config] (let [lib (require package) f (. lib :setup) opts (match (type config) :nil {} :function (config lib) :table config)] (f opts) lib))] (setup :mini.ai) (setup :mini.align {:mappings {:start :gl :start_with_preview :gL}}) ;(setup :mini.bracketed) (setup :mini.bufremove (fn [bufremove] (defcommand Bd (bufremove.delete)) (defcommand BClean (->> (fun.getbufinfo {:buflisted true}) (vim.tbl_filter #(= (next $1.windows) nil)) (#(each [_ v (ipairs $1)] (bufremove.delete v.bufnr))))) {:set_vim_settings false})) (setup :mini.jump {:mappings {:repeat_jump ":"}}) (setup :mini.operators { :multiply {:prefix ""} :replace {:prefix ""} :sort {:prefix ""}}) (setup :mini.sessions (fn [sessions] (let [complete (fn [with-current?] #(icollect [_ spec (pairs sessions.detected)] (when (not (and with-current? (= spec.path vim.v.this_session))) spec.name)))] (defcommand SSave {:nargs "?" :bang true} (print (sessions.write args {:force bang}))) (defcommand SDelete {:nargs "?" :bang true :complete (complete true)} (print (sessions.delete args {:force bang}))) (defcommand SRead {:nargs 1 :bang true :complete (complete false)} (print (sessions.read (tostring args) {:force bang})))) {:directory (.. (fun.stdpath :data) "/site/sessions/")})) (setup :mini.starter (fn [starter] {:items [(starter.sections.sessions 10 true) (starter.sections.builtin_actions)]})) (setup :mini.surround {:mappings {:add :gsa :delete :gsd :find :gsf :find_left :gsF :highlight "" :replace :gss :update_n_lines ""}}) (setup :agentic { :provider :omp :acp_providers { :omp { :command "omp" :args ["acp"] } }}) ; (setup :nvim-treesitter ; {:highlight {:enable true ; ; Currently disable as it do not work as expected ; :disable [:erlang :make :diff]} ; :matchup {:enable true} ; :indent {:enable true} ; :incremental_selection {:enable true}}) ; (setup :neorg ; {:load {:core.defaults {} ; :core.concealer {}}}) )) (defcommand Clean "keeppatterns %s/\\s\\+$//e | set nohlsearch") (do ; Async Make and Grep (let [run (fn [args f-args] (api.call-function "asyncdo#run" (vim.list_extend args f-args)))] (defcommand Make {:bang true :nargs "*" :complete :file} (run [bang opt.makeprg] args)) (defcommand Grep {:bang true :nargs "+" :complete :dir} (run [bang {:job opt.grepprg :errorformat opt.grepformat}] args)))) (defcommand Ctags (cmd.AsyncDo "ctags -R .")) (defcommand Start {:nargs "*"} (let [args (if (= (length args) 0) (fun.split opt.shell) args) command (icollect [_ v (pairs args)] (fun.expand v))] (cmd.new {:mods mods}) (fun.termopen command) (cmd.startinsert))) (do ; TreeSJ (map :n :gS #(let [lib (require "treesj") toggle (. lib :toggle)] (toggle)))) (require :langclient)