diff options
Diffstat (limited to '')
-rw-r--r-- | config/init-buffer.el | 51 |
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 |