diff options
author | bd <bdunahu@operationnull.com> | 2024-05-30 02:58:02 -0600 |
---|---|---|
committer | bd <bdunahu@operationnull.com> | 2024-05-30 02:58:02 -0600 |
commit | 465f6ce989b92b7aa4a3353be564c401b11bcae5 (patch) | |
tree | 3b33fe0e28132de77004d91f6224ad682fb62551 /.config/emacs/modules/bd--essential-windowing.el | |
parent | 247aff4d997b0b1ad106f1dee00c69a4c39bfab9 (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.el | 57 |
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) |