Play a sound after every keypress in Emacs on macOS

clicky.el

;; Resource: https://stackoverflow.com/questions/11206140/typewriter-sounds-for-emacs

(defvar tink  "/System/Library/Sounds/Tink.aiff")

(defun play (file)
  (let ((buf (get-buffer-create "playnoise")))
    (start-process-shell-command "play" buf (concat "afplay " file))))

(defun do-tink ()
  (play tink))

(add-hook 'post-command-hook 'do-tink)

; if you're about to die, run
; (remove-hook 'post-command-hook 'do-tink)