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

;;; Commentary:

;; User interface settings.

;;; Code:

(require 'time)

;; Don't say anything on mode-line mouseover.
(setq mode-line-default-help-echo nil)

;; Keep cursors and highlights in current window only.
(setq cursor-in-non-selected-windows nil)

;; Don't highlight inactive windows.
(setq highlight-nonselected-windows nil)

(use-package fringe
  :demand t
  :config
  ;; no fringe on the right side
  (fringe-mode '(8 . 0)))

;; Disable bidirectional text support for slight performance bonus.
(setq bidi-display-reordering nil)

;; show column number in the mode line
(setq column-number-mode t)

(setq display-time-24hr-format t
      display-time-interval 60
      display-time-mode t
      display-time-format "%H:%M %d.%m"
      display-time-day-and-date t
      display-time-default-load-average nil)

(setq world-clock-list t
      world-clock-timer-enable t
      world-clock-timer-second 60
      world-clock-time-format "%R %z  %A %d %B")

;; UTC      => 02:42 +0000  Wednesday 20 April
;; Berkeley => 19:42 -0700  Tuesday 19 April
(setq zoneinfo-style-world-list '(("UTC" "UTC")
                             ("America/Los_Angeles" "Berkeley")
                             ("America/Denver" "Mountain Time")
                             ("America/Chicago" "Central Time")
                             ("America/New_York" "New York")
                             ("Europe/London" "London")
                             ("Europe/Paris" "Paris")))

(use-package modus-themes
  :ensure t
  :init
  (load-theme 'modus-operandi-tinted t)
  :custom
  (modus-themes-italic-constructs t)
  (modus-themes-bold-constructs t)

  (modus-themes-mixed-fonts t)
  (modus-themes-variable-pitch-ui t)

  (modus-themes-completions
      '((matches . (extrabold))
        (selection . (semibold italic text-also))))

  (modus-themes-custom-auto-reload t)

  (modus-themes-disable-other-themes t)

  (modus-themes-prompts '(italic bold))
  (modus-themes-region '(bg-only))
  (modus-themes-syntax '(green-strings))

  (modus-themes-paren-match '(bold))

  (modus-themes-headings '((t . (bold rainbow))))
  (modus-themes-scale-headings t)

  (modus-themes-to-toggle
   '(modus-operandi-tinted modus-vivendi-tritanopia)))

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

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