sheephead

Emacsを使っていると、多くの人が経験するであろう悩みの一つにキーバインドがあります。

当たり前ですがバインドできるキーは有限で、しかも楽して打てるキーともなるとそんなに多くはないように思います。VimのようなモードをもたないEmacsでは、これは宿命のようなものです。

なので、この問題を解消する多くの拡張があって、key-chord.elやsmartchr.elは使われている方も多いんではないかと思います。

ただ、どちらも万能というわけではなくて、例えば、key-chord.elは通常の入力とバッティングすることが往々にしてあるので、バインドするキーの選択にはかなり用心する必要がありますし、smartchr.elも入力パターンがトグルするという特徴上、連続する入力とかには向いていません。

こんな感じで今のところこの枯渇問題を解消する決定打というのはなくて、いろいろと組み合わせて使うのが良いんではないかと思います。

prefixキーと組み合わせたキーをバインドするというのも、枯渇問題対策として有効な方法の一つだと思います。僕もあまり使わないC-qをprefixにしてキーバインドを定義しています。

(defvar ctl-q-map (make-keymap))
(define-key global-map "\C-q" ctl-q-map)

また、標準のEmacsで使えるので、マークアップ言語のメジャーモードやOrg-modeなどキーバインドがたくさん定義されているモードでは、この方法でキーバインド枯渇問題を克服しています。

ただ、prefixキーによる方法も時と場合によってはかなりださいです。例えば先程挙げたOrg-mode。ヘッダー間の移動をするoutline-next-visible-headingとoutline-previous-visible-headingというのが定義されていてそれぞれC-c C-n, C-c C-pというC-cをprefixとするキーがバインドされています。

こういった移動系コマンドは複数回連続して入力することがとても多いと思いますが、このコマンドを使ってちょっと離れたヘッダーまで移動しようともなるとC-c C-nやC-c C-pという長たらしいキーを延々と入力させられることとなります。

とてもやってられません。

smartrep.elとは、連続して操作する際のprefixキー入力をキャンセルさせるためのelispです。 インストールには、auto-install.elをお使いの方はM-x auto-install-from-emacswiki してsmartrep.elと入力してください。Emacs24かpackage.elをお使いの方は、Marmaladeをリポジトリに登録してから、M-x list-packages としてsmartrep.elをインストールしてください。詳しいことは以前書いた日記を参考にしてください。

Marmaladeはお手軽感が素敵なEmacs Lispのリポジトリサイト

後は.emacsなどに(require ‘smartrep)と書いておけば、終わりです。

さて、言葉で説明してもなかなか伝わりにくそうなのでここからは使用例というか、自分が使っている設定を参考に説明しようと思います。

まずは、先程のOrg-modeのキーバインドで楽するために次のようなものを書きます。

(eval-after-load "org"
        '(progn
           (smartrep-define-key
            org-mode-map "C-c" '(("C-n" . (lambda ()
                                            (outline-next-visible-heading 1)))
                                 ("C-p" . (lambda ()
                                            (outline-previous-visible-heading 1)))))))

smartrep-define-keyの引数は順に適用するキーマップ、使うprefix、そして、prefixに続けるキーと関数の連想配列の三つとなっています。

この式を評価したならば、先程のまどろっこしいキー操作は必要ありません。2回目移行の操作はprefixキーを省略することができます。

このキーバインドをキャンセルしたい時は、C-n, C-p以外のキーをなにか入力してください。通常のキー操作に戻ります。

画面を分割して、片方にレファレンスを開き片方でコーディングなどありがちなパターンではないでしょうか。

当然キャレットはコーディングしているウィンドウにあることがほとんどでリファレンスを開いているウィンドウにいくことはあまりありません。

と言っても、ページを送ったり見えない部分を見たい時は操作する必要があるわけで。標準でもscroll-other-windowがC-M-vにバインドされていますが移動幅大きいし、あまり使い勝手がよくありません。そこで、となりのウィンドウをキャレットを移動させることなく操作できるようにしてみます。

