[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/buffer-expose 260a2ed 20/38: Replace `windmove` with pa
From: |
Clemens Radermacher |
Subject: |
[elpa] externals/buffer-expose 260a2ed 20/38: Replace `windmove` with package commands |
Date: |
Mon, 25 Feb 2019 13:38:01 -0500 (EST) |
branch: externals/buffer-expose
commit 260a2edf6b6cb786dc4cd3e5541b0d345fe3da56
Author: Clemens Radermacher <address@hidden>
Commit: Clemens Radermacher <address@hidden>
Replace `windmove` with package commands
---
buffer-expose.el | 22 ++++++++++++++++++----
1 file changed, 18 insertions(+), 4 deletions(-)
diff --git a/buffer-expose.el b/buffer-expose.el
index 8a985e9..ce8a798 100644
--- a/buffer-expose.el
+++ b/buffer-expose.el
@@ -191,10 +191,10 @@ question as its argument."
(define-key map (kbd "<right>") 'buffer-expose-right-window)
(define-key map (kbd "f") 'buffer-expose-right-window)
(define-key map (kbd "C-h k") 'describe-key)
- (define-key map (kbd "p") 'windmove-up)
- (define-key map (kbd "<up>") 'windmove-up)
- (define-key map (kbd "<down>") 'windmove-down)
- (define-key map (kbd "n") 'windmove-down)
+ (define-key map (kbd "p") 'buffer-expose-up-window)
+ (define-key map (kbd "<up>") 'buffer-expose-up-window)
+ (define-key map (kbd "<down>") 'buffer-expose-down-window)
+ (define-key map (kbd "n") 'buffer-expose-down-window)
(define-key map (kbd "a") 'buffer-expose-first-window-in-row)
(define-key map (kbd "e") 'buffer-expose-last-window-in-row)
(define-key map (kbd "s") 'buffer-expose-switch-to-buffer)
@@ -893,6 +893,20 @@ F defaults to the currently selected window."
(buffer-expose-next-page)
(select-window (buffer-expose--get-window-in-row row))))))
+(defun buffer-expose-up-window ()
+ "Switch to window above."
+ (interactive)
+ (let ((w (window-in-direction 'above)))
+ (if w (select-window w)
+ (user-error "No window above current window"))))
+
+(defun buffer-expose-down-window ()
+ "Switch to window below."
+ (interactive)
+ (let ((w (window-in-direction 'below)))
+ (if w (select-window w)
+ (user-error "No window below current window"))))
+
(defun buffer-expose-left-window ()
"Switch to window at left side."
(interactive)
- [elpa] externals/buffer-expose 361f35f 04/38: Fix helm regex, (continued)
- [elpa] externals/buffer-expose 361f35f 04/38: Fix helm regex, Clemens Radermacher, 2019/02/25
- [elpa] externals/buffer-expose 3aa9718 03/38: Filter *helm- buffers by default, Clemens Radermacher, 2019/02/25
- [elpa] externals/buffer-expose a86aa34 14/38: Fix byte compiler warnings, Clemens Radermacher, 2019/02/25
- [elpa] externals/buffer-expose af53a9b 25/38: Improve switch buffer, Clemens Radermacher, 2019/02/25
- [elpa] externals/buffer-expose d4f22e9 10/38: Make regex option a list of regexes, Clemens Radermacher, 2019/02/25
- [elpa] externals/buffer-expose a47a46c 29/38: Reset buffer before aw-switch, Clemens Radermacher, 2019/02/25
- [elpa] externals/buffer-expose 9a2393c 28/38: Cleanup, Clemens Radermacher, 2019/02/25
- [elpa] externals/buffer-expose 69bfeb1 15/38: Add binding for no stars, Clemens Radermacher, 2019/02/25
- [elpa] externals/buffer-expose d05d136 27/38: Handle window configurations internally, don't use set-window-config, Clemens Radermacher, 2019/02/25
- [elpa] externals/buffer-expose adeb508 35/38: Docstring fixes, Clemens Radermacher, 2019/02/25
- [elpa] externals/buffer-expose 260a2ed 20/38: Replace `windmove` with package commands,
Clemens Radermacher <=
- [elpa] externals/buffer-expose 713238b 38/38: Checkdoc fixes, Clemens Radermacher, 2019/02/25
- [elpa] externals/buffer-expose 07cea91 31/38: Code refactoring, Clemens Radermacher, 2019/02/25
- [elpa] externals/buffer-expose f3fd7fa 13/38: Add command omitting star buffers, Clemens Radermacher, 2019/02/25
- [elpa] externals/buffer-expose 8dec782 07/38: Require cl-lib, Clemens Radermacher, 2019/02/25
- [elpa] externals/buffer-expose ea8d671 11/38: Fix regex list type, Clemens Radermacher, 2019/02/25
- [elpa] externals/buffer-expose e78ca06 21/38: Cleanup, Clemens Radermacher, 2019/02/25
- [elpa] externals/buffer-expose c0034f5 26/38: Code reordering, Clemens Radermacher, 2019/02/25
- [elpa] externals/buffer-expose 5748ffb 34/38: Update docstrings, Clemens Radermacher, 2019/02/25
- [elpa] externals/buffer-expose c5eb139 16/38: Add custom command example, Clemens Radermacher, 2019/02/25
- [elpa] externals/buffer-expose e52f55d 06/38: Filter completions buffer by default, Clemens Radermacher, 2019/02/25