blob: 503d4a6b0aa8152909d13da1b827d5ecb119eff2 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
|
;;; wrapup --- Functions Run Before Init Completion -*- lexical-binding: t; coding: utf-8; -*-
;; author Craig Jennings <c@cjennings.net>
;;; Commentary:
;;
;; Layer: 2 (Core UX).
;; Category: S.
;; Load shape: eager.
;; Eager reason: runs end-of-startup cleanup, burying the scratch/dashboard
;; buffers via a short startup timer.
;; Top-level side effects: a one-shot startup timer that buries buffers.
;; Runtime requires: system-lib.
;; Direct test load: yes.
;;
;;; Code:
(require 'system-lib)
;; -------------------------------- 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))
(unless noninteractive
(add-hook 'emacs-startup-hook 'cj/bury-buffers-after-delay))
(cj/log-silently "<-- end of init file.")
(provide 'wrap-up)
;;; wrap-up.el ends here
|
