dotfiles/modules/interface.org

#+TITLE: Interface
#+AUTHOR: Christopher James Hayward
#+EMAIL: chris@chrishayward.xyz

#+PROPERTY: header-args:emacs-lisp :tangle interface.el :comments org
#+PROPERTY: header-args:shell      :tangle no
#+PROPERTY: header-args            :results silent :eval no-export :comments org

#+OPTIONS: num:nil toc:nil todo:nil tasks:nil tags:nil
#+OPTIONS: skip:nil author:nil email:nil creator:nil timestamp:nil

#+ATTR_ORG: :width 420px
#+ATTR_HTML: :width 420px
#+ATTR_LATEX: :width 420px
[[../docs/images/what-is-emacs-teaser.png]]

*Bring Emacs out of the eighties*

* Menu completion

There's a lot of occasions Emacs asks to input text to match a file name in a directory, just one example of an oppertunity for a completion system. *Swiper*[fn:1] is a family of packages that work towards this common goal in Emacs.

** Selection menu

*Ivy*[fn:1] is a powerful selection menu for Emacs.

#+begin_src emacs-lisp
(use-package ivy
  :diminish
  :config (ivy-mode 1))
#+end_src

** Frame transparency

TODO

#+begin_src emacs-lisp
(defun dotfiles/toggle-transparency ()
  (interactive)
  (let ((alpha (frame-parameter nil 'alpha)))
    (set-frame-parameter nil 'alpha
      (if (eql (cond ((numberp alpha) alpha)
                     ((numberp (cdr alpha)) (cdr alpha))
                     ((numberp (cadr alpha)) (cadr alpha)))
               100)
          '(85 . 50) '(100 . 100)))))
#+end_src

Toggle frame transparency with =SPC t r=.

#+begin_src emacs-lisp
(dotfiles/leader
  "tr" '(dotfiles/toggle-transparency :which-key "Toggle transparency"))
#+end_src

Enable frame transparency by default.

#+begin_src emacs-lisp
(set-frame-parameter (selected-frame) 'alpha '(85 . 50))
(add-to-list 'default-frame-alist '(alpha . (85 . 50)))
#+end_src

** Popup selection frame

+ Display =ivy= completions in a popup buffer
+ Set ~parent-frame~ to =nil= for [[file:desktop.org][Desktop]] support

#+begin_src emacs-lisp
(use-package ivy-posframe
  :after ivy
  :when (window-system)
  :custom (ivy-posframe-display-functions-alist '((t . ivy-posframe-display)))
          (ivy-posframe-parameters '((parent-frame nil)))
  :config (ivy-posframe-mode 1))
#+end_src

** Replace built in commands

*Counsel*[fn:1] is a customized set of commands to replace built in completion buffers.

#+begin_src emacs-lisp
(use-package counsel
  :after ivy
  :custom (counsel-linux-app-format-function #'counsel-linux-app-format-function-name-only)
  :config (counsel-mode 1))
#+end_src 

*** Switch buffers with ,

Cherry picked from =doom=.

#+begin_src emacs-lisp
(dotfiles/leader
  "," '(counsel-switch-buffer :which-key "Buffers"))
#+end_src

** Additional details

Provide more information about each item in the completion menu with *Ivy rich*[fn:2].

#+begin_src emacs-lisp
(use-package ivy-rich
  :after counsel
  :init (ivy-rich-mode 1))
#+end_src

** Candidate sorting

Sort completion candidates based on how recently or frequently they're selected. This can be helpful when using =M-x= to run commands that aren't bound to specific key-strokes.

#+begin_src emacs-lisp
(use-package ivy-prescient
  :after counsel
  :custom (ivy-prescient-enable-filtering nil)
  :config (prescient-persist-mode 1)
          (ivy-prescient-mode 1))
#+end_src

* Unified fonts

Write out to all of Emacs' available font faces with the unified font defined in the options.

#+begin_src emacs-lisp
(set-face-attribute 'default nil :font dotfiles/font :height dotfiles/font-size)
(set-face-attribute 'fixed-pitch nil :font dotfiles/font :height dotfiles/font-size)
(set-face-attribute 'variable-pitch nil :font dotfiles/font :height dotfiles/font-size)
#+end_src

** Text scaling

Define a transient keybinding for Scaling the text.

#+begin_src emacs-lisp
(defhydra hydra-text-scale (:timeout 4)
  "Scale"
  ("j" text-scale-increase "Increase")
  ("k" text-scale-decrease "Decrease")
  ("f" nil "Finished" :exit t))
#+end_src

+ Scale the text inside of buffers with =SPC t f=
  * Increase =j=
  * Decrease =k=
  * Finished =f=

#+begin_src emacs-lisp
(dotfiles/leader
  "tf" '(hydra-text-scale/body :which-key "Font"))
#+end_src

** Icon fonts

Dired feels more modern with prioritized icon fonts using *All the Icons*[fn:3]. This makes navigation and visually parsing directories much faster, given that file types are quickly identified by their corresponding icons.

#+begin_src emacs-lisp
(use-package all-the-icons)
#+end_src

Integration with the *All the Icons Dired*[fn:4]package.

#+begin_src emacs-lisp
(use-package all-the-icons-dired
  :hook (dired-mode . all-the-icons-dired-mode))
#+end_src

** Symbols

Programming buffers made prettier with *Pretty mode*[fn:5], complimentary to the built-in *Prettify symbols mode*[fn:6].

#+begin_src emacs-lisp
(use-package pretty-mode
  :hook (python-mode . turn-on-pretty-mode))
#+end_src

** Ligatures

Enable font ligatures via *Fira Code mode*[fn:7].

+ Perform when *Fira Code* is the current font
+ Don't enable on TTY

#+begin_src emacs-lisp
(use-package fira-code-mode
  :when (and (window-system)
             (equal dotfiles/font "Fira Code"))
  :hook (prog-mode org-mode))
#+end_src

Toggle global ligature mode with =SPC t g=.

#+begin_src emacs-lisp
(dotfiles/leader
  "tg" '(global-fira-code-mode :which-key "Ligatures"))
#+end_src

** Emojification

Gotta have those emojis, first class support for Emacs via the *Emacs-emojify*[fn:8] package.

#+begin_src emacs-lisp
(use-package emojify
  :when (window-system)
  :hook (after-init . global-emojify-mode))
#+end_src

+ Place *Emojify*[fn:8] bindings behind =SPC f=
  * List with =l=
  * Search with =s=
  * Insert with =i=
  * Describe with =d=

#+begin_src emacs-lisp
;; (dotfiles/leader
;;   "f" '(:ignore t :which-key "Emojify")
;;   "fl" '(emojify-list-emojis :which-key "List")
;;   "fs" '(emojify-apropos-emoji :which-key "Search")
;;   "fi" '(emojify-insert-emoji :which-key "Insert")
;;   "fd" '(emojify-describe-emoji :which-key "Describe"))
#+end_src

* Line numbering

Relative line numbers are important when using VI emulation keys. You can prefix commands with a number, allowing you to perform that action that number of times. Useful when navigating around pages that are hundreds, or even thousands of lines long.

#+begin_example
  5:
  4:
  3:
  2:
  1:
156: << CURRENT LINE >>
  1:
  2:
  3:
  4:
  5:
#+end_example

#+begin_src emacs-lisp
(use-package linum-relative
  :commands (linum-relative-global-mode)
  :custom (linum-delay t)
          (linum-relative-backend 'display-line-numbers-mode))
#+end_src

Toggle line numbers with =SPC t l=.

#+begin_src emacs-lisp
(dotfiles/leader
  "tl" '(linum-relative-global-mode :which-key "Lines"))
#+end_src

* Parenthesis

Colourize nested parenthesis with *Rainbow delimeters*[fn:11].

#+begin_src emacs-lisp
(use-package rainbow-delimiters
  :hook (prog-mode . rainbow-delimiters-mode))
#+end_src

* Superstar

Make headline stars *super* with *Org superstar mode*[fn:12].

#+begin_src emacs-lisp
(use-package org-superstar
  :when (window-system)
  :after org
  :hook (org-mode . org-superstar-mode))
#+end_src

* Footnotes

[fn:1] https://github.com/abo-abo/swiper

[fn:2] https://github.com/Yevgnen/ivy-rich

[fn:3] [[https://github.com/domtronn/all-the-icons.el]]

[fn:4] https://github.com/jtbm37/all-the-icons-dired

[fn:5] https://emacswiki.org/emacs/pretty-mode.el

[fn:6] https://emacswiki.org/emacs/PrettySymbol

[fn:7] https://github.com/jming422/fira-code-mode

[fn:8] https://github.com/iqbalansari/emacs-emojify

[fn:9] https://github.com/hlissner/emacs-doom-themes

[fn:10] https://github.com/seagle0128/doom-modeline

[fn:11] https://github.com/Fanael/rainbow-delimiters

[fn:12] https://github.com/integral-dw/org-superstar-mode

[fn:13] https://github.com/emacs-dashboard/emacs-dashboard

[fn:14] https://github.com/emacsmirror/linum-relative