Dostosowywanie Emacsa GDB

Question

Uwielbiam używać GDB z emacs. I jak większość konfiguracji, które otrzymuję z „GDB wieloma oknami”, jak widać tutaj:

gdb-many-windows

Powiedział, że to nie jest idealne. Chciałbym dodać ramkę do wyświetlania aktualnie uruchomionych wątków. Czy ktoś wie, czy można dostosować konfigurację, którą daje "gdb-many-windows"? Lub, jeśli nie mogę tego zrobić, jest ich sposobem tworzenia własnych ram AFTER gdb pojawia się automatycznie w moim .emacs? Moja idealna konfiguracja zawiera wątki, ślad stosu, zmienne lokalne i duże okno źródłowe.

Answer 1

Układ okna używany przez gdb-many-windows jest najwyraźniej zaimplementowany w gdb-setup-windows. Można doradzić tę funkcję, aby zrobić dodatkowe prace przy zakładaniu okien, jak

(defadvice gdb-setup-windows (around setup-more-gdb-windows activate) 
    ad-do-it 
    (split-window-horizontally) 
    (other-window 1) 
    (gdb-set-window-buffer 
    (gdb-get-buffer-create 'gdb-some-buffer-type))) 

Answer 2

Jest to bardzo stary słupek, jednak rozwiązanie obserwacji może komuś pomóc.

Poniższy kod przechwytuje początek i wyjście interfejsu gdb, zmieniając jego zachowanie.

Na początku gdb (defadvice gdb), to najpierw zapisać bieżący układ, a następnie uruchomić gdb i wreszcie przygotować nowy układ niestandardowy (łatwo edytować go do własnych preferencji)

Na wyjściu gdb (defadvice gdb -reset), najpierw uruchamia oryginalną funkcję wyjścia, a następnie ponownie ładuje zapisany układ.

Wynik zawiera te same okna GDB-many-okien, obecny wątkiem są w prawym górnym rogu obrazu

(setq gdb-many-windows nil) 

(defun set-gdb-layout(&optional c-buffer) 
    (if (not c-buffer) 
     (setq c-buffer (window-buffer (selected-window)))) ;; save current buffer 

    ;; from http://stackoverflow.com/q/39762833/846686 
    (set-window-dedicated-p (selected-window) nil) ;; unset dedicate state if needed 
    (switch-to-buffer gud-comint-buffer) 
    (delete-other-windows) ;; clean all 

    (let* (
     (w-source (selected-window)) ;; left top 
     (w-gdb (split-window w-source nil 'right)) ;; right bottom 
     (w-locals (split-window w-gdb nil 'above)) ;; right middle bottom 
     (w-stack (split-window w-locals nil 'above)) ;; right middle top 
     (w-breakpoints (split-window w-stack nil 'above)) ;; right top 
     (w-io (split-window w-source (floor(* 0.9 (window-body-height))) 
          'below)) ;; left bottom 
     ) 
    (set-window-buffer w-io (gdb-get-buffer-create 'gdb-inferior-io)) 
    (set-window-dedicated-p w-io t) 
    (set-window-buffer w-breakpoints (gdb-get-buffer-create 'gdb-breakpoints-buffer)) 
    (set-window-dedicated-p w-breakpoints t) 
    (set-window-buffer w-locals (gdb-get-buffer-create 'gdb-locals-buffer)) 
    (set-window-dedicated-p w-locals t) 
    (set-window-buffer w-stack (gdb-get-buffer-create 'gdb-stack-buffer)) 
    (set-window-dedicated-p w-stack t) 

    (set-window-buffer w-gdb gud-comint-buffer) 

    (select-window w-source) 
    (set-window-buffer w-source c-buffer) 
    )) 
(defadvice gdb (around args activate) 
    "Change the way to gdb works." 
    (setq global-config-editing (current-window-configuration)) ;; to restore: (set-window-configuration c-editing) 
    (let (
     (c-buffer (window-buffer (selected-window))) ;; save current buffer 
     ) 
    ad-do-it 
    (set-gdb-layout c-buffer)) 
) 
(defadvice gdb-reset (around args activate) 
    "Change the way to gdb exit." 
    ad-do-it 
    (set-window-configuration global-config-editing))