diff options
| -rw-r--r-- | rent.scm | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/rent.scm b/rent.scm index 7ae101d..9a0857a 100644 --- a/rent.scm +++ b/rent.scm @@ -397,14 +397,19 @@ and not distance as the crow flies." (define (list-house house) "Display details of @var{house} on the current output port." (format (current-output-port) - "~a (posted ~a hours ago) + "~a (posted ~a ago) ~a/~a £~a pcm Available from ~a Cycling distance: ~,1f km " (house-title house) - (house-hours-live house) + (if (< (house-hours-live house) 24) + (format #f "~a hours" + (house-hours-live house)) + (format #f "~a days" + (round-quotient (house-hours-live house) + 24))) %openrent-base-url (house-property-id house) (house-rent house) |