Discover haiku from text.
Return the first found song from given text.
(require 'ikku)
(let ((song (ikku/find "ああ古池や蛙飛び込む水の音ああ")))
(ikku:song-to-string song))
;; "古池や 蛙飛び込む 水の音"
(let ((song (ikku/find "ああ古池や蛙飛び込む水の音ああ" '(3 4 2))))
(ikku:song-to-string song))
;; "蛙 飛び込む 水"
Return all songs from given text.
(dolist (song (ikku/search "ああ古池や蛙飛び込む水の音ああ天秤や京江戸かけて千代の春ああ"))
(message (ikku:song-to-string song "/")))
;; 古池や/蛙飛び込む/水の音
;; 天秤や/京江戸かけて/千代の春
MIT License