;;; icejam-fonts.el --- summary -*- lexical-binding: t; -*-

;; Author: Maciej Szlosarczyk
;; Maintainer: Maciej Szlosarczyk
;; Version: 0.1-snapshot

;;; Commentary:

;; Set font stuff

;;; Code:

;; (defconst icejam-font "Monoid"
;; (defconst icejam-font "Fira Mono"
;; (defconst icejam-font "Fira Code"
;; (defconst icejam-font "Red Hat Mono"
;; (defconst icejam-font "Agave Nerd Font Mono"
;; (defconst icejam-font "Input Mono Condensed"
;; (defconst icejam-font "SF Mono"
;; (defconst icejam-font "Monaco"
;; (defconst icejam-font "JetBrains Mono" "Default font.")
;; (defconst icejam-font "JuliaMono"
;; (defconst icejam-font "Rec Mono Semicasual"
;; (defconst icejam-font "IBM Plex Mono"
;; (defconst icejam-font "Berkeley Mono Trial"
;; (defconst icejam-font "Inconsolata"
;; (defconst icejam-font "Victor Mono Medium" "Default font.")

(defconst icejam-font "Iosevka Term" "Default font.")

(defconst icejam-font-size 14
  "Default size of then font.
It is used to calculated the size in relation to the screen
in `icejam-set-font-to-screen`.")

(defcustom icejam-mut-font
  icejam-font
  "Current font, defaults to the one loaded in the beginning."
  :type 'string
  :group 'icejam)
(defcustom icejam-mut-font-size
  icejam-font-size
  "Current font size."
  :type 'integer
  :group 'icejam)

;;;;;;;;;;;;;;;;;;;;;; Font configuration ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; First, let's silence a warning about free variables
(defvar lsp-ui-doc-frame-hook)

(defun icejam-set-lsp-ui-font-hook ()
  "Reset LSP IO font to specified `icejam-font` and `icejam-font-size`."
  (setopt lsp-ui-doc-frame-hook nil)
  (add-hook 'lsp-ui-doc-frame-hook
            (lambda (frame _w)
              (set-face-attribute
               'default frame :font
               (format "%s %d" icejam-mut-font (- icejam-mut-font-size 2))))))

(defun icejam-set-font (name size)
  "Set font to NAME and its SIZE to X pixels."
  (interactive "sNew font: \nnEnter size for %s: ")
  (setopt icejam-mut-font name)
  (setopt icejam-mut-font-size size)

  (set-face-attribute 'default nil :font (format "%s %d" name size))

  ;; Set completion and modeline font to be 1 pixel point smaller than
  ;; the general font
  ;; (set-face-attribute
  ;;  'markdown-code-face nil :font (format "%s %d" name (- size 1)))
  (set-face-attribute
   'tooltip nil :font (format "%s %d" name (- size 1)))
  (set-face-attribute
   'company-tooltip nil :font (format "%s %d" name (- size 1)))
  (set-face-attribute
   'company-tooltip-annotation nil :font (format "%s %d" name (- size 1)))
  (set-face-attribute
   'company-tooltip-mouse nil :font (format "%s %d" name (- size 1)))
  (set-face-attribute
   'mode-line nil :font (format "%s %d" name (- size 1)))
  (set-face-attribute
   'mode-line-inactive nil :font (format "%s %d" name (- size 1)))

  ;; Call LSP-UI hook
  (icejam-set-lsp-ui-font-hook))

(defun icejam-set-font-to-screen ()
  "Automatically set font size to suit the monitor."
  ;; If display is set to emulate FullHD resultion or less, make the font
  ;; smaller.
  (interactive)
  (cond ((eq (x-display-list) nil))
        ;; built-in screen
        ((>= 1050 (x-display-pixel-height))
         (icejam-set-font icejam-font icejam-font-size))

        ;; 4K screen on a Mac
        ((>= 1080 (x-display-pixel-height))
         (icejam-set-font icejam-font icejam-font-size))

        ;; Other screens
        ((>= 1120 (x-display-pixel-height))
         (icejam-set-font icejam-font icejam-font-size))

        ((>= 1440 (x-display-pixel-height))
         (icejam-set-font icejam-font (+ icejam-font-size 3)))

        ((>= 1920 (x-display-pixel-height))
         (icejam-set-font icejam-font icejam-font-size))

        ;; 4K screen on Windows or Linux
        ((>= 2160 (x-display-pixel-height))
         (icejam-set-font icejam-font (- icejam-font-size 3)))

        ;; Default
        (t (icejam-set-font icejam-font (- icejam-font-size 3)))))

;; Do it automatically on startup
(icejam-set-font-to-screen)

(defun icejam-set-font-size (size)
  "Set font to a specified SIZE."
  (interactive "nEnter size for font: ")
  (icejam-set-font icejam-mut-font size))

(defun icejam-set-font-size-for-this-frame (new-size)
  "Set font NEW-SIZE for this frame only."
  (interactive "nEnter new size for font in this frame: ")
  (set-frame-font (format "%s %d" icejam-mut-font new-size)))

;; Remove ugly black line
(set-face-attribute 'vertical-border nil :foreground
                    (face-attribute 'fringe :background))

;; Set fringe colors to default, so it does not bother you.
(set-face-attribute 'fringe nil
                    :foreground (face-foreground 'default)
                    :background (face-background 'default))

(provide 'icejam-fonts)
;;; icejam-fonts.el ends here