Cocoa Ema久

Carbon Emacs -> Cocoa Emacs に移行してみた。
http://www.emacsformacosx.com/ からダウンロードした。

よく使っていた機能がいくつか動かなかったのでメモ。

Font

carbon-fontが効かなくなったので。
英文がMonaco, 日本語がヒラギノ角ゴ、10px。
ただ全角1文字!≡半角2文字になってしまった(´∞`)
要調査。

(when (eq window-system 'ns)
  (create-fontset-from-ascii-font "Monaco-10:weight=normal:slant=normal" nil "monacokakugo")
  (set-fontset-font "fontset-monacokakugo"
                    'unicode
                    (font-spec :family "Hiragino Kaku Gothic ProN"
                               :size 10)
                    nil
                    'append)
  (add-to-list 'default-frame-alist '(font . "fontset-monacokakugo")))

fullscreen

どこからかコピペしてきたこのコードが動かず、ns-toggle-fullscreenとかいう関数もなかったので、初emacs-lisp書いてみた。
元のフルスクリーン化は広くていいのだけど、マウスでDockのアイコンが選べなくなるのが嫌だったのでちょうどいいです。

(defvar frame-toggle-state t)
(defun maximize-frame (frame)
  (set-frame-position frame 0 0)
  (set-frame-size frame 1000 1000))
(defun normal-size-frame (frame)
  (set-frame-size frame 100 50))
(defun toggle-fullscreen ()
  (interactive)
  (let ((frame (selected-frame)))
    (if frame-toggle-state
        (maximize-frame frame)
      (normal-size-frame frame))
    (setq frame-toggle-state (not frame-toggle-state))))
(global-set-key "\C-c\C-j" 'toggle-fullscreen)

この二つを直したら違和感なく使えるようになった気がする。