From 217c3ab9cddb1e59aabcd48c634ad3bd6732d33a Mon Sep 17 00:00:00 2001 From: jao Date: Wed, 10 Feb 2021 01:15:00 +0000 Subject: i don't like the other window and tracking next transient hydras --- init.org | 31 +++++++++++++++++++------------ 1 file changed, 19 insertions(+), 12 deletions(-) diff --git a/init.org b/init.org index 7444af2..a33b4cd 100644 --- a/init.org +++ b/init.org @@ -445,15 +445,14 @@ jao-exwm-enable~, which calls the function below enabling it. This function, in turn, loads exwm's configuration from [[./exwm.org][exwm.org]]. #+begin_src emacs-lisp - (setq exwm-workspace-current-index 0) (defvar jao-exwm-enabled-p nil) - (defvar jao-exwm--use-afio t) - (defun jao-exwm-enable () (jao-load-org "exwm.org") (setq jao-exwm-enabled-p t) (jao-ednc-setup 90) (exwm-enable) + (setq switch-window-input-style 'minibuffer + switch-window-minibuffer-shortcut nil) (jao-toggle-inactive-mode-line t) (jao-trisect t) (message "Welcome to exwm")) @@ -688,14 +687,11 @@ tracking-sort-faces-first t tracking-shorten-modes '()) :config - (setq erc-track-enable-keybindings nil)) + (setq erc-track-enable-keybindings nil) + :bind (("C-c C-SPC" . tracking-next-buffer))) (require 'tracking) - (defhydra jao-hydra-tracking (global-map "C-c") - ("C-SPC" tracking-next-buffer "next") - ("SPC" tracking-next-buffer "next")) - (defun jao-shorten-modes (&rest modes) (dolist (m modes) (add-to-list 'tracking-shorten-modes m))) @@ -1327,11 +1323,22 @@ (global-set-key (kbd "s-a") #'jao-first-window) (global-set-key (kbd "H-s-a") #'jao-first-window) - (defhydra jao-hydra-other-window (global-map "C-x") - ("o" other-window "next window") - ("p" (other-window -1) "previous window") - ("O" (other-window -1) "previous window")) + (defun other-window-backward () + (interactive) + (other-window -1)) + (defun transient-other-window () + (interactive) + (let ((echo-keystrokes nil)) + (other-window 1) + (set-transient-map + (let ((map (make-sparse-keymap))) + (define-key map "o" #'other-window) + (define-key map "p" #'other-window-backward) + map) + t))) + + (global-set-key (kbd "C-x o") #'transient-other-window) #+end_src *** winner mode #+begin_src emacs-lisp -- cgit v1.2.3