■『Emacsメルマガ公開』＆『Emacs Lispテクニックバイブル　〜真髄を知るLispの掟〜』発売中

• プロジェクトその2　メルマガ「Emacsの鬼るびきちのココだけの話」発行！ - (rubikitch loves (Emacs Ruby CUI Books))
• 【特典付】『Emacs Lispテクニックバイブル』発売します - (rubikitch loves (Emacs Ruby CUI Books))
• 新刊『Emacsテクニックバイブル　〜作業効率をカイゼンする200の技〜』8/3発売 - (rubikitch loves (Emacs Ruby CUI Books))
• 『Ruby逆引きハンドブック』出版 - (rubikitch loves (Emacs Ruby CUI Books))

Permalink | コメント(2) | トラックバック(0)

■[emacs]all-ext.el:対象行を絞り込んでからまとめて編集するM-x allを超強化！occurと融合＆anything・helmと連携

お久しぶりです。

みなさん、M-x allって知ってますか？

M-x package-install all

でインストールできるのですが、これはM-x occurのように正規表現にマッチする行を表示します。

occurとの違いは表示結果を書き換えれば、該当部分が自動的に書き変わることです。

ユースケースとしては、編集対象行を絞り込んでから、置換やrectangle系コマンドで一気に編集するって感じです。

便利なので以前から重宝しています。

ただ、occurより劣る点としては、対象行の行番号が出ていない点と、M-g M-n (next-error)とM-g M-p (previous-error)で移動できない点です。

(union all occur)

occurで絞り込んだはいいけれど、その結果をやっぱり編集したいという場合に改めてM-x allを実行するのは面倒ですね。

そこで、拙作all-ext.elの出番です。

MELPAに登録してあるので

M-x package-refresh-contents
M-x package-install all-ext

でインストールしてください。

packageについては以下の設定が必要です。

(add-to-list 'package-archives '("marmalade" . "http://marmalade-repo.org/packages/"))
(add-to-list 'package-archives '("melpa" . "http://melpa.milkbox.net/packages/") t)

all.elがインストールされていないならば同時にインストールされます。

