hitode909の日記

以前はプログラミング日記でしたが、今は子育て日記です

Carbon Emacsでフォントサイズを気軽に変えたかった

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とか、1段階拡大とか縮小とかデフォルトに戻すとか自動的に1行に収まるサイズにするとかしたかったのだけど、Emacs Lispあまり書けないので、こんなのになってしまった。


今回はこんなのだったけど、いつかなんとかしたい。