;;; init.el --- Emacs configuration  -*- lexical-binding: t; -*-

(require 'package)
(add-to-list 'package-archives
             '("melpa" . "https://melpa.org/packages/") t)
(package-initialize)

(unless package-archive-contents
  (package-refresh-contents))

(require 'use-package)
(setq use-package-always-ensure t)

(scroll-bar-mode -1)
(setq display-line-numbers-type 'relative)
(global-display-line-numbers-mode 1)
(setq-default indent-tabs-mode nil)

(setq custom-file (concat user-emacs-directory "custom.el"))
(setq backup-directory-alist `(("." . ,(concat user-emacs-directory
                                               "backups"))))

(use-package ibuffer
  :custom
  (ibuffer-expert t)
  (ibuffer-show-empty-filter-groups nil)
  :hook (ibuffer-mode . ibuffer-auto-mode))

(use-package magit
  :defer t)

(use-package evil
  :init
  (setq evil-want-keybinding nil)
  (setq evil-undo-system 'undo-redo)
  :config
  (evil-set-leader '(normal visual) (kbd "SPC"))
  (evil-define-key '(normal visual) 'global
    (kbd "<leader>gs") #'magit-status
    (kbd "<leader>bi") #'ibuffer)
  (evil-mode 1))

(use-package evil-collection
  :after evil
  :config
  (evil-collection-init))

(use-package vs-dark-theme
  :config
  (load-theme 'vs-dark t))

;;;; dev
(keymap-global-set "C-x g" #'magit-status)

(use-package apheleia
  :config
  (add-to-list 'apheleia-mode-alist '(scheme-mode . lisp-indent))
  (apheleia-global-mode +1))


;;;;; markdown
(use-package markdown-mode
  :mode ("\\.md\\'" . gfm-mode)
  :hook (markdown-mode . flyspell-mode))

(setq ispell-program-name "aspell"
      ispell-dictionary "en_US")
(add-hook 'markdown-mode-hook #'flyspell-mode)

(use-package nix-ts-mode
  :mode "\\.nix\\'")

;;;;; scheme
(use-package geiser-guile)

(use-package rainbow-delimiters
  :hook (scheme-mode . rainbow-delimiters-mode))

(add-hook 'scheme-mode-hook #'electric-pair-local-mode)

;;;;; elisp
(add-hook 'emacs-lisp-mode-hook #'outline-minor-mode)