From: Don Armstrong Date: Wed, 17 Jan 2018 00:04:54 +0000 (-0800) Subject: re-enable eyebrowse X-Git-Url: https://git.donarmstrong.com/?p=lib.git;a=commitdiff_plain;h=d16b510466c5f609c5d093c819f33c5644305918 re-enable eyebrowse --- diff --git a/emacs_el/configuration/don-configuration.org b/emacs_el/configuration/don-configuration.org index 2f3d1ce..d2b33c0 100644 --- a/emacs_el/configuration/don-configuration.org +++ b/emacs_el/configuration/don-configuration.org @@ -135,48 +135,48 @@ load [[https://github.com/jwiegley/use-package/][use-package]] even faster ** Eyebrowse #+BEGIN_SRC emacs-lisp - ;; (use-package eyebrowse - ;; :ensure t - ;; :diminish eyebrowse-mode - ;; :init (setq eyebrowse-keymap-prefix (kbd "C-c C-\\")) - ;; :config (progn - ;; (setq eyebrowse-wrap-around t) - ;; (eyebrowse-mode t) - ;; - ;; (defun my/eyebrowse-new-window-config () - ;; (interactive) - ;; (let ((done nil)) - ;; (dotimes (i 10) - ;; ;; start at 1 run till 0 - ;; (let ((j (mod (+ i 1) 10))) - ;; (when (and (not done) - ;; (not (eyebrowse--window-config-present-p j))) - ;; (eyebrowse-switch-to-window-config j) - ;; (call-interactively 'eyebrowse-rename-window-config2 j) - ;; (setq done t) - ;; )) - ;; ))) - ;; - ;; ;; I don't use latex-preview-pane - ;; ;; (require 'latex-preview-pane) - ;; ;; (defun my/close-latex-preview-pane-before-eyebrowse-switch () - ;; ;; ;; latex-preview-pane uses window-parameters which are - ;; ;; ;; not preserved by eyebrowse, so we close the preview - ;; ;; ;; pane before switching, it will be regenerated when we - ;; ;; ;; edit the TeX file. - ;; ;; (when (lpp/window-containing-preview) - ;; ;; (delete-window (lpp/window-containing-preview)))) - ;; - ;; ;; (add-to-list 'eyebrowse-pre-window-switch-hook - ;; ;; #'my/close-latex-preview-pane-before-eyebrowse-switch) - ;; - ;; ;; (my/set-menu-key "[" #'my/eyebrowse-new-window-config) - ;; ;; (my/set-menu-key ";" #'eyebrowse-prev-window-config) - ;; ;; (my/set-menu-key "'" #'eyebrowse-next-window-config) - ;; ;; (my/set-menu-key "]" #'eyebrowse-close-window-config) - ;; ;; (my/set-menu-key "\\" #'eyebrowse-rename-window-config) - ;; ) - ;; ) + (use-package eyebrowse + :ensure t + :diminish eyebrowse-mode + :init (setq eyebrowse-keymap-prefix (kbd "C-c e")) + :config (progn + (setq eyebrowse-wrap-around t) + (eyebrowse-mode t) + + (defun my/eyebrowse-new-window-config () + (interactive) + (let ((done nil)) + (dotimes (i 10) + ;; start at 1 run till 0 + (let ((j (mod (+ i 1) 10))) + (when (and (not done) + (not (eyebrowse--window-config-present-p j))) + (eyebrowse-switch-to-window-config j) + (call-interactively 'eyebrowse-rename-window-config2 j) + (setq done t) + )) + ))) + + ;; I don't use latex-preview-pane + ;; (require 'latex-preview-pane) + ;; (defun my/close-latex-preview-pane-before-eyebrowse-switch () + ;; ;; latex-preview-pane uses window-parameters which are + ;; ;; not preserved by eyebrowse, so we close the preview + ;; ;; pane before switching, it will be regenerated when we + ;; ;; edit the TeX file. + ;; (when (lpp/window-containing-preview) + ;; (delete-window (lpp/window-containing-preview)))) + + ;; (add-to-list 'eyebrowse-pre-window-switch-hook + ;; #'my/close-latex-preview-pane-before-eyebrowse-switch) + + ;; (my/set-menu-key "[" #'my/eyebrowse-new-window-config) + ;; (my/set-menu-key ";" #'eyebrowse-prev-window-config) + ;; (my/set-menu-key "'" #'eyebrowse-next-window-config) + ;; (my/set-menu-key "]" #'eyebrowse-close-window-config) + ;; (my/set-menu-key "\\" #'eyebrowse-rename-window-config) + ) + ) #+END_SRC ** Window handling