wip

1 files changed, 8 insertions, 1 deletions

diff --git a/hnreader.el b/hnreader.el
index 26d23e7..4863402 100644
--- a/hnreader.el
+++ b/hnreader.el
@@ -8,10 +8,16 @@
 (defvar hn--buffer "*HN*"
   "Buffer for HN pages.")
 
+(defvar hn--comment-buffer "*HNComments*")
+
 (defun hnreader--get-hn-buffer ()
   "Get hn buffer."
   (get-buffer-create hn--buffer))
 
+(defun hnreader--get-hn-comment-buffer ()
+  "Get hn commnet buffer."
+  (get-buffer-create hn--comment-buffer))
+
 (defun hnreader--promise-dom (url)
   "Promise (url . dom) from URL with curl."
   (promise-new
@@ -46,7 +52,8 @@
                   ;; points
                   (dom-text (dom-by-class subtext "^score$"))
                   ;; comments
-                  (dom-text (last (dom-children subtext)))))
+                  (dom-text (last (dom-by-tag subtext 'a)))))
+  ;; (setq thanh subtext)
   ;; link
   (insert (dom-attr (dom-by-class thing "^storylink$") 'href) "\n" )
   ;; comment link