path: root/users/programs/emacs/site-lisp/init-ui.el

;;; init-ui.el --- User interface config. -*- lexical-binding: t -*-

;;; Commentary:

;; User interface settings.

;;; Code:

(use-package whitespace
  :init
  (global-whitespace-mode t)
  :custom
  (whitespace-style '(face
		      tabs
		      tab-mark
		      trailing
		      missing-newline-at-eof)))

(use-package fringe
  :custom (fringe-mode '(8 . 0)))

;; | 数字 | アルファベット | 日本語 | 絵文字 |
;; | 0123 | abcdefghijklmn | あいう | 🍎🍎🍎 |
(set-face-attribute 'default nil :family "Source Code Pro" :height 140)

(use-package modus-themes
  :custom
  (modus-themes-italic-constructs t)
  (modus-themes-syntax '(alt-syntax green-strings))
  (modus-themes-mode-line '(moody accented borderless))
  (modus-themes-tabs-accented t)

  (modus-themes-completions
      '((matches . (extrabold background))
        (selection . (semibold accented))
        (popup . (accented))))

  (modus-themes-fringe 'subtle)
  (modus-themes-lang-checkers '(text-also straight-underline))
  (modus-themes-hl-line '(accented))
  (modus-themes-subtle-line-numbers t)
  (modus-themes-markup '(bold italic))
  (modus-themes-paren-match '(bold))
  (modus-themes-region '())

  :init
  (load-theme 'modus-operandi-tinted t))

(provide 'init-ui)
;;; init-ui.el ends here