From 38593df6bb457fc3940fcef1d93976cd56b0a2d0 Mon Sep 17 00:00:00 2001 From: Franck Cuny Date: Sun, 26 May 2024 14:00:34 -0700 Subject: massive cleanup --- config/init-buffer.el | 51 --------------------------------------------------- 1 file changed, 51 deletions(-) delete mode 100644 config/init-buffer.el (limited to 'config/init-buffer.el') 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 - -;;; 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 -- cgit 1.4.1