emacs-hnreader

emacs-hnreader copied to clipboard

#+STARTUP: align fold hidestars oddeven indent #+TITLE: Emacs hnreader - Read Hacker News in Emacs [[http://spacemacs.org][file:https://cdn.rawgit.com/syl20bnr/spacemacs/442d025779da2f62fc86c2082703697714db6514/assets/spacemacs-badge.svg]]

Front page:

[[file:docs/screenshot.png]]

Comments:

[[file:docs/screenshot2.png]]

[[file:docs/screencast.gif]]

• Intro This package renders hackernews website at https://news.ycombinator.com/ in an org buffer. Almost everything works.

The org-mode buffer feature interactive links similar to html.

Features that are not supported are account related features. You cannot add comment, downvote or upvote.

• Install Manual: TBD

Melpa

[[https://melpa.org/#/hnreader][file:https://melpa.org/packages/hnreader-badge.svg]]

Spacemacs layer:

https://github.com/thanhvg/spacemacs-eos

• Dependencies ~promise~ and ~request~ are required. User must have ~org-mode~ 9.2 or later installed also.

• Commands

• ~hnreader-news~: Load news page.
• ~hnreader-past~: Load past page.
• ~hnreader-ask~: Load ask page.
• ~hnreader-show~: Load show page.
• ~hnreader-newest~: Load new link page.
• ~hnreader-more~: Load more.
• ~hnreader-back~: Go back to previous page.
• ~hnreader-comment~: read an HN item url such as https://news.ycombinator.com/item?id=1 this is handy when you have the link and want to read it in emacs, takes url as param
• ~hnreader-org-insert-hn-link~: insert hn link to org buffer, take url as param

• Remarks Listing buffer is called ~HN~ Command buffer is called ~HNComments~

Most of links in Hacker News buffer will run elsip commands on clicking, by default org-mode will ask you for confirmation. You can disable org confirm message on clicking #+begin_example elsip (setq org-confirm-elisp-link-function nil) #+end_example

But it is not recommended by the org-mode guide: just change it to ‘y-or-n-p’ if you want to confirm with a single keystroke rather than having to type "yes".

• Recommended settings for eww eww can be used to view story. You may want to set these settings for web page display inside Emacs:

#+begin_example elsip (setq shr-width 75) (setq shr-use-fonts nil) #+end_example

When displaying pictures srolling over them is jumpy. You can try this hack in your config: #+begin_src elisp (with-eval-after-load "shr" (defun shr-put-image (spec alt &optional flags) "Insert image SPEC with a string ALT. Return image. SPEC is either an image data blob, or a list where the first element is the data blob and the second element is the content-type. Hack to use `insert-sliced-image' to avoid jerky image scrolling." (if (display-graphic-p) (let* ((size (cdr (assq 'size flags))) (data (if (consp spec) (car spec) spec)) (content-type (and (consp spec) (cadr spec))) (start (point)) (image (cond ((eq size 'original) (create-image data nil t :ascent 100 :format content-type)) ((eq content-type 'image/svg+xml) (create-image data 'svg t :ascent 100)) ((eq size 'full) (ignore-errors (shr-rescale-image data content-type (plist-get flags :width) (plist-get flags :height)))) (t (ignore-errors (shr-rescale-image data content-type (plist-get flags :width) (plist-get flags :height))))))) (when image (let* ((image-pixel-cons (image-size image t)) (image-pixel-width (car image-pixel-cons)) (image-pixel-height (cdr image-pixel-cons)) (image-scroll-rows (round (/ image-pixel-height (default-font-height))))) ;; When inserting big-ish pictures, put them at the ;; beginning of the line. (when (and (> (current-column) 0) (> (car (image-size image t)) 400)) (insert "\n"))

            (insert-sliced-image image (or alt "*") nil image-scroll-rows 1)
            ;; (if (eq size 'original)
            ;;     (insert-sliced-image image (or alt "*") nil image-scroll-rows 1)
            ;;   (insert-image image (or alt "*")))

            (put-text-property start (point) 'image-size size)
            (when (and shr-image-animate
                       (cond ((fboundp 'image-multi-frame-p)
                              ;; Only animate multi-frame things that specify a
                              ;; delay; eg animated gifs as opposed to
                              ;; multi-page tiffs.  FIXME?
                              (cdr (image-multi-frame-p image)))
                             ((fboundp 'image-animated-p)
                              (image-animated-p image))))
              (image-animate image nil 60))))
        image)
    (insert (or alt "")))))

#+end_src