code.delx.au - gnu-emacs-elpa/blob - packages/realgud/realgud/common/buffer/info.el

   1 ;;; Copyright (C) 2015 Rocky Bernstein <rocky@gnu.org>
   2 ;;;
   3 ;;; A mode based off of org mode to show debugger information
   4
   5 (eval-when-compile (require 'cl))
   6 (require 'org)
   7
   8 (require 'load-relative)
   9
  10 (defstruct realgud-backtrace-info
  11   "debugger object/structure specific to debugger info."
  12   (cmdbuf    nil)  ;; buffer of the associated debugger process
  13 )
  14
  15 ;; Can't load because this causes a cyclic dependency on
  16 ;; buffer/commands via cmd and buffer/commands uses us.
  17 ;; (require-relative-list  '("menu") "realgud-")
  18
  19 ;; FIXME: full definition is in menu.
  20 (defvar realgud:info-mode-map)
  21
  22 (defcustom realgud:info-mode-hook '()
  23   "Hook for customizing realgud info mode."
  24   :type 'hook
  25   :group 'realgud)
  26
  27
  28 (define-derived-mode realgud:info-mode org-mode "Debugger Info"
  29   "Major mode for interacting realgud debugger information."
  30   (use-local-map realgud:info-mode-map)
  31   (setq buffer-read-only 't)
  32   )
  33
  34 ;; FIXME:
  35 ;; (defvar realgud:info-mode-map
  36 ;;   (realgud-populate-debugger-menu
  37 ;;            (make-sparse-keymap "Debugger")))
  38
  39 ;; (define-key realgud:info-mode-map [menu-bar debugger]
  40 ;;   (cons "Debugger" (realgud-populate-debugger-menu
  41 ;;            (make-sparse-keymap "Debugger"))))
  42
  43 ;; (define-key realgud:info-mode-map [menu-bar debugger backtrace]
  44 ;;   '("Backtrace" . realgud:window-bt))
  45 ;;(define-key realgud:info-mode-map  [menu-bar debugger command]
  46 ;;  '("Go to Command Buffer" . realgud-window-cmd-undisturb-src))
  47 ;;(define-key realgud:info-mode-map [menu-bar debugger source]
  48 ;;  '("Go to Source Buffer" . realgud-window-src-undisturb-cmd))
  49
  50 (provide-me "realgud-buffer-")