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

[Emacs] Add set huge font size to font hydra

Browse Source
This commit is contained in:
Ivan Malison 2016-10-18 13:06:49 -07:00
parent a605d68864
commit 80a315e0d2
No known key found for this signature in database
GPG Key ID: 62530EFBE99DC2F8
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -601,7 +601,7 @@ the ~:around~ keyword of advice-add.
** Font Size ** Font Size
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. 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 (defvar imalison:default-font-size-pt
(cond ((eq system-type 'darwin) 120) (cond ((eq system-type 'darwin) 120)
((eq system-type 'gnu/linux) 105))) ((eq system-type 'gnu/linux) 105)))
@ -611,8 +611,13 @@ This was taken from [[http://emacs.stackexchange.com/questions/7583/transiently-
(plist-get (custom-face-attributes-get 'default nil) :height)) (plist-get (custom-face-attributes-get 'default nil) :height))
(defun imalison:set-font-size (size) (defun imalison:set-font-size (size)
(interactive (list (string-to-number (read-string "Enter a font size: "))))
(set-face-attribute 'default nil :height size)) (set-face-attribute 'default nil :height size))
(defun imalison:set-huge-font-size ()
(interactive)
(imalison:set-font-size imalison:huge-font-size))
(cl-defun imalison:modify-font-size (&optional (arg 10)) (cl-defun imalison:modify-font-size (&optional (arg 10))
(interactive "p") (interactive "p")
(imalison:set-font-size (+ (imalison:current-font-size) arg))) (imalison:set-font-size (+ (imalison:current-font-size) arg)))
@ -1275,10 +1280,11 @@ https://github.com/alpaker/Fill-Column-Indicator/issues/21 for more details
nil nil
"Resize Font" "Resize Font"
("-" imalison:font-size-decr "Decrease") ("-" imalison:font-size-decr "Decrease")
("d" imalison:font-size-decr "Decrease")
("=" imalison:font-size-incr "Increase") ("=" imalison:font-size-incr "Increase")
("+" imalison:font-size-incr "Increase") ("+" imalison:font-size-incr "Increase")
("d" imalison:font-size-decr "Decrease")
("i" imalison:font-size-incr "Increase") ("i" imalison:font-size-incr "Increase")
("h" imalison:set-huge-font-size "Huge")
("f" set-frame-font "Set Frame Font") ("f" set-frame-font "Set Frame Font")
("0" imalison:font-size-reset "Reset to default size")) ("0" imalison:font-size-reset "Reset to default size"))