読者です 読者をやめる 読者になる 読者になる

Thanks Driven Life

日々是感謝

emacs-ikku / 文章の中から一句を探し出す

emacs

経緯

一句詠んでますか

いろいろあって作りました。

使う前に

mecab コマンドを使用するので、各自インストールお願いします。

使い方

(ikku/find) で、指定した文字列から一句を一つ見つけます。無ければ nil を返します。

(require 'ikku)

(setq song (ikku/find "ああ古池や蛙飛び込む水の音ああ"))
;; [cl-struct-ikku:song]

(ikku:song-to-string song)
;; "古池や 蛙飛び込む 水の音"

(ikku:song-to-string song "/")
;; "古池や/蛙飛び込む/水の音"

(ikku/search) では、指定した文字列から一句をあるだけ見つけます。無ければ空リストを返します。

(dolist (song (ikku/search "ああ古池や蛙飛び込む水の音ああ天秤や京江戸かけて千代の春ああ"))
  (message (ikku:song-to-string song "/")))

;; 古池や/蛙飛び込む/水の音
;; 天秤や/京江戸かけて/千代の春

中身について

新たにロジック考えるのめんどくさかったので、作る経緯となった r7kamura/ikku をほぼ参考にしました。感謝 id:r7kamura

あと、Ruby のコードをなるべく労力を減らして Emacs Lisp として持ってくるために、初めて magnars/dash.el を使用してみました。さすがに使いやすくて良い。ただ途中から導入したので、もしかしたら dash.el 関数におきかえられるやつが残ってるかもしれない。まあいいか。

まとめ

雑に一句詠んで人生過ごしたい