asdf

nvim/.config/nvim/fnl/help-thingy.fnl

@@ -6,6 +6,25 @@
             ts nvim-treesitter}
    require-macros [macros]})
 
+(defn pop [text ft]
+  "Open a popup with the given text and filetype"
+  (var width 20)
+  (each [_ line (ipairs text)]
+    (set width (math.max width (length line))))
+  (let [bufnr (vim.api.nvim_create_buf false true)]
+    (vim.api.nvim_buf_set_option bufnr :bufhidden "wipe")
+    (vim.api.nvim_buf_set_option bufnr :filetype ft)
+    (vim.api.nvim_buf_set_lines bufnr 0 -1 true text)
+    (popup.create bufnr {:padding [1 1 1 1] :width width})))
+
+
+(defn get-current-word []
+  "Return the word the cursor is currently hovering over"
+  (let [col  (. (vim.api.nvim_win_get_cursor 0) 2)
+        line (vim.api.nvim_get_current_line)]
+    (.. (vim.fn.matchstr (line:sub 1 (+ col 1)) "\\k*$")
+        (string.sub (vim.fn.matchstr (line:sub (+ col 1)) "^\\k*")
+                    2))))
 (def helpfiles-path (str.join "/" (a.butlast (str.split vim.o.helpfile "/"))))
 
 (def tags

nvim/.config/nvim/fnl/init.fnl

@@ -11,8 +11,6 @@
 (macro make-errors-epic [f]
   `(xpcall #,f #(a.println (fennel.traceback $1))))
 
-
-
 (when (vim.fn.has "termguicolors")
   (se termguicolors true))
 
@@ -79,6 +77,9 @@
 
 (vim.cmd "autocmd! TextYankPost * silent! lua vim.highlight.on_yank {higroup=\"IncSearch\", timeout=300}")
 
+
+
+
 ; foldend
 
 ; Colors  ------------------------------------------------------- foldstart

nvim/.config/nvim/fnl/keybinds.fnl

@@ -9,7 +9,8 @@
 
 
 (utils.keymap :i :<C-Space> "compe#complete()" {:expr true})
-(utils.keymap :i :<esc> "compe#close('<esc>')" {:expr true})
+;(utils.keymap :i :<esc> "compe#close('<esc>')" {:expr true})
+(utils.keymap :i :kj "compe#close('<esc>')" {:expr true})
 
 
 (utils.keymap [:n] :<C-p> "<cmd>Telescope find_files<cr>")

nvim/.config/nvim/fnl/plugins.fnl

@@ -75,7 +75,11 @@
   :folke/lsp-trouble.nvim {:mod "plugins.trouble"}
   :simrat39/symbols-outline.nvim {:mod "plugins.symbols-outline"}
   :neovim/nvim-lspconfig {}
-  :hrsh7th/nvim-compe {:mod "plugins.compe"}
+
+  ;:hrsh7th/nvim-compe {:mod "plugins.compe"}
+  :/home/leon/coding/prs/nvim-compe {:mod "plugins.compe"}
+
+
   :glepnir/lspsaga.nvim {:mod "plugins.lspsaga"}
 
 

nvim/.config/nvim/fnl/plugins/compe.fnl

@@ -1,5 +1,20 @@
 (module plugins.compe
-  {autoload {compe compe}})
+  {require {compe compe}})
+
+
+(defn result-formatter [items]
+  (var max-width 0)
+  (each [_ item (ipairs items)]
+    (set item.abbr (-> item.abbr
+                       (string.gsub "~$" "")
+                       (string.gsub " %(.*%)$" "")))
+    (set max-width (math.max max-width (vim.fn.strwidth item.abbr))))
+  (each [_ item (ipairs items)]
+    (let [padding (string.rep " " (- max-width (vim.fn.strwidth item.abbr)))
+          details (?. item :user_data :compe :completion_item :detail)]
+      (when details
+        (set item.abbr (.. item.abbr padding " " details)))))
+  items)
 
 (compe.setup 
  {:enabled true
@@ -14,6 +29,7 @@
   :max_kind_width 100 
   :max_menu_width 100 
   :documentation true 
+  :formatting_functions {:nvim_lsp {:results result-formatter}}
   :source {:path true
            :buffer true 
            :calc true 

nvim/.config/nvim/fnl/plugins/feline.fnl

@@ -11,8 +11,6 @@
          require-macros [macros]})
 
 
-
-
 (local modes 
    {:n   {:text "NORMAL"        :color colors.neutral_aqua}
     :i   {:text "INSERT"        :color colors.neutral_yellow}

nvim/.config/nvim/fnl/plugins/lsp.fnl

@@ -37,7 +37,7 @@
   (let [merged-opts (a.merge {:on_attach on_attach} (or ?opts {}))]
     ((. lsp lsp-name :setup) merged-opts)))
 
-
+; Added capabilities for rust-analyzer with nvim-compe
 (let [capabilities (vim.lsp.protocol.make_client_capabilities)]
   (set capabilities.textDocument.completion.completionItem.snippetSupport true)
   (set capabilities.textDocument.completion.completionItem.resolveSupport
@@ -56,13 +56,25 @@
 (init-lsp :html)
 (init-lsp :cssls)
 
+(let [rust-tools (require "rust-tools")]
+  (rust-tools.setup {:tools {:inlay_hints {:show_parameter_hints false}}}))
+
+(let [sumneko_root_path (.. vim.env.HOME "/.local/share/lua-language-server")
+      sumneko_binary (.. sumneko_root_path "/bin/Linux/lua-language-server")]
+  (init-lsp 
+    :sumneko_lua
+    {:cmd [sumneko_binary "-E" (.. sumneko_root_path "/main.lua")]
+     :settings {:Lua {:runtime {:version "LuaJIT"
+                                :path (vim.split package.path ";")}
+                      :diagnostics {:globals ["vim"]}
+                      :workspace {:library {(vim.fn.expand "$VIMRUNTIME/lua") true
+                                            (vim.fn.expand "$VIMRUNTIME/lua/vim/lsp") true}}
+                      :telemetry false}}}))
+
 
-;(lsp.vimls.setup { :on_attach on_attach})
 
 (se signcolumn "yes")
 
-;(let [rust-tools (require "rust-tools")]
-  ;(rust-tools.setup {:tools {:inlay_hints {:show_parameter_hints false}}}))
 
 
 ; vim:foldmarker=<<<<<,>>>>>