1 ;;; Copyright (C) 2010, 2012, 2015 Rocky Bernstein <rocky@gnu.org>
2 ;;; Ruby "rdebug" Debugger tracking a comint or eshell buffer.
4 (eval-when-compile (require 'cl))
5 (require 'load-relative)
6 (require-relative-list '(
10 "../../common/track-mode"
13 (require-relative-list '("core" "init") "realgud-rdebug-")
14 (require-relative-list '("../../lang/ruby") "realgud-lang-")
16 (realgud-track-mode-vars "rdebug")
18 (declare-function realgud:ruby-populate-command-keys 'realgud-track-lang-ruby)
19 (declare-function realgud-track-mode 'realgud-track-mode)
20 (declare-function realgud-track-mode-hook 'realgud-track-mode)
21 (declare-function realgud-track-mode-setup 'realgud-track-mode)
22 (declare-function realgud:track-set-debugger 'realgud-track-mode)
24 (realgud:ruby-populate-command-keys rdebug-track-mode-map)
26 (defun rdebug-track-mode-hook()
29 (use-local-map rdebug-track-mode-map)
30 (message "using rdebug mode map")
32 (message "rdebug track-mode-hook disable called"))
35 (define-minor-mode rdebug-track-mode
36 "Minor mode for tracking rdebug source locations inside a process shell via realgud. rdebug is a Ruby debugger.
38 If called interactively with no prefix argument, the mode is toggled. A prefix argument, captured as ARG, enables the mode if the argument is positive, and disables it otherwise.
40 \\{rdebug-track-mode-map}
43 ;; :lighter " rdebug" ;; mode-line indicator from realgud-track is sufficient.
44 ;; The minor mode bindings.
46 :group 'realgud:rdebug
47 :keymap rdebug-track-mode-map
48 (rdebug-track-mode-internal rdebug-track-mode)
51 ;; Broken out as a function for debugging
52 (defun rdebug-track-mode-internal (&optional arg)
53 (realgud:track-set-debugger "rdebug")
56 (realgud-track-mode-setup 't)
57 (rdebug-track-mode-hook))
59 (setq realgud-track-mode nil)
63 (provide-me "realgud-rdebug-")