rock.el

(defconst rocky-music-file "/home/mohamed/rocky.mp3")

(defvar rocky-music-process nil)

(defun rocky-start-music ()
  (interactive)
  (unless rocky-music-process
    (setq rocky-music-process (start-process-shell-command "rocky-music" "rocky-music" (concat "mplayer " rocky-music-file " -loop 0")))))


(defun rocky-stop-music ()
  (interactive)
  (when rocky-music-process
    (delete-process rocky-music-process)
    (setq rocky-music-process nil)))

(rocky-start-music)