[Emacs] Refactor font resizing
This commit is contained in:
parent
12dd404f32
commit
39c3d4d7ea
@ -590,29 +590,27 @@ the ~:around~ keyword of advice-add.
|
|||||||
(* (cos f2) (cos f1) (imalison:sin2 (/ (- l2 l1) 2))) ))))))))
|
(* (cos f2) (cos f1) (imalison:sin2 (/ (- l2 l1) 2))) ))))))))
|
||||||
#+END_SRC
|
#+END_SRC
|
||||||
** Font Size
|
** Font Size
|
||||||
This was taken from [[http://emacs.stackexchange.com/questions/7583/transiently-adjust-text-size-in-mode-line-and-minibuffer][here]]. It is primarily invoked from a hydra defined below. It would be cool if it got the default font size from whatever the default font was but it does not currently do that.
|
This was taken from [[http://emacs.stackexchange.com/questions/7583/transiently-adjust-text-size-in-mode-line-and-minibuffer][here]] but it has diverged significantly from the original.
|
||||||
#+BEGIN_SRC emacs-lisp
|
#+BEGIN_SRC emacs-lisp
|
||||||
(setq imalison:default-font-size-pt 88)
|
(defvar imalison:default-font-size-pt 120)
|
||||||
|
|
||||||
(defun imalison:font-size-adj (&optional arg)
|
(cl-defun imalison:set-font-size (&optional (arg 10))
|
||||||
"The default C-x C-0/-/= bindings do an excellent job of font resizing.
|
|
||||||
They, though, do not change the font sizes for the text outside the buffer,
|
|
||||||
example in mode-line. Below function changes the font size in those areas too.
|
|
||||||
|
|
||||||
M-<NUM> M-x imalison:font-size-adj increases font size by NUM points if NUM is +ve,
|
|
||||||
decreases font size by NUM points if NUM is -ve
|
|
||||||
resets font size if NUM is 0."
|
|
||||||
(interactive "p")
|
(interactive "p")
|
||||||
(let ((current-height
|
(let ((current-height
|
||||||
(plist-get (custom-face-attributes-get 'default nil) :height)))
|
(plist-get (custom-face-attributes-get 'default nil) :height)))
|
||||||
(set-face-attribute 'default nil :height
|
(set-face-attribute 'default nil :height
|
||||||
(+ current-height arg))))
|
(+ current-height arg))))
|
||||||
|
|
||||||
|
(defun imalison:font-size-incr ()
|
||||||
|
(interactive)
|
||||||
|
(imalison:set-font-size +10))
|
||||||
|
|
||||||
|
(defun imalison:font-size-decr ()
|
||||||
|
(interactive)
|
||||||
|
(imalison:set-font-size -10))
|
||||||
|
|
||||||
(defun imalison:font-size-incr () (interactive) (imalison:font-size-adj +10))
|
(defun imalison:font-size-reset ()
|
||||||
(defun imalison:font-size-decr () (interactive) (imalison:font-size-adj -10))
|
(interactive)
|
||||||
(defun imalison:font-size-reset () (interactive)
|
|
||||||
(set-face-attribute 'default nil
|
(set-face-attribute 'default nil
|
||||||
:height imalison:default-font-size-pt))
|
:height imalison:default-font-size-pt))
|
||||||
#+END_SRC
|
#+END_SRC
|
||||||
|
Loading…
Reference in New Issue
Block a user