emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/org-remark 1c2f9ed822 46/67: feat: toggle icons


From: ELPA Syncer
Subject: [elpa] externals/org-remark 1c2f9ed822 46/67: feat: toggle icons
Date: Sat, 22 Jul 2023 06:59:03 -0400 (EDT)

branch: externals/org-remark
commit 1c2f9ed822de1459c591589d31f92ae2625f54f0
Author: Noboru Ota <me@nobiot.com>
Commit: Noboru Ota <me@nobiot.com>

    feat: toggle icons
---
 org-remark.el | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

diff --git a/org-remark.el b/org-remark.el
index f9a200fc53..456a0a8ca5 100644
--- a/org-remark.el
+++ b/org-remark.el
@@ -1428,8 +1428,12 @@ check the current hidden state, thus not interactive.  
Use
 state."
   (when-let ((highlights org-remark-highlights))
     (dolist (highlight highlights)
+      ;; Faces
       (overlay-put highlight '*org-remark-face (overlay-get highlight 'face))
       (overlay-put highlight 'face nil)
+      ;; Icons
+      (overlay-put highlight '*org-remark-icons (overlay-get highlight 
'after-string))
+      (overlay-put highlight 'after-string nil)
       (overlay-put highlight '*org-remark-hidden t))
     (setq org-remark-highlights-hidden t)))
 
@@ -1441,8 +1445,12 @@ interactive.  Use `org-remark-toggle' command to 
manually toggle
 the show/hide state."
   (when-let ((highlights org-remark-highlights))
     (dolist (highlight highlights)
+      ;; Faces
       (overlay-put highlight '*org-remark-hidden nil)
-      (overlay-put highlight 'face (overlay-get highlight '*org-remark-face)))
+      (overlay-put highlight 'face (overlay-get highlight '*org-remark-face))
+      ;; Icons
+      (overlay-put highlight 'after-string (overlay-get highlight 
'*org-remark-icons))
+      (overlay-put highlight '*org-remark-icons nil))
     (setq org-remark-highlights-hidden nil)))
 
 (defun org-remark-highlights-housekeep ()



reply via email to

[Prev in Thread] Current Thread [Next in Thread]