From 092304d9e0ccc37cc0ddaa9b136457e56a1cac20 Mon Sep 17 00:00:00 2001 From: Craig Jennings Date: Sun, 12 Oct 2025 11:47:26 -0500 Subject: changing repositories --- modules/wrap-up.el | 30 ++++++++++++++++++++++++++++++ 1 file changed, 30 insertions(+) create mode 100644 modules/wrap-up.el (limited to 'modules/wrap-up.el') diff --git a/modules/wrap-up.el b/modules/wrap-up.el new file mode 100644 index 00000000..f1841189 --- /dev/null +++ b/modules/wrap-up.el @@ -0,0 +1,30 @@ +;;; wrapup --- Functions Run Before Init Completion -*- lexical-binding: t; coding: utf-8; -*- +;; author Craig Jennings + +;;; Commentary: + +;;; Code: + +;; -------------------------------- Bury Buffers ------------------------------- +;; wait a few seconds then bury compile-related buffers. + +(defun cj/bury-buffers () + "Bury comint and compilation buffers." + (dolist (buf (buffer-list)) + (with-current-buffer buf + (when (or (derived-mode-p 'comint-mode) + (derived-mode-p 'compilation-mode) + (derived-mode-p 'debugger-mode) + (derived-mode-p 'elisp-compile-mode) + (derived-mode-p 'messages-buffer-mode) + ) ;; byte-compilations + (bury-buffer))))) + +(defun cj/bury-buffers-after-delay () + "Run cj/bury-buffers after a delay." + (run-with-timer 1 nil 'cj/bury-buffers)) + +(add-hook 'emacs-startup-hook 'cj/bury-buffers-after-delay) + +(provide 'wrap-up) +;;; wrap-up.el ends here -- cgit v1.2.3