Hatena::ブログ(Diary)

日々、とんは語る。

この日記のはてなブックマーク数 はてなスターカウンター Peace この日記をあなたのはてなアンテナに追加する。 rss
お問い合わせ先 mailto

2010-06-07 朝から凄い雨が降った日。

アクティブな window を可視化する hiwin-mode。

| 07:16 |

たまたま WindowsEmacs について調べていたら、雑多なメモ 非アクティブなバッファ背景色を変更する(hiwin-mode)という記事に出会いました。

アクティブウィンドウを目立たせたいというのは以前から実現したいなと思っていたので、見つけたときはテンションが上がりました。

f:id:tomoya:20100607071202j:image:w500

ただ、ksugita さんのブログには .txt ファイルとしてしか公開されておらず、導入が少し面倒なので、provide してモードラインにも表示されるようにして Github に上げておきました。

README にも書いておきましたが、

(auto-install-from-url "http://github.com/tomoya/hiwin-mode/raw/master/hiwin.el")
(install-elisp "http://github.com/tomoya/hiwin-mode/raw/master/hiwin.el")

auto-install.elinstall-elisp.el を既に導入している人は、上のいずれかの式を評価してインストールすると良いでしょう。

M-x hiwin-mode

というコマンドでオン/オフをトグルで切り替えられます。

ずっと使う場合.emacs

(require 'hiwin)
(hiwin-mode) ; 起動時から有効にしたい場合

と書いておくのを忘れず :-)

masutaka26masutaka26 2010/06/19 15:39 twittering-mode を 4 ペインで使っていて時々混乱するので、重宝しそうです!
Mew では OFF、twittering-mode では ON なんてできると良いですね。

ところで、オン->オフしてから C-x 2 すると hiwin-overlay=>nil 原因
でエラーになります。オフの時は hiwin-load() を呼ぶべきではないのかも。

Debugger entered--Lisp error: (wrong-type-argument overlayp nil)
move-overlay(nil 1 5451 #<buffer hiwin.el>)
(if (member buf hiwin-ignore-buffer) nil (select-window target-window) (if (eq ... ...) (backward-char 1)) (move-overlay (nth num hiwin-overlay) (point-min) (point-max) (current-buffer)) (overlay-put (nth num hiwin-overlay) (quote window) target-window) (setq num (1+ num)))
(let ((buf ...)) (if (member buf hiwin-ignore-buffer) nil (select-window target-window) (if ... ...) (move-overlay ... ... ... ...) (overlay-put ... ... target-window) (setq num ...)))
(progn (let (...) (if ... nil ... ... ... ... ...)))
(if (eq target-window hiwin-window) (progn (if ... ...)) (progn (let ... ...)))
(while target-list (setq target-window (car target-list)) (setq target-list (cdr target-list)) (if (eq target-window hiwin-window) (progn ...) (progn ...)))
(let ((num 0) (target-window nil) (target-list ...)) (while target-list (setq target-window ...) (setq target-list ...) (if ... ... ...)) (select-window hiwin-window))
hiwin-load()
split-window-vertically()
call-interactively(split-window-vertically nil nil)

tomoyatomoya 2010/06/19 23:58 > マスタカさん

どうもコメントありがとうございます。

僕も改善したいポイントが何点かあるのですが、ちょっと今現在は色々と忙しくて、コードを弄る余裕がないのです。
もしあれでしたら、パッチを送っていただくか、Github で branch 切ってもらうか、pull リクエストお願い致します。大変嬉しいです!

masutaka26masutaka26 2010/06/20 21:36 フィリピンでのご活躍は拝見しておりますw
楽しそうですね!

簡単ですが、pull リクエスト送りました。
どうぞよろしくお願いします。

<< 2010/06 >>
1 2 3 4 5
6 7 8 9 10 11 12
13 14 15 16 17 18 19
20 21 22 23 24 25 26
27 28 29 30