imalison:set-font-height

This commit is contained in:
Ivan Malison 2015-08-20 03:22:54 -07:00
parent 51a264ae56
commit bc09322567

View File

@ -2074,6 +2074,11 @@ window is active in the perspective."
(defun random-choice (choices) (defun random-choice (choices)
(nth (random (length choices)) choices)) (nth (random (length choices)) choices))
(defun imalison:set-font-height ()
(interactive)
(let ((new-height (read-face-attribute 'default :height (selected-frame))))
(set-face-attribute 'default nil :height new-height)))
(defun imalison:remove-fringe-and-hl-line-mode (&rest stuff) (defun imalison:remove-fringe-and-hl-line-mode (&rest stuff)
(interactive) (interactive)
(if (fboundp 'scroll-bar-mode) (scroll-bar-mode -1)) (if (fboundp 'scroll-bar-mode) (scroll-bar-mode -1))