;; Statusbar.
(module config.lualine {autoload {util util}})

(def- ignore [:help
              :packer
              :neogitstatus
              :NvimTree
              :lir
              :spectre_panel
              :alpha
              :Outline
              :NeogitStatus
              :TelescopePrompt
              ""])

(defn- active-clients [] (let [clients (vim.lsp.buf_get_clients)
                              client_names []]
                          (each [_ client (pairs clients)]
                            (if (not= client.name :null-ls)
                                (table.insert client_names client.name)))
                          (if (> (length client_names) 0)
                              (table.concat client_names ", ")
                              "")))

(defn- hide-in-width [] (> (vim.fn.winwidth 0) 80))

(def- diagnostics {1 :diagnostics
                   :sources [:nvim_diagnostic]
                   :sections [:error :warn]
                   ;; :symbols {:error "x " :warn "! "}
                   :colored false
                   :update_in_insert false
                   :always_visible true})

(def- diff {1 :diff
            :colored false
            :symbols {:added " " :modified " " :removed " "}
            :cond hide-in-width})

(def- branch {1 "b:gitsigns_head" :icon " " :cond hide-in-width})

(def- filetype {1 :filetype :cond hide_in_width :color {}})

(def- language-server {1 active-clients :padding 0 :cond hide_in_width})

(let [lualine (util.load-plugin :lualine)]
  (lualine.setup {:options {:icons_enabled true
                            :theme :auto
                            :component_separators {:left "" :right ""}
                            :section_separators {:left "" :right ""}
                            :disabled_filetypes ignore
                            :always_divide_middle true}
                  :sections {:lualine_a [:mode]
                             :lualine_b [branch diff :filename]
                             :lualine_c {}
                             :lualine_x [filetype language-server diagnostics]
                             :lualine_y {}
                             :lualine_z [:location :progress :encoding]}
                  :inactive_sections {:lualine_a [:mode]
                                      :lualine_b [:filename]
                                      :lualine_c {}
                                      :lualine_x {}
                                      :lualine_y {}
                                      :lualine_z [:location
                                                  :progress
                                                  :encoding]}
                  :extensions {}}))