diff options
Diffstat (limited to 'nix/users/fcuny')
| -rw-r--r-- | nix/users/fcuny/configs/emacs/init.el | 65 |
1 files changed, 41 insertions, 24 deletions
diff --git a/nix/users/fcuny/configs/emacs/init.el b/nix/users/fcuny/configs/emacs/init.el index dd9869c..d0a9509 100644 --- a/nix/users/fcuny/configs/emacs/init.el +++ b/nix/users/fcuny/configs/emacs/init.el @@ -11,30 +11,29 @@ (require 'imenu) (require 'midnight) -(setq auto-save-default nil) ;; no auto save -(setq backup-inhibited t) ;; no backups -(setq confirm-kill-emacs #'yes-or-no-p) ;; ask before killing emacs -(setq create-lockfiles nil) ;; don't use a lock file -(setq cursor-in-non-selected-windows nil) ;; keep cursors and highlights in current window only -(setq delete-by-moving-to-trash t) ;; delete files by moving them to the trash -(setq highlight-nonselected-windows nil) ;; don't highlight inactive windows -(setq history-delete-duplicates t) ;; delete duplicate from history -(setq ibuffer-expert t) ;; set expert mode -(setq ibuffer-jump-offer-only-visible-buffers t) -(setq ibuffer-maybe-show-predicates '("^\\*.*\\*$")) -(setq ibuffer-use-other-window t) -(setq imenu-auto-rescan t) ;; rescan automatically -(setq initial-major-mode 'fundamental-mode) ;; default mode for the scratch buffer -(setq initial-scratch-message "") ;; makes the scratch buffer empty -(setq midnight-period (* 3600 6)) ;; clear buffer every 6 hours -(setq mode-line-default-help-echo nil) ;; don't say anything on mode-line mouseover -(setq require-final-newline t) ;; ensure a new line is present at the bottom of files -(setq ring-bell-function 'ignore) ;; really no bell -(setq sentence-end-double-space nil) ;; it matters for filling -(setq use-short-answers t) ;; use y-or-n -(setq visible-bell nil) ;; no bell -(setq bidi-display-reordering nil) ;; disable bidirectional text support for slight performance bonus -(setq column-number-mode t) ;; show column number in the mode line +(setq auto-save-default nil) ;; no auto save +(setq backup-inhibited t) ;; no backups +(setq confirm-kill-emacs #'yes-or-no-p) ;; ask before killing emacs +(setq create-lockfiles nil) ;; don't use a lock file +(setq cursor-in-non-selected-windows nil) ;; keep cursors and highlights in current window only +(setq delete-by-moving-to-trash t) ;; delete files by moving them to the trash +(setq highlight-nonselected-windows nil) ;; don't highlight inactive windows +(setq history-delete-duplicates t) ;; delete duplicate from history +(setq ibuffer-expert t) ;; set expert mode +(setq ibuffer-jump-offer-only-visible-buffers t) ;; only show visible buffers +(setq ibuffer-use-other-window t) ;; open ibuffer in other window +(setq imenu-auto-rescan t) ;; rescan automatically +(setq initial-major-mode 'fundamental-mode) ;; default mode for the scratch buffer +(setq initial-scratch-message "") ;; makes the scratch buffer empty +(setq midnight-period (* 3600 6)) ;; clear buffer every 6 hours +(setq mode-line-default-help-echo nil) ;; don't say anything on mode-line mouseover +(setq require-final-newline t) ;; ensure a new line is present at the bottom of files +(setq ring-bell-function 'ignore) ;; really no bell +(setq sentence-end-double-space nil) ;; it matters for filling +(setq use-short-answers t) ;; use y-or-n +(setq visible-bell nil) ;; no bell +(setq bidi-display-reordering nil) ;; disable bidirectional text support for slight performance bonus +(setq column-number-mode t) ;; show column number in the mode line ;; global minor modes (fringe-mode '(8 . 0)) @@ -87,6 +86,24 @@ dired-recursive-deletes 'always dired-no-confirm '(byte-compile chgrp chmod chown copy hardlink symlink touch)) +(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)))))))) + ;;; time related configurations (require 'time) (setq display-time-24hr-format t |