;; A customizable greeter.

(local icons (require :settings.icons))

(local ascii-art ["     ##############..... ############## "
                  "   ##############......##############   "
                  "     ##########..........##########     "
                  "     ##########........##########       "
                  "     ##########.......##########        "
                  "     ##########.....##########..        "
                  "     ##########....##########.....      "
                  "   ..##########..##########.........    "
                  " ....##########.#########.............  "
                  "   ..################JJJ............    "
                  "     ################.............      "
                  "     ##############.JJJ.JJJJJJJJJJ      "
                  "     ############...JJ...JJ..JJ  JJ     "
                  "     ##########....JJ...JJ..JJ  JJ      "
                  "     ########......JJJ..JJJ JJJ JJJ     "
                  "    ######    .........                 "
                  "                 .....                  "
                  "                   .                    "])

(λ config []
  (let [alpha (require :alpha)]
    (let [dashboard (require :alpha.themes.dashboard)]
      (set dashboard.section.header.val ascii-art)
      (set dashboard.section.buttons.val
           [(dashboard.button :f (.. (. icons :search-files) "  Find file")
                              ":Telescope find_files theme=ivy previewer=false<CR>")
            (dashboard.button :g (.. (. icons :search-text) "  Find text")
                              ":Telescope live_grep theme=ivy<CR>")
            (dashboard.button :p
                              (.. (. icons :search-project) "  Find project")
                              ":Telescope projects theme=ivy<CR>")
            (dashboard.button :r
                              (.. (. icons :recent-files)
                                  "  Recently used files")
                              ":Telescope oldfiles theme=ivy previewer=false<CR>")
            (dashboard.button :t (.. (. icons :cog) "  Configuration")
                              ":e ~/.config/nvim/init.lua <CR>")
            (dashboard.button :o (.. (. icons :org) "  Org")
                              ":Telescope find_files theme=ivy cwd=~/.local/share/org<CR>")])
      (set dashboard.section.header.opts.hl :AlphaHeader)
      (set dashboard.section.buttons.opts.hl :AlphaButtons)
      (set dashboard.opts.opts.noautocmd true)
      (alpha.setup dashboard.opts))))

{1 :goolord/alpha-nvim :event :VimEnter : config}