;;; lisp/interface.el --- Changes to Emacs' interface -*- lexical-binding: t; -*-
;;; Commentary:
;;
;; Emacs has a little too much going on in it's interface by default - things
;; like GTK dialog boxes for quitting, a scroll bar, a menu bar, etc. are all
;; unnecessary for most users - so disabling that is done right in this file.
;; Additionally, the default theme isn't very aesthetic, so that obviously needs to change too.
;;
;;; Code:

;; Stop Emacs from resizing the window at startup
(setq frame-resize-pixelwise t)

;; Remove the startup screen
(setq inhibit-startup-message t)

;; Disable the GTK dialog that appears when exiting without saving
(setq use-dialog-box nil)

;; Enable line numbers globally
(setq display-line-numbers 'relative)
(add-hook 'prog-mode-hook 'display-line-numbers-mode)

;; Modeline
(use-package nano-modeline)
(add-hook 'prog-mode-hook #'nano-modeline-prog-mode)
(add-hook 'org-mode-hook #'nano-modeline-org-mode)

;; Window dividers + fringe
(set-fringe-mode 0)
(window-divider-mode 1)

;; Add a nice border around Emacs
(modify-all-frames-parameters
 '((right-divider-width . 15)
   (internal-border-width . 15)))

;; vertico - An amazing search engine!
(use-package vertico
  :init
  (vertico-mode 1))

;; Use the `orderless' completion mechanism
(use-package orderless
  :after vertico
  :init
  (setq completion-styles '(orderless basic)
        completion-category-defaults nil
        completion-category-overrides '((file (styles basic partial-completion)))))

;; magit - A beautiful git porcelain for Emacs
(use-package magit)

;; which-key - a popup which displays available keybindings
(use-package which-key
  :init
  (which-key-mode)
  :custom
  (which-key-idle-delay 0.1) ; Make the popup appear faster
  (which-key-separator " - ")) ; Change the seperator which-key uses

(use-package diredfl ; Colourise dired!
  :hook dired-mode)

;;; interface.el ends here