Máy đánh chữ âm thanh cho emacs

Question

Tôi muốn thiết lập emacs để nó phát âm thanh đánh máy khi gõ văn bản vào bộ đệm, cũng như âm thanh trả về khi nhấn enter (tương tự như trình chỉnh sửa Q10 trên cửa sổ). Có ai có bất cứ đề nghị nào về cách tôi có thể đi về việc này không? Có một cái móc mà tôi có thể sử dụng?

Tôi hiện đang sử dụng aquamac và emacs 22, nhưng không chống lại việc nâng cấp.

EDIT: Trong trường hợp có ai quan tâm, phiên bản vim của câu hỏi này đã được hỏi ở đây: How can I make VIM play typewriter sound when I write a letter?

Answer 1

Trước tiên, bạn phải thiết lập một số cách để chơi âm thanh:

(defun play-typewriter-sound() 
     (let ((data-directory "~/Dowloads/Sounds")) 
     (play-sound `(sound :file "key1.wav")))) 

... không làm việc trên Mac OSX Emacs ví dụ vì nó không được biên dịch với hỗ trợ âm thanh. Có cách giải quyết tuy nhiên, xem ví dụ http://www.emacswiki.org/emacs/ErcSound

• Sau đó, bạn có thể sử dụng những lời khuyên trên bất kỳ Emacsen

  (defadvice self-insert-command (after play-a-sound activate) 
      (play-typewriter-sound)) 
  

  Bạn cũng có thể tư vấn cho newline-and-indent.

• On Emacs24 bây giờ bạn có post-self-insert-hook

  (add-hook 'post-self-insert-hook 'play-typewriter-sound) 
  

• Nếu bạn không thích defadvice bạn có thể sử dụng post-command-hook và kiểm tra tên của this-command có:

  (add-hook 'post-command-hook #'play-typewriter-sound-maybe) 
  
  (defun play-typewriter-sound-maybe() 
      (if (eq this-command 'self-insert-command) 
       (play-typewriter-sound))) 
  

Answer 2

Nếu ai đó cần điều này bằng cách sử dụng afplay tại đây tôi sử dụng số

(defun play (audio-name) 
    (interactive) 
    (let* (buf (get-buffer-create "playnoise")) 
     (start-process-shell-command 
     "play" buf (concat (format "afplay /Users/foo/audios/%s" audio-name) ".mp3")))) 

(play "wrong")