[elpa] 256/287: Add version information for themes

[Matthew Fidler]

mlf176f2 pushed a commit to branch externals/ergoemacs-mode
in repository elpa.

commit b7eeb04e7ba427c5c48fce05c61da7d6c0c447c4
Author: Matthew L. Fidler <address@hidden>
Date:   Sun Jun 29 23:15:12 2014 -0500

    Add version information for themes
---
 ergoemacs-macros.el |    5 +++++
 1 files changed, 5 insertions(+), 0 deletions(-)

diff --git a/ergoemacs-macros.el b/ergoemacs-macros.el
index 89738af..0db6bbd 100644
--- a/ergoemacs-macros.el
+++ b/ergoemacs-macros.el
@@ -220,6 +220,8 @@ Uses `ergoemacs-theme-component--parse-keys-and-body' and
                  ',(nth 0 kb)
                  '(lambda () ,@(nth 1 kb)))) ergoemacs-theme-comp-hash)))
 
+(declare-function ergoemacs-theme-get-version "ergoemacs-theme-engine.el")
+(declare-function ergoemacs-theme-set-version "ergoemacs-theme-engine.el")
 (defmacro ergoemacs-test-layout (&rest keys-and-body)
   (let ((kb (make-symbol "body-and-plist"))
         (plist (make-symbol "plist"))
@@ -228,6 +230,7 @@ Uses `ergoemacs-theme-component--parse-keys-and-body' and
           plist (nth 0 kb)
           body (nth 1 kb))
     `(let ((old-ergoemacs-theme ergoemacs-theme)
+           (old-version (ergoemacs-theme-get-version))
            (macro
             ,(if (plist-get plist ':macro)
                  `(edmacro-parse-keys ,(plist-get plist ':macro) t)))
@@ -235,6 +238,7 @@ Uses `ergoemacs-theme-component--parse-keys-and-body' and
        (ergoemacs-mode -1)
        (setq ergoemacs-theme ,(plist-get plist ':theme))
        (setq ergoemacs-keyboard-layout ,(or (plist-get plist ':layout) "us"))
+       (ergoemacs-theme-set-version ,(or (plist-get plist ':version) nil))
        (ergoemacs-mode 1)
        ,(if (plist-get plist :cua)
             `(cua-mode 1))
@@ -244,6 +248,7 @@ Uses `ergoemacs-theme-component--parse-keys-and-body' and
          (ergoemacs-mode -1)
          (setq ergoemacs-theme old-ergoemacs-theme)
          (setq ergoemacs-keyboard-layout old-ergoemacs-keyboard-layout)
+         (ergoemacs-theme-set-version old-version)
          (ergoemacs-mode 1)))))
 
 (fset 'ergoemacs-theme-component--parse-keys-and-body