branch: externals/modus-themes
commit 122d53333f8faafffc44e4ccf5f28021f61da743
Author: Protesilaos Stavrou <[email protected]>
Commit: Protesilaos Stavrou <[email protected]>

    Reinstate the theme-autoload cookie with the deftheme in place
    
    We need this because otherwise the autolaods are not generated
    properly, which can cause problems for other packages that need to
    read the theme data.
---
 modus-operandi-deuteranopia-theme.el | 7 +++++++
 modus-operandi-theme.el              | 7 +++++++
 modus-operandi-tinted-theme.el       | 7 +++++++
 modus-operandi-tritanopia-theme.el   | 7 +++++++
 modus-vivendi-deuteranopia-theme.el  | 7 +++++++
 modus-vivendi-theme.el               | 7 +++++++
 modus-vivendi-tinted-theme.el        | 7 +++++++
 modus-vivendi-tritanopia-theme.el    | 7 +++++++
 8 files changed, 56 insertions(+)

diff --git a/modus-operandi-deuteranopia-theme.el 
b/modus-operandi-deuteranopia-theme.el
index fcfa834dd1..9ff64bf472 100644
--- a/modus-operandi-deuteranopia-theme.el
+++ b/modus-operandi-deuteranopia-theme.el
@@ -42,6 +42,13 @@
              (require-theme 'modus-themes t))
   (require 'modus-themes))
 
+;;;###theme-autoload
+(deftheme modus-operandi-deuteranopia
+  "Deuteranopia-optimized theme with a white background."
+  :background-mode 'light
+  :kind 'color-scheme
+  :family 'modus)
+
 (defcustom modus-operandi-deuteranopia-palette-user nil
   "Like the `modus-operandi-deuteranopia-palette' for user-defined entries.
 This is meant to extend the palette with custom named colors and/or
diff --git a/modus-operandi-theme.el b/modus-operandi-theme.el
index afb717876d..2ef0d0a52a 100644
--- a/modus-operandi-theme.el
+++ b/modus-operandi-theme.el
@@ -42,6 +42,13 @@
              (require-theme 'modus-themes t))
   (require 'modus-themes))
 
+;;;###theme-autoload
+(deftheme modus-operandi
+  "Elegant, highly legible theme with a white background."
+  :background-mode 'light
+  :kind 'color-scheme
+  :family 'modus)
+
 (defcustom modus-operandi-palette-user nil
   "Like the `modus-operandi-palette' for user-defined entries.
 This is meant to extend the palette with custom named colors and/or
diff --git a/modus-operandi-tinted-theme.el b/modus-operandi-tinted-theme.el
index a84795df5a..63486754a0 100644
--- a/modus-operandi-tinted-theme.el
+++ b/modus-operandi-tinted-theme.el
@@ -42,6 +42,13 @@
              (require-theme 'modus-themes t))
   (require 'modus-themes))
 
+;;;###theme-autoload
+(deftheme modus-operandi-tinted
+  "Elegant, highly legible theme with a light ochre background."
+  :background-mode 'light
+  :kind 'color-scheme
+  :family 'modus)
+
 (defcustom modus-operandi-tinted-palette-user nil
   "Like the `modus-operandi-tinted-palette' for user-defined entries.
 This is meant to extend the palette with custom named colors and/or
diff --git a/modus-operandi-tritanopia-theme.el 
b/modus-operandi-tritanopia-theme.el
index 095a311e9c..4358088d7b 100644
--- a/modus-operandi-tritanopia-theme.el
+++ b/modus-operandi-tritanopia-theme.el
@@ -42,6 +42,13 @@
              (require-theme 'modus-themes t))
   (require 'modus-themes))
 
+;;;###theme-autoload
+(deftheme modus-operandi-tritanopia
+  "Tritanopia-optimized theme with a white background."
+  :background-mode 'light
+  :kind 'color-scheme
+  :family 'modus)
+
 (defcustom modus-operandi-tritanopia-palette-user nil
   "Like the `modus-operandi-tritanopia-palette' for user-defined entries.
 This is meant to extend the palette with custom named colors and/or
diff --git a/modus-vivendi-deuteranopia-theme.el 
b/modus-vivendi-deuteranopia-theme.el
index b7f5e0d1fa..deb065832d 100644
--- a/modus-vivendi-deuteranopia-theme.el
+++ b/modus-vivendi-deuteranopia-theme.el
@@ -42,6 +42,13 @@
              (require-theme 'modus-themes t))
   (require 'modus-themes))
 
+;;;###theme-autoload
+(deftheme modus-vivendi-deuteranopia
+  "Deuteranopia-optimized theme with a black background."
+  :background-mode 'dark
+  :kind 'color-scheme
+  :family 'modus)
+
 (defcustom modus-vivendi-deuteranopia-palette-user nil
   "Like the `modus-vivendi-deuteranopia-palette' for user-defined entries.
 This is meant to extend the palette with custom named colors and/or
diff --git a/modus-vivendi-theme.el b/modus-vivendi-theme.el
index 2755d356d3..4d27751277 100644
--- a/modus-vivendi-theme.el
+++ b/modus-vivendi-theme.el
@@ -42,6 +42,13 @@
              (require-theme 'modus-themes t))
   (require 'modus-themes))
 
+;;;###theme-autoload
+(deftheme modus-vivendi
+  "Elegant, highly legible theme with a black background."
+  :background-mode 'dark
+  :kind 'color-scheme
+  :family 'modus)
+
 (defcustom modus-vivendi-palette-user nil
   "Like the `modus-vivendi--palette' for user-defined entries.
 This is meant to extend the palette with custom named colors and/or
diff --git a/modus-vivendi-tinted-theme.el b/modus-vivendi-tinted-theme.el
index 368b01ad68..53bc4d08bf 100644
--- a/modus-vivendi-tinted-theme.el
+++ b/modus-vivendi-tinted-theme.el
@@ -42,6 +42,13 @@
              (require-theme 'modus-themes t))
   (require 'modus-themes))
 
+;;;###theme-autoload
+(deftheme modus-vivendi-tinted
+  "Elegant, highly legible theme with a night sky background."
+  :background-mode 'dark
+  :kind 'color-scheme
+  :family 'modus)
+
 (defcustom modus-vivendi-tinted-palette-user nil
   "Like the `modus-vivendi-tinted-palette' for user-defined entries.
 This is meant to extend the palette with custom named colors and/or
diff --git a/modus-vivendi-tritanopia-theme.el 
b/modus-vivendi-tritanopia-theme.el
index 0c00870472..80c9b5c572 100644
--- a/modus-vivendi-tritanopia-theme.el
+++ b/modus-vivendi-tritanopia-theme.el
@@ -42,6 +42,13 @@
              (require-theme 'modus-themes t))
   (require 'modus-themes))
 
+;;;###theme-autoload
+(deftheme modus-vivendi-tritanopia
+  "Tritanopia-optimized theme with a black background."
+  :background-mode 'dark
+  :kind 'color-scheme
+  :family 'modus)
+
 (defcustom modus-vivendi-tritanopia-palette-user nil
   "Like the `modus-vivendi-tritanopia-palette' for user-defined entries.
 This is meant to extend the palette with custom named colors and/or

Reply via email to