Add midnight mode to auto-kill idle browser windows

1 files changed, 11 insertions, 4 deletions

diff --git a/.config/emacs/modules/bd--utility.el b/.config/emacs/modules/bd--utility.el
index b4fa87f..161549e 100644
--- a/.config/emacs/modules/bd--utility.el
+++ b/.config/emacs/modules/bd--utility.el
@@ -8,8 +8,8 @@
 
 (defun bd/set-frame-alpha (value)
   "Set the transparency of the frame background to VALUE. 0=transparent/100=opaque."
-  (interactive "nTransparency Value (30 - 100 opaque): ")
-  (setq value (max 30 (min value 100)))
+  (interactive "nTransparency Value (50 - 100 opaque): ")
+  (setq value (max 50 (min value 100)))
   (set-frame-parameter (selected-frame) 'alpha `(,value . ,value))
   (message "Alpha set to %d" value))
 
@@ -19,7 +19,9 @@ ARG can be one of the following:
 
 - nil: set the most recent wallpaper
 - directory: set a random image from the directory
-- file: set the specified file"
+- file: set the specified file
+
+TODO default folder"
   (interactive "f")
   (let ((wall (expand-file-name "~/wf/wall/current")))
     (when arg
@@ -131,11 +133,16 @@ ARG can be one of the following:
   (not (or (bd/buffer-exwm-p buf)
            (bd/buffer-text-p buf)
            (bd/buffer-prog-p buf)
-	   (bd/buffer-shell-p buf)
+           (bd/buffer-shell-p buf)
            (bd/buffer-scratch-p buf)
            (bd/buffer-dired-p buf)
            (bd/buffer-irc-p buf))))
 
+(defun bd/kill-quietly (proc)
+  "Kill PROC quietly."
+  (ignore-errors (cond ((bufferp proc) (kill-buffer proc))
+                       ((stringp proc) (interrupt-process proc)))))
+
 
 (provide 'bd--utility)
 ;;; bd--utility.el ends here