Refactor
This commit is contained in:
parent
30a7f9651b
commit
57b0d19290
|
@ -7,34 +7,34 @@
|
||||||
(require 'acdw)
|
(require 'acdw)
|
||||||
(require 'machine)
|
(require 'machine)
|
||||||
|
|
||||||
;; Other ideas: [[https://twitter.com/NPRougier/status/1488570192561160195][from Nic Rougier]]
|
(defun +bob-set-faces (&rest _)
|
||||||
(add-function :after machine-after-load-theme
|
(let ((base-face "IBM Plex Mono")
|
||||||
(defun +bob-set-faces (&rest _)
|
(base-size 105)
|
||||||
(let ((base-face "IBM Plex Mono")
|
(italic-face nil)
|
||||||
(base-size 105)
|
;; (bold-face nil)
|
||||||
(italic-face nil)
|
(mono-face nil)
|
||||||
;; (bold-face nil)
|
(var-face "IBM Plex Serif")
|
||||||
(mono-face nil)
|
(var-size 1.0))
|
||||||
(var-face "IBM Plex Serif")
|
(+set-faces
|
||||||
(var-size 1.0))
|
`((default
|
||||||
(+set-faces
|
:family ,base-face
|
||||||
`((default
|
:height ,base-size
|
||||||
:family ,base-face
|
:weight normal)
|
||||||
:height ,base-size
|
;; (bold :family ,(or bold-face base-face)
|
||||||
:weight normal)
|
;; :weight bold)
|
||||||
;; (bold :family ,(or bold-face base-face)
|
(italic :family ,(or italic-face base-face)
|
||||||
;; :weight bold)
|
:weight normal
|
||||||
(italic :family ,(or italic-face base-face)
|
:slant italic)
|
||||||
:weight normal
|
(fixed-pitch :family ,(or mono-face base-face)
|
||||||
:slant italic)
|
:height 1.0)
|
||||||
(fixed-pitch :family ,(or mono-face base-face)
|
(variable-pitch
|
||||||
:height 1.0)
|
:family ,(or var-face base-face)
|
||||||
(variable-pitch
|
:height ,var-size)
|
||||||
:family ,(or var-face base-face)
|
(org-italic
|
||||||
:height ,var-size)
|
:family ,(or var-face base-face)
|
||||||
(org-italic
|
:slant italic)))))
|
||||||
:family ,(or var-face base-face)
|
|
||||||
:slant italic))))
|
|
||||||
))
|
|
||||||
|
|
||||||
;; bob.el ends here
|
;; Other ideas: [[https://twitter.com/NPRougier/status/1488570192561160195][from Nic Rougier]]
|
||||||
|
(add-function :after machine-after-load-theme #'+bob-set-faces)
|
||||||
|
|
||||||
|
;; bob.el ends here (+bob-set-faces)
|
||||||
|
|
Loading…
Reference in New Issue