Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- ;;; scale fonts
- (defvar dmg-typeface (car default-frame-alist)
- "What is the typeface to use")
- (if (string-equal system-type "gnu/linux")
- (when (member "DejaVu Sans Mono" (font-family-list))
- (setq dmg-typeface "DejaVu Sans Mono")
- )
- )
- (defun dmg-font-size (size)
- (interactive "NPoint size:")
- (set-frame-font (concat dmg-typeface "-" (number-to-string size)) t t)
- )
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement