1
0
Fork 0
dotfiles/home/config/nvim/plugins/cmp.fnl

110 lines
6.4 KiB
Fennel

(let [cmp (require :cmp)
luasnip (require :luasnip)
lspkind (require :lspkind)
npairs (require :nvim-autopairs.completion.cmp)]
(fn main-sources []
(let [maybe-tabnine (if (pcall require :cmp_tabnine.config)
[{:name :cmp_tabnine}]
[])]
(vim.list_extend (vim.list_extend [{:name :nvim_lsp}] maybe-tabnine)
[{:name :async_path}
{:name :luasnip}
{:name :cmp_yanky :option {:minLength 3}}])))
(fn comparator-list []
(let [compare (require :cmp.config.compare)
maybe-tabnine (if (pcall require :cmp_tabnine.compare)
[(require :cmp_tabnine.compare)]
[])]
(vim.list_extend (vim.list_extend [compare.offset
compare.exact
compare.score]
maybe-tabnine)
[compare.recently_used
compare.locality
compare.kind
compare.length
compare.order])))
(fn has-words-before? []
(let [(line col) (-> 0 (vim.api.nvim_win_get_cursor) (unpack))]
(if (not= col 0)
(let [line-content (vim.api.nvim_buf_get_lines 0 (- line 1) line true)
cursor-content (: (. line-content 1) :sub col col)]
(= (cursor-content:match "%s") nil))
false)))
(fn map-tab [fallback]
(if (cmp.visible) (cmp.select_next_item)
(luasnip.expand_or_jumpable) (luasnip.expand_or_jump)
(has-words-before?) (cmp.complete)
(fallback)))
(fn map-stab [fallback]
(if (cmp.visible) (cmp.select_prev_item)
(luasnip.jumpable -1) (luasnip.jump -1)
(fallback)))
(cmp.setup {:sources (cmp.config.sources (main-sources)
[{:name :treesitter
:keyword_length 3}
{:name :buffer}])
:sorting {:priority_weight 2 :comparators (comparator-list)}
:mapping (cmp.mapping.preset.insert {:<C-e> (cmp.mapping {:i (cmp.mapping.abort)
:c (cmp.mapping.close)})
:<esc> (cmp.mapping {:i (cmp.mapping.abort)})
:<Tab> (cmp.mapping {:c #(if (cmp.visible)
(cmp.select_next_item {:behavior cmp.SelectBehavior.Insert})
(cmp.complete))
:i map-tab
:s map-tab})
:<S-Tab> (cmp.mapping {:c #(if (cmp.visible)
(cmp.select_prev_item {:behavior cmp.SelectBehavior.Insert})
(cmp.complete))
:i map-stab
:s map-stab})
:<C-Space> (cmp.mapping.confirm {:behavior cmp.ConfirmBehavior.Insert
:select true})
:<CR> (cmp.mapping.confirm {:select true})})
:window {:completion {:winhighlight "Normal:Pmenu,FloatBorder:Pmenu,CursorLine:CmpCursorLine,Search:None"
:col_offset -3
:side_padding 0
:scrollbar true}
:documentation (cmp.config.window.bordered)}
:view {:entries {:name :custom :selection_order :near_cursor}}
:completion {:keyword_length 2
:completeopt "menu,menuone,noinsert"}
:snippet {:expand (fn [args]
(luasnip.lsp_expand args.body))}
:formatting {:fields [:kind :abbr :menu]
:format (fn [entry vim-item]
(let [kind-fn (lspkind.cmp_format {:mode :symbol_text
:maxwidth 50})
kind (kind-fn entry vim-item)
strings (vim.split kind.kind "%s"
{:trimempty true})]
(if (= entry.source.name :cmp_tabnine)
(do
(set kind.kind " 󱜚 ")
(set kind.menu " (TabNine)"))
(= entry.source.name :cmp_yanky)
(do
(set kind.kind " 󰅌 ")
(set kind.menu " (Clipboard)"))
(do
(set kind.kind
(.. " " (or (. strings 1) "")
" "))
(set kind.menu
(.. " ("
(or (. strings 2) "") ")"))))
kind))}})
(cmp.setup.cmdline "/"
{:sources (cmp.config.sources [{:name :nvim_lsp_document_symbol}]
[{:name :buffer}])
:mapping (cmp.mapping.preset.cmdline)})
(cmp.setup.cmdline ":"
{:sources (cmp.config.sources [{:name :async_path}]
[{:name :cmdline}])
:mapping (cmp.mapping.preset.cmdline)})
(cmp.event:on :confirm_done (npairs.on_confirm_done)))