init-fonts.el

(require 'cl)

(defmacro preserving-maximization (&rest body)
  (let ((maximized-frames (gensym)))
    `(let ((,maximized-frames (loop for f in (frame-list)
                                    when (maximized-p f)
                                    collect f)))
       (prog1 (progn ,@body)
         (dolist (frame ,maximized-frames)
           (select-frame frame)
           (maximize-frame))))))

(defun increment-default-font-height (delta)
  (preserving-maximization
   (let ((new-height (+ (face-attribute 'default :height) delta)))
     (set-face-attribute 'default nil :height new-height)
     (message "default font size is now %d" (/ new-height 10)))))

(defun increase-default-font-height ()
  (interactive)
  (increment-default-font-height 10))

(defun decrease-default-font-height ()
  (interactive)
  (increment-default-font-height -10))

(defmacro preserving-default-font-size (&rest body)
  (let ((old-size (gensym)))
    `(preserving-maximization
      (let ((,old-size (face-attribute 'default :height)))
        (prog1 (progn ,@body)
          (set-face-attribute 'default nil :height ,old-size))))))


(set-face-attribute 'default nil
                    :family "Calibri" :height 180 :weight 'normal)


(add-hook 'calendar-mode-hook 'fg/set-monospace-font)
(add-hook 'notmuch-hello-mode-hook 'fg/set-monospace-font)
(add-hook 'notmuch-search-hook 'fg/set-monospace-font)
(add-hook 'term-mode-hook 'fg/set-monospace-font)

(defun fg/set-varwidth-font ()
  (interactive)
  (variable-pitch-mode t)
  (set-face-attribute 'variable-pitch nil
                      :family "Calibri" :height 180 :weight 'normal))

(defun fg/set-monospace-font ()
  (interactive)
  (variable-pitch-mode t)
  (set-face-attribute 'variable-pitch nil
                      :family "Consolas" :height 170 :weight 'normal))


(provide 'init-fonts)