From 7282abca63ee36d3b7c51b68c52deee77048e8e9 Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Tue, 26 Sep 2023 10:22:34 +0100
Subject: Print "available from" date in house listing.

* rent.scm (list-house): Print "available from" date.
---
 rent.scm | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'rent.scm')

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!"))
-- 
cgit v1.2.3