[Emacs] Refactor font size functions
This commit is contained in:
parent
44be3b5652
commit
a605d68864
@ -605,25 +605,29 @@ This was taken from [[http://emacs.stackexchange.com/questions/7583/transiently-
|
|||||||
(cond ((eq system-type 'darwin) 120)
|
(cond ((eq system-type 'darwin) 120)
|
||||||
((eq system-type 'gnu/linux) 105)))
|
((eq system-type 'gnu/linux) 105)))
|
||||||
|
|
||||||
(cl-defun imalison:set-font-size (&optional (arg 10))
|
(defvar imalison:huge-font-size 280)
|
||||||
|
|
||||||
|
(defun imalison:current-font-size ()
|
||||||
|
(plist-get (custom-face-attributes-get 'default nil) :height))
|
||||||
|
|
||||||
|
(defun imalison:set-font-size (size)
|
||||||
|
(set-face-attribute 'default nil :height size))
|
||||||
|
|
||||||
|
(cl-defun imalison:modify-font-size (&optional (arg 10))
|
||||||
(interactive "p")
|
(interactive "p")
|
||||||
(let ((current-height
|
(imalison:set-font-size (+ (imalison:current-font-size) arg)))
|
||||||
(plist-get (custom-face-attributes-get 'default nil) :height)))
|
|
||||||
(set-face-attribute 'default nil :height
|
|
||||||
(+ current-height arg))))
|
|
||||||
|
|
||||||
(defun imalison:font-size-incr ()
|
(defun imalison:font-size-incr ()
|
||||||
(interactive)
|
(interactive)
|
||||||
(imalison:set-font-size +10))
|
(imalison:modify-font-size +10))
|
||||||
|
|
||||||
(defun imalison:font-size-decr ()
|
(defun imalison:font-size-decr ()
|
||||||
(interactive)
|
(interactive)
|
||||||
(imalison:set-font-size -10))
|
(imalison:modify-font-size -10))
|
||||||
|
|
||||||
(defun imalison:font-size-reset ()
|
(defun imalison:font-size-reset ()
|
||||||
(interactive)
|
(interactive)
|
||||||
(set-face-attribute 'default nil
|
(imalison:set-font-size imalison:default-font-size-pt))
|
||||||
:height imalison:default-font-size-pt))
|
|
||||||
#+END_SRC
|
#+END_SRC
|
||||||
** Message Result Builder
|
** Message Result Builder
|
||||||
This macro is useful when writing emacs-lisp. It creates a new interactive command that shows you the result of evaluating a function, with optionally provided arguments.
|
This macro is useful when writing emacs-lisp. It creates a new interactive command that shows you the result of evaluating a function, with optionally provided arguments.
|
||||||
@ -1268,7 +1272,7 @@ https://github.com/alpaker/Fill-Column-Indicator/issues/21 for more details
|
|||||||
:config
|
:config
|
||||||
(progn
|
(progn
|
||||||
(defhydra imalison:hydra-font-resize
|
(defhydra imalison:hydra-font-resize
|
||||||
nil
|
nil
|
||||||
"Resize Font"
|
"Resize Font"
|
||||||
("-" imalison:font-size-decr "Decrease")
|
("-" imalison:font-size-decr "Decrease")
|
||||||
("=" imalison:font-size-incr "Increase")
|
("=" imalison:font-size-incr "Increase")
|
||||||
|
Loading…
Reference in New Issue
Block a user