Emacs: Init Nov.

.emacs.d/init.el

@@ -240,6 +240,8 @@
 ;;   (require 'init-mu4e))
 ;; (autoload 'helm-mu4e-switch "mu4e")
 
+(with-eval-after-load 'nov (require 'init-nov))
+
 (with-eval-after-load 'notmuch (require 'init-notmuch))
 
 (with-eval-after-load 'make-mode (require 'init-makefile))

.emacs.d/lisp/init-nov.el

@@ -0,0 +1,34 @@
+(setq nov-text-width 60)
+;; (setq nov-text-width t)
+
+;; (require 'justify-kp)
+
+;; (defun my-nov-window-configuration-change-hook ()
+;;   (my-nov-post-html-render-hook)
+;;   (remove-hook 'window-configuration-change-hook
+;;                'my-nov-window-configuration-change-hook
+;;                t))
+
+;; (defvar my-nov-text-width 80)
+
+;; (defun my-nov-post-html-render-hook ()
+;;   (if (get-buffer-window)
+;;       (let ((max-width (pj-line-width))
+;;             buffer-read-only)
+;;         (save-excursion
+;;           (goto-char (point-min))
+;;           (while (not (eobp))
+;;             (when (not (looking-at "^[[:space:]]*$"))
+;;               (goto-char (line-end-position))
+;;               (when (> (shr-pixel-column) max-width)
+;;                 (goto-char (line-beginning-position))
+;;                 (pj-justify)))
+;;             (forward-line 1))))
+;;     (add-hook 'window-configuration-change-hook
+;;               'my-nov-window-configuration-change-hook
+;;               nil t)))
+
+;; (add-hook 'nov-post-html-render-hook 'my-nov-post-html-render-hook)
+;; ;; (remove-hook 'nov-post-html-render-hook 'my-nov-post-html-render-hook)
+
+(provide 'init-nov)