shrface - 让 eww, dash-doc, nov, mu4e 有 org 的阅读体验，新版支持利用emacs原生shr引擎将html转org格式

DR_MING · 2020 年4 月 10 日 10:14

https://github.com/chenyanming/shrface https://www.reddit.com/r/emacs/comments/fyd2o8/new_package_shrface_a_shr_faces_package_org_like/

\

DogLooksGood · 2020 年4 月 10 日 10:59

在 eww 和 nov 上用这个，看起来好像效果不错啊。打算试试

Youmu · 2020 年4 月 10 日 11:02

效果有点惊艳啊

xuchunyang · 2020 年4 月 10 日 14:10

;;; shrface.el --- Faces for shr -*- lexical-binding: t; -*-

这个描述不是很清楚

让 eww, dash-doc, nov, mu4e 有 org 的阅读体验

比如把 h1 h2 等用 Org Heading 的样式显示的意思吧？根据你的截图猜测

顺便问下，你的 Margin 是怎么来的？

DR_MING · 2020 年4 月 10 日 14:42

对的，就是给shr继承org样式。你指的是什么margin？

emacs_ran · 2020 年4 月 10 日 14:44

自动折行这个太帅

xuchunyang · 2020 年4 月 11 日 00:17

截图里的页边空白。

kunht · 2020 年4 月 11 日 01:38

似乎是這個？

github.com

chenyanming/shrface/blob/933701bb951c6759773c1dbbdb5afba712a30b63/shrface.el#L212


      
            (apply #'shrface-shr-fontize-dom dom types)
            (shr-ensure-paragraph))
          
          
(defun shrface-tag-p (dom)
            (let* ((code (with-temp-buffer
                           (shr-ensure-paragraph)
                           (shr-generic dom)
                           (shr-ensure-paragraph)
                           (setq-local fill-column shrface-paragraph-fill-column)
                           ;; (indent-rigidly (point-min) (point-max) shrface-paragraph-indentation)
                           (fill-region (point-min) (point-max) nil nil nil)
                           (buffer-string))))
              (insert code)))
          
          
(defun shrface-tag-em (dom)
            (shrface-shr-fontize-dom dom '(comment t face highlight)))
          
          
(defun shrface-tag-a (dom)
            (let ((url (dom-attr dom 'href))
                  (title (dom-attr dom 'title))
                  (start (point))

xuchunyang · 2020 年4 月 11 日 02:14

应该不是，应该是个插件的效果，我有时间自己找看看吧。

dcsjx · 2020 年4 月 11 日 02:45

可能是 olivetti

kunht · 2020 年4 月 11 日 02:46

嗯…有些改 window margin 的插件不知道是不是你想要的。我在用這個：GitHub - joostkremers/visual-fill-column: Emacs mode for wrapping visual-line-mode buffers at fill-column.

DR_MING · 2020 年4 月 11 日 05:26

就是 olivetti-mode

(with-eval-after-load 'nov
(defun my-nov-font-setup ()
  (setq buffer-face-mode-face '(:family "Fira Code" :height 150))
  (buffer-face-mode)
  (olivetti-mode 1)
  (olivetti-set-width 0.80))
(add-hook 'nov-mode-hook 'my-nov-font-setup))

(with-eval-after-load 'eww
(defun my-eww-font-setup ()
  (setq buffer-face-mode-face '(:family "Fira Code" :height 130))
  (buffer-face-mode)
  (olivetti-mode 1)
  (olivetti-set-width 0.95))
(add-hook 'eww-mode-hook 'my-eww-font-setup))

toure00 · 2020 年4 月 11 日 12:14

看中文的电子书，你这个库的自动折行就不太行了

DR_MING · 2020 年4 月 15 日 17:27

新版更新：shrface version 1.5

好困，但是，能分享给大家还是很兴奋的。我给shrface增加了outline minior mode，现在可以折叠了，但是键绑定需要自己配一下。

(define-key nov-mode-map (kbd "<tab>") 'org-cycle)
(define-key nov-mode-map (kbd "S-<tab>") 'org-shifttab)
(define-key eww-mode-map (kbd "<tab>") 'org-cycle)
(define-key eww-mode-map (kbd "S-<tab>") 'org-shifttab)

欢迎测试～

DR_MING · 2021 年1 月 23 日 18:18

一直找不到一个很好的将html转成org的方案，网上的唯一的比较靠谱的方案就是用pandoc来转换，但是，转换后发现效果并不理想。其实，可以直接利用emacs的shr来将html转成org，通过shr，可以对每种html的元素个性化转换。

现在shrface 2.6.3 支持html转成org格式！基于Emacs原生shr的转换，无需pandoc。

shrface-html-export-as-org: 将html buffer或者string转成临时org buffer

shrface-html-export-to-org: 将html buffer转成指定org 文件

如果你不喜欢org-web-tools使用pandoc将html转成org（pandoc转换过程会丢失了很多信息，特别代码块是不完整的），可以用shrface的shrface-html-convert-as-org-stringoverride pandoc引擎：

(advice-add 'org-web-tools--html-to-org-with-pandoc :override 'shrface-html-convert-as-org-string)

但是，基于shr来将html转成org的方案，还是有些地方要改进，例如url的类型判断，图片是否要下载，html的基于每个tag的优化等等。个人精力有限，希望社区的人可以帮忙一起改善！

nichijou · 2021 年3 月 18 日 11:15

嵌套的 list 缩进会丢失，请问有办法解决吗？

DR_MING · 2021 年3 月 19 日 06:57

这个挺难弄的，一直没找到方法。

huos3203 · 2022 年3 月 23 日 06:25

如何配置w3m，在w3m中达到eww的效果，可以支持w3m 吗？

DR_MING · 2022 年3 月 23 日 07:19

你可以看看另一个项目，inherit-org