(require 'all-ext)

のみで使えます。

ついでにauto-install.elなどもMELPA経由でインストールできるようにしました。

all-ext.elをインストール後、いつも通りM-x allを実行してください。

M-x occur同様行番号がついていることがわかります。

そしてM-g M-nやM-g M-pを実行してください。

該当行にジャンプできるようになっています。

　*All*バッファからもC-c C-cで該当行にジャンプできます。

これでだいたいM-x occurの置き換えはできたことでしょう。

この時点で書き換え可能なoccurとなりました。

anythingやhelmから使う

今のemacsで検索といえば、anythingやその後継となるhelmを使ってる人も多いでしょう。

M-x anything-occur、M-x anything-c-moccur-occur-by-moccur、M-x helm-occurでMigemoつきでガンガン絞り込めるのは爽快としか言いようがありません。

これらで特定の行を絞り込んだら、その結果を編集したいときもあります。

そのとき、anything-resumeなどで次々と見ていくのは面倒で非効率的です。

ならばいっそのことanythingやhelmで表示されている内容を*All*に放り込めないかと思いました。

M-x anything-occurやM-x helm-occurで絞り込んだ後にC-c C-aを押すと、表示内容による*All*バッファが作成されます。

あとは*All*バッファを編集して元のバッファに反映させてください。

occurだけでなく、行番号とその行の内容を表示しているanything・helmコマンドならばなんでも使えます。

Permalink | コメント(3) | トラックバック(1)

■[emacs][el-expectations]ert-expectations: 新世代ユニットテストフレームワーク in Emacs Lisp

お久しぶりです。

世の中はすっかりEmacs24になってきたようですね。

本日、el-expectations.elの後継となるert-expectations.elをリリースしたのでお知らせします。

el-expectations.elは現役で使っているのですが、テストが失敗したときのレポート機能が弱くて不便に思っていました。

Emacs24ではユニットテストフレームワークのERTが標準添付になったことにより、ERTを内部で呼び出すことでその問題を克服しました。

基本的な使い方はel-expectationsと変わりません。

ERTについて学んでなくても今すぐ使えます。

M-x install-elisp-from-emacswiki ert-expectations.el

M-x install-elisp-from-emacswiki el-mock.el

あるいは

M-x auto-install-batch el-expectations

でインストールしてください。

※auto-install-batch-list.elはert-expectations.elを読むように更新しました。

http://www.emacswiki.org/emacs/download/ert-expectations.el

http://www.emacswiki.org/emacs/download/el-mock.el

たとえば、成功するテスト2つと失敗するテスト2つを実行させましょう。

el-expectationsと同じようにS式にてC-M-xを押します。

(expectations
  (desc "success")
  (expect 10
    (+ 4 6))
  (expect 5
    (length "abcde"))
  (desc "fail")
  (expect 11
    (+ 4 6))
  (expect 6
    (length "abcde")))

すると、*ert*バッファに次のように出力されます。

テスト失敗時のレポートがより詳しく出力されるのです。

Selector: t
Passed: 2
Failed: 2 (2 unexpected)
Total:  4/4

Started at:   2012-10-09 15:37:17+0900
Finished.
Finished at:  2012-10-09 15:37:17+0900

..FF

F erte-test-00003
    (ert-test-failed
     ((should
       (equal 11
              (mock-protect
               (lambda nil
                 (+ 4 6)))))
      :form
      (equal 11 10)
      :value nil :explanation
      (different-atoms
       (11 "#xb" "?^K")
       (10 "#xa" "?\n"))))

F erte-test-00004
    (ert-test-failed
     ((should
       (equal 6
              (mock-protect
               (lambda nil
                 (length "abcde")))))
      :form
      (equal 6 5)
      :value nil :explanation
      (different-atoms
       (6 "#x6" "?^F")
       (5 "#x5" "?^E"))))

また、desc式を置いていれば、テスト名(erte-test-00003など)のリンクを辿ればジャンプできます。

その他はel-expectations.elの説明を参照してください。

http://d.hatena.ne.jp/rubikitch/20080409/elexpectations

P.S.

Emacsのネット塾を運営しています。

最新の技術を数分で自分のものにすることができます。

ここで一気にライバルに差をつけてしまいましょう。

週1のメルマガに加え、僕がアドバイザーとなり無制限サポートを行っています。

Permalink | コメント(0) | トラックバック(0)

■[anything]anything-grep.elで最初からマッチ行をハイライトするようにした

anything.elの後継としてhelm.elが開発されていますが、anything.elはまだ死んでいません。

anything.elの現行ユーザのために、バグ修正をメインにメンテナンスし続けます。

ものすごい久し振りですがanything-grep.elを修正しました。

grepの結果をanything.elで絞り込む anything-grep.el をリリース - (rubikitch loves (Emacs Ruby CUI Books))

変更点はたった1点で、何も設定しなくてもpersistent-actionでマッチした行をハイライトできるようにしました。

(require 'anything-grep) のみでおｋです。

M-x install-elisp-from-emacswiki anything-grep.el

Gitリポジトリではcontribに入っているので注意。

Permalink | コメント(0) | トラックバック(0)

■[emacs]Emacs24のelispは速いぞ！ベンチマークを測定してみた

Emacs24「ねんがんのlexical-bindingをてにいれたぞ！」

10年にわたって開発してきたlexical-bindingがついにEmacs24に取り込まれました。

これはEmacs界の大大大ニュースです！

lexical-bindingが有効になると、letがlexical-letに化けます。

lexical-bindingは速いということらしいのですが、現時点でベンチマークをみかけないので測定してみました。

lexical-bindingは変数lexical-bindingをtにすると有効になります。

この変数は、バッファローカル変数なのでsetqで設定しても他のバッファに影響はありません。

M-x ielmで実験してみましょう。

ELISP> (setq lexical-binding t)
t
ELISP> (defun f1 (n) (let ((i 1) (s 0)) (while (<= i n) (setq s (+ s i)) (setq i (1+ i))) s))
f1
ELISP> (f1 10)
55
ELISP> (byte-compile 'f1)
nil
ELISP> (symbol-function 'f1)
(closure
 (t)
 (n)
 (let
     ((i 1)
      (s 0))
   (while
       (<= i n)
     (setq s
           (+ s i))
     (setq i
           (1+ i)))
   s))

ぬ、lexical-bindingを設定したらielmではバイトコンパイルできないぞ？？

とりあえず、適当なファイルを開いて以下の内容にして、C-u M-x byte-compile-file。

lexical-bindingをファイル内で有効にするには、こんなふうに一行目に -*- lexical-binding: t -*- を入れること。

;; -*- lexical-binding: t -*-
(defun f1 (n) (let ((i 1) (s 0)) (while (<= i n) (setq s (+ s i)) (setq i (1+ i))) s))

そこでM-x rename-uniquelyでバッファ名を変えて、再びM-x ielm。

こっちはlexical-bindingを使わない方。

ELISP> (defun f2 (n) (let ((i 1) (s 0)) (while (<= i n) (setq s (+ s i)) (setq i (1+ i))) s))
f2
ELISP> (byte-compile 'f2)
#[(n)
  略(バイトコード)
  [s i n 1 0]
  3]

さっそく測定。

ELISP> (benchmark-run 1 (f1 100000))
(0.016059 0 0.0)
ELISP> (benchmark-run 1 (f2 100000))
(0.022624 0 0.0)

lexical-bindingによって3割ほど高速化しました。

P.S.

Emacsのネット塾を運営しています。

最新の技術を数分で自分のものにすることができます。

ここで一気にライバルに差をつけてしまいましょう。

Permalink | コメント(0) | トラックバック(1) | 18:48