summaryrefslogtreecommitdiffhomepage
diff options
context:
space:
mode:
authorjao <jao@gnu.org>2021-02-10 01:15:00 +0000
committerjao <jao@gnu.org>2021-02-10 01:15:00 +0000
commit217c3ab9cddb1e59aabcd48c634ad3bd6732d33a (patch)
treeeb58b7f099312ecc38d8b73abf44b230f6b5e049
parentfbd1bdbf613bc4e7cd2dbdbf6e819f3606c0b987 (diff)
downloadelibs-217c3ab9cddb1e59aabcd48c634ad3bd6732d33a.tar.gz
elibs-217c3ab9cddb1e59aabcd48c634ad3bd6732d33a.tar.bz2
i don't like the other window and tracking next transient hydras
-rw-r--r--init.org31
1 files 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