From 20b1b1728bbca07443bb252fff5b3ddc63882e30 Mon Sep 17 00:00:00 2001 From: Gia Thanh Vuong Date: Thu, 29 Aug 2019 15:11:55 -0600 Subject: improve cut off link mapper --- hnreader.el | 18 ++++++++---------- 1 file changed, 8 insertions(+), 10 deletions(-) (limited to 'hnreader.el') diff --git a/hnreader.el b/hnreader.el index d5190e8..ac89419 100644 --- a/hnreader.el +++ b/hnreader.el @@ -290,16 +290,14 @@ third one is 80.") "Map node to node. IT is an element in the DOM tree. Map to different IT when it is a, img or pre. Othewise just copy" - (cond - ((and (listp it) - (listp (cdr it))) ;; check for list but not cons - (cond - ((and (equal (car it) 'a) - (not (dom-by-tag it 'img))) ;; bail out if img - ;; (dom-attr it 'href) - `(span nil ,(dom-attr it 'href))) - (t (mapcar #'hnreader--it-to-it it)))) - (t it))) + (if (and (listp it) + (listp (cdr it))) ;; check for list but not cons + (if (and (equal (car it) 'a) + (not (dom-by-tag it 'img))) ;; bail out if img + ;; (dom-attr it 'href) + `(span nil ,(dom-attr it 'href)) + (mapcar #'hnreader--it-to-it it)) + it)) (defun hnreader--get-comment (comment-dom) "Get comment dom from COMMENT-DOM." -- cgit v1.2.3