From 5e9d0c8047b930ee1443d14c50ee6e96f3e00e4d Mon Sep 17 00:00:00 2001
From: Rutherther <rutherther@proton.me>
Date: Sat, 22 Jun 2024 13:15:39 +0200
Subject: [PATCH] fix: adapt vs-modeline for flymake and project.el

---
 init.el | 29 +++++++++++++++++++++++++++++
 1 file changed, 29 insertions(+)

diff --git a/init.el b/init.el
index dccbbb70cbf65d65566a045e10643c171dd8b581..4c8041416740b424880de0a88fb1c447f534102c 100644
--- a/init.el
+++ b/init.el
@@ -606,7 +606,36 @@
                          :repo "VojtechStep/vs-modeline.el")
 
   :demand t
+  :custom
+  ((vs-modeline-left
+   '("%e"
+     (:eval (vs-modeline-evil))
+     mode-line-process
+     (:eval (vs-modeline-project-el-name))
+     (:eval (vs-modeline-buffer-name))
+     (:eval (when (buffer-modified-p) "+"))
+     (:eval (when buffer-read-only " RO"))))
+    (vs-modeline-right
+      '(
+        (:eval (vs-modeline-input-method))
+        " "
+        flymake-mode-line-exception
+        flymake-mode-line-counters
+        " "
+        mode-name
+        " "
+        (:eval (vs-modeline-position-rel))
+        (:eval (vs-modeline-position)))))
   :config
+
+  (vs-modeline-def-prop-segment project-el-name
+    (when-let*
+        ((project-info (project-current))
+         (project-path (nth 2 project-info))
+         (project-name (file-name-nondirectory (directory-file-name project-path))))
+      (concat " " project-name))
+    'vs-modeline-project)
+
   (vs-modeline-mode))
 
 ;; File browser