diff options
Diffstat (limited to 'hnreader.el')
-rw-r--r-- | hnreader.el | 9 |
1 files changed, 3 insertions, 6 deletions
diff --git a/hnreader.el b/hnreader.el index e923f8d..26d23e7 100644 --- a/hnreader.el +++ b/hnreader.el @@ -1,10 +1,10 @@ +;;; hnreader.el --- A HN reader -*- lexical-binding: t; -*- (require 'promise) (require 'request) (require 'shr) (require 'dom) (require 'cl-lib) - (defvar hn--buffer "*HN*" "Buffer for HN pages.") @@ -54,25 +54,22 @@ (defun hnreader--print-frontpage (dom buf) "Print raw DOM on BUF." - (message "am i here") (let ((things (dom-by-class dom "^athing$")) (subtexts (dom-by-class dom "^subtext$"))) (with-current-buffer buf (read-only-mode -1) (erase-buffer) (insert "#+STARTUP: overview indent\n#") - (cl-mapcar #'hnreader--print-frontpage-item things subtexts)))) + (cl-mapcar #'hnreader--print-frontpage-item things subtexts) + (org-mode)))) (defun hnreader-frontpage () "Testing." (hnreader--prepare-buffer (hnreader--get-hn-buffer)) (promise-chain (hnreader--promise-dom "https://news.ycombinator.com/news") - ;; (promise-chain (howdoyou--curl-promise-dom "https://news.ycombinator.com/news") (then (lambda (result) - (message "got the dom") (hnreader--print-frontpage result (hnreader--get-hn-buffer)))) (promise-catch (lambda (reason) (message "catch error in promise prontpage: %s" reason))))) - (provide 'hnreader) |