[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/standard-themes da29018fe1 12/74: Provide commands to l
From: |
ELPA Syncer |
Subject: |
[elpa] externals/standard-themes da29018fe1 12/74: Provide commands to load either of the themes |
Date: |
Wed, 30 Nov 2022 08:58:22 -0500 (EST) |
branch: externals/standard-themes
commit da29018fe1f8bee4bb2bf1cd1f2ad615157fbdc5
Author: Protesilaos Stavrou <info@protesilaos.com>
Commit: Protesilaos Stavrou <info@protesilaos.com>
Provide commands to load either of the themes
---
standard-themes.el | 20 ++++++++++++++++----
1 file changed, 16 insertions(+), 4 deletions(-)
diff --git a/standard-themes.el b/standard-themes.el
index c86e0a0dcf..c77454fb5c 100644
--- a/standard-themes.el
+++ b/standard-themes.el
@@ -578,6 +578,18 @@ Run `standard-themes-post-load-hook'."
(load-theme theme :no-confirm)
(run-hooks 'standard-themes-post-load-hook))
+;;;###autoload
+(defun standard-themes-load-dark ()
+ "Load `standard-dark' and run `standard-themes-post-load-hook'."
+ (interactive)
+ (standard-themes--load-theme 'standard-dark))
+
+;;;###autoload
+(defun standard-themes-load-light ()
+ "Load `standard-light' and run `standard-themes-post-load-hook'."
+ (interactive)
+ (standard-themes--load-theme 'standard-light))
+
(defun standard-themes--load-prompt ()
"Helper for `standard-themes-toggle'."
(let ((theme
@@ -586,8 +598,8 @@ Run `standard-themes-post-load-hook'."
standard-themes-items nil t))))
(mapc #'disable-theme (standard-themes--list-known-themes))
(pcase theme
- ('standard-light (standard-themes--load-theme 'standard-light))
- ('standard-dark (standard-themes--load-theme 'standard-dark)))))
+ ('standard-light (standard-themes-load-light))
+ ('standard-dark (standard-themes-load-dark)))))
;;;###autoload
(defun standard-themes-toggle ()
@@ -595,8 +607,8 @@ Run `standard-themes-post-load-hook'."
Run `standard-themes-post-load-hook' after loading the theme."
(interactive)
(pcase (standard-themes--current-theme)
- ('standard-light (standard-themes--load-theme 'standard-dark))
- ('standard-dark (standard-themes--load-theme 'standard-light))
+ ('standard-light (standard-themes-load-dark))
+ ('standard-dark (standard-themes-load-light))
(_ (standard-themes--load-prompt))))
(defun standard-themes--preview-colors-render (buffer theme &rest _)
- [elpa] externals/standard-themes c52f39169d 17/74: Implement mappings for inline code in prose, (continued)
- [elpa] externals/standard-themes c52f39169d 17/74: Implement mappings for inline code in prose, ELPA Syncer, 2022/11/30
- [elpa] externals/standard-themes 318ead955e 32/74: standard-dark-theme: review bg-mode-line-accent, ELPA Syncer, 2022/11/30
- [elpa] externals/standard-themes 7b3753a00e 53/74: Revert compilation-info face to what it used to be, ELPA Syncer, 2022/11/30
- [elpa] externals/standard-themes 8e7d496eea 43/74: Refine mail mappings, ELPA Syncer, 2022/11/30
- [elpa] externals/standard-themes 761ba019be 35/74: standard-dark-theme: tweak red-cooler hue, ELPA Syncer, 2022/11/30
- [elpa] externals/standard-themes 2c03009ea9 55/74: Define "mark" colours and apply them, ELPA Syncer, 2022/11/30
- [elpa] externals/standard-themes c7ffa300e6 67/74: Revise all mail colours and mappings, ELPA Syncer, 2022/11/30
- [elpa] externals/standard-themes 5fa98f4b15 65/74: Document new fringe faces (per commit aa0f899), ELPA Syncer, 2022/11/30
- [elpa] externals/standard-themes e280a58cd8 01/74: Add initial version of the standard-themes, ELPA Syncer, 2022/11/30
- [elpa] externals/standard-themes 8ba3be29b2 03/74: Add support for tree-sitter package, ELPA Syncer, 2022/11/30
- [elpa] externals/standard-themes da29018fe1 12/74: Provide commands to load either of the themes,
ELPA Syncer <=
- [elpa] externals/standard-themes d0f015a027 15/74: standard-light-theme: tweak magenta value, ELPA Syncer, 2022/11/30
- [elpa] externals/standard-themes 761326d6b8 25/74: standard-light-theme: refine magenta-faint value, ELPA Syncer, 2022/11/30
- [elpa] externals/standard-themes f05b9e1c8b 21/74: standard-dark-theme: refine cyan-faint value, ELPA Syncer, 2022/11/30
- [elpa] externals/standard-themes 6f0304ff9a 24/74: standard-light-theme: refine yellow-faint value, ELPA Syncer, 2022/11/30
- [elpa] externals/standard-themes e84763e6bd 39/74: standard-light-theme: refine name mapping, ELPA Syncer, 2022/11/30
- [elpa] externals/standard-themes fe80bd9bac 41/74: Add in the manual a short description of the themes, ELPA Syncer, 2022/11/30
- [elpa] externals/standard-themes cf1f258502 57/74: Remove background from git commit warning, error, ELPA Syncer, 2022/11/30
- [elpa] externals/standard-themes 3f1625e587 63/74: Change bg-prompt hue, ELPA Syncer, 2022/11/30
- [elpa] externals/standard-themes 5acab93f85 72/74: Address inconsistencies in the manual, ELPA Syncer, 2022/11/30
- [elpa] externals/standard-themes b77d364305 73/74: Remove some links that are not yet relevant, ELPA Syncer, 2022/11/30