真の豊かさとは何か
- 平成22年2月18日(木) 23時29分16秒
- 区分
- 生き甲斐
- 報告者:
- chiba
こんにちは、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って良いですね。
メッセージは依然適当にスルーされています。 ■
