remedybg emacs minor mode (not ready for primetime)

remedybg-mode.el

;;
;; remedybg minor mode
;;
;; 0.1 by Michael Labbe
;;

(setq remedybg-path "c:/remedydbg/remedybg.exe")

(defun remedybg-add-breakpoint-at-file()
  (interactive)
    (call-process-shell-command (format "%s add-breakpoint-at-file %s %d" remedybg-path buffer-file-name (line-number-at-pos)) nil 0)
    )

(defun remedybg-start-debugging()
  (interactive)
  (call-process-shell-command (format "%s start-debugging" remedybg-path) nil 0)
  )

(defun remedybg-open-file()
  (interactive)
  (call-process-shell-command (format "%s open-file %s %d" remedybg-path buffer-file-name (line-number-at-pos)) nil 0)
  )

(define-minor-mode remedybg-mode
  "Control Remedybg from inside emacs"
  :lighter "remeydbg"

  :keymap
  (list (cons [f9] 'remedybg-add-breakpoint-at-file)
        (cons [f5] 'remedybg-start-debugging)
        (cons [f10] 'remedybg-open-file)
       ) 
  )


(provide 'remedybg-mode)