#+TITLE: UI - Emacs
#+AUTHOR: Juan Placencia

* Package

Define UI Emacs package.

#+BEGIN_SRC emacs-lisp
  (use-package emacs
    :after uno-ui
    :config
    (provide 'uno-ui-emacs))
#+END_SRC

* Overrides

- Hide UI items
- Set up relative line numbers
- Highlight current line.
- Simplify yes/no
- Switch to help automatically
- Avoid cursor going into minibuffer.

#+BEGIN_SRC emacs-lisp
  (use-package emacs
    :after uno-ui-emacs
    :custom
    (display-line-numbers-type 'relative)
    (display-line-numbers-width-start t)
    (frame-resize-pixelwise t)
    (frame-title-format '("Emacs - %b"))
    (help-window-select t)
    (minibuffer-prompt-properties '(read-only
                                    t
                                    point-entered
                                    minibuffer-avoid-prompt
                                    face
                                    minibuffer-prompt))
    (ring-bell-function 'ignore)
    :hook
    ((special-mode uno-prog-mode uno-text-mode) . uno/ui/emacs/setup-mode)
    (uno-prog-mode . uno/ui/emacs/setup-prog)
    (uno-text-mode . uno/ui/emacs/setup-text)
    :config
    (fset 'yes-or-no-p 'y-or-n-p)
    (scroll-bar-mode -1)
    (tool-bar-mode -1)
    (unless (eq system-type 'darwin)
      (menu-bar-mode -1))
    :init
    (defun uno/ui/emacs/setup-mode ()
      "Set up many (or all) modes."
      (hl-line-mode 1))
    (defun uno/ui/emacs/setup-prog ()
      "Set up prog-mode."
      (display-line-numbers-mode 1)
      (toggle-truncate-lines 1))
    (defun uno/ui/emacs/setup-text ()
      "Set up text-mode."
      (toggle-word-wrap 1)))
#+END_SRC