From 55106f3bc78cc39cb95f7183f87f35d6b2abc60f Mon Sep 17 00:00:00 2001
From: Thanh Vuong <thanhvg@gmail.com>
Date: Thu, 22 Aug 2019 00:34:16 -0600
Subject: wip wip

---
 hnreader.el | 61 +++++++++++++++++++++++++++++++++++++++++++++++++------------
 1 file changed, 49 insertions(+), 12 deletions(-)

(limited to 'hnreader.el')

diff --git a/hnreader.el b/hnreader.el
index 4dfc91f..e5150b3 100644
--- a/hnreader.el
+++ b/hnreader.el
@@ -5,18 +5,18 @@
 (require 'dom)
 (require 'cl-lib)
 
-(defvar hn--buffer "*HN*"
+(defvar hnreader--buffer "*HN*"
   "Buffer for HN pages.")
 
-(defvar hn--comment-buffer "*HNComments*")
+(defvar hnreader--comment-buffer "*HNComments*")
 
 (defun hnreader--get-hn-buffer ()
   "Get hn buffer."
-  (get-buffer-create hn--buffer))
+  (get-buffer-create hnreader--buffer))
 
 (defun hnreader--get-hn-comment-buffer ()
   "Get hn commnet buffer."
-  (get-buffer-create hn--comment-buffer))
+  (get-buffer-create hnreader--comment-buffer))
 
 (defvar hnreader--indent 40
   "Tab value which is the width of an indent.
@@ -73,6 +73,13 @@ third one is 80.")
                     id
                     id)) ))
 
+(defun hnreader--get-morelink (dom)
+  "Get more link from DOM."
+  (let ((more-link (dom-by-class dom "morelink")))
+    ;; (setq thanh more-link)
+    (format "\n* [[elisp:(hnreader-read-page \"https://news.ycombinator.com/%s\")][More]]"
+            (dom-attr more-link 'href))))
+
 (defun hnreader--print-frontpage (dom buf)
   "Print raw DOM on BUF."
   (let ((things (dom-by-class dom "^athing$"))
@@ -83,8 +90,10 @@ third one is 80.")
       (insert "#+STARTUP: overview indent\n")
       (cl-mapcar #'hnreader--print-frontpage-item things subtexts)
       ;; (setq-local org-confirm-elisp-link-function nil)
+      (insert (hnreader--get-morelink dom))
       (org-mode)
-      (goto-line 3))))
+      (goto-char (point-min))
+      (forward-line 2))))
 
 (defun hnreader--get-title (dom)
   "Get title and link from DOM comment page."
@@ -108,11 +117,13 @@ third one is 80.")
                         (hnreader--get-indent
                          (hnreader--get-img-tag-width comment))
                         (hnreader--get-comment-owner comment)))
-        (let ((shr-width 80))
+        (let ((shr-width 80)
+              (shr-use-fonts nil))
           (shr-insert-document (hnreader--get-comment comment))))
       (org-mode)
       (org-shifttab 3)
-      (goto-line 3))))
+      (goto-char (point-min))
+      (forward-line 2))))
 
 (defun hnreader--get-img-tag-width (comment-dom)
   "Get width attribute of img tag in COMMENT-DOM."
@@ -133,16 +144,42 @@ third one is 80.")
   "Get comment dom from COMMENT-DOM."
   (dom-by-class comment-dom "^commtext"))
 
-(defun hnreader-frontpage ()
-  "Testing."
-  (interactive)
+(defun hnreader-readpage-promise (url)
+  "Promise HN URL."
   (hnreader--prepare-buffer (hnreader--get-hn-buffer))
-  (promise-chain (hnreader--promise-dom "https://news.ycombinator.com/news")
+  (promise-chain (hnreader--promise-dom url)
     (then (lambda (result)
             (hnreader--print-frontpage result (hnreader--get-hn-buffer))))
     (promise-catch (lambda (reason)
                      (message "catch error in promise prontpage: %s" reason)))))
 
+(defun hnreader-read-page (url)
+  "Print HN URL page."
+  (interactive "sLink: ")
+  (message url)
+  (hnreader-readpage-promise url)
+  nil)
+
+(defun hnreader-front()
+  "Read front page."
+  (interactive)
+  (hnreader-read-page "https://news.ycombinator.com/news"))
+
+(defun hnreader-ask ()
+  "Read ask page."
+  (interactive)
+  (hnreader-read-page "https://news.ycombinator.com/ask"))
+
+(defun hnreader-show ()
+  "Read show page."
+  (interactive)
+  (hnreader-read-page "https://news.ycombinator.com/show"))
+
+(defun hnreader-jobs ()
+  "Read jobs page."
+  (interactive)
+  (hnreader-read-page "https://news.ycombinator.com/jobs"))
+
 (defun hnreader-promise-comment (comment-id)
   "Promise to print hn COMMENT-ID page to buffer."
   (hnreader--prepare-buffer (hnreader--get-hn-comment-buffer))
@@ -153,7 +190,7 @@ third one is 80.")
 
 (defun hnreader-comment (comment-id)
   "Print hn COMMENT-ID page to buffer."
-  (interactive "sQuery: ")
+  (interactive "sComment ID: ")
   (hnreader-promise-comment comment-id)
   nil)
 
-- 
cgit v1.2.3