diff options
-rw-r--r-- | hnreader.el | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/hnreader.el b/hnreader.el index 1a0865e..726fbdc 100644 --- a/hnreader.el +++ b/hnreader.el @@ -106,13 +106,17 @@ third one is 80.") (user (dom-by-class fat-item "^hnuser$")) (score (dom-by-class fat-item "^score$")) (tr-tag (dom-by-tag fat-item 'tr)) + (comment-count (last (dom-by-tag (dom-by-class fat-item "^subtext$") 'a))) (intro (if (= (length tr-tag) 6) (nth 3 tr-tag) nil))) + ;; (setq thanh tr-tag) + ;; (setq thanh-fat fat-item) (cons - (format "%s | by %s\n" + (format "%s | by %s | %s\n" (dom-text score) - (dom-text user)) + (dom-text user) + (dom-text comment-count)) intro))) (defun hnreader--print-node (node) |