Carbon Emacsでフォントサイズを気軽に変えたかった - hitode909の日記

Carbon Emacsで、フォントサイズを変えたいときにすぐに気軽に変えられるようにしたいと思った。 (require 'carbon-font) (defun font-size(size) (fixed-width-set-fontset "osaka" size)) (defun font-small() (interactive) (font-size 10)) (defun font-normal() (interactive) (font-size 12)) (defun font-big() (interactive) (font-size 18)) このコードはたいへんださいし、本当は、M-x font-size 13とか、１段階拡大とか縮小とかデフォルトに戻すとか自動的に１行に収まるサイズにするとかしたかったのだけど、Emacs Lispあまり書けないので、こんなのにな