1(defun utils-set-font (fontspec) 2 "Set a font using the standard xft font specification like:Monospace-8" 3 (interactive "sFont-spec: ") 4 (setq default-frame-alist '((font-backend . "xft") 5 (font . fontspec) 6 (cursor-color . "black"))) 7 ) 8 9(provide 'utils) 10