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あまり書けないので、こんなのになってしまった。


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