;; -*- 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))

(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)))

(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)