From 264fae53a90395463f65561c2a6ac6f194521abd Mon Sep 17 00:00:00 2001
From: Yuchen Pei <id@ypei.org>
Date: Sat, 11 Jan 2025 21:32:36 +1100
Subject: [emacs] improve nov config

margins without fringes
---
 emacs/.emacs.d/init/ycp-editing.el | 2 ++
 emacs/.emacs.d/init/ycp-markup.el  | 6 ++++--
 emacs/.emacs.d/init/ycp-org.el     | 2 +-
 3 files changed, 7 insertions(+), 3 deletions(-)

(limited to 'emacs/.emacs.d/init')

diff --git a/emacs/.emacs.d/init/ycp-editing.el b/emacs/.emacs.d/init/ycp-editing.el
index 907c80b..d497f42 100644
--- a/emacs/.emacs.d/init/ycp-editing.el
+++ b/emacs/.emacs.d/init/ycp-editing.el
@@ -30,6 +30,8 @@
 ;; line wrap at window edge
 (setq-default truncate-lines nil)
 (setq kill-do-not-save-duplicates t)
+(setq kill-transform-function
+      (lambda (s) (when (string-match-p "[^ \t\n]" s) s)))
 (setq bidi-inhibit-bpa t)
 (setq save-interprogram-paste-before-kill t)
 (setq kill-ring-max 200)
diff --git a/emacs/.emacs.d/init/ycp-markup.el b/emacs/.emacs.d/init/ycp-markup.el
index fcb98ff..548461d 100644
--- a/emacs/.emacs.d/init/ycp-markup.el
+++ b/emacs/.emacs.d/init/ycp-markup.el
@@ -93,11 +93,13 @@
 (my-package nov
   (:delay 15)
   (add-to-list 'auto-mode-alist '("\\.epub\\'" . nov-mode))
-  (setq nov-text-width 76)
+  ;; No fill, so it requires visual line mode to look nice
+  (setq nov-text-width t)
+  (add-hook 'nov-mode-hook 'visual-line-mode)
   (add-hook 'nov-mode-hook 'follow-mode)
   (add-hook 'nov-mode-hook (lambda ()
                              (setq next-screen-context-lines 4)))
-  (add-hook 'nov-post-html-render-hook 'my-nov-set-left-margin)
+  (add-hook 'nov-post-html-render-hook 'my-nov-set-margins)
   (require 'my-nov)
   (my-override nov-render-title)
   (my-override nov-scroll-up)
diff --git a/emacs/.emacs.d/init/ycp-org.el b/emacs/.emacs.d/init/ycp-org.el
index ea95d2a..6385a46 100644
--- a/emacs/.emacs.d/init/ycp-org.el
+++ b/emacs/.emacs.d/init/ycp-org.el
@@ -532,7 +532,7 @@
   (my-keybind nov-mode-map
     "M-n" #'org-remark-next
     "M-p" #'org-remark-prev
-    "<return>" #'my-org-remark-open-or-create
+    "M" #'my-org-remark-open-or-create
     "o" #'org-remark-view
     "d" #'org-remark-delete)
   (with-eval-after-load 'nov
-- 
cgit v1.2.3