diff options
| author | Thanh Vuong <thanhvg@gmail.com> | 2019-08-17 16:07:25 -0600 |
|---|---|---|
| committer | Thanh Vuong <thanhvg@gmail.com> | 2019-08-17 16:07:25 -0600 |
| commit | d424b119f82bd21d7bf079063f165c8752c052cd (patch) | |
| tree | d5ee1f7d92feb43a94d2d574f1646ca963cea019 | |
| parent | b093cdf22b034f189dec955dd5bf0fbe69ff2704 (diff) | |
lexical sope on, save trouble
| -rw-r--r-- | hnreader.el | 9 | ||||
| -rw-r--r-- | test/emacs-hnreader-test.el | 2 |
2 files changed, 4 insertions, 7 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) diff --git a/test/emacs-hnreader-test.el b/test/emacs-hnreader-test.el index a2d40d6..c62fc06 100644 --- a/test/emacs-hnreader-test.el +++ b/test/emacs-hnreader-test.el @@ -2,7 +2,7 @@ (ert-deftest-async test/promise-dom (done) (promise-done (promise-chain - (hnreader--promise-dom "https://www.google.com") + (hnreader--promise-dom "https://news.ycombinator.com/news") (then (lambda (result) (should (listp result)) ;; (message "%s" result) |