wisp

get interweb fluff
Log | Files | Refs

commit b2a77b518c18dffac2966ee0b3f6bc5c6ae77924
parent fa533a8397c5f685242468e3244b3c616eb12774
Author: rsiddharth <s@ricketyspace.net>
Date:   Tue, 18 Jun 2019 19:38:04 -0400

hn/g: Update athing:link.

hn/g (athing:link): Update function.

Diffstat:
hn/g | 3+--
1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/hn/g b/hn/g @@ -42,8 +42,7 @@ "Return athing link (HREF DESC)" (let* ((s (sxpath "//a[@class=\"storylink\"]")) (l (s a))) - (list (sxml:attr (car l) 'href) - (sxml:text l)))) + (list (sxml:text l) (sxml:attr (car l) 'href)))) (define (athings:hash h athings:sxml) (cond ((empty? athings:sxml) h)