Skip to content

Instantly share code, notes, and snippets.

@arnab

arnab/dynamic-fonts.el

Created September 24, 2012 04:08
Show Gist options
  • Star 2 You must be signed in to star a gist
  • Fork 2 You must be signed in to fork a gist
  • Save arnab/3774147 to your computer and use it in GitHub Desktop.
Save arnab/3774147 to your computer and use it in GitHub Desktop.
Download ZIP
Dynamically adjust fonts in emacs based on screen resolution (Retina vs. Thunderbolt)
Raw
dynamic-fonts.el
;; Gist-ed from in https://github.com/arnab/emacs-starter-kit
(defun fontify-frame (frame)
(interactive)
(if window-system
(progn
(if (> (x-display-pixel-width) 2000)
(set-frame-parameter frame 'font "Inconsolata 19") ;; Cinema Display
(set-frame-parameter frame 'font "Inconsolata 16")))))
;; Fontify current frame
(fontify-frame nil)
;; Fontify any future frames
(push 'fontify-frame after-make-frame-functions)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment