46 lines
1.3 KiB
EmacsLisp
46 lines
1.3 KiB
EmacsLisp
;;; bob.el --- Customizations for "bob" -*- lexical-binding: t; -*-
|
|
|
|
;;; Commentary:
|
|
|
|
;;; Code:
|
|
|
|
(require 'acdw)
|
|
(require 'machine)
|
|
|
|
(defun +bob-set-faces (&rest _)
|
|
(let (;;(base-face "IBM Plex Mono")
|
|
;; (var-face "IBM Plex Sans")
|
|
;; (base-face "Iosevka Comfy Wide")
|
|
;; (var-face "Iosevka Comfy Duo")
|
|
(base-face "DejaVu Sans Mono")
|
|
(var-face "DejaVu Sans")
|
|
(base-size 100)
|
|
(var-size 1.0)
|
|
(italic-face nil)
|
|
;; (bold-face nil)
|
|
(mono-face nil))
|
|
(+set-faces
|
|
`((default
|
|
:family ,base-face
|
|
:height ,base-size
|
|
:weight regular)
|
|
(bold :family ,(or (bound-and-true-p bold-face) base-face)
|
|
:weight extra-bold)
|
|
(italic :family ,(or (bound-and-true-p italic-face) base-face)
|
|
:weight normal
|
|
:slant italic)
|
|
(fixed-pitch :family ,(or (bound-and-true-p mono-face) base-face)
|
|
:height 1.0)
|
|
(variable-pitch
|
|
:family ,(or var-face base-face)
|
|
:height ,var-size)
|
|
;; (org-italic
|
|
;; :family ,(or var-face base-face)
|
|
;; :slant italic)
|
|
))))
|
|
|
|
;; Other ideas: [[https://twitter.com/NPRougier/status/1488570192561160195][from Nic Rougier]]
|
|
(add-hook 'machine-after-load-theme-hook #'+bob-set-faces)
|
|
|
|
;; bob.el ends here (+bob-set-faces)
|