aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorArun Isaac2023-09-26 10:22:34 +0100
committerArun Isaac2023-09-26 10:22:34 +0100
commit7282abca63ee36d3b7c51b68c52deee77048e8e9 (patch)
tree9add79fc24d32ed240b51351af428ae1496394b9
parent808c8027fa5e2c94a8be6e0e06ef6a796b0050a3 (diff)
downloadrent-in-london-7282abca63ee36d3b7c51b68c52deee77048e8e9.tar.gz
rent-in-london-7282abca63ee36d3b7c51b68c52deee77048e8e9.tar.lz
rent-in-london-7282abca63ee36d3b7c51b68c52deee77048e8e9.zip
Print "available from" date in house listing.
* rent.scm (list-house): Print "available from" date.
-rw-r--r--rent.scm2
1 files changed, 2 insertions, 0 deletions
diff --git a/rent.scm b/rent.scm
index ac71d56..2c806de 100644
--- a/rent.scm
+++ b/rent.scm
@@ -379,6 +379,7 @@ and not distance as the crow flies."
"~a (posted ~a hours ago)
~a/~a
£~a pcm
+Available from ~a
Cycling distance: ~,1f km
"
(house-title house)
@@ -386,6 +387,7 @@ Cycling distance: ~,1f km
%openrent-base-url
(house-property-id house)
(house-rent house)
+ (date->string (house-available-from house) "~B ~d")
(cycling-distance (house-coordinates house) %work-coordinates))
(match (house-tube-stations house)
(() (display "No tube!"))