TiddlyWikiPharo/repository/TiddlyWiki/String.extension.st

23 lines
606 B
Smalltalk
Raw Normal View History

Extension { #name : #String }
{ #category : #'*TiddlyWiki' }
String >> asDateAndTimeForTiddler [
| date |
date := OrderedCollection new.
1 to: 4 do: [ :i | date add: (self at: i) ].
date add: '-'.
5 to: 6 do: [ :i | date add: (self at: i) ].
date add: '-'.
7 to: 8 do: [ :i | date add: (self at: i) ].
date add: 'T'.
9 to: 10 do: [ :i | date add: (self at: i) ].
date add: ':'.
11 to: 12 do: [ :i | date add: (self at: i) ].
date add: ':'.
13 to: 14 do: [ :i | date add: (self at: i) ].
date add: '.'.
15 to: 17 do: [ :i | date add: (self at: i) ].
^ (date joinUsing: '') asDateAndTime
]