summaryrefslogtreecommitdiff
path: root/.config/emacs/modules/bd--essential-windowing.el
diff options
context:
space:
mode:
Diffstat (limited to '.config/emacs/modules/bd--essential-windowing.el')
-rw-r--r--.config/emacs/modules/bd--essential-windowing.el18
1 files changed, 18 insertions, 0 deletions
diff --git a/.config/emacs/modules/bd--essential-windowing.el b/.config/emacs/modules/bd--essential-windowing.el
index 9917a93..14b7065 100644
--- a/.config/emacs/modules/bd--essential-windowing.el
+++ b/.config/emacs/modules/bd--essential-windowing.el
@@ -14,6 +14,24 @@
;; no fringe
(fringe-mode '(0 . 0))
+(keymap-global-set "M-n" 'other-window)
+(keymap-global-set "M-p" (lambda ()
+ (interactive)
+ (other-window -1)))
+
+
+;; dedication
+(defun toggle-current-window-dedication ()
+ "Adds or revokes dedicated window status from a buffer. A
+dedicated buffer will never be automatically orphaned."
+ (interactive)
+ (let* ((window (selected-window))
+ (dedicated (window-dedicated-p window)))
+ (set-window-dedicated-p window (not dedicated))
+ (message "Window %sdedicated to %s"
+ (if dedicated "no longer " "")
+ (buffer-name))))
+
;; alpha
(defun bd/clamp (lower-bound upper-bound value)
(max lower-bound (min value upper-bound)))