こんにちは、chibaです。
今回は、WordPressのフォームネタの続きの筈なのですが、準備が全く間に合ってないので全然関係ない話を。
当社は、社内のコミュニケーションにskypeが活用されているのですが、Emacs派の私とtaharaさんは、もちろんskype.elを愛用しています。
複数人で会話しているので会話が埋もれがちになるのですが、これまでみんなに見ておいて欲しい作業の報告等には、目立つように絵文字をちりばめて派手にしていました。
しかし、それもだんだんスルーされるようになって来たことに危機感を抱いた私は、報告メッセージをAA化し出力することにし、それのためのelispをやっつけで書いてみました。
(defun omatase (arg title name mesg) (interactive "p\nstitle: \nsname: \nsmesg: ") (let* ((title-chars (append title nil)) (last-1~3 (last title-chars 3)) (butlast3 (butlast title-chars 3)) (last3 (first last-1~3)) (last2 (second last-1~3)) (last1 (or (third last-1~3) 12288))) (insert (format " . ┌○┐%s │%c|ハハ お待たせしました、%sさん │%c|゚ω゚) │%c| // └○┘ (⌒) し⌒ %s ハハ 以上、よろしくお願いします (゚ω゚) _(_つ/ ̄ ̄ ̄/_ \/___/ " (if (null butlast3) "" (apply #'concat (mapcar (lambda (c) (format "\n│%c|" c)) butlast3))) last3 name last2 last1 mesg))))
M-x omataseで
title: 死んでもいやです name: 名無し mesg: そんなことできません
と入力すると、
. ┌○┐ │死| │ん| │で| │も| │い| │や|ハハ お待たせしました、名無しさん │で|゚ω゚) │す| // └○┘ (⌒) し⌒ そんなことできません ハハ 以上、よろしくお願いします (゚ω゚) _(_つ/ ̄ ̄ ̄/_ \/___/
という風に出力されます。ただバッファにAAが出力されるだけですが、Emacsって良いですね。
メッセージは依然適当にスルーされています。
■