From 3da006ed7306069496fe27caf4409d80a2c07bfd Mon Sep 17 00:00:00 2001
From: Bruno Raoult <braoult@gmail.com>
Date: Wed, 27 Dec 2023 08:20:40 +0100
Subject: [PATCH] emacs: Fix modeline VC symbols, update lorien.el opened files

---
 config/home/.emacs.d/init.el   | 20 ++++++++++----------
 config/home/.emacs.d/lorien.el | 12 ++++++------
 2 files changed, 16 insertions(+), 16 deletions(-)

diff --git a/config/home/.emacs.d/init.el b/config/home/.emacs.d/init.el
index b39df72..82a57eb 100755
--- a/config/home/.emacs.d/init.el
+++ b/config/home/.emacs.d/init.el
@@ -756,19 +756,19 @@ in whole buffer.  With neither, delete comments on current line."
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; vc-mode modeline
 ;; inspired from:
 ;; https://emacs.stackexchange.com/questions/10955
-(advice-add #'vc-git-mode-line-string :filter-return #'my-replace-git-status)
-(defun my-replace-git-status (tstr)
-  "Replace git `variable:vc-mode' string, for a modified icon followed by TSTR without \"git\"."
+(advice-add #'vc-git-mode-line-string :filter-return #'my/replace-git-status)
+(defun my/replace-git-status (tstr)
+  "Replace git `variable:vc-mode' string with a modified followed by TSTR."
   (let* ((tstr (replace-regexp-in-string "Git" "" tstr))
          (first-char (substring tstr 0 1))
          (rest-chars (substring tstr 1)))
     (cond
      ((string= ":" first-char)                    ; Modified
-      (replace-regexp-in-string "^:" "⚡️" tstr))
+      (replace-regexp-in-string "^:" "⚡" tstr))
      ((string= "-" first-char)                    ; No change
-      (replace-regexp-in-string "^-" "✔️" tstr))
+      (replace-regexp-in-string "^-" "✔" tstr))
      ((string= "@" first-char)                    ; Added
-      (replace-regexp-in-string "^@" "️✑" tstr))
+      (replace-regexp-in-string "^@" "✚" tstr))
      (t tstr))))
 
 (setf mode-line-modes
@@ -1170,13 +1170,13 @@ in whole buffer.  With neither, delete comments on current line."
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; makefile mode
 (defun my/makefile-mode-hook ()
-  "X br text mode hook."
-  (message "entering Makefile-mode")
+  "X br makefile mode hook."
+  ;; (message "entering Makefile-mode")
   (setq indent-tabs-mode t
-        tab-width 4
+        tab-width 8
         comment-column 60))
 
-(add-hook 'text-mode-hook 'my/text-mode-hook)
+(add-hook 'makefile-mode-hook 'my/makefile-mode-hook)
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; org mode
 ;; mediawiki export
diff --git a/config/home/.emacs.d/lorien.el b/config/home/.emacs.d/lorien.el
index a3db095..5cc2d3c 100755
--- a/config/home/.emacs.d/lorien.el
+++ b/config/home/.emacs.d/lorien.el
@@ -35,17 +35,17 @@
 
   (defconst my/loaded-files-at-startup
     (list
+     "~/dev/tools/c/brlib/Makefile"
      "~/dev/brchess/Makefile"
-     "~/dev/tools/c/Makefile"
-     "~/org/boot-disk.org"
-     "~/org/beaglebone-buster-setup.org"
+     ;;"~/org/boot-disk.org"
+     ;;"~/org/beaglebone-buster-setup.org"
      ;;"~/dev/www/cf.bodi/sql/coc.sql"
      ;;"~/dev/www/cf.bodi/sql/coc-sql.org"
       user-init-file
-      "~/org/emacs-cheatsheet.org"
+      "~/org/emacs-cheatsheet.org")
       ;;"~/dev/g910/g910-gkey-macro-support/lib/data_mappers/char_uinput_mapper.py"
-      "~/dev/advent-of-code/2022/Makefile"
-      "~/dev/www/com.raoult/devs/php/chess/list-pgn-games.php")
+      ;;"~/dev/advent-of-code/2022/Makefile"
+      ;;"~/dev/www/com.raoult/devs/php/chess/list-pgn-games.php")
       ;; "~/dev/eudyptula/ID")
     "personal files always loaded at startup (no visible window).")