nemunaire/conf-emacs
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

Initial commit

Browse source
This commit is contained in:
Némunaire 2012-10-13 21:35:28 +02:00
commit 99e3df82b7
28 changed files with 2639 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

36
stuff/my-font.el Executable file
View file

@ -0,0 +1,36 @@
(defconst default-font-size 128)
(defun set-font-size (&optional size)
"Set the font size to SIZE (default: default-font-size)."
(interactive "nSize: ")
(unless size
(setq size default-font-size))
(set-face-attribute 'default nil :height size))
(defun reset-font-size ()
(interactive)
(set-font-size))
(defun current-font-size ()
(face-attribute 'default :height))
(defun alter-font-size (f)
(let ((curr (current-font-size)))
(let ((new (funcall f curr)))
(set-font-size new)
(message (concat "New font size: " (int-to-string curr) " -> " (int-to-string new))))))
(defun inc-font-size ()
(interactive)
(alter-font-size (lambda (x) (ceiling (* x 1.1)))))
(defun dec-font-size ()
(interactive)
(alter-font-size (lambda (x) (ceiling (* x 0.9)))))
(global-set-key [(control +)] 'inc-font-size)
(global-set-key [(control -)] 'dec-font-size)
(global-set-key [(control =)] 'reset-font-size)
(provide 'my-font)