From 278342b923ebda691f21bcc0c37f3bb4a3d7524d Mon Sep 17 00:00:00 2001
From: sterni <sternenseemann@systemli.org>
Date: Wed, 5 Feb 2025 03:02:33 +0100
Subject: [PATCH] =?UTF-8?q?feat(sterni/bl=C3=ABrg/git):=20use=20filename?=
 =?UTF-8?q?=20w/o=20extension=20as=20title?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

Change-Id: I33e65b92b9f9aba2f9eaa7867af32337fe9fc247
Reviewed-on: https://cl.tvl.fyi/c/depot/+/13111
Tested-by: BuildkiteCI
Autosubmit: sterni <sternenseemann@systemli.org>
Reviewed-by: sterni <sternenseemann@systemli.org>
---
 users/sterni/blërg/blërg.bqn | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/users/sterni/blërg/blërg.bqn b/users/sterni/blërg/blërg.bqn
index 6b251cb75..2a7b2dcfa 100755
--- a/users/sterni/blërg/blërg.bqn
+++ b/users/sterni/blërg/blërg.bqn
@@ -42,7 +42,7 @@ LR ← Lines∘R
 GetEnv ← {R "importas"‿"env"‿𝕩‿"printf"‿"%s"‿"$env"}
 
 RelPath ← •wdpath⊸•file.At
-Ext ← '.'⊸(⊑∘1⊸↑∘/∘(=∧∊∘⊢)↑⊢)⌾⌽ •file.Name
+SplitExt ← ((∊⌾⌽(∨`∘∧+¯2⊸×∘∧)=⟜'.')⊔⊢) •file.Name
 
 # 3p dependencies
 
@@ -108,12 +108,13 @@ GitBackend ← {𝕊 config:
   Entries ⇐ {𝕤⋄
     blobs ← ∘‿2⥊@ SplitChar R GitCmd "ls-tree"‿"-zr"‿"--format=%(path)%x00%(objectname)"‿rev‿path
     {𝕊 p‿b:
+      name‿ext ← SplitExt p
       id ⇐ Slugify path DropPrefix p
       # TODO(sterni): extract from file if possible
-      title ⇐ •file.Name p
+      title ⇐ name
       time ⇐ PathDate p
       Render ⇐ {𝕤
-        conv ← converters j.ObjGet Ext p
+        conv ← converters j.ObjGet ext
         R (GitCmd "cat-file"‿"blob"‿b) PipelineCmd conv
       }
     }˘blobs