From fcc90d466ebf43202485d3ba1f0a8f314df7f5ae Mon Sep 17 00:00:00 2001 From: Thanh Vuong Date: Sat, 24 Aug 2019 10:33:20 -0600 Subject: add info in comment page --- hnreader.el | 26 +++++++++++++++++--------- 1 file changed, 17 insertions(+), 9 deletions(-) (limited to 'hnreader.el') diff --git a/hnreader.el b/hnreader.el index 9b03736..1a0865e 100644 --- a/hnreader.el +++ b/hnreader.el @@ -103,11 +103,17 @@ third one is 80.") (defun hnreader--get-post-info (dom) "Get top info about the DOM comment page." (let* ((fat-item (dom-by-class dom "^fatitem$")) - (tr-tag (dom-by-tag fat-item 'tr))) - (setq thanh fat-item) - (setq thanh-dom dom) - (seq-drop (seq-take tr-tag (- (length tr-tag) 1)) 1))) - + (user (dom-by-class fat-item "^hnuser$")) + (score (dom-by-class fat-item "^score$")) + (tr-tag (dom-by-tag fat-item 'tr)) + (intro (if (= (length tr-tag) 6) + (nth 3 tr-tag) + nil))) + (cons + (format "%s | by %s\n" + (dom-text score) + (dom-text user)) + intro))) (defun hnreader--print-node (node) "Print the NODE with extra options." @@ -118,16 +124,18 @@ third one is 80.") (defun hnreader--print-comments (dom) "Print DOM comment page to buffer." (let ((comments (dom-by-class dom "^athing comtr $")) - (title (hnreader--get-title dom))) + (title (hnreader--get-title dom)) + (info (hnreader--get-post-info dom))) (with-current-buffer (hnreader--get-hn-comment-buffer) (read-only-mode -1) (erase-buffer) (insert "#+STARTUP: indent\n") (insert "#+TITLE: " (car title)) (insert (format "\n%s\n[[eww:%s][view story in eww]]\n" (cdr title) (cdr title))) - (mapc #'hnreader--print-node (hnreader--get-post-info dom)) - ;; (hnreader--print-node (hnreader--get-post-info dom)) - ;; (insert "\n" (cdr title)) + (insert (car info)) + (when (cdr info) + (insert "\n") + (hnreader--print-node (cdr info))) (dolist (comment comments) ;; (setq thanh comment) (insert (format "%s %s\n" -- cgit v1.2.3