メモ

undohist.el

閉じたファイルのアンドゥ履歴を復活するundohist.el - Monthly Emacs
Emacsの外部にアンドゥ履歴を保存できるようになる．リンク先に書いてあるけど，ヴァージョン管理しているファイルでは履歴がすぐに壊れる．条件は厳しいけどハマれば結構使える拡張だと思う．

font

Hivelogic - Top 10 Programming Fonts
の記事を参考に

• Monofur

小文字のeに特徴があって可愛い印象，けどCourierに似て横に広がりすぎて見づらい．

• DejaVu Sans Mono

フリーのフォントでは有名なやつ．MacのMenloとほとんど同じ．少し細身な印象．時に記号類が．

• Inconsolata

一番人気らしい．DejaVuとかとほぼ同じ．少し丸みを帯びてるのかな．

• 最近の設定

下の画像では本文がMenlo，tabbarとmode-lineがInconsolata，mode-line-buffer-idがOptima．

kill-this-frame-or-bufferをさらに改造

以前作ったkill-this-frame-or-bufferという関数をさらに改造して，ウィンドウが分割されているときはdelete-other-windowするようにした．名前も変えた．

(defun kill-frame/window/buffer ()
  (interactive)
  (or (ignore-errors
        (delete-frame)
        t)
      (unless (one-window-p t)
        (delete-other-windows)
        t)
      (kill-this-buffer)))
(global-set-key (kbd "s-w") 'kill-frame/window/buffer)

IMでカーソルの色を変化

Cocoa Emacsで効かなくなっていたのに気付き直した．設定古いまんまだったんだね．

(when (eq window-system 'ns)
  (dolist (im '(
                "com.apple.inputmethod.Kotoeri.Japanese"
                "com.google.inputmethod.Japanese.base"
                "jp.monokakido.inputmethod.Kawasemi.Japanese"
                "com.justsystems.inputmethod.atok22.Japanese"
                ))
    (mac-set-input-method-parameter im 'cursor-color "DeepPink1"))
  )

set-face-hoge

Emacsのset-face系コマンドには何故かset-face-familyがない．ので作った．

(defun set-face-family (face family &optional frame)
  (interactive (read-face-and-attribute :family))
  (set-face-attribute face frame :family family))

;; これも使い勝手がいい
(defun set-face-inherit (face inherit &optional frame)
  (interactive (read-face-and-attribute :inherit))
  (set-face-attribute face frame :inherit inherit))

set-face-fontというのもあるけど，こちらはXLFD指定なのでfamily以外の属性も変化させてしまう．