Move themes

lisp/icejam-fonts.el

@@ -0,0 +1,122 @@
+;;; icejam-fonts.el --- summary -*- lexical-binding: t; -*-
+
+;; Author: Maciej Szlosarczyk
+;; Maintainer: Maciej Szlosarczyk
+;; Version: 0.1-snapshot
+
+;;; Commentary:
+
+;; Set font stuff
+
+;;; Code:
+
+;; Set font face
+;;;;;;;;;;;;;;;;;;;;;; Font configuration ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+(defun +custom-set-lsp-ui-font-hook ()
+  "Reset LSP IO font to specified +custom-font and +custom-font-size."
+  (setq 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" +custom-font (- +custom-font-size 2))))))
+
+(defun set-font (name size)
+  "Set font to NAME and its SIZE to X pixels."
+  (interactive "sNew font: \nnEnter size for %s: ")
+  (setq +custom-font name)
+  (setq +custom-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
+  (+custom-set-lsp-ui-font-hook))
+
+(defvar +custom-font "Iosevka Term")
+;; (defvar +custom-font "Monoid")
+;; (defvar +custom-font "Fira Mono")
+;; (defvar +custom-font "Fira Code")
+;; (defvar +custom-font "Red Hat Mono")
+;; (defvar +custom-font "Agave Nerd Font Mono")
+;; (defvar +custom-font "Input Mono Condensed")
+;; (defvar +custom-font "SF Mono")
+;; (defvar +custom-font "Monaco")
+;; (defvar +custom-font "JetBrains Mono")
+;; (defvar +custom-font "JuliaMono")
+;; (defvar +custom-font "Rec Mono Semicasual")
+;; (defvar +custom-font "Victor Mono")
+;; (defvar +custom-font "IBM Plex Mono")
+(defvar +custom-font-size 14)
+
+(defun 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))
+         (set-font +custom-font +custom-font-size))
+
+        ;; 4K screen on a Mac
+        ((>= 1080 (x-display-pixel-height))
+         (set-font +custom-font +custom-font-size))
+
+        ;; Other screens
+        ((>= 1120 (x-display-pixel-height))
+         (set-font +custom-font +custom-font-size))
+
+        ((>= 1440 (x-display-pixel-height))
+         (set-font +custom-font (+ +custom-font-size 3)))
+
+        ((>= 1920 (x-display-pixel-height))
+         (set-font +custom-font +custom-font-size))
+
+        ;; 4K screen on Windows or Linux
+        ((>= 2160 (x-display-pixel-height))
+         (set-font +custom-font (- +custom-font-size 3)))
+
+        ;; Default
+        (t (set-font +custom-font (- +custom-font-size 3)))))
+
+;; Do it automatically on startup
+(set-font-to-screen)
+
+(defun set-font-size (size)
+  "Set font to a specified SIZE."
+  (interactive "nEnter size for font: ")
+  (set-font +custom-font size))
+
+(defun 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" +custom-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