File: snd-init.el

package info (click to toggle)
snd 25.9-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 44,016 kB
  • sloc: ansic: 291,818; lisp: 260,387; ruby: 71,134; sh: 3,293; fortran: 2,342; csh: 1,062; cpp: 294; makefile: 294; python: 87; xml: 27; javascript: 1
file content (14 lines) | stat: -rw-r--r-- 499 bytes parent folder | download | duplicates (5) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
(defun dired-open-snd-file ()
  "Open the file where point is or the marked files in Dired with inf-snd program."
  (interactive)
  (let* ((file-list
          (dired-get-marked-files)))
    (mapc
     (lambda (file-path)
       (snd-scheme-open-file file-path))
     file-list)))

(define-key dired-mode-map (kbd "C-<return>") 'dired-open-snd-file)

;;; USAGE: Open a directory in emacs' dired-mode. position the cursor on a
;;; soundfile or mark some soundfiles and press C-<return> to open them.