36 lines
1.1 KiB
EmacsLisp
36 lines
1.1 KiB
EmacsLisp
(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)
|