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>
This commit is contained in:
parent
5cd3d9e3ac
commit
278342b923
1 changed files with 4 additions and 3 deletions
|
|
@ -42,7 +42,7 @@ LR ← Lines∘R
|
||||||
GetEnv ← {R "importas"‿"env"‿𝕩‿"printf"‿"%s"‿"$env"}
|
GetEnv ← {R "importas"‿"env"‿𝕩‿"printf"‿"%s"‿"$env"}
|
||||||
|
|
||||||
RelPath ← •wdpath⊸•file.At
|
RelPath ← •wdpath⊸•file.At
|
||||||
Ext ← '.'⊸(⊑∘1⊸↑∘/∘(=∧∊∘⊢)↑⊢)⌾⌽ •file.Name
|
SplitExt ← ((∊⌾⌽(∨`∘∧+¯2⊸×∘∧)=⟜'.')⊔⊢) •file.Name
|
||||||
|
|
||||||
# 3p dependencies
|
# 3p dependencies
|
||||||
|
|
||||||
|
|
@ -108,12 +108,13 @@ GitBackend ← {𝕊 config:
|
||||||
Entries ⇐ {𝕤⋄
|
Entries ⇐ {𝕤⋄
|
||||||
blobs ← ∘‿2⥊@ SplitChar R GitCmd "ls-tree"‿"-zr"‿"--format=%(path)%x00%(objectname)"‿rev‿path
|
blobs ← ∘‿2⥊@ SplitChar R GitCmd "ls-tree"‿"-zr"‿"--format=%(path)%x00%(objectname)"‿rev‿path
|
||||||
{𝕊 p‿b:
|
{𝕊 p‿b:
|
||||||
|
name‿ext ← SplitExt p
|
||||||
id ⇐ Slugify path DropPrefix p
|
id ⇐ Slugify path DropPrefix p
|
||||||
# TODO(sterni): extract from file if possible
|
# TODO(sterni): extract from file if possible
|
||||||
title ⇐ •file.Name p
|
title ⇐ name
|
||||||
time ⇐ PathDate p
|
time ⇐ PathDate p
|
||||||
Render ⇐ {𝕤
|
Render ⇐ {𝕤
|
||||||
conv ← converters j.ObjGet Ext p
|
conv ← converters j.ObjGet ext
|
||||||
R (GitCmd "cat-file"‿"blob"‿b) PipelineCmd conv
|
R (GitCmd "cat-file"‿"blob"‿b) PipelineCmd conv
|
||||||
}
|
}
|
||||||
}˘blobs
|
}˘blobs
|
||||||
|
|
|
||||||
Loading…
Add table
Add a link
Reference in a new issue