feat(sterni/blërg/git): use filename w/o extension as title

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

@@ -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