summary refs log tree commit diff
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 'config/init-buffer.el')
-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