From 169a24f967067bf68957acf34a247ced7a6bb79d Mon Sep 17 00:00:00 2001
From: Mike Vink <mike1994vink@gmail.com>
Date: Mon, 17 Apr 2023 08:43:44 +0200
Subject: fixup

---
 fnl/conf/pkgs/heirline.fnl | 17 ++++++++++-------
 1 file changed, 10 insertions(+), 7 deletions(-)

diff --git a/fnl/conf/pkgs/heirline.fnl b/fnl/conf/pkgs/heirline.fnl
index dac19b7..f155031 100644
--- a/fnl/conf/pkgs/heirline.fnl
+++ b/fnl/conf/pkgs/heirline.fnl
@@ -100,21 +100,24 @@
                        (theme :syn :identifier)])
 
 (fn mark-component [i mark]
-  (utils.insert {} {:hl {:bg (theme :ui :bg_m1)
+  (utils.insert {} {:hl {:bg (if (= mark.filename
+                                    (vim.fn.fnamemodify (vim.api.nvim_buf_get_name 0)
+                                                        ":."))
+                                 (theme :ui :bg_p1)
+                                 (theme :ui :bg_m1))
                          :bold true
                          :fg (. harpoon-colors i)}
                     :provider (fn [self]
-                                (.. :M i " "))}))
+                                (.. " M" i " "))}))
 
 ;{:hl {:fg (theme :syn :fun)} :provider (vim.fn.pathshorten mark.filename)}))
 ; {:hl {:bold true :fg (. harpoon-colors i)} :provider ")"} Space))
 
 (local HarpoonMarks
-       (utils.insert {:hl :TabLineSel}
-                     {:provider "🌊 "
-                      :hl {:bg (theme :ui :bg_m1)
-                           :fg (theme :syn :identifier)
-                           :bold true}}
+       (utils.insert {:hl :TabLineSel
+                      :condition #(< 0
+                                     (length (. (harpoon.get_mark_config)
+                                                :marks)))}
                      {:init (lambda [self]
                               (local mark-list
                                      (. (harpoon.get_mark_config) :marks))
-- 
cgit v1.2.3