[nongnu] elpa/dslide bdd5fff8d6 064/230: moving some code for packaging

[ELPA Syncer]

branch: elpa/dslide
commit bdd5fff8d64587b678b78f64388d0fa738d7a494
Author: Psionik K <73710933+psionic-k@users.noreply.github.com>
Commit: Psionik K <73710933+psionic-k@users.noreply.github.com>

    moving some code for packaging
    
    Signed-off-by: Psionik K <73710933+psionic-k@users.noreply.github.com>
---
 macro-slides.el | 30 ++++++++++++++++--------------
 1 file changed, 16 insertions(+), 14 deletions(-)

diff --git a/macro-slides.el b/macro-slides.el
index 6c4b2033d2..ba340d56d3 100644
--- a/macro-slides.el
+++ b/macro-slides.el
@@ -268,6 +268,17 @@ properties remain unless shadowed."
   :type 'boolean
   :group 'macro-slides)
 
+(defcustom ms-animation-duration 1.0
+  "How long slide in takes."
+  :type 'number
+  :group 'macro-slides)
+
+(defcustom ms-animation-frame-duration (/ 1.0 60.0)
+  "Length between updates.
+Increase if your so-called machine has trouble drawing."
+  :type 'number
+  :group 'macro-slides)
+
 (defcustom ms-start-hook nil
   "Runs after the slide buffer is created but before first slide.
 Buffer is widened and fully visible."
@@ -386,6 +397,10 @@ an SLIDE_FILTER keyword."
 (defvar ms--debug nil
   "Set to t for logging slides and actions.")
 
+
+(defvar ms--animation-timer nil)
+(defvar-local ms--animation-overlay nil)
+
 ;; Tell the compiler that these variables exist
 (defvar ms-mode)
 
@@ -2420,25 +2435,12 @@ assumes the buffer is restricted and that there is a 
first tree."
 
 ;; * Animation
 
-(defvar ms--animation-timer nil)
-(defvar-local ms--animation-overlay nil)
-
-(defcustom ms-animation-duration 1.0
-  "How long slide in takes."
-  :type 'number
-  :group 'macro-slides)
-
-(defcustom ms-animation-frame-duration (/ 1.0 60.0)
-  "Length between updates.
-Increase if your so-called machine has trouble drawing."
-  :type 'number
-  :group 'macro-slides)
-
 ;; TODO move respect for animation variables into this function
 ;; TODO END is a redundant argument unless a virtual newline is introduced.
 ;; Test if an overlay can can work via after-string.
 ;; TODO Support non-graphical
 ;; TODO Inline animation fallback, uncover text character by character.
+;; TODO User-provided animation override function
 (defun ms-animation-setup (beg end)
   "Slide in the region from BEG to END.
 Everything after BEG will be animated.  The region between BEG