;;; ファイルを開くときの効果音
(defun find-file-hook--sound ()
  (sound-wav-play
   (expand-file-name
    "~/sound/Typewriter_Sound_FXs/Antique_Typewriter_Sound_FXs/Paper_load.wav")))
(add-hook 'find-file-hook 'find-file-hook--sound)

;;; キーを叩くたびに音を出す(うるさいので注意(笑))
(defun post-command-hook--sound ()
  (ignore-errors
    (sound-wav-play
     (expand-file-name
      (cl-case last-command-event
        (?\s "~/sound/Typewriter_Sound_FXs/Typewriter_Sound_FXs/Spacebar.wav")
        ('backspace "~/sound/Typewriter_Sound_FXs/Typewriter_Sound_FXs/Backspace.wav")
        ((?\C-m 'return) "~/sound/Typewriter_Sound_FXs/Typewriter_Sound_FXs/Return.wav")
        ;; やかましいので2回に1回のペースで鳴らすか
        (t (when (zerop (random 2))
             "~/sound/Typewriter_Sound_FXs/Typewriter_Sound_FXs/1_click.wav")))))))
(add-hook 'post-command-hook 'post-command-hook--sound)