Thanks Driven Life

日々是感謝

人名をランダムに生成する emacs lisp fake-full-name.el

A「テストデータで氏名欲しいんですが、考えるのめんどうだしなんかないっすか」
B「PHP だと昔こういうの書いたよ https://gist.github.com/202947
俺「それパクって俺も Ruby 版作ったよ! https://gist.github.com/218483/
C「elisp 版ないんすか?(ニヤニヤ」
俺「ぐぬぬ」

というわけで作ってみました。
なんか既にありそうだけど気にしない。

SKK の人名辞書ファイルから架空の氏名を生成する fake-full-name.el — Gist

;;; Usage:
;;
;; (require 'fake-full-name)
;;
;; 人名を生成します
;;
;; (ffn:generate)
;;
;; ffn:generate を実行する度に次の人名を生成します
;;
;;  ※ 初回実行時に人名リストを構築するため、少し時間がかかります。
;;     二回目以降はキャッシュを利用するので速いです多分。
;;
;; (ffn:generate) ;; => "中渓 文我"
;; (ffn:kana)     ;; => "なかたに ぶんが"
;; (ffn:kanji)    ;; => "中渓 文我"
;;
;; (ffn:generate)    ;; => "栃本 奈美江"
;; (ffn:kana)        ;; => "とちもと なみえ"
;; (ffn:kanji)       ;; => "栃本 奈美江"
;; (ffn:last-kana)   ;; => "とちもと"
;; (ffn:first-kana)  ;; => "なみえ"
;; (ffn:last-kanji)  ;; => "栃本"
;; (ffn:first-kanji) ;; => "奈美江"
;;

使い方はこんな感じです。
なんかごちゃごちゃしてるからもっとすっきり書けるかも!だれか赤ペン先生!!