TakeV/spacemacs
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

Can pass font options in spacemacs/set-font

Browse source
This commit is contained in:
syl20bnr 2014-10-27 13:32:41 -04:00
parent ff64c7e942
commit 175cd595de
1 changed files with 7 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
spacemacs/funcs.el
View file

@ -445,11 +445,13 @@ kill internal buffers too."
(when (not (frame-parameter nil 'fullscreen)) 'fullscreen)))
))
(defun spacemacs/set-font (font size)
(let ((fontsize (format "%s-%s" font size)))
(message (format "Set default font: %s" fontsize))
(add-to-list 'default-frame-alist (cons 'font fontsize))
(set-default-font fontsize)))
(defun spacemacs/set-font (font size &optional options)
(let* ((fontstr (if options
(format "%s-%s:%s" font size options)
(format "%s-%s" font size))))
(message (format "Set default font: %s" fontstr))
(add-to-list 'default-frame-alist (cons 'font fontstr))
(set-default-font fontstr)))
(defun spacemacs/scale-font-size (direction)
"Set a temporary overlay map to easily change the font size.