[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[nongnu] elpa/org-tree-slide b4650edc3f 135/144: Restore state more eleg
From: |
ELPA Syncer |
Subject: |
[nongnu] elpa/org-tree-slide b4650edc3f 135/144: Restore state more elegantly |
Date: |
Tue, 18 Jan 2022 08:59:56 -0500 (EST) |
branch: elpa/org-tree-slide
commit b4650edc3fa4206c6d245ab47f219c7b21dbe812
Author: Hyunggyu Jang <murasakipurplez5@gmail.com>
Commit: Hyunggyu Jang <murasakipurplez5@gmail.com>
Restore state more elegantly
---
org-tree-slide.el | 56 ++++++++++++++++++++++---------------------------------
1 file changed, 22 insertions(+), 34 deletions(-)
diff --git a/org-tree-slide.el b/org-tree-slide.el
index 90f490eacf..b0d50927d1 100644
--- a/org-tree-slide.el
+++ b/org-tree-slide.el
@@ -200,46 +200,31 @@ If you want to show anything, just specify nil."
map)
"The keymap for `org-tree-slide'.")
-(defface org-tree-slide-heading-level-1-init
- '((t (:inherit outline-1)))
- "Level 1."
- :group 'org-tree-slide)
-
-(defface org-tree-slide-heading-level-2-init
- '((t (:inherit outline-2)))
- "Level 2."
- :group 'org-tree-slide)
-
-(defface org-tree-slide-heading-level-3-init
- '((t (:inherit outline-3)))
- "Level 3."
- :group 'org-tree-slide)
-
-(defface org-tree-slide-heading-level-4-init
- '((t (:inherit outline-4)))
- "Level 4."
- :group 'org-tree-slide)
-
-(defface org-tree-slide-heading-level-1
+(defcustom org-tree-slide-heading-level-1
'((t (:inherit outline-1 :height 1.5 :bold t)))
"Level 1."
:group 'org-tree-slide)
-(defface org-tree-slide-heading-level-2
+(defcustom org-tree-slide-heading-level-2
'((t (:inherit outline-2 :height 1.4 :bold t)))
"Level 2."
:group 'org-tree-slide)
-(defface org-tree-slide-heading-level-3
+(defcustom org-tree-slide-heading-level-3
'((t (:inherit outline-3 :height 1.3 :bold t)))
"Level 3."
:group 'org-tree-slide)
-(defface org-tree-slide-heading-level-4
+(defcustom org-tree-slide-heading-level-4
'((t (:inherit outline-4 :height 1.2 :bold t)))
"Level 4."
:group 'org-tree-slide)
+(defvar-local org-tree-slide-heading-level-1-cookie)
+(defvar-local org-tree-slide-heading-level-2-cookie)
+(defvar-local org-tree-slide-heading-level-3-cookie)
+(defvar-local org-tree-slide-heading-level-4-cookie)
+
(defvar org-tree-slide-mode nil)
(defvar org-tree-slide-play-hook nil
"A hook run when `org-tree-slide--play' is evaluated to start the
slideshow.")
@@ -858,17 +843,20 @@ Otherwise, return the point. This doesn't check whether
skipping or not."
(unless org-tree-slide-never-touch-face
(cond
(status
- (custom-set-faces
- '(org-level-1 ((t (:inherit org-tree-slide-heading-level-1))))
- '(org-level-2 ((t (:inherit org-tree-slide-heading-level-2))))
- '(org-level-3 ((t (:inherit org-tree-slide-heading-level-3))))
- '(org-level-4 ((t (:inherit org-tree-slide-heading-level-4))))))
+ (setq
+ org-tree-slide-heading-level-1-cookie
+ (face-remap-add-relative 'org-level-1 org-tree-slide-heading-level-1)
+ org-tree-slide-heading-level-2-cookie
+ (face-remap-add-relative 'org-level-2 org-tree-slide-heading-level-2)
+ org-tree-slide-heading-level-3-cookie
+ (face-remap-add-relative 'org-level-3 org-tree-slide-heading-level-3)
+ org-tree-slide-heading-level-4-cookie
+ (face-remap-add-relative 'org-level-4 org-tree-slide-heading-level-4)))
(t
- (custom-set-faces
- '(org-level-1 ((t (:inherit org-tree-slide-heading-level-1-init))))
- '(org-level-2 ((t (:inherit org-tree-slide-heading-level-2-init))))
- '(org-level-3 ((t (:inherit org-tree-slide-heading-level-3-init))))
- '(org-level-4 ((t (:inherit org-tree-slide-heading-level-4-init)))))))))
+ (face-remap-remove-relative org-tree-slide-heading-level-1-cookie)
+ (face-remap-remove-relative org-tree-slide-heading-level-2-cookie)
+ (face-remap-remove-relative org-tree-slide-heading-level-3-cookie)
+ (face-remap-remove-relative org-tree-slide-heading-level-4-cookie)))))
(defun org-tree-slide--count-slide (&optional pos)
"Return formatted the slide number. If POS is nil, `point' will be used."
- [nongnu] elpa/org-tree-slide 2571cfe03b 017/144: Version 2.2.0 (adopt minor mode), (continued)
- [nongnu] elpa/org-tree-slide 2571cfe03b 017/144: Version 2.2.0 (adopt minor mode), ELPA Syncer, 2022/01/18
- [nongnu] elpa/org-tree-slide 68779b8fe4 092/144: Add breadcrumbs (#23), ELPA Syncer, 2022/01/18
- [nongnu] elpa/org-tree-slide 3a2d3733ba 091/144: Added Version header, ELPA Syncer, 2022/01/18
- [nongnu] elpa/org-tree-slide 4a895dec55 074/144: Merge branch 'master' of https://github.com/takaxp/org-tree-slide, ELPA Syncer, 2022/01/18
- [nongnu] elpa/org-tree-slide 6608f8d43b 096/144: Refine README and add a link to Moom, ELPA Syncer, 2022/01/18
- [nongnu] elpa/org-tree-slide 3f1d646eb1 098/144: Support faces for org-level-1, 4, ELPA Syncer, 2022/01/18
- [nongnu] elpa/org-tree-slide 603a383117 110/144: Revise docstring of org-tree-slide-skip-outline-level, ELPA Syncer, 2022/01/18
- [nongnu] elpa/org-tree-slide 80cb1ac6f9 116/144: Merge branch 'master' of github.com:takaxp/org-tree-slide, ELPA Syncer, 2022/01/18
- [nongnu] elpa/org-tree-slide 04b5a9dee1 131/144: Merge branch 'master' of github.com:takaxp/org-tree-slide, ELPA Syncer, 2022/01/18
- [nongnu] elpa/org-tree-slide 9d2ba1df45 134/144: Fix links in README, ELPA Syncer, 2022/01/18
- [nongnu] elpa/org-tree-slide b4650edc3f 135/144: Restore state more elegantly,
ELPA Syncer <=
- [nongnu] elpa/org-tree-slide 8b44ae834f 073/144: Default keymap was changed, ELPA Syncer, 2022/01/18
- [nongnu] elpa/org-tree-slide 3cd42fdfef 071/144: Replace ots- with org-tree-slide--, ELPA Syncer, 2022/01/18
- [nongnu] elpa/org-tree-slide c01b48e7ba 067/144: Merge pull request #8 from eikek/tree-slide-content, ELPA Syncer, 2022/01/18
- [nongnu] elpa/org-tree-slide 8321fb1d25 088/144: Add meta comment Commentary and Code, ELPA Syncer, 2022/01/18
- [nongnu] elpa/org-tree-slide 1a3c400790 076/144: Merge branch 'master' of https://github.com/takaxp/org-tree-slide, ELPA Syncer, 2022/01/18
- [nongnu] elpa/org-tree-slide 9f1b898223 095/144: Create LICENSE (#26), ELPA Syncer, 2022/01/18
- [nongnu] elpa/org-tree-slide 98fec74fcf 122/144: Now depends on emacs 24.3, ELPA Syncer, 2022/01/18
- [nongnu] elpa/org-tree-slide d6e8e91433 129/144: Merge pull request #37 from KaratasFurkan/create-variable-content-margin-top, ELPA Syncer, 2022/01/18
- [nongnu] elpa/org-tree-slide 18034c4760 125/144: Merge pull request #34 from TimQuelch/patch-1, ELPA Syncer, 2022/01/18
- [nongnu] elpa/org-tree-slide 62da9b28c6 130/144: Integrate auto configurator for header, ELPA Syncer, 2022/01/18