diff options
| author | Arun Isaac | 2025-04-23 02:04:02 +0100 |
|---|---|---|
| committer | Arun Isaac | 2025-04-23 02:04:38 +0100 |
| commit | 5ea63c633e218706d945708d85e0f4c9d94de813 (patch) | |
| tree | 345f36b3920f77d7565d0a4c0f11f058f8b4da55 | |
| parent | 378b7c09ed1a16ac17b03793c14dcd236c5eafe0 (diff) | |
| download | ravanan-5ea63c633e218706d945708d85e0f4c9d94de813.tar.gz ravanan-5ea63c633e218706d945708d85e0f4c9d94de813.tar.lz ravanan-5ea63c633e218706d945708d85e0f4c9d94de813.zip | |
store: Update basename, nameroot and nameext when interning files.
* ravanan/store.scm (intern-file): Update basename, nameroot and
nameext.
| -rw-r--r-- | ravanan/store.scm | 3 |
1 files changed, 3 insertions, 0 deletions
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"))) |