blob: 1526af010bbcd6dd578f7f18872c974c3d92cd5f (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
/+ sr=sortug
|_ [date=@da link=?]
++ $
^- marl
=+ [[a y] m [d h mm s f]]=(yore date)
=/ ys %- trip (ud-to-cord:string:sr y)
?: link
;=
;a/"{ys}":"{ys}"
;a/"{ys}/{<m.m>}":"/{<m.m>}"
;a/"{ys}/{<m.m>}/{<d.d>}":"/{<d.d>}"
==
;=
;span:"{ys}"
;span:"/{<m.m>}"
;span:"/{<d.d>}"
==
--
|
