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

[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)



reply via email to

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