wisp

get interweb fluff
Log | Files | Refs

commit 152d5a5382b2d9418506809f59bb568941194bb3
parent f5f5b6b4929a4f907e65bc3d762f55877a7c5012
Author: rsiddharth <s@ricketyspace.net>
Date:   Thu,  6 Jun 2019 19:42:57 -0400

hn/g: Add athing:link.

* hn/g (athing:link): New function.

Diffstat:
hn/g | 6++++++
1 file changed, 6 insertions(+), 0 deletions(-)

diff --git a/hn/g b/hn/g @@ -40,3 +40,9 @@ (if (empty? id) (error "athing:id: Unable to get id") id))) +(define (athing:link a) + (let* ((s (sxpath "//a[@class=\"storylink\"]")) + (l (s a))) + (list (sxml:attr (car l) 'href) + (sxml:text l)))) +