ypooo’s diary

8. clean-text 関数 ypooo.hatenablog.com (defun clean-text (text) (let ((trimmed (string-trim '(#\Space #\Tab #\Newline #\Return #\ ) (or text "")))) (cl-ppcre:regex-replace-all "[\\s ]+" trimmed "-"))) 目的: 文字列から空白文字を取り除き（トリミング）、文字列内の連続した空白を1つのハイフンに置き換え…