summaryrefslogtreecommitdiff
path: root/.config/emacs/libraries/exwm-outer-gaps.el
diff options
context:
space:
mode:
Diffstat (limited to '.config/emacs/libraries/exwm-outer-gaps.el')
-rw-r--r--.config/emacs/libraries/exwm-outer-gaps.el77
1 files changed, 0 insertions, 77 deletions
diff --git a/.config/emacs/libraries/exwm-outer-gaps.el b/.config/emacs/libraries/exwm-outer-gaps.el
deleted file mode 100644
index c315e8b..0000000
--- a/.config/emacs/libraries/exwm-outer-gaps.el
+++ /dev/null
@@ -1,77 +0,0 @@
-;;; -*- lexical-binding: t; -*-
-;;; Commentary:
-
-;; modified version of https://github.com/lucasgruss/exwm-outer-gaps
-
-;;; Code:
-
-
-(require 'exwm-workspace)
-(require 'exwm-core)
-(require 'exwm)
-(require 'xelb)
-(require 'xcb)
-
-(defgroup exwm-outer-gaps nil
- "Outer gaps for exwm."
- :group 'appearance
- :prefix "exwm-outer-gaps")
-
-(defcustom exwm-outer-gaps-width 15
- "Width between the edge of the monitor and emacs frame for all sides.")
-
-(defcustom exwm-outer-gaps-increment-step 5
- "Default increment/decrement value for gaps.")
-
-(defcustom exwm-outer-gaps-max-width
- (* exwm-outer-gaps-increment-step 20)
- "The maximum size of the gaps.")
-
-(defun exwm-outer-gaps-compute-gaps ()
- "Hook to be ran after exwm-workspace--update-workareas-hook"
- (let (workareas frames)
- (dolist (w exwm-workspace--workareas)
- (setf (aref w 3) (+ (aref w 3) exwm-outer-gaps-width)
- (aref w 4) (+ (aref w 4) exwm-outer-gaps-width)
- (aref w 5) (- (aref w 5) (* 2 exwm-outer-gaps-width))
- (aref w 6) (- (aref w 6) (* 2 exwm-outer-gaps-width))))))
-
-(defun exwm-outer-gaps-apply ()
- "Function used to apply gaps to the emacs frames."
- (exwm-workspace--update-workareas)
- (dolist (f exwm-workspace--list)
- (exwm-workspace--set-fullscreen f)))
-
-(defun exwm-outer-gaps-set (width)
- "Sets the gap width to WIDTH. Automatically clamps the size of the gaps
-from 0 to `exwm-outer-max-gaps-width'"
- (setq exwm-outer-gaps-width
- (max 0 (min width exwm-outer-gaps-max-width))))
-
-(defun exwm-outer-gaps-increment ()
- "Increment the outer gaps by exwm-outer-gaps-increment-step"
- (interactive)
- (when exwm-outer-gaps-mode
- (exwm-outer-gaps-set (+ exwm-outer-gaps-width exwm-outer-gaps-increment-step))
- (exwm-outer-gaps-apply)))
-
-(defun exwm-outer-gaps-decrement ()
- "Decrement the outer gaps by exwm-outer-gaps-increment-step"
- (interactive)
- (when exwm-outer-gaps-mode
- (exwm-outer-gaps-set (- exwm-outer-gaps-width exwm-outer-gaps-increment-step))
- (exwm-outer-gaps-apply)))
-
-;;;###autoload
-(define-minor-mode exwm-outer-gaps-mode
- "Add useless outer gaps to exwm."
- :global t
- (if exwm-outer-gaps-mode
- (add-hook 'exwm-workspace--update-workareas-hook
- #'exwm-outer-gaps-compute-gaps)
- (remove-hook 'exwm-workspace--update-workareas-hook
- #'exwm-outer-gaps-compute-gaps))
- (exwm-outer-gaps-apply))
-
-
-(provide 'exwm-outer-gaps)