（ ﾞﾟ'ωﾟ'）ﾓﾏﾏﾏ…ﾏｼﾞで！の補完

■具体的に何をするか
（　ﾞﾟ'ωﾟ'）ﾓﾏﾏﾏ…ﾏｼﾞで！を挿入する

■使い方
コードをコピペして*scrathc*で(insert view)))の一番右の所でC-jを押す。それからAlt + xを押し"M-x"と下の小さいWindowの所にでたら"momamama"と入力してEnter。

(defun momamama(&optional (str "ﾓﾏﾏﾏ…ﾏｼﾞで！？")
						  (defkao1 "（　ﾞﾟ'ωﾟ'）")
						  (defkao2 "（　 ﾟ ωﾟ ）"))
  (interactive)
  (let ((view defkao2))
	(message "(`･д･´)ﾔﾘﾀﾏｴ" )
	(popup-string "(`･д･´)ﾔﾘﾀﾏｴ" (point))
	(sit-for 2)
	(message "~A" view)
	(popup-string view (point))
	(sit-for 1)
	(dotimes (i (length str) t)
	  (setq view (concat (if (oddp i) defkao2 defkao1)
						 (substring str 0 i)))
	  (message "~A" view)
	  (popup-string view (point))
	  (sit-for 0.05))
	(insert view)))

何か2chのスレ見て何となく。