[emacs] add revert-all-file-buffers, misc changes

3 files changed, 25 insertions, 14 deletions

diff --git a/emacs/inits/02-modeline.el b/emacs/inits/02-modeline.el
index 6ea2b07..142acbb 100644
--- a/emacs/inits/02-modeline.el
+++ b/emacs/inits/02-modeline.el
@@ -1,4 +1,4 @@
-;; Time-stamp: <2021-09-27 08h47 EDT (hobbies)>
+;; Time-stamp: <2024-01-18 13h15 CET (3913c8e4)>
 
 ;; -----------------------------------------------------------------------------
 ;; Mode-line
@@ -9,7 +9,7 @@
 (defun abbreviate-left-trim-path (p len)
   (let ((pa (abbreviate-file-name p)))
     (if (> (length pa) (+ 3 len))
-	(format "...%s" (substring pa (- (length pa) len)))
+        (format "...%s" (substring pa (- (length pa) len)))
       pa)))
 
 (setq display-time-format "%d/%H.%M"
@@ -31,6 +31,5 @@
 (use-package minions
   :ensure t
   :config
-  (setq minions-mode-line-lighter ":"
-	minions-direct '(god-local-mode))
+  (setq minions-mode-line-lighter ":")
   (minions-mode 1))
diff --git a/emacs/inits/03-miscload.el b/emacs/inits/03-miscload.el
index 6f4ffbf..64e3ab3 100644
--- a/emacs/inits/03-miscload.el
+++ b/emacs/inits/03-miscload.el
@@ -1,8 +1,11 @@
-;; Time-stamp: <2020-08-12 22:25:58 (user@hobbies)>
+;; Time-stamp: <2023-12-31 17h36 CET (436eb713)>
 
 (use-package siege-mode
   :load-path "~/.emacs.d/scripts/siege-mode/")
 
+(use-package copilot
+  :load-path "~/.emacs.d/scripts/")
+
 ;; (use-package maxima
 ;;   :defer t
 ;;   :config (setq imaxima-use-maxima-mode-flag t))
diff --git a/emacs/inits/15-project-mgmt.el b/emacs/inits/15-project-mgmt.el
index 421e1a3..6ea54e6 100644
--- a/emacs/inits/15-project-mgmt.el
+++ b/emacs/inits/15-project-mgmt.el
@@ -1,4 +1,17 @@
-;; Time-stamp: <2022-09-02 08h55 CEST (anchor)>
+;; Time-stamp: <2024-01-16 15h12 CET (9a3d20a4)>
+
+(defun revert-all-file-buffers ()
+  "Refresh all open file buffers without confirmation"
+  (interactive)
+  (dolist (buf (buffer-list))
+    (let ((filename (buffer-file-name buf)))
+      (when (and filename (not (buffer-modified-p buf)))
+        (if (file-readable-p filename)
+            (with-current-buffer buf (revert-buffer :ignore-auto :noconfirm :preserve-modes))
+          (let (kill-buffer-query-functions)
+            (kill-buffer buf)
+            (message "Killed non-existing/unreadable file bufffer: %s" filename))))))
+  (message "Finished reverting buffers containing unmodified files."))
 
 (use-package projectile
   :ensure t
@@ -8,14 +21,10 @@
   (projectile-mode 1)
 
   (setq projectile-indexing-method 'alien
-    projectile-sort-order 'recently-active
-    projectile-enable-caching t
-    projectile-require-root t
-    projectile-completion-system 'default
-    projectile-mode-line-prefix ""
-    projectile-mode-line-function '(lambda ()
-                                     (format " ¶[%s]" (projectile-project-name)))
-    ))
+        projectile-sort-order 'recently-active
+        projectile-enable-caching t
+        projectile-mode-line-prefix ""
+        projectile-mode-line-function '(lambda () (format " ¶[%s]" (projectile-project-name)))))
 
 (use-package magit
   :ensure t