diff options
| author | Arun Isaac | 2023-09-26 00:05:01 +0100 |
|---|---|---|
| committer | Arun Isaac | 2023-09-26 00:05:01 +0100 |
| commit | 8ad1f6e4584b3e668bee10c2f5b383b457688d58 (patch) | |
| tree | 12e3cd426c666f6ce7e365826319bc72b7f61a73 | |
| parent | 4b0ce31c5f139d371af1b063f83cf980e06fabaf (diff) | |
| download | rent-in-london-8ad1f6e4584b3e668bee10c2f5b383b457688d58.tar.gz rent-in-london-8ad1f6e4584b3e668bee10c2f5b383b457688d58.tar.lz rent-in-london-8ad1f6e4584b3e668bee10c2f5b383b457688d58.zip | |
Adapt maximum tenants extraction to latest HTML.
The HTML specifying the maximum tenants has changed
slightly. Adapt.
* rent.scm (house-maximum-tenants): Adapt to latest HTML.
| -rw-r--r-- | rent.scm | 3 |
1 files changed, 2 insertions, 1 deletions
@@ -263,7 +263,8 @@ (house-page-sxml house) `((td *preorder* . ,(lambda (root . children) (sxml-match (cons root children) - ((td (i (@ (class "fa fa-users"))) " " (strong ,maximum-tenants)) + ((td (span (i (@ (class "fa fa-users"))) " Max Tenants:") + " " (strong ,maximum-tenants)) (cons 'result (string->number maximum-tenants))) (,_ #f)))) (*TOP* . ,handle-top) |