acdw/emacs
acdw
/
emacs
1
2
Fork 0
Code Issues 4 Pull Requests Releases Activity

Refactor

This commit is contained in:
Case Duckworth 2022-04-24 15:01:25 -05:00
parent 30a7f9651b
commit 57b0d19290
1 changed files with 30 additions and 30 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

60
machines/bob.el
View File

@ -7,34 +7,34 @@
(require 'acdw)
(require 'machine)
;; Other ideas: [[https://twitter.com/NPRougier/status/1488570192561160195][from Nic Rougier]]
(add-function :after machine-after-load-theme
(defun +bob-set-faces (&rest _)
(let ((base-face "IBM Plex Mono")
(base-size 105)
(italic-face nil)
;; (bold-face nil)
(mono-face nil)
(var-face "IBM Plex Serif")
(var-size 1.0))
(+set-faces
`((default
:family ,base-face
:height ,base-size
:weight normal)
;; (bold :family ,(or bold-face base-face)
;; :weight bold)
(italic :family ,(or italic-face base-face)
:weight normal
:slant italic)
(fixed-pitch :family ,(or 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))))
))
(defun +bob-set-faces (&rest _)
(let ((base-face "IBM Plex Mono")
(base-size 105)
(italic-face nil)
;; (bold-face nil)
(mono-face nil)
(var-face "IBM Plex Serif")
(var-size 1.0))
(+set-faces
`((default
:family ,base-face
:height ,base-size
:weight normal)
;; (bold :family ,(or bold-face base-face)
;; :weight bold)
(italic :family ,(or italic-face base-face)
:weight normal
:slant italic)
(fixed-pitch :family ,(or 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)))))
;; 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)