improve cut off link mapper

1 files changed, 8 insertions, 10 deletions

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."