align comments and add back function to rename buffers

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