[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[nongnu] elpa/dslide d0a0678463 070/230: Removed face remapping (it was
From: |
ELPA Syncer |
Subject: |
[nongnu] elpa/dslide d0a0678463 070/230: Removed face remapping (it was sent to master-of-ceremonies) |
Date: |
Sun, 7 Jul 2024 19:00:17 -0400 (EDT) |
branch: elpa/dslide
commit d0a067846386a7075063dcfce9b94b7acd5e649c
Author: Psionik K <73710933+psionic-k@users.noreply.github.com>
Commit: Psionik K <73710933+psionic-k@users.noreply.github.com>
Removed face remapping (it was sent to master-of-ceremonies)
This is an example of code that basically could work with org package and
didn't
need to be tightly coupled to the data model and interaction framework.
Signed-off-by: Psionik K <73710933+psionic-k@users.noreply.github.com>
---
macro-slides.el | 94 +--------------------------------------------------------
1 file changed, 1 insertion(+), 93 deletions(-)
diff --git a/macro-slides.el b/macro-slides.el
index f59d7dd21b..259d8ce635 100644
--- a/macro-slides.el
+++ b/macro-slides.el
@@ -213,46 +213,6 @@ properties remain unless shadowed."
:type 'face
:group 'macro-slides)
-(defface ms-heading-level-1 '((t :inherit 'org-level-1))
- "Org heading override."
- :group 'macro-slides)
-
-(defface ms-heading-level-2 '((t :inherit 'org-level-2))
- "Org heading override."
- :group 'macro-slides)
-
-(defface ms-heading-level-3 '((t :inherit 'org-level-3))
- "Org heading override."
- :group 'macro-slides)
-
-(defface ms-heading-level-4 '((t :inherit 'org-level-4))
- "Org heading override."
- :group 'macro-slides)
-
-(defface ms-heading-level-5 '((t :inherit 'org-level-5))
- "Org heading override."
- :group 'macro-slides)
-
-(defface ms-heading-level-6 '((t :inherit 'org-level-6))
- "Org heading override."
- :group 'macro-slides)
-
-(defface ms-heading-level-7 '((t :inherit 'org-level-7))
- "Org heading override."
- :group 'macro-slides)
-
-(defface ms-heading-level-8 '((t :inherit 'org-level-8))
- "Org heading override."
- :group 'macro-slides)
-
-(defface ms-document-title '((t :inherit 'org-document-title))
- "Org document title override."
- :group 'macro-slides)
-
-(defface ms-document-info '((t :inherit 'org-document-info))
- "Org document info override."
- :group 'macro-slides)
-
(defface ms-header-overlay-face '((t :inherit default))
"Face for `ms--header-overlay'."
:group 'macro-slides)
@@ -404,17 +364,6 @@ an SLIDE_FILTER keyword."
;; Tell the compiler that these variables exist
(defvar ms-mode)
-(defvar-local ms-heading-level-1-cookie nil)
-(defvar-local ms-heading-level-2-cookie nil)
-(defvar-local ms-heading-level-3-cookie nil)
-(defvar-local ms-heading-level-4-cookie nil)
-(defvar-local ms-heading-level-5-cookie nil)
-(defvar-local ms-heading-level-6-cookie nil)
-(defvar-local ms-heading-level-7-cookie nil)
-(defvar-local ms-heading-level-8-cookie nil)
-(defvar-local ms-document-title-cookie nil)
-(defvar-local ms-document-info-cookie nil)
-
(defvar ms--deck nil
"Active deck object.
This is global. If a presentation is active, you can look at this variable to
@@ -2483,8 +2432,7 @@ hooks must occur in the deck's :slide-buffer."
(org-fold-show-all)
;; Enter the state model
(ms--choose-slide deck
- ms-start-from)
- (ms--remap-faces t)))))
+ ms-start-from)))))
(defun ms--showing-contents-p ()
"Return t if current buffer is displaying contents."
@@ -2635,44 +2583,4 @@ Optional ERROR if you want to process
`wrong-type-argument'."
(format "Class name not a class: %s" class-name))
nil))))
-;; TODO let's just move face remapping to master of ceremonies
-(defun ms--remap-faces (status)
- "Change status of heading face. If STATUS is nil, apply the default values."
- (cond
- (status
- (setq
- ms-heading-level-1-cookie
- (face-remap-add-relative 'org-level-1 'ms-heading-level-1)
- ms-heading-level-2-cookie
- (face-remap-add-relative 'org-level-2 'ms-heading-level-2)
- ms-heading-level-3-cookie
- (face-remap-add-relative 'org-level-3 'ms-heading-level-3)
- ms-heading-level-4-cookie
- (face-remap-add-relative 'org-level-4 'ms-heading-level-4)
- ms-heading-level-5-cookie
- (face-remap-add-relative 'org-level-5 'ms-heading-level-5)
- ms-heading-level-6-cookie
- (face-remap-add-relative 'org-level-6 'ms-heading-level-6)
- ms-heading-level-7-cookie
- (face-remap-add-relative 'org-level-7 'ms-heading-level-7)
- ms-heading-level-8-cookie
- (face-remap-add-relative 'org-level-8 'ms-heading-level-8)
- ms-document-title-cookie
- (face-remap-add-relative 'org-document-title
- 'ms-document-title)
- ms-document-info-cookie
- (face-remap-add-relative 'org-document-info
- 'ms-document-info)))
- (t
- (face-remap-remove-relative ms-heading-level-1-cookie)
- (face-remap-remove-relative ms-heading-level-2-cookie)
- (face-remap-remove-relative ms-heading-level-3-cookie)
- (face-remap-remove-relative ms-heading-level-4-cookie)
- (face-remap-remove-relative ms-heading-level-5-cookie)
- (face-remap-remove-relative ms-heading-level-6-cookie)
- (face-remap-remove-relative ms-heading-level-7-cookie)
- (face-remap-remove-relative ms-heading-level-8-cookie)
- (face-remap-remove-relative ms-document-title-cookie)
- (face-remap-remove-relative ms-document-info-cookie))))
-
(provide 'macro-slides)
- [nongnu] elpa/dslide 98c9c95505 099/230: custom implementation of pulse, (continued)
- [nongnu] elpa/dslide 98c9c95505 099/230: custom implementation of pulse, ELPA Syncer, 2024/07/07
- [nongnu] elpa/dslide 5c4728025e 111/230: dslide-backward -> dslide-presentation-backward, ELPA Syncer, 2024/07/07
- [nongnu] elpa/dslide e38a7ff5ac 125/230: Introduction in demo, ELPA Syncer, 2024/07/07
- [nongnu] elpa/dslide 4a85855383 133/230: remove redundant :after, ELPA Syncer, 2024/07/07
- [nongnu] elpa/dslide d6f732a080 145/230: collect animation code, use the centralized error indication, ELPA Syncer, 2024/07/07
- [nongnu] elpa/dslide 9cc2872b4b 050/230: update readme to reflect reality, ELPA Syncer, 2024/07/07
- [nongnu] elpa/dslide b8a70b893d 052/230: options for image action, include-linked, refresh, kill-buffer, ELPA Syncer, 2024/07/07
- [nongnu] elpa/dslide af7169b85b 044/230: helpful package high-level comments, ELPA Syncer, 2024/07/07
- [nongnu] elpa/dslide 0d9518c64e 049/230: Include demo org for feedback on configuration markup, ELPA Syncer, 2024/07/07
- [nongnu] elpa/dslide 0016bc71aa 058/230: pushing some changes to the demo reflecting config API updates, ELPA Syncer, 2024/07/07
- [nongnu] elpa/dslide d0a0678463 070/230: Removed face remapping (it was sent to master-of-ceremonies),
ELPA Syncer <=
- [nongnu] elpa/dslide 618b803f95 067/230: !refactor Telescopio, the parents now call through their children, ELPA Syncer, 2024/07/07
- [nongnu] elpa/dslide bdd5fff8d6 064/230: moving some code for packaging, ELPA Syncer, 2024/07/07
- [nongnu] elpa/dslide a462b0a4ba 062/230: babel blocks should only clear results when configured to do so, ELPA Syncer, 2024/07/07
- [nongnu] elpa/dslide aed4afd84a 063/230: implement hiding children, ELPA Syncer, 2024/07/07
- [nongnu] elpa/dslide 199bb5b68b 079/230: Properties standardized to MS_ prefix, ELPA Syncer, 2024/07/07
- [nongnu] elpa/dslide ada6553434 080/230: missed a few updates to property names, ELPA Syncer, 2024/07/07
- [nongnu] elpa/dslide fca6e33a6c 060/230: Properly declare generic methods, reconcile documentation, ELPA Syncer, 2024/07/07
- [nongnu] elpa/dslide 4af0c6b990 084/230: Remove vestigal push-* code, ELPA Syncer, 2024/07/07
- [nongnu] elpa/dslide 0cbd0b7bab 081/230: Remove vestigal ms-slide-hook, ELPA Syncer, 2024/07/07
- [nongnu] elpa/dslide 1d61b6ffc1 083/230: Codify the hooks and lifecycle feedback messages, ELPA Syncer, 2024/07/07