smartchr.elを入れてみた

ここからの引用。
smartchr.el を使って生産性を上げる | tech.kayac.com - KAYAC engineers' blog

設定ファイルに

(require 'smartchr)
(define-key global-map (kbd "D") (smartchr '("D" "どうもすみませんでした。")))

と書く。
1回Dを打つとDが、2回Dを打つと「どうもすみませんでした」と入力されます。