config

* Display and look
** Line number
#+begin_src emacs-lisp
  (add-hook 'prog-mode-hook 'display-line-numbers-mode)
  (setq display-line-numbers-type 'relative)
#+end_src

#+RESULTS:
: relative

** Theme
#+begin_src emacs-lisp
  (use-package dracula-theme)
#+end_src

#+begin_src emacs-lisp
  (use-package doom-themes
    :ensure t
    :config
    ;; Global settings (defaults)
    (setq doom-themes-enable-bold t    ; if nil, bold is universally disabled
	  doom-themes-enable-italic t) ; if nil, italics is universally disabled
    (load-theme 'doom-tokyo-night t))
#+end_src

#+RESULTS:
: t

#+begin_src emacs-lisp
  (use-package atom-one-dark-theme)
#+end_src

#+RESULTS:

** Font

#+begin_src emacs-lisp
  (set-frame-font "JetBrains Mono 10" nil t)
  (add-to-list 'default-frame-alist '(font . "JetBrains Mono 10"))
#+end_src

#+RESULTS:

** Lignature

Show programming lignature

#+begin_src emacs-lisp
  (dolist (char/ligature-re
	   `((?-  . ,(rx (or (or "-->" "-<<" "->>" "-|" "-~" "-<" "->") (+ "-"))))
	     (?/  . ,(rx (or (or "/==" "/=" "/>" "/**" "/*") (+ "/"))))
	     (?*  . ,(rx (or (or "*>" "*/") (+ "*"))))
	     (?<  . ,(rx (or (or "<<=" "<<-" "<|||" "<==>" "<!--" "<=>" "<||" "<|>" "<-<"
				 "<==" "<=<" "<-|" "<~>" "<=|" "<~~" "<$>" "<+>" "</>"
				 "<*>" "<->" "<=" "<|" "<:" "<>"  "<$" "<-" "<~" "<+"
				 "</" "<*")
			     (+ "<"))))
	     (?:  . ,(rx (or (or ":?>" "::=" ":>" ":<" ":?" ":=") (+ ":"))))
	     (?=  . ,(rx (or (or "=>>" "==>" "=/=" "=!=" "=>" "=:=") (+ "="))))
	     (?!  . ,(rx (or (or "!==" "!=") (+ "!"))))
	     (?>  . ,(rx (or (or ">>-" ">>=" ">=>" ">]" ">:" ">-" ">=") (+ ">"))))
	     (?&  . ,(rx (+ "&")))
	     (?|  . ,(rx (or (or "|->" "|||>" "||>" "|=>" "||-" "||=" "|-" "|>"
				 "|]" "|}" "|=")
			     (+ "|"))))
	     (?.  . ,(rx (or (or ".?" ".=" ".-" "..<") (+ "."))))
	     (?+  . ,(rx (or "+>" (+ "+"))))
	     (?\[ . ,(rx (or "[<" "[|")))
	     (?\{ . ,(rx "{|"))
	     (?\? . ,(rx (or (or "?." "?=" "?:") (+ "?"))))
	     (?#  . ,(rx (or (or "#_(" "#[" "#{" "#=" "#!" "#:" "#_" "#?" "#(")
			     (+ "#"))))
	     (?\; . ,(rx (+ ";")))
	     (?_  . ,(rx (or "_|_" "__")))
	     (?~  . ,(rx (or "~~>" "~~" "~>" "~-" "~@")))
	     (?$  . ,(rx "$>"))
	     (?^  . ,(rx "^="))
	     (?\] . ,(rx "]#"))))
    (let ((char (car char/ligature-re))
	  (ligature-re (cdr char/ligature-re)))
      (set-char-table-range composition-function-table char
			    `([,ligature-re 0 font-shape-gstring]))))
#+end_src

#+RESULTS:

** Reduce clutter

   Remove the toolbar. It's ugly and I never use it. Also remove the
   scroll bars; below, I set up the fringe to show my position in a
   buffer.

   #+name: look-and-feel
   #+BEGIN_SRC emacs-lisp
     (when (window-system)
       (add-to-list 'image-types 'svg)
       (tool-bar-mode -1)
       (menu-bar-mode -1)
       (load-theme 'atom-one-dark t)
       (scroll-bar-mode 1))
   #+END_SRC

   When running emacs in a terminal, remove the menu bar.

   #+NAME: look-and-feel
   #+BEGIN_SRC emacs-lisp
     (when (not (window-system))
       (tool-bar-mode -1)
       (menu-bar-mode -1))
   #+END_SRC

   #+begin_src emacs-lisp
     (if (daemonp)
       (load-theme 'atom-one-dark t))
   #+end_src

   #+RESULTS:
   : t