;;; 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)
    )