summaryrefslogtreecommitdiff
path: root/.config/emacs/modules/bd--essential-windowing.el
diff options
context:
space:
mode:
authorbd <bdunahu@operationnull.com>2024-05-30 02:58:02 -0600
committerbd <bdunahu@operationnull.com>2024-05-30 02:58:02 -0600
commit465f6ce989b92b7aa4a3353be564c401b11bcae5 (patch)
tree3b33fe0e28132de77004d91f6224ad682fb62551 /.config/emacs/modules/bd--essential-windowing.el
parent247aff4d997b0b1ad106f1dee00c69a4c39bfab9 (diff)
display-buffer-alist rules -> shackle
Diffstat (limited to '.config/emacs/modules/bd--essential-windowing.el')
-rw-r--r--.config/emacs/modules/bd--essential-windowing.el57
1 files changed, 0 insertions, 57 deletions
diff --git a/.config/emacs/modules/bd--essential-windowing.el b/.config/emacs/modules/bd--essential-windowing.el
deleted file mode 100644
index 64dc8ae..0000000
--- a/.config/emacs/modules/bd--essential-windowing.el
+++ /dev/null
@@ -1,57 +0,0 @@
-;; -*- lexical-binding: t; -*-
-
-
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-;; This file contains sane windowing settings for any ;;
-;; environment type. ;;
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-
-
-(menu-bar-mode -1)
-(tool-bar-mode -1)
-(scroll-bar-mode -1)
-
-;; no fringe
-(fringe-mode '(0 . 0))
-
-(defvar-keymap bd/windmove
- :repeat t
- "b" #'windmove-left
- "n" #'windmove-down
- "f" #'windmove-right
- "p" #'windmove-up
- "B" #'windmove-swap-states-left
- "N" #'windmove-swap-states-down
- "F" #'windmove-swap-states-right
- "P" #'windmove-swap-states-up)
-
-(keymap-global-set "C-x o" bd/windmove)
-(repeat-mode 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)))
-
-(defun set-frame-alpha (value)
- "Sets the transparency of the frame background. 0=transparent/100=opaque"
- (interactive "nTransparency Value (30 - 100 opaque): ")
- (setq value (bd/clamp 30 100 value))
- (set-frame-parameter (selected-frame) 'alpha `(,value . ,value))
- (message "Alpha set to %d" value))
-(add-to-list 'default-frame-alist '(alpha . (82 . 82)))
-
-
-(provide 'bd--essential-windowing)