Formatted print for Duration

> Hello,
>
> I do not see how to do a formatted print from a duration.
>
> I would like to be able to do something like:
>
> String streamContents: [ :s | 90 minutes formatted: ‘hh:mm’ printOn: s ]
>
> The Duration>>#printOn: method prints the ANSI 5.8.2.16 format: [-]D:HH:MM:SS[.S]
>
> The Duration>>#printHumanReadableOn: is not printing in the format I want.
>
> Am I missing something or such feature does not exist actually?

> I chosen something like the second solution to avoid adding a dependency to
> my project (it is a bit overkill for what I wanted to achieve). But
> shouldn’t this formatted-print feature be added in Duration?
>
> Julien
>
> ---
> Julien Delplanque
> Doctorant à l’Université de Lille 1
> http://juliendelplanque.be/phd.html
> Equipe Rmod, Inria
> Bâtiment B 40, avenue Halley 59650 Villeneuve d'Ascq
> Numéro de téléphone: +333 59 35 86 40
>
> Le 3 janv. 2018 à 23:02, Andreas Brodbeck <[hidden email]> a écrit :
>
> Am 03.01.18 um 14:07 schrieb Julien:
>
> Hello,
>
> I do not see how to do a formatted print from a duration.
>
> I would like to be able to do something like:
>
> String streamContents: [ :s | 90 minutes formatted: ‘hh:mm’ printOn: s ]
>
> The Duration>>#printOn: method prints the ANSI 5.8.2.16 format:
> [-]D:HH:MM:SS[.S]
>
> The Duration>>#printHumanReadableOn: is not printing in the format I want.
>
> Am I missing something or such feature does not exist actually?
>
>
> Hi Julien
>
> I did not find a ready made method for that, either. Probably because
> there is no standard way to print a *Duration* as minutes and seconds,
> because it is not obvious how to print it (Compared to instances of the
> *Time* class).
>
> My solution would be to implement your own printing method using the
> GRPrinter from the Grease package (Installable through Catalog Browser
> in Pharo 6):
>
> *****************************
>
> | hoursPrinter minutesPrinter printer |
>
> "Note: you can not use 'duration minutes', since this will give you only
> the partial minutes inside a day"
> hoursPrinter := GRMappedPrinter
> block: [ :duration | duration asMinutes // 60 ]
> next: (GRNumberPrinter new).
>
> minutesPrinter := GRMappedPrinter
> block: [ :duration | duration minutes ]
> next: (GRPrinter numberWithAtLeastDigits: 2).
>
> printer := hoursPrinter, $:, minutesPrinter.
>
> ^printer print: (9876 minutes) "Will result in '164:36'"
>
> *****************************
>
>
>
> 2. solution: Or just dead simple:
>
> *****************************
>
> | duration |
> duration := (9876 minutes).
>
> ^(duration asMinutes // 60) asString, ':',
> duration minutes asTwoCharacterString
>
> *****************************
>
>
> Cheers, Andreas
>
> --
> Andreas Brodbeck
> www.mindclue.ch
>
>