From d424b119f82bd21d7bf079063f165c8752c052cd Mon Sep 17 00:00:00 2001 From: Thanh Vuong Date: Sat, 17 Aug 2019 16:07:25 -0600 Subject: lexical sope on, save trouble --- hnreader.el | 9 +++------ 1 file changed, 3 insertions(+), 6 deletions(-) (limited to 'hnreader.el') 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) -- cgit v1.2.3