From 5ea63c633e218706d945708d85e0f4c9d94de813 Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Wed, 23 Apr 2025 02:04:02 +0100
Subject: store: Update basename, nameroot and nameext when interning files.

* ravanan/store.scm (intern-file): Update basename, nameroot and
nameext.
---
 ravanan/store.scm | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/ravanan/store.scm b/ravanan/store.scm
index ae614fd..5cb4a64 100644
--- a/ravanan/store.scm
+++ b/ravanan/store.scm
@@ -131,6 +131,9 @@ interned path and location."
     (maybe-assoc-set file
       (cons "location" (just (string-append "file://" interned-path)))
       (cons "path" (just interned-path))
+      (cons "basename" (just (basename interned-path)))
+      (cons "nameroot" (just (file-name-stem interned-path)))
+      (cons "nameext" (just (file-name-extension interned-path)))
       (cons "secondaryFiles"
             (maybe-let* ((secondary-files (maybe-assoc-ref (just file)
                                                            "secondaryFiles")))
-- 
cgit v1.2.3