diff --git a/ideal-flatmate-manchester.org b/ideal-flatmate-manchester.org index 39a67c1..ad5b7d6 100644 --- a/ideal-flatmate-manchester.org +++ b/ideal-flatmate-manchester.org @@ -102,8 +102,13 @@ end of the day (at time of commit) and need to get some sleep. do (with-open-file (in-stream file-path) (let* ((doc (plump:parse in-stream)) (listing (lquery:$ doc ".card-infos-left" (text))) - (cleaned-price (first (cl-ppcre:all-matches-as-strings "\\d+" (first (str:split "room" (aref listing 0)))))) - (cleaned-location (str:replace-all "," "" (second (str:split "room" (aref listing 0))))) + (cleaned-price + (first (cl-ppcre:all-matches-as-strings + "\\d+" + (first (str:split "room" (aref listing 0)))))) + (cleaned-location + (str:replace-all "," "" + (second (str:split "room" (aref listing 0))))) (url (lquery:$ doc "a" (attr "href")))) (format out-stream "~d,~s,~d,~a,~a~%" row-id