#+END_SRC
*** hydra-window
-
#+BEGIN_SRC emacs-lisp :tangle yes :results silent
(winner-mode 1)
(windmove-down))
"horz" :exit t)
("o" delete-other-windows "one" :exit t)
- ("C-o" delete-other-windows "one" :exit t)
+ ("C-o" ido-switch-buffer "buf" :exit t)
("a" ace-window "ace")
("s" ace-swap-window "swap")
("d" ace-delete-window "ace-one" :exit t)
(global-unset-key (kbd "C-o"))
(global-set-key (kbd "C-o") 'sd/hydra-window/body)
-
- (defun triggle-windows-max-size ()
- (interactive)
- (if (> (length (window-list)) 1)
- (delete-other-windows)
- (winner-undo)))
-
#+END_SRC
*** hydra misc
;; thread
(setq gnus-thread-hide-subtree t)
+ ;; (with-eval-after-load 'gnus-summary-mode
+ ;; (define-key gnus-summary-mode-map (kbd "C-o") 'sd/hydra-window/body))
+
+ (add-hook 'gnus-summary-mode-hook (lambda ()
+ (define-key gnus-summary-mode-map (kbd "C-o") nil)))
+
-
#+END_SRC
** Windows layout