colonelpanic/dotfiles
1
0
Fork 1
Code Issues Pull Requests Packages Projects Releases Wiki Activity

[Emacs] Refactor font resizing

Browse Source
This commit is contained in:
Ivan Malison 2016-10-06 18:24:41 -07:00
parent 12dd404f32
commit 39c3d4d7ea
No known key found for this signature in database
GPG Key ID: 62530EFBE99DC2F8
1 changed files with 13 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
dotfiles/emacs.d/README.org
View File

@ -590,31 +590,29 @@ 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
** 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.