solarized-emacs

commit 48290fc53337d3c92acc1c8111aed07222f0ee51
parent 145f53a847900cc3075aabcb4b67c249bd1168f0
Author: conao3 <conao3@gmail.com>
Date:   Sun,  3 Nov 2019 05:49:35 +0900

use solarized-* prefix instead of create-*

This fixes below package-lint warnings
> "create-solarized-theme-file" doesn't start with package's prefix
> "solarized". (emacs-lisp-package)

> "create-solarized-theme" doesn't start with package's prefix
> "solarized". (emacs-lisp-package)

> "create-solarized-theme-with-palette" doesn't start with package's
> prefix "solarized". (emacs-lisp-package)

Diffstat:
M
child-theme-example/themes/my-solarized-dark-theme.el
 | 
2
+-
M
child-theme-example/themes/my-solarized-light-theme.el
 | 
2
+-
M
solarized-dark-theme.el
 | 
2
+-
M
solarized-light-theme.el
 | 
2
+-
M
solarized-wombat-dark-theme.el
 | 
2
+-
M
solarized.el
 | 
12
++++++++----

6 files changed, 13 insertions(+), 9 deletions(-)
diff --git a/child-theme-example/themes/my-solarized-dark-theme.el b/child-theme-example/themes/my-solarized-dark-theme.el
@@ -4,6 +4,6 @@
 ;; This files needs to be places iside the custom-theme-load-path list
 
 (deftheme my-solarized-dark "The dark variant of the Solarized colour theme")
-(create-solarized-theme 'dark 'my-solarized-dark 'my-solarized-theme)
+(solarized-create-theme 'dark 'my-solarized-dark 'my-solarized-theme)
 
 (provide-theme 'my-solarized-dark)
diff --git a/child-theme-example/themes/my-solarized-light-theme.el b/child-theme-example/themes/my-solarized-light-theme.el
@@ -4,6 +4,6 @@
 ;; This files needs to be places iside the custom-theme-load-path list
 
 (deftheme my-solarized-light "The light variant of the Solarized colour theme")
-(create-solarized-theme 'light 'my-solarized-light 'my-solarized-theme)
+(solarized-create-theme 'light 'my-solarized-light 'my-solarized-theme)
 
 (provide-theme 'my-solarized-light)
diff --git a/solarized-dark-theme.el b/solarized-dark-theme.el
@@ -25,7 +25,7 @@
 
 (deftheme solarized-dark "The dark variant of the Solarized colour theme")
 
-(create-solarized-theme 'dark 'solarized-dark)
+(solarized-create-theme 'dark 'solarized-dark)
 
 (provide-theme 'solarized-dark)
 
diff --git a/solarized-light-theme.el b/solarized-light-theme.el
@@ -25,7 +25,7 @@
 
 (deftheme solarized-light "The light variant of the Solarized colour theme")
 
-(create-solarized-theme 'light 'solarized-light)
+(solarized-create-theme 'light 'solarized-light)
 
 (provide-theme 'solarized-light)
 
diff --git a/solarized-wombat-dark-theme.el b/solarized-wombat-dark-theme.el
@@ -25,7 +25,7 @@
 
 (deftheme solarized-wombat-dark "The the dark solarized theme with the wombat palette")
 
-(create-solarized-theme-with-palette 'dark 'solarized-wombat-dark
+(solarized-create-theme-with-palette 'dark 'solarized-wombat-dark
   '("#2a2a29" "#f6f3e8"           ; base03 (02 01 00 0 1 2) base3
     "#e5c06d" "#ddaa6f"           ; yellow orange
     "#ffb4ac" "#e5786d"           ; red    magenta
diff --git a/solarized.el b/solarized.el
@@ -328,7 +328,7 @@ VARIANT is 'dark or 'light."
                                        base02 base02)))
      ,@body))
 
-(defun create-solarized-theme-file (variant theme-name core-palette &optional childtheme overwrite)
+(defun solarized-create-theme-file (variant theme-name core-palette &optional childtheme overwrite)
   "Create a VARIANT of the theme named THEME-NAME with CORE-PALETTE.
 
 When optional argument CHILDTHEME function is supplied it's invoked to further
@@ -351,19 +351,19 @@ If OVERWRITE is non-nil, overwrite theme file if exist."
                 (deftheme ,theme-name
                   ,(format "The %s colour theme of Solarized colour theme flavor." theme-name))
                 (let ((custom--inhibit-theme-enable nil))
-                  (create-solarized-theme-with-palette ',variant ',theme-name ',core-palette ',childtheme))
+                  (solarized-create-theme-with-palette ',variant ',theme-name ',core-palette ',childtheme))
                 (provide-theme ',theme-name)
                 (provide ',(intern (format "%s-theme" theme-name)))))))
     path))
 
-(defun create-solarized-theme (variant theme-name &optional childtheme)
+(defun solarized-create-theme (variant theme-name &optional childtheme)
   "Create a VARIANT of the theme named THEME-NAME.
 
 When optional argument CHILDTHEME function is supplied it's invoked to further
 customize the resulting theme."
   (solarized-definition variant theme-name solarized-color-palette-alist childtheme))
 
-(defun create-solarized-theme-with-palette (variant theme-name core-palette &optional childtheme)
+(defun solarized-create-theme-with-palette (variant theme-name core-palette &optional childtheme)
   "Create a VARIANT of the theme named THEME-NAME with CORE-PALETTE.
 
 When optional argument CHILDTHEME function is supplied it's invoked to further
@@ -374,6 +374,10 @@ CORE-PALETTE is core color-palette."
   (let ((color-palette (solarized-create-color-palette core-palette)))
     (solarized-definition variant theme-name color-palette childtheme)))
 
+(define-obsolete-function-alias create-solarized-theme-file         solarized-create-theme-file)
+(define-obsolete-function-alias create-solarized-theme              solarized-create-theme)
+(define-obsolete-function-alias create-solarized-theme-with-palette solarized-create-theme-with-palette)
+
 (defun solarized-definition (variant theme-name color-palette &optional childtheme)
   "Create a VARIANT of the theme named THEME-NAME with COLOR-PALETTE.