39 lines
1.5 KiB
EmacsLisp
39 lines
1.5 KiB
EmacsLisp
;;; bob.el --- Customizations for "bob" -*- lexical-binding: t; -*-
|
|
|
|
;;; Commentary:
|
|
|
|
;;; Code:
|
|
|
|
(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 "Roboto Mono")
|
|
(italic-face nil)
|
|
;; (bold-face nil)
|
|
(mono-face nil)
|
|
(var-face "Lato")
|
|
(base-size 110))
|
|
(+set-faces
|
|
`((default :family ,base-face
|
|
:weight regular
|
|
:height ,base-size)
|
|
;; (bold :family ,(or bold-face base-face)
|
|
;; :weight bold)
|
|
;; (italic :family ,(or italic-face base-face)
|
|
;; :weight medium
|
|
;; :slant italic
|
|
;; :height ,base-size)
|
|
(fixed-pitch :family ,(or mono-face base-face)
|
|
:weight regular
|
|
:height ,base-size)
|
|
(variable-pitch :family ,(or var-face base-face)
|
|
:height 1.2)
|
|
(org-italic :family ,(or var-face base-face)
|
|
:slant italic))))
|
|
))
|
|
|
|
;;; bob.el ends here
|