mirror of
https://github.com/elkowar/dots-of-war.git
synced 2025-04-05 06:13:31 +00:00
68 lines
2.4 KiB
Fennel
68 lines
2.4 KiB
Fennel
(fn help-thingy-kram []
|
|
(local {: autoload} (require :nfnl.module))
|
|
(local utils (autoload :dots.utils))
|
|
(local a (autoload :aniseed.core))
|
|
(local str (autoload :aniseed.string))
|
|
(local popup (autoload :popup))
|
|
(local ts (autoload :nvim-treesitter))
|
|
|
|
(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
|
|
(var entries {})
|
|
(each [line _ (io.lines (.. helpfiles-path "/tags"))]
|
|
(let [[key file address] (str.split line "\t")]
|
|
(tset entries key {:file (.. helpfiles-path "/" file) :address address})))
|
|
entries)
|
|
|
|
(defn find-help-tag-for [topic]
|
|
(or (. tags topic)
|
|
(. tags (.. topic "()"))
|
|
(. tags (.. (string.gsub topic "vim%.api%." "") "()"))
|
|
(. tags (.. (string.gsub topic "vim%.fn%." "") "()"))
|
|
(. tags (.. (string.gsub topic "fn%." "") "()"))
|
|
(. tags (.. (string.gsub topic "vim%.o%." "") "()"))
|
|
(. tags (.. (string.gsub topic "vim%.b%." "") "()"))
|
|
(. tags (.. (string.gsub topic "vim%.g%." "") "()"))))
|
|
|
|
|
|
(defn help-for-tag [tag]
|
|
(var data nil)
|
|
(each [line _ (io.lines tag.file)]
|
|
(if (= nil data)
|
|
(when (~= -1 (vim.fn.match line (tag.address:sub 2)))
|
|
(set data [line]))
|
|
(if (or (> 2 (length data))
|
|
(= "" line)
|
|
(= " " (line:sub 1 1))
|
|
(= "\t" (line:sub 1 1))
|
|
(= "<" (line:sub 1 1)))
|
|
(table.insert data line)
|
|
(lua "return data")))))
|
|
|
|
(fn _G.get_help []
|
|
(if-let [help-tag (find-help-tag-for (get-current-word))]
|
|
(pop (help-for-tag help-tag) :help)))
|
|
|
|
(utils.keymap :n :ML ":call v:lua.get_help()<CR>"))
|
|
|
|
[]
|