自作のプログラムとか - Emacs-Lisp篇

ファイル名に xxx.el-v.v.gz のようにバージョン番号が含まれているファイルは、 gzip で伸長するときに -N (--name) オプションを使うと バージョン番号のついていないファイル名 (xxx.el) になります。 あとはこのファイルを通常の Emacs-Lisp ライブラリと同じようにインストールしてください。設定方法や更新履歴は Emacs-Lisp ライブラリの慣習に従ってソースファイル冒頭のライブラリヘッダに含めています (手を抜いてなければ :-))

• メジャーモード
  • yapp-mode
  • systemc-mode
• その他
  • えせ暦
  • uncompface
  • kishuizon
  • diff-buffer-mode
  • disassemble-file
  • qr-encode (New)

メジャーモード

yapp-mode (Mar 20, 2001 / 2729 bytes)

Parse::Yapp の入力文法ファイルを編集するための Emacs のメジャーモードです (Parse::Yapp は、 Francois Desarmenien 氏による Perl 版の yacc です)。

systemc-mode (Jun 14, 2001 / 2223 bytes)

システム記述言語 SystemC のソースファイルを編集するための Emacs のメジャーモードです。 … まぁ、 c++-mode モードに皮を被せたものなんですが :-)

その他

えせ暦 (Aug 05, 2006 / 5180 bytes)

グレゴリオ暦 (要は現代のふつうの日付) から旧暦と二十四節気・雑節を求めるプログラムです。

M-x koyomi-today
⇒ 今日は 平成14年 (壬午) 8月8日 (戊申) 旧6月30日 大安 立秋 です。

メールのヘッダにこっそり旧暦を忍ばせるとかしてみるのも楽しいかも知れません :-)

• Emacs の calendar に含まれている月齢・太陽黄経の近似計算関数を利用して実装しています。 近似である以上本物の暦と日付がずれることがないとは言えませんので、 目安程度にご利用ください。

uncompface (Jun 10, 2003 / 4154 bytes)

メール/ニュースの X-Face ヘッダなどで使われる compface 形式の圧縮ビットマップを展開するプログラムです。 Emacs-Lisp だけで実装されており、外部プログラム (uncompface など) を一切使いません。また Emacs のコンパイル時にライブラリを組み込んだりする必要もありません。

• MMX Pentium 266MHz で1回のデコードに 2、3秒程度かかります。
• 今のところ、インタフェースが合わないので Gnus などの MUA から使うことはできません。
• 21.3 までの Emacs にはバグがあり、このプログラムのバイトコンパイルはできますがバイトコードのロードができません。

ブールベクタ定数修正プログラム (Jun 08, 2003 / 2304 bytes)

上の uncompface.el をコンパイルできてもロードできないという問題を回避するプログラムです。 uncompface.el をバイトコンパイルした後 emacs -batch -l fix-boolvec.el -f batch-fix-bool-vectors uncompface.elc のように実行すると正常にロードできるようになります。他にも eval-when-compile などでコンパイル時にブールベクタを定数として出力するようなプログラムに効果があります (たぶん)。

kishuizon (Sep 28, 2003 / 3217 bytes)

丸囲み数字や組み文字など、いわゆる「機種依存文字」が含まれているテキストを Emacs で読むためのプログラムです。 機種依存文字は「(1)」や「メートル」のように代替テキストで表示します。

kishuizon.el の表示サンプル

(他のシステム)	kishuizon.el による代替表示

• 対話コマンドとしては (今のところ) 使えません。 Emacs 上のメーラなどのフックに設定して機種依存文字を含むメールを読むといった使い方を想定しています。

  【例】 T-Gnus で使う場合

  .gnus に次のように設定します (他にもやり方はあるかも知れません)。

  (add-hook 'gnus-art-load-hook
            (lambda ()
               (add-to-list 'gnus-treatment-function-alist
                            '(gnus-treat-kishuizon-characters
                              kishuizon-display-characters))))
  (setq gnus-treat-kishuizon-characters t)
  

• 端末モード (-nw) でも動作します。
• 代替テキストは、それと分かるように反転して表示します (表示形式はある程度カスタマイズできます)。
• GNU Emacs 21.1 以降のディスプレイエンジンの機能を使っているので、それより古い Emacs では使えません。

diff-buffer-file (Dec 18, 2003 / 1813 bytes)

編集中のバッファと、それに対応するファイルで diff を取るためのコマンド (M-x diff-buffer-file) です。バッファをセーブする前に変更点を確認することができます。

• Emacs 22.1 以降では似たようなコマンドが標準コマンドに追加されています (M-x diff-buffer-with-file)。
  • 一応 diff-buffer-file のほうがちょっとだけ見栄えがいいと自分では思っていますが…

disassemble-file (Jan 07, 2004 / 2317 bytes)

Emacs-Lisp のバイトコードは、 Emacs に付属する disassemble 関数を使って「逆アセンブル」することができますが、関数毎にしか逆アセンブルできません。このライブラリはコンパイル済みのバイトコードファイル (.elc ファイル) を一括して逆アセンブルするための disassemble のラッパです。 disassemble では簡単には見ることのできない、トップレベルの (関数やマクロの定義以外の) バイトコードも逆アセンブルできます。バッチモードでは逆アセンブル結果を標準出力に出力することもできます。

qr-encode (May 06, 2008 / 14792 bytes)

QRコードを生成するためのライブラリです。文字列 (8ビット文字とシフトJISに対応) をQRコードにエンコードし、できたシンボルをビットマップ (ブールベクタのベクタ) か Emacs-Lisp の Image Descriptor (Emacs が表示する画像の内部形式) で返します。誤り訂正レベル (M/L/H/Q) とバージョン (1〜40) については一応すべて対応しています。 … が、今一つ使い道がありません ;-p

qr-encode.el のスクリーンショット

• 8ビット文字については、数字・英数字・8ビットバイトの各モードを切り換えながら合計のビット数が最小になるように符号化しています。
• 構造的連接、ECIヘッダ、FNC1モード等には対応していません。
• Emacs-Lisp のみで実装しているため (外部プログラム・ライブラリ等は使いません) 実行速度については期待しないでください。
• 一応書いといたほうがよさげなので: QRコードは(株)デンソーウェーブの登録商標です。

バグ、ご提案などありましたら私まで。