update font handling so atkinson hyperlegible is the default variable font and mono lisa is the default fixed width font ; add sytling to org to leverage both

This commit is contained in:
KemoNine 2023-01-14 23:30:42 -05:00
parent 2cc8e02e31
commit e05cd09a53
1 changed files with 24 additions and 0 deletions

View File

@ -274,6 +274,30 @@ position between last non-whitespace and `end-of-line'."
;; http://ergoemacs.org/misc/emacs_macos_emoji.html
;;
)
(custom-theme-set-faces
'user
'(variable-pitch ((t (:family "Atkinson Hyperlegible"))))
'(fixed-pitch ((t ( :family "MonoLisa Variable"))))
)
(custom-theme-set-faces
'user
'(org-block ((t (:inherit fixed-pitch))))
'(org-code ((t (:inherit (fixed-pitch)))))
'(org-document-info ((t (:inherit (fixed-pitch)))))
'(org-document-info-keyword ((t (:inherit (fixed-pitch)))))
'(org-link ((t (:inherit (fixed-pitch)))))
'(org-meta-line ((t (:inherit (fixed-pitch)))))
'(org-property-value ((t (:inherit (fixed-pitch)))))
'(org-verbatim ((t (:inherit (fixed-pitch)))))
'(org-tag ((t (:inherit (fixed-pitch)))))
'(line-number ((t (:inherit (fixed-pitch)))))
'(line-number-current-line ((t (:inherit (fixed-pitch)))))
)
(add-hook 'org-mode-hook 'variable-pitch-mode)
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;