アクトインディ開発者ブログ

子供とお出かけ情報「いこーよ」を運営する、アクトインディ株式会社の開発者ブログです

真の豊かさとは何か

こんにちは、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って良いですね。
メッセージは依然適当にスルーされています。 ■