(smartrep-define-key
 global-map "C-q" '(("n" . (lambda () (scroll-other-window 1)))
                    ("p" . (lambda () (scroll-other-window -1)))
                    ("N" . 'scroll-other-window)
                    ("P" . (lambda () (scroll-other-window '-)))
                    ("a" . (lambda () (beginning-of-buffer-other-window 0)))
                    ("e" . (lambda () (end-of-buffer-other-window 0)))))

n,pだと1行のスクロール、N,Pで１ページ分のスクロール、a,eでバッファの先頭と最後に移動します。

先程の例と同様、ブラウザで資料などを見ながらEmacsでコーディングとか、Webプログラマの方とでしたら書いたコードの実行結果をブラウザで確認など結構やるんではないでしょうか。

ページを送ったり、リロードするだけのためにフォーカスをブラウザに移すとかめんどすぎます。Emacsからリモートでブラウザを操作できるようにしたいところです。

これを実現するにはFirefoxのmozreplとmoz.elを使うと良いです。導入などについては、以下のサイトで詳しく説明されています。

Firefox と Emacs の会話 | Amrta

Mozreplとmoz.elを導入したならば、以下のようなコードを評価します。

(autoload 'moz-minor-mode "moz" "Mozilla Minor and Inferior Mozilla Modes" t)
(moz-minor-mode t)

(defun moz-send-message (moz-command)
  (comint-send-string
   (inferior-moz-process)
   (concat moz-repl-name ".pushenv('printPrompt', 'inputMode'); "
           moz-repl-name ".setenv('inputMode', 'line'); "
           moz-repl-name ".setenv('printPrompt', false); undefined; "))
  (comint-send-string
   (inferior-moz-process)
   (concat moz-command
           moz-repl-name ".popenv('inputMode', 'printPrompt'); undefined;\n")))

(defun moz-scrolldown-1 ()
  (interactive)
   (moz-send-message "goDoCommand('cmd_scrollLineDown');\n")) 

(defun moz-scrolldown ()
  (interactive)
   (moz-send-message "goDoCommand('cmd_scrollPageDown');")) 

(defun moz-scrollup-1 ()
  (interactive)
   (moz-send-message "goDoCommand('cmd_scrollLineUp');\n")) 

(defun moz-scrollup ()
  (interactive)
   (moz-send-message "goDoCommand('cmd_scrollPageUp');")) 

(defun moz-top ()
  (interactive)
   (moz-send-message "goDoCommand('cmd_scrollTop');\n"))

(defun moz-bottom ()
  (interactive)
   (moz-send-message "goDoCommand('cmd_scrollBottom');\n"))

(require 'smartrep)
(smartrep-define-key
 global-map "M-g" '(("n" . 'moz-scrolldown-1)
                    ("N" . 'moz-scrolldown)
                    ("p" . 'moz-scrollup-1)
                    ("P" . 'moz-scrollup)
                    ("a" . 'moz-top)
                    ("e" . 'moz-bottom)))

先程の画面分割の操作と同じような感じでFirefoxを操作できるようになると思います。

smartrep.elは非常にシンプルなelispですが、いろいろと応用できるケースがあるんではないかと思います。

例えば今回紹介した移動系のコマンド意外でも、フレームやウィンドウのサイズ変更も連続的な操作が必要になりそうですし、undo、redo関係のコマンドでも結構連打している気がします。

HTMLなどのメジャーモードでは移動系のコマンドが多いので、smartrep.elを使うことでスマートに移動できるようになりそうですね。

というわけで、smartrep.elのご紹介でした。Emacs Advent Calendarはまだまだ続きます。 明日は、ken_mさん、今からとても楽しみです。

Emacs23までは、(menu-bar-mode nil)としておくとメニューバーなどが非表示となっていましたが、Emacs24ではできなくなっています。(menu-bar-mode 0)とすることで、非表示することができます。

Emacs 24 とツールバー – とりあえず暇だったし何となく始めたブログ

descbinds-anything.elで表示される候補の順番がEmacs24ではおかしくなっています。これはdescribe-bindingsで表示されるバッファのフォーマットが変更されているため発生しているようです。 次のパッチをあてることで改善されると思います。

--- descbinds-anything.el.orig  2011-11-06 15:57:19.405565905 +0900
+++ descbinds-anything.el   2011-09-30 19:04:22.838392514 +0900
@@ -140,7 +140,10 @@
            (point)
            (line-end-position)))
      (setq header-p nil)
-     (forward-line 3))
+      (if (= emacs-major-version 24)
+          (forward-line 2)
+        (forward-line 3))
+      )
     ((= (char-after) ?\f)
      (push (cons header (nreverse section)) sections)
      (setq section nil)

ウィンドウが変な風に分割されます。最新のpopwin.elではEmacs24に対応してますので、更新することでこの問題は解消されると思います。 m2ym/popwin-el – GitHub

M-xするとエラーが出てどうにもできません。これも同じくアップデートされていますので、更新すれば問題は解消されます。 bmonkey’s Emacs page

ウィンドウが移動できなかったり削除できなかったりします。めんどくさくなったので標準搭載されているGnusに乗りかえました。mewもあまり相性が良くないようですね。

Twitter / @kazu_yamamoto: Mew が Emacs 24 で動かない。せっかく …
Emacs 24.0.90 pretest

ファイルがコマンドラインから開けません。Emacs立ちあげてから開くという鉄則を習慣づければよいのですが、やっぱり面倒です。
が、この問題がなかなか解決しません。全く解決になっていないですが、フックさせている関数をフックさせないようにして逃げてます。どなたか解決策ご存知の方いたら教えてください。

--- elscreen.el.orig
+++ elscreen.el
@@ -1705,9 +1705,10 @@
       (setq column 0)
       t)

-    (add-hook 'after-init-hook (lambda ()
-                                 (add-to-list 'command-line-functions
-                                              'elscreen-e21-command-line t))))
+    ;; (add-hook 'after-init-hook (lambda ()
+    ;;                              (add-to-list 'command-line-functions
+    ;;                                           'elscreen-e21-command-line t)))
+    )

   (static-when elscreen-on-xemacs
     (defadvice command-line-1 (around elscreen-xmas-command-line-1 activate)

これが、今回一番厄介でした。どうやら原因は、hiwin.elが多少強引にoverlayをのせていることである気がします。これを解消するには大幅にコードを直さないといけないようで今のところ保留してます。 かなりお気に入りのelispなのでいずれ改造にチャレンジしたいところです。

Emacs側でバッファローカルに背景色が変えられればかなり楽なんですけどね。。。

手を加えないといけないところはありますが、ほとんどが解決策があるものやすでにEmacs24に対応しているものもあり、Emacs24への移行は以外とスムーズでした。ただ、window.elにはかなり手が加わっているようなので、ウィンドウ操作系のelispをお使いの方は気をつけた方が良いと思います。

感動したのが、多くのelispがすでにEmacs24へ対応していること。特にmcomplete.elは私がEmacsを使いはじめた時からずーっと使わせてもらっているelispなのですごく嬉しかったです。開発者の皆さん、本当にありがとうございます。

それでは素敵な先端ライフを!!

auto-complete-modeを使った日本語補完をサポートする、ふたつの情報源を提供します。
恐らく、いろいろなIMで使えるとは思いますが、DDSKKとの併用が便利ではないかと思います。

ac-ja.elはMarmaladeというelispのリポジトリサイトに登録していますので、package.elをお使いの方はとても簡単にインストールできます。

package.elやMarmaladeからのダウンロードについて詳しくは以前書いたこちらを参考にしてください。

package.elをお使いでない方は、Githubから手動でダウンロードしてください。

myuhe/ac-ja.el – GitHub

以降では、各情報源ごとに必要な設定について書いていきます。

ac-source-dabbrev-jaは、その名のとおりdabbrevで日本語を収集して作られる情報源です。

requireしてac-sourcesに加えるだけで使えるようになるはずです。

(require 'ac-ja)
(setq ac-sources (append ac-sources '(ac-source-dabbrev-ja)))

これで、補完が開始される度にdabbrevがはしり、補完候補が集められます。DDSKKをお使いの方はjisyoバッファもdabbrevされるので、個人辞書に登録した単語も補完候補に出てくると思います。

ac-source-skkはSKKで使われる辞書ファイルから補完候補が作成される情報源です。DDSKKの利用が前提となります。

必要となる設定は次のような感じになります。

;;補完候補としたい辞書ファイルの場所を指定します。
(setq ac-skk-jisyo-file "~/SKK-JISYO.L")
;;補完候補生成に必要な中間ファイルを置く場所を指定します。
(setq ac-skk-alist-file "~/ac-skk-alist.el")
(require 'ac-ja)
(setq ac-sources (append ac-sources '(ac-source-skk)))

指定する辞書ファイルによって人名や地名などいろいろと補完できるようになるんではないかと思います。

また、この二つの情報源は併用して使うことも可能です。併用して使うとこんな感じになると思います。

DDSKKでは文字入力に独自の関数をあてていますので、ac-auto-startをtとしていても自動的に補完が開始されません。

そこで、自動的に補完を開始させるために以下のようなコードを.emacsにでも書いておきます。

(eval-after-load "skk"
  '(progn
     (defadvice skk-kakutei (after ad-skk-kakutei last)
       "skk-kakuteiの後にatuo-complete-modeによる補完を実行するadvice"
       (unless (minibufferp)
         (ac-start)))))

(add-hook 'skk-mode-hook
          (lambda ()
            "skk-kakuteiのadviceを活性化"
            (interactive)
            (ad-activate 'skk-kakutei)))

(defadvice skk-mode-exit (before ad-skk-mode-exit last)
       "skk-modeから抜ける時にskk-kakuteiのadviceを不活性化。"
       (ad-deactivate 'skk-kakutei))

これで自動的に補完ができるようになるはずです。

いろいろと制限がありまして、まずひらがなと漢字が混じると補完できません。ということなので、補完するのは主に漢字が並んだ名詞になると思います。

それとできてから気づいたのですが、auto-complete-modeってmigemoれないので、補完候補が膨大にあるとなかなか探すのが大変です。どなたかmigemoれるanythingインターフェイスで書き直してください。

それでは good補完ライフを

ac-source-dabbrev-jaに関するコードは本家dabbrev.elのコードからいろいろと拝借しました。

ac-source-skkに関するコードはDDSKKのメンテナ、Kitamotoさんのskk-kakutei-extra.elからいろいろと拝借しました。

漢字で補完 – lisp_interactionの日記

素敵なコードありがとうございます!!