aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--rent.scm9
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)