;; -*- lexical-binding: t; -*-

;; Don't show ugly graphical UI elements
(when (window-system)
  (tool-bar-mode -1)
  (scroll-bar-mode -1)
  (tooltip-mode -1))

(when (fboundp 'mac-auto-operator-composition-mode)
  (setq mac-auto-operator-composition-characters
        "!\"#$%&'()*+,-./:;<=>?@[\\]^_`{|}~abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ")
  (mac-auto-operator-composition-mode))

;; Doom themes are the best themes!
(use-package doom-themes)
(use-package doom-modeline
  :config
  (doom-modeline-mode 1)
  :custom
  (doom-modeline-env-version nil)
  (doom-modeline-env-enable-python nil)
  (doom-modeline-env-enable-ruby nil)
  (doom-modeline-env-enable-perl nil)
  (doom-modeline-env-enable-go nil)
  (doom-modeline-env-enable-elixir nil)
  (doom-modeline-env-enable-rust nil))

;; Load custom themes
(add-to-list 'custom-theme-load-path (expand-file-name "config/themes" user-emacs-directory))

;; A small package to hide the mode line
(use-package hide-mode-line
  :commands hide-mode-line-mode)

;; A function to set the frame font
(defun set-font (font)
  "Set the frame font to `font'"
  (interactive (list (completing-read "Font: "
                                      (delete-dups (font-family-list)))))
  (set-frame-font font))

(defun text-scale-reset ()
  (interactive)
  (text-scale-increase 0))

(general-def
  "C-c +" #'text-scale-increase
  "C-c -" #'text-scale-decrease
  "C-c 0" #'text-scale-reset)

(provide 'init-ui)