summaryrefslogtreecommitdiff
path: root/fnl/config/winbar.fnl
blob: 9336e6bc23fe65d8666fdb72110967b784695ca4 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
;; Winbar settings
(module config.winbar {autoload {nvim aniseed.nvim}})

(def- ignore-filetypes {:help true
                        :startify true
                        :dashboard true
                        :packer true
                        :neogitstatus true
                        :NvimTree true
                        :Trouble true
                        :alpha true
                        :lir true
                        :Outline true
                        :spectre_panel true})

(defn- is-empty [arg] (or (= arg nil) (= arg "")))

(defn- get-filename [] (vim.fn.expand "%t:"))

(defn- get-filetype [] vim.bo.filetype)

(defn- get-extension [] (vim.fn.expand "%:e"))

(defn- ignore [] (. ignore-filetypes (get-filetype)))

(defn- get-icon [] (let [(ok? devicons) (pcall require :nvim-web-devicons)]
                     (if ok?
                         (let [filename (get-filename)
                               extension (get-extension)]
                           (if (not (is-empty filename))
                               (let [(icon _) (devicons.get_icon filename
                                                                 extension)]
                                 icon))))))

(defn- get-winbar []
      (if (and (not= (ignore) true) (not= (is-empty (get-filename)) true))
          (let [icon (get-icon)]
            (if (not= icon nil)
                (vim.api.nvim_set_option_value :winbar (.. "   " icon " " "%t%m")
                                               {:scope :local})
                (vim.api.nvim_set_option_value :winbar (.. "  " "%t%m")
                                               {:scope :local})))
          (vim.api.nvim_set_option_value :winbar "" {:scope :local})))

(nvim.create_autocmd "BufEnter,CursorMoved,CursorHold,BufWinEnter,BufFilePost,InsertEnter,BufWritePost,TabClosed"
                     {:callback (lambda []
                                  (get-winbar))})