diff --git a/prv/modules/imageboard.scm b/prv/modules/imageboard.scm index 927066a..4bae1f1 100755 --- a/prv/modules/imageboard.scm +++ b/prv/modules/imageboard.scm @@ -595,11 +595,10 @@ "''>" (match:substring m) ""))) 'post)) ; FIXME : add quotes around the href and target once you figure out how to escape chars properly (lambda (p) ; Board link - (regexp-substitute/global #f ">>>/*[^/]+/([^0-9]|$)" p + (regexp-substitute/global #f "(>>>/*([^ \\t\\r\\n/]+)/)([^0-9]|$)" p 'pre (lambda (m) - (let* ((brd (substring (match:substring m) 13 (- (string-length (match:substring m)) 1)))) - (format #f "~a" brd (match:substring m)))) + (format #f "~a~a" (match:substring m 2) (match:substring m 1) (match:substring m 3))) 'post)) (lambda (p) ; Cross-page link matching ;(regexp-substitute/global #f ">>>[a-zA-Z0-9/,-\\#]*[a-zA-Z0-9]" p