mirrors
/
ambevar-dotfiles
mirror of https://gitlab.com/ambrevar/dotfiles/
1
0
Fork 0
Code Issues Releases Wiki Activity

Emacs session enabled + GDB windows fix for Emacs 24. 

There is still some dark corners in the changes between GUD 23 and 24. The
source buffer does not display on 24 for now.
master
Pierre Neidhardt 2013-06-16 11:53:07 +02:00
parent abc6baf3d5
commit 99e3e430c9
1 changed files with 21 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
.emacs.d/main.el
View File

@ -251,11 +251,15 @@
(lambda () (interactive) (lambda () (interactive)
(defun gdb-setup-windows () (defun gdb-setup-windows ()
"Layout the window pattern for `gdb-many-windows'." "Layout the window pattern for `gdb-many-windows'."
(setq gdb-source-window (selected-window))
(gdb-display-locals-buffer) (gdb-display-locals-buffer)
(delete-other-windows)
(gdb-display-stack-buffer) (gdb-display-stack-buffer)
(delete-other-windows) (delete-other-windows)
(gdb-display-breakpoints-buffer) (gdb-display-breakpoints-buffer)
(delete-other-windows) (delete-other-windows)
;; TODO: this does not behave the same on Emacs 23 and 24
(switch-to-buffer (switch-to-buffer
(if gud-last-last-frame (if gud-last-last-frame
(gud-find-file (car gud-last-last-frame)) (gud-find-file (car gud-last-last-frame))
@ -264,19 +268,21 @@
;; Put buffer list in window if we ;; Put buffer list in window if we
;; can't find a source file. ;; can't find a source file.
(list-buffers-noselect)))) (list-buffers-noselect))))
(setq gdb-source-window (selected-window))
(split-window-horizontally) (split-window-horizontally)
(other-window 1) (other-window 1)
(split-window nil ( / ( * (window-height) 3) 4)) (split-window nil ( / ( * (window-height) 3) 4))
(split-window nil ( / (window-height) 3)) (split-window nil ( / (window-height) 3))
(gdb-set-window-buffer (gdb-locals-buffer-name)) (gdb-set-window-buffer (gdb-locals-buffer-name))
(other-window 1) (other-window 1)
(pop-to-buffer gud-comint-buffer) (gdb-set-window-buffer gud-comint-buffer)
(when gdb-use-separate-io-buffer (when (and
(boundp 'gdb-use-separate-io-buffer)
gdb-use-separate-io-buffer)
(split-window-horizontally) (split-window-horizontally)
(other-window 1) (other-window 1)
(gdb-set-window-buffer (gdb-set-window-buffer
(gdb-get-buffer-create 'gdb-inferior-io))) (gdb-get-buffer-create 'gdb-inferior-io))))
(other-window 1) (other-window 1)
(gdb-set-window-buffer (gdb-stack-buffer-name)) (gdb-set-window-buffer (gdb-stack-buffer-name))
(split-window-horizontally) (split-window-horizontally)
@ -284,7 +290,7 @@
(gdb-set-window-buffer (gdb-breakpoints-buffer-name)) (gdb-set-window-buffer (gdb-breakpoints-buffer-name))
(other-window 1)))) (other-window 1))))
;; Remocve auto-fill in dwb edit because wikis and forums do not like it. ;; Remove auto-fill in dwb edit because wikis and forums do not like it.
(add-hook (add-hook
'find-file-hook 'find-file-hook
(lambda () (lambda ()
@ -302,10 +308,11 @@
(define-key my-keys-minor-mode-map (kbd "<f11>") 'previous-error) (define-key my-keys-minor-mode-map (kbd "<f11>") 'previous-error)
;; Just because XML is ugly. ;; Just because XML is ugly.
(add-hook 'html-mode-hook (add-hook
(lambda () 'html-mode-hook
(turn-off-auto-fill) (lambda ()
(toggle-truncate-lines))) (turn-off-auto-fill)
(toggle-truncate-lines)))
;; Common LISP ;; Common LISP
(setq inferior-lisp-program "clisp") (setq inferior-lisp-program "clisp")
@ -385,3 +392,8 @@ has errors and/or warnings."
(define-key my-keys-minor-mode-map (kbd "C-c C-p") 'mc/mark-previous-like-this) (define-key my-keys-minor-mode-map (kbd "C-c C-p") 'mc/mark-previous-like-this)
(define-key my-keys-minor-mode-map (kbd "C-c C-l") 'mc/mark-all-like-this-dwim))) (define-key my-keys-minor-mode-map (kbd "C-c C-l") 'mc/mark-all-like-this-dwim)))
;; Let Emacs auto-load/save sessions.
(desktop-save-mode 1)
(setq history-length 250)
(add-to-list 'desktop-globals-to-save 'compile-command)