;;; my-ui.el --- configure UI elements -*- lexical-binding: t -*-

;;; Commentary:

;;; Code:

;; cleaning up the UI
(scroll-bar-mode -1)
(tool-bar-mode -1)
(menu-bar-mode -1)
(blink-cursor-mode -1)

(when (memq window-system '(mac ns))
  (add-to-list 'default-frame-alist '(font . "Source Code Pro-15"))
  (add-to-list 'default-frame-alist '(fullscreen . maximized))
  (add-to-list 'default-frame-alist '(ns-appearance . nil))
  (add-to-list 'default-frame-alist '(ns-transparent-titlebar . nil))
  (when (boundp 'ns-use-native-fullscreen)
    (setq ns-use-native-fullscreen nil))
  (when (boundp 'mac-allow-anti-aliasing)
    (setq mac-allow-anti-aliasing t)))

(when (memq window-system '(x pgtk))
  (set-face-attribute 'default nil :font "Iosevka Term Extended" :height 130)
  (set-face-attribute 'variable-pitch nil :font "Iosevka Etoile" :height 130)
  ;; this is a fall back in the case we have Unicode characters.
  ;; For example, with this settings, the following source is
  ;; rendered correctly 😇 😀 and 🤢
  (set-fontset-font t 'symbol "Noto Color Emoji" nil 'append))

;; Load a custom theme
(eval-and-compile
  (require 'modus-themes nil t)
  (setq modus-themes-syntax '(faint)
        modus-themes-links '(bold)
        modus-themes-fringes '(intense)
        modus-themes-markup '(bold intense background)
        modus-themes-italic-constructs t
        modus-themes-lang-checkers '(background)
        modus-themes-org-blocks 'gray-background
        modus-themes-headings '((1 . (background 1))
                                (2 . (rainbow semibold 1))
                                (t . (bold)))
        modus-themes-completions '((matches   . (extrabold intense))
                                   (selection . (semibold  intense))
                                   (popup     . (extrabold intense)))
        modus-themes-operandi-color-overrides '((bg-main . "#f2efe4"))))

(eval-and-compile
  (require 'ef-themes)
  (setq ef-themes-to-toggle '(ef-duo-light ef-duo-dark))
  ;; set the typeface for headers
  (setq ef-themes-headings
      '((0 . (variable-pitch bold 1.4))
        (1 . (variable-pitch bold 1.3))
        (2 . (variable-pitch regular 1.2))
        (3 . (variable-pitch italic 1.1))
        (t . (variable-pitch 1.1))))

  ;; enable using variable pitch fonts for some part of the UI
  (setq ef-themes-mixed-fonts t
        ef-themes-variable-pitch-ui t)

  ;; Read the doc string or manual for this one.  The symbols can be
  ;; combined in any order.
  (setq ef-themes-region '(intense no-extend neutral))

  ;; Disable all other themes to avoid awkward blending:
  (mapc #'disable-theme custom-enabled-themes)

  ;; Load the theme of choice:
  (load-theme 'ef-duo-light :no-confirm)

  ;; OR use this to load the theme which also calls `ef-themes-post-load-hook':
  (ef-themes-select 'ef-duo-light))

(customize-set-variable 'display-time-24hr-format t)
(customize-set-variable 'display-time-day-and-date t)
(customize-set-variable 'display-time-format "%a %e %b, %H:%M")
(customize-set-variable 'display-time-interval 60)
(customize-set-variable 'display-time-default-load-average nil)
(customize-set-variable '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")
                          ("Asia/Calcutta" "Bangalore")
                          ("Asia/Tokyo" "Tokyo")))

;; the following setup only works with emacs >=28 I think
(when (boundp 'world-clock-list)
  (setq world-clock-list t))

(when (boundp 'world-clock-time-format)
  ;; UTC      => 02:42 +0000  Wednesday 20 April
  ;; Berkeley => 19:42 -0700  Tuesday 19 April
  (setq world-clock-time-format "%R %z  %A %d %B"))

(when (boundp 'world-clock-timer-enable)
  (setq world-clock-timer-enable t))

(when (boundp 'world-clock-timer-second)
  (setq world-clock-timer-second 60))

;; Disable help mouse-overs for mode-line as they provide little to no benefits
(setq mode-line-default-help-echo nil
      show-help-function nil)

(setq display-buffer-alist
      `(
        ("\\*\\(.* # Help.*\\|Help\\|xref\\)\\*" ; See the hooks for `visual-line-mode'
         (display-buffer-reuse-mode-window display-buffer-in-side-window)
         (window-width . 0.35)
         (side . left)
         (slot . 0))
        ("\\*\\(Flymake diagnostics\\|Package-Lint\\).*"
         (display-buffer-in-side-window)
         (window-height . 0.16)
         (side . top)
         (slot . 0))
        ("\\*\\(Backtrace\\|Warnings\\|Compile-Log\\|Flymake log\\|Async Shell Command\\)\\*"
         (display-buffer-in-side-window)
         (window-height . 0.16)
         (side . top)
         (slot . 2))
        ("\\*\\(Wo\\)\?Man"
         (display-buffer-in-side-window)
	     (window-width . 0.4)
	     (side . left)
	     (slot . 0))
        ("\\*\\(wclock\\|slo-calculator\\).*"
         (display-buffer-in-side-window)
         (window-width . 0.35)
         (side . left)
         (slot . 0))))

(add-hook 'help-mode-hook 'visual-line-mode)

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