経緯
mattn.kaoriya.net
ビッグウェーブに乗った
過去
人名をランダムに生成する emacs lisp fake-full-name.el - Thanks Driven Life
こんな記事を書いたこともありました。この elisp はちょくちょく仕事でも使っていて、ちゃんとリポジトリ作成しようかなーでもなーって悩んでたところ、gimei の話題が見えましたので、あらためてこちらの方を作成しました。
現在
github.com
Usage
https://github.com/gongo/emacs-gimei#usage
まずは人名:
(require 'gimei)
(setq name (gimei/new-name))
(gimei/kanji-of name)
(gimei/hiragana-of name)
(gimei/katakana-of name)
(gimei/last:kanji-of name)
(gimei/last:hiragana-of name)
(gimei/last:katakana-of name)
(gimei/first:kanji-of name)
(gimei/first:hiragana-of name)
(gimei/first:katakana-of name)
(gimei/kanji-of (gimei:new-male))
(gimei/kanji-of (gimei:new-female))
住所はこんな感じ:
(setq address (gimei/new-address))
(gimei/address:kanji-of address)
(gimei/address:hiragana-of address)
(gimei/address:katakana-of address)
(gimei/address:prefecture:kanji-of address)
(gimei/address:city:hiragana-of address)
(gimei/address:town:katakana-of address)
変数に受けずに直接呼び出すことも可能:
(gimei/kanji)
(gimei/hiragana)
(gimei/katakana)
(gimei/address:kanji)
(gimei/address:hiragana)
(gimei/address:katakana)
使用例
(require 'cl-lib)
(cl-loop for i from 1 to 10
do (let ((name (gimei/new-name))
(address (gimei/new-address)))
(insert "\"" (gimei/kanji-of name) "\""
"," "\"" (gimei/katakana-of name) "\""
"," "\"" (gimei/address:kanji-of address) "\""
"\n")))
即席テストユーザ CSV ファイル
おまけ
Emacs Lisp って YAML parser 無いんですね。無かったので オリジナルデータ を alist に変換して gz で配置するなどして対処しました。
まとめ
これでテストデータもばっちりですね!テストしていこう!!(この elisp も ちゃんとテスト書きました)