maciej/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Remove not working midnight script

Browse source
This commit is contained in:
Maciej Szlosarczyk 2017-06-06 23:36:05 +03:00
parent 8a2b3bd810
commit ad2efc3d30
No known key found for this signature in database
GPG key ID: 0D4EEACF63D4262E
3 changed files with 2 additions and 37 deletions
Download patch file Download diff file Expand all files Collapse all files

36
behaviour.el
View file

@ -161,40 +161,4 @@
;; Add magit for git
(require 'evil-magit)
;; Remove unused buffers periodically
(require 'midnight)
;;kill buffers if they were last disabled more than this seconds ago
(setq clean-buffer-list-delay-special 900)
(defvar clean-buffer-list-timer nil
"Stores 'clean-buffer-list timer' if there is one.
You can disable `clean-buffer-list' by (cancel-timer clean-buffer-list-timer)."
)
;; run clean-buffer-list every 30 minutes
(setq clean-buffer-list-timer (run-at-time t 1800 'clean-buffer-list))
;; kill everything, clean-buffer-list is very intelligent at not killing
;; unsaved buffer.
(setq clean-buffer-list-kill-regexps '("^.*$"))
;; keep these buffer untouched
;; prevent append multiple times
(defvar clean-buffer-list-kill-never-buffer-names-init
clean-buffer-list-kill-never-buffer-names
"Init value for `clean-buffer-list-kill-never-buffer-names'.")
(setq clean-buffer-list-kill-never-buffer-names
(append
'("*Messages*" "*cmd*" "*scratch*" "*w3m*" "*w3m-cache*" "*Inferior Octave*")
clean-buffer-list-kill-never-buffer-names-init))
;; prevent append multiple times
(defvar clean-buffer-list-kill-never-regexps-init
clean-buffer-list-kill-never-regexps
"Init value for `clean-buffer-list-kill-never-regexps'.")
;; append to *-init instead of itself
(setq clean-buffer-list-kill-never-regexps
(append '("^\\*EMMS Playlist\\*.*$")
clean-buffer-list-kill-never-regexps-init))
;;; behaviour.el ends here