summaryrefslogtreecommitdiff
path: root/config/init-buffer.el
diff options
context:
space:
mode:
authorFranck Cuny <franck@fcuny.net>2024-05-26 14:00:34 -0700
committerFranck Cuny <franck@fcuny.net>2024-05-26 14:00:34 -0700
commit38593df6bb457fc3940fcef1d93976cd56b0a2d0 (patch)
tree58fbc11815b2fe7619d1234388877ebc0763afa6 /config/init-buffer.el
parenti want the eglot buffer to debug stuff (diff)
downloademacs.d-38593df6bb457fc3940fcef1d93976cd56b0a2d0.tar.gz
massive cleanup
Diffstat (limited to '')
-rw-r--r--config/init-buffer.el51
1 files changed, 0 insertions, 51 deletions
diff --git a/config/init-buffer.el b/config/init-buffer.el
deleted file mode 100644
index 57c158e..0000000
--- a/config/init-buffer.el
+++ /dev/null
@@ -1,51 +0,0 @@
-;;; init-buffer.el --- Configure buffer -*- lexical-binding: t -*-
-;; Author: Franck Cuny <franck@fcuny.net>
-
-;;; Commentary:
-
-;; buffer related configurations
-
-;;; Code:
-
-(use-package ibuffer
- :defer t
- :bind ("C-x C-b" . ibuffer)
- :custom
- (ibuffer-expert t)
- (ibuffer-show-empty-filter-groups nil)
- (ibuffer-jump-offer-only-visible-buffers t)
- (ibuffer-maybe-show-predicates '("^\\*.*\\*$"))
- (ibuffer-never-show-predicates '("^ "))
- (ibuffer-use-other-window t))
-
-(use-package midnight
- :defer t
- :custom
- ;; every 6 hours
- (midnight-period (* 3600 6)))
-
-(setq clean-buffer-list-delay-general 2 ; every 2 day
- clean-buffer-list-delay-special (* 3600 3)) ; every 3 hours
-
-(defun my/rename-this-buffer-and-file ()
- "Renames current buffer and file it is visiting."
- (interactive)
- (let ((name (buffer-name))
- (filename (buffer-file-name))
- (read-file-name-function 'read-file-name-default))
- (if (not (and filename (file-exists-p filename)))
- (error "Buffer '%s' is not visiting a file!" name)
- (let ((new-name (read-file-name "New name: " filename)))
- (cond ((get-buffer new-name)
- (error "A buffer named '%s' already exists!" new-name))
- (t
- (rename-file filename new-name 1)
- (rename-buffer new-name)
- (set-visited-file-name new-name)
- (set-buffer-modified-p nil)
- (message "File '%s' successfully renamed to '%s'" name (file-name-nondirectory new-name))))))))
-
-
-(provide 'init-buffer)
-
-;;; init-buffer.el ends here