[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/standard-themes e280a58cd8 01/74: Add initial version o
From: |
ELPA Syncer |
Subject: |
[elpa] externals/standard-themes e280a58cd8 01/74: Add initial version of the standard-themes |
Date: |
Wed, 30 Nov 2022 08:58:21 -0500 (EST) |
branch: externals/standard-themes
commit e280a58cd8e32cf5bd32ced9fecce2cd88814a6c
Author: Protesilaos Stavrou <info@protesilaos.com>
Commit: Protesilaos Stavrou <info@protesilaos.com>
Add initial version of the standard-themes
---
.dir-locals.el | 6 +
.gitignore | 5 +
COPYING | 675 ++++++++++++++++
README.md | 18 +
standard-dark-theme.el | 203 +++++
standard-light-theme.el | 203 +++++
standard-themes.el | 1974 +++++++++++++++++++++++++++++++++++++++++++++++
7 files changed, 3084 insertions(+)
diff --git a/.dir-locals.el b/.dir-locals.el
new file mode 100644
index 0000000000..6d22de33f5
--- /dev/null
+++ b/.dir-locals.el
@@ -0,0 +1,6 @@
+;;; Directory Local Variables
+;;; For more information see (info "(emacs) Directory Variables")
+
+((emacs-lisp-mode
+ (show-trailing-whitespace . t)
+ (indent-tabs-mode . nil)))
diff --git a/.gitignore b/.gitignore
new file mode 100644
index 0000000000..9958aa4df8
--- /dev/null
+++ b/.gitignore
@@ -0,0 +1,5 @@
+*.elc
+*-autoloads.el
+*-pkg.el
+standard-themes.info
+standard-themes.texi
diff --git a/COPYING b/COPYING
new file mode 100644
index 0000000000..c139c21ed0
--- /dev/null
+++ b/COPYING
@@ -0,0 +1,675 @@
+ GNU GENERAL PUBLIC LICENSE
+ Version 3, 29 June 2007
+
+ Copyright (C) 2007 Free Software Foundation, Inc. <http://fsf.org/>
+ Everyone is permitted to copy and distribute verbatim copies
+ of this license document, but changing it is not allowed.
+
+ Preamble
+
+ The GNU General Public License is a free, copyleft license for
+software and other kinds of works.
+
+ The licenses for most software and other practical works are designed
+to take away your freedom to share and change the works. By contrast,
+the GNU General Public License is intended to guarantee your freedom to
+share and change all versions of a program--to make sure it remains free
+software for all its users. We, the Free Software Foundation, use the
+GNU General Public License for most of our software; it applies also to
+any other work released this way by its authors. You can apply it to
+your programs, too.
+
+ When we speak of free software, we are referring to freedom, not
+price. Our General Public Licenses are designed to make sure that you
+have the freedom to distribute copies of free software (and charge for
+them if you wish), that you receive source code or can get it if you
+want it, that you can change the software or use pieces of it in new
+free programs, and that you know you can do these things.
+
+ To protect your rights, we need to prevent others from denying you
+these rights or asking you to surrender the rights. Therefore, you have
+certain responsibilities if you distribute copies of the software, or if
+you modify it: responsibilities to respect the freedom of others.
+
+ For example, if you distribute copies of such a program, whether
+gratis or for a fee, you must pass on to the recipients the same
+freedoms that you received. You must make sure that they, too, receive
+or can get the source code. And you must show them these terms so they
+know their rights.
+
+ Developers that use the GNU GPL protect your rights with two steps:
+(1) assert copyright on the software, and (2) offer you this License
+giving you legal permission to copy, distribute and/or modify it.
+
+ For the developers' and authors' protection, the GPL clearly explains
+that there is no warranty for this free software. For both users' and
+authors' sake, the GPL requires that modified versions be marked as
+changed, so that their problems will not be attributed erroneously to
+authors of previous versions.
+
+ Some devices are designed to deny users access to install or run
+modified versions of the software inside them, although the manufacturer
+can do so. This is fundamentally incompatible with the aim of
+protecting users' freedom to change the software. The systematic
+pattern of such abuse occurs in the area of products for individuals to
+use, which is precisely where it is most unacceptable. Therefore, we
+have designed this version of the GPL to prohibit the practice for those
+products. If such problems arise substantially in other domains, we
+stand ready to extend this provision to those domains in future versions
+of the GPL, as needed to protect the freedom of users.
+
+ Finally, every program is threatened constantly by software patents.
+States should not allow patents to restrict development and use of
+software on general-purpose computers, but in those that do, we wish to
+avoid the special danger that patents applied to a free program could
+make it effectively proprietary. To prevent this, the GPL assures that
+patents cannot be used to render the program non-free.
+
+ The precise terms and conditions for copying, distribution and
+modification follow.
+
+ TERMS AND CONDITIONS
+
+ 0. Definitions.
+
+ "This License" refers to version 3 of the GNU General Public License.
+
+ "Copyright" also means copyright-like laws that apply to other kinds of
+works, such as semiconductor masks.
+
+ "The Program" refers to any copyrightable work licensed under this
+License. Each licensee is addressed as "you". "Licensees" and
+"recipients" may be individuals or organizations.
+
+ To "modify" a work means to copy from or adapt all or part of the work
+in a fashion requiring copyright permission, other than the making of an
+exact copy. The resulting work is called a "modified version" of the
+earlier work or a work "based on" the earlier work.
+
+ A "covered work" means either the unmodified Program or a work based
+on the Program.
+
+ To "propagate" a work means to do anything with it that, without
+permission, would make you directly or secondarily liable for
+infringement under applicable copyright law, except executing it on a
+computer or modifying a private copy. Propagation includes copying,
+distribution (with or without modification), making available to the
+public, and in some countries other activities as well.
+
+ To "convey" a work means any kind of propagation that enables other
+parties to make or receive copies. Mere interaction with a user through
+a computer network, with no transfer of a copy, is not conveying.
+
+ An interactive user interface displays "Appropriate Legal Notices"
+to the extent that it includes a convenient and prominently visible
+feature that (1) displays an appropriate copyright notice, and (2)
+tells the user that there is no warranty for the work (except to the
+extent that warranties are provided), that licensees may convey the
+work under this License, and how to view a copy of this License. If
+the interface presents a list of user commands or options, such as a
+menu, a prominent item in the list meets this criterion.
+
+ 1. Source Code.
+
+ The "source code" for a work means the preferred form of the work
+for making modifications to it. "Object code" means any non-source
+form of a work.
+
+ A "Standard Interface" means an interface that either is an official
+standard defined by a recognized standards body, or, in the case of
+interfaces specified for a particular programming language, one that
+is widely used among developers working in that language.
+
+ The "System Libraries" of an executable work include anything, other
+than the work as a whole, that (a) is included in the normal form of
+packaging a Major Component, but which is not part of that Major
+Component, and (b) serves only to enable use of the work with that
+Major Component, or to implement a Standard Interface for which an
+implementation is available to the public in source code form. A
+"Major Component", in this context, means a major essential component
+(kernel, window system, and so on) of the specific operating system
+(if any) on which the executable work runs, or a compiler used to
+produce the work, or an object code interpreter used to run it.
+
+ The "Corresponding Source" for a work in object code form means all
+the source code needed to generate, install, and (for an executable
+work) run the object code and to modify the work, including scripts to
+control those activities. However, it does not include the work's
+System Libraries, or general-purpose tools or generally available free
+programs which are used unmodified in performing those activities but
+which are not part of the work. For example, Corresponding Source
+includes interface definition files associated with source files for
+the work, and the source code for shared libraries and dynamically
+linked subprograms that the work is specifically designed to require,
+such as by intimate data communication or control flow between those
+subprograms and other parts of the work.
+
+ The Corresponding Source need not include anything that users
+can regenerate automatically from other parts of the Corresponding
+Source.
+
+ The Corresponding Source for a work in source code form is that
+same work.
+
+ 2. Basic Permissions.
+
+ All rights granted under this License are granted for the term of
+copyright on the Program, and are irrevocable provided the stated
+conditions are met. This License explicitly affirms your unlimited
+permission to run the unmodified Program. The output from running a
+covered work is covered by this License only if the output, given its
+content, constitutes a covered work. This License acknowledges your
+rights of fair use or other equivalent, as provided by copyright law.
+
+ You may make, run and propagate covered works that you do not
+convey, without conditions so long as your license otherwise remains
+in force. You may convey covered works to others for the sole purpose
+of having them make modifications exclusively for you, or provide you
+with facilities for running those works, provided that you comply with
+the terms of this License in conveying all material for which you do
+not control copyright. Those thus making or running the covered works
+for you must do so exclusively on your behalf, under your direction
+and control, on terms that prohibit them from making any copies of
+your copyrighted material outside their relationship with you.
+
+ Conveying under any other circumstances is permitted solely under
+the conditions stated below. Sublicensing is not allowed; section 10
+makes it unnecessary.
+
+ 3. Protecting Users' Legal Rights From Anti-Circumvention Law.
+
+ No covered work shall be deemed part of an effective technological
+measure under any applicable law fulfilling obligations under article
+11 of the WIPO copyright treaty adopted on 20 December 1996, or
+similar laws prohibiting or restricting circumvention of such
+measures.
+
+ When you convey a covered work, you waive any legal power to forbid
+circumvention of technological measures to the extent such circumvention
+is effected by exercising rights under this License with respect to
+the covered work, and you disclaim any intention to limit operation or
+modification of the work as a means of enforcing, against the work's
+users, your or third parties' legal rights to forbid circumvention of
+technological measures.
+
+ 4. Conveying Verbatim Copies.
+
+ You may convey verbatim copies of the Program's source code as you
+receive it, in any medium, provided that you conspicuously and
+appropriately publish on each copy an appropriate copyright notice;
+keep intact all notices stating that this License and any
+non-permissive terms added in accord with section 7 apply to the code;
+keep intact all notices of the absence of any warranty; and give all
+recipients a copy of this License along with the Program.
+
+ You may charge any price or no price for each copy that you convey,
+and you may offer support or warranty protection for a fee.
+
+ 5. Conveying Modified Source Versions.
+
+ You may convey a work based on the Program, or the modifications to
+produce it from the Program, in the form of source code under the
+terms of section 4, provided that you also meet all of these conditions:
+
+ a) The work must carry prominent notices stating that you modified
+ it, and giving a relevant date.
+
+ b) The work must carry prominent notices stating that it is
+ released under this License and any conditions added under section
+ 7. This requirement modifies the requirement in section 4 to
+ "keep intact all notices".
+
+ c) You must license the entire work, as a whole, under this
+ License to anyone who comes into possession of a copy. This
+ License will therefore apply, along with any applicable section 7
+ additional terms, to the whole of the work, and all its parts,
+ regardless of how they are packaged. This License gives no
+ permission to license the work in any other way, but it does not
+ invalidate such permission if you have separately received it.
+
+ d) If the work has interactive user interfaces, each must display
+ Appropriate Legal Notices; however, if the Program has interactive
+ interfaces that do not display Appropriate Legal Notices, your
+ work need not make them do so.
+
+ A compilation of a covered work with other separate and independent
+works, which are not by their nature extensions of the covered work,
+and which are not combined with it such as to form a larger program,
+in or on a volume of a storage or distribution medium, is called an
+"aggregate" if the compilation and its resulting copyright are not
+used to limit the access or legal rights of the compilation's users
+beyond what the individual works permit. Inclusion of a covered work
+in an aggregate does not cause this License to apply to the other
+parts of the aggregate.
+
+ 6. Conveying Non-Source Forms.
+
+ You may convey a covered work in object code form under the terms
+of sections 4 and 5, provided that you also convey the
+machine-readable Corresponding Source under the terms of this License,
+in one of these ways:
+
+ a) Convey the object code in, or embodied in, a physical product
+ (including a physical distribution medium), accompanied by the
+ Corresponding Source fixed on a durable physical medium
+ customarily used for software interchange.
+
+ b) Convey the object code in, or embodied in, a physical product
+ (including a physical distribution medium), accompanied by a
+ written offer, valid for at least three years and valid for as
+ long as you offer spare parts or customer support for that product
+ model, to give anyone who possesses the object code either (1) a
+ copy of the Corresponding Source for all the software in the
+ product that is covered by this License, on a durable physical
+ medium customarily used for software interchange, for a price no
+ more than your reasonable cost of physically performing this
+ conveying of source, or (2) access to copy the
+ Corresponding Source from a network server at no charge.
+
+ c) Convey individual copies of the object code with a copy of the
+ written offer to provide the Corresponding Source. This
+ alternative is allowed only occasionally and noncommercially, and
+ only if you received the object code with such an offer, in accord
+ with subsection 6b.
+
+ d) Convey the object code by offering access from a designated
+ place (gratis or for a charge), and offer equivalent access to the
+ Corresponding Source in the same way through the same place at no
+ further charge. You need not require recipients to copy the
+ Corresponding Source along with the object code. If the place to
+ copy the object code is a network server, the Corresponding Source
+ may be on a different server (operated by you or a third party)
+ that supports equivalent copying facilities, provided you maintain
+ clear directions next to the object code saying where to find the
+ Corresponding Source. Regardless of what server hosts the
+ Corresponding Source, you remain obligated to ensure that it is
+ available for as long as needed to satisfy these requirements.
+
+ e) Convey the object code using peer-to-peer transmission, provided
+ you inform other peers where the object code and Corresponding
+ Source of the work are being offered to the general public at no
+ charge under subsection 6d.
+
+ A separable portion of the object code, whose source code is excluded
+from the Corresponding Source as a System Library, need not be
+included in conveying the object code work.
+
+ A "User Product" is either (1) a "consumer product", which means any
+tangible personal property which is normally used for personal, family,
+or household purposes, or (2) anything designed or sold for incorporation
+into a dwelling. In determining whether a product is a consumer product,
+doubtful cases shall be resolved in favor of coverage. For a particular
+product received by a particular user, "normally used" refers to a
+typical or common use of that class of product, regardless of the status
+of the particular user or of the way in which the particular user
+actually uses, or expects or is expected to use, the product. A product
+is a consumer product regardless of whether the product has substantial
+commercial, industrial or non-consumer uses, unless such uses represent
+the only significant mode of use of the product.
+
+ "Installation Information" for a User Product means any methods,
+procedures, authorization keys, or other information required to install
+and execute modified versions of a covered work in that User Product from
+a modified version of its Corresponding Source. The information must
+suffice to ensure that the continued functioning of the modified object
+code is in no case prevented or interfered with solely because
+modification has been made.
+
+ If you convey an object code work under this section in, or with, or
+specifically for use in, a User Product, and the conveying occurs as
+part of a transaction in which the right of possession and use of the
+User Product is transferred to the recipient in perpetuity or for a
+fixed term (regardless of how the transaction is characterized), the
+Corresponding Source conveyed under this section must be accompanied
+by the Installation Information. But this requirement does not apply
+if neither you nor any third party retains the ability to install
+modified object code on the User Product (for example, the work has
+been installed in ROM).
+
+ The requirement to provide Installation Information does not include a
+requirement to continue to provide support service, warranty, or updates
+for a work that has been modified or installed by the recipient, or for
+the User Product in which it has been modified or installed. Access to a
+network may be denied when the modification itself materially and
+adversely affects the operation of the network or violates the rules and
+protocols for communication across the network.
+
+ Corresponding Source conveyed, and Installation Information provided,
+in accord with this section must be in a format that is publicly
+documented (and with an implementation available to the public in
+source code form), and must require no special password or key for
+unpacking, reading or copying.
+
+ 7. Additional Terms.
+
+ "Additional permissions" are terms that supplement the terms of this
+License by making exceptions from one or more of its conditions.
+Additional permissions that are applicable to the entire Program shall
+be treated as though they were included in this License, to the extent
+that they are valid under applicable law. If additional permissions
+apply only to part of the Program, that part may be used separately
+under those permissions, but the entire Program remains governed by
+this License without regard to the additional permissions.
+
+ When you convey a copy of a covered work, you may at your option
+remove any additional permissions from that copy, or from any part of
+it. (Additional permissions may be written to require their own
+removal in certain cases when you modify the work.) You may place
+additional permissions on material, added by you to a covered work,
+for which you have or can give appropriate copyright permission.
+
+ Notwithstanding any other provision of this License, for material you
+add to a covered work, you may (if authorized by the copyright holders of
+that material) supplement the terms of this License with terms:
+
+ a) Disclaiming warranty or limiting liability differently from the
+ terms of sections 15 and 16 of this License; or
+
+ b) Requiring preservation of specified reasonable legal notices or
+ author attributions in that material or in the Appropriate Legal
+ Notices displayed by works containing it; or
+
+ c) Prohibiting misrepresentation of the origin of that material, or
+ requiring that modified versions of such material be marked in
+ reasonable ways as different from the original version; or
+
+ d) Limiting the use for publicity purposes of names of licensors or
+ authors of the material; or
+
+ e) Declining to grant rights under trademark law for use of some
+ trade names, trademarks, or service marks; or
+
+ f) Requiring indemnification of licensors and authors of that
+ material by anyone who conveys the material (or modified versions of
+ it) with contractual assumptions of liability to the recipient, for
+ any liability that these contractual assumptions directly impose on
+ those licensors and authors.
+
+ All other non-permissive additional terms are considered "further
+restrictions" within the meaning of section 10. If the Program as you
+received it, or any part of it, contains a notice stating that it is
+governed by this License along with a term that is a further
+restriction, you may remove that term. If a license document contains
+a further restriction but permits relicensing or conveying under this
+License, you may add to a covered work material governed by the terms
+of that license document, provided that the further restriction does
+not survive such relicensing or conveying.
+
+ If you add terms to a covered work in accord with this section, you
+must place, in the relevant source files, a statement of the
+additional terms that apply to those files, or a notice indicating
+where to find the applicable terms.
+
+ Additional terms, permissive or non-permissive, may be stated in the
+form of a separately written license, or stated as exceptions;
+the above requirements apply either way.
+
+ 8. Termination.
+
+ You may not propagate or modify a covered work except as expressly
+provided under this License. Any attempt otherwise to propagate or
+modify it is void, and will automatically terminate your rights under
+this License (including any patent licenses granted under the third
+paragraph of section 11).
+
+ However, if you cease all violation of this License, then your
+license from a particular copyright holder is reinstated (a)
+provisionally, unless and until the copyright holder explicitly and
+finally terminates your license, and (b) permanently, if the copyright
+holder fails to notify you of the violation by some reasonable means
+prior to 60 days after the cessation.
+
+ Moreover, your license from a particular copyright holder is
+reinstated permanently if the copyright holder notifies you of the
+violation by some reasonable means, this is the first time you have
+received notice of violation of this License (for any work) from that
+copyright holder, and you cure the violation prior to 30 days after
+your receipt of the notice.
+
+ Termination of your rights under this section does not terminate the
+licenses of parties who have received copies or rights from you under
+this License. If your rights have been terminated and not permanently
+reinstated, you do not qualify to receive new licenses for the same
+material under section 10.
+
+ 9. Acceptance Not Required for Having Copies.
+
+ You are not required to accept this License in order to receive or
+run a copy of the Program. Ancillary propagation of a covered work
+occurring solely as a consequence of using peer-to-peer transmission
+to receive a copy likewise does not require acceptance. However,
+nothing other than this License grants you permission to propagate or
+modify any covered work. These actions infringe copyright if you do
+not accept this License. Therefore, by modifying or propagating a
+covered work, you indicate your acceptance of this License to do so.
+
+ 10. Automatic Licensing of Downstream Recipients.
+
+ Each time you convey a covered work, the recipient automatically
+receives a license from the original licensors, to run, modify and
+propagate that work, subject to this License. You are not responsible
+for enforcing compliance by third parties with this License.
+
+ An "entity transaction" is a transaction transferring control of an
+organization, or substantially all assets of one, or subdividing an
+organization, or merging organizations. If propagation of a covered
+work results from an entity transaction, each party to that
+transaction who receives a copy of the work also receives whatever
+licenses to the work the party's predecessor in interest had or could
+give under the previous paragraph, plus a right to possession of the
+Corresponding Source of the work from the predecessor in interest, if
+the predecessor has it or can get it with reasonable efforts.
+
+ You may not impose any further restrictions on the exercise of the
+rights granted or affirmed under this License. For example, you may
+not impose a license fee, royalty, or other charge for exercise of
+rights granted under this License, and you may not initiate litigation
+(including a cross-claim or counterclaim in a lawsuit) alleging that
+any patent claim is infringed by making, using, selling, offering for
+sale, or importing the Program or any portion of it.
+
+ 11. Patents.
+
+ A "contributor" is a copyright holder who authorizes use under this
+License of the Program or a work on which the Program is based. The
+work thus licensed is called the contributor's "contributor version".
+
+ A contributor's "essential patent claims" are all patent claims
+owned or controlled by the contributor, whether already acquired or
+hereafter acquired, that would be infringed by some manner, permitted
+by this License, of making, using, or selling its contributor version,
+but do not include claims that would be infringed only as a
+consequence of further modification of the contributor version. For
+purposes of this definition, "control" includes the right to grant
+patent sublicenses in a manner consistent with the requirements of
+this License.
+
+ Each contributor grants you a non-exclusive, worldwide, royalty-free
+patent license under the contributor's essential patent claims, to
+make, use, sell, offer for sale, import and otherwise run, modify and
+propagate the contents of its contributor version.
+
+ In the following three paragraphs, a "patent license" is any express
+agreement or commitment, however denominated, not to enforce a patent
+(such as an express permission to practice a patent or covenant not to
+sue for patent infringement). To "grant" such a patent license to a
+party means to make such an agreement or commitment not to enforce a
+patent against the party.
+
+ If you convey a covered work, knowingly relying on a patent license,
+and the Corresponding Source of the work is not available for anyone
+to copy, free of charge and under the terms of this License, through a
+publicly available network server or other readily accessible means,
+then you must either (1) cause the Corresponding Source to be so
+available, or (2) arrange to deprive yourself of the benefit of the
+patent license for this particular work, or (3) arrange, in a manner
+consistent with the requirements of this License, to extend the patent
+license to downstream recipients. "Knowingly relying" means you have
+actual knowledge that, but for the patent license, your conveying the
+covered work in a country, or your recipient's use of the covered work
+in a country, would infringe one or more identifiable patents in that
+country that you have reason to believe are valid.
+
+ If, pursuant to or in connection with a single transaction or
+arrangement, you convey, or propagate by procuring conveyance of, a
+covered work, and grant a patent license to some of the parties
+receiving the covered work authorizing them to use, propagate, modify
+or convey a specific copy of the covered work, then the patent license
+you grant is automatically extended to all recipients of the covered
+work and works based on it.
+
+ A patent license is "discriminatory" if it does not include within
+the scope of its coverage, prohibits the exercise of, or is
+conditioned on the non-exercise of one or more of the rights that are
+specifically granted under this License. You may not convey a covered
+work if you are a party to an arrangement with a third party that is
+in the business of distributing software, under which you make payment
+to the third party based on the extent of your activity of conveying
+the work, and under which the third party grants, to any of the
+parties who would receive the covered work from you, a discriminatory
+patent license (a) in connection with copies of the covered work
+conveyed by you (or copies made from those copies), or (b) primarily
+for and in connection with specific products or compilations that
+contain the covered work, unless you entered into that arrangement,
+or that patent license was granted, prior to 28 March 2007.
+
+ Nothing in this License shall be construed as excluding or limiting
+any implied license or other defenses to infringement that may
+otherwise be available to you under applicable patent law.
+
+ 12. No Surrender of Others' Freedom.
+
+ If conditions are imposed on you (whether by court order, agreement or
+otherwise) that contradict the conditions of this License, they do not
+excuse you from the conditions of this License. If you cannot convey a
+covered work so as to satisfy simultaneously your obligations under this
+License and any other pertinent obligations, then as a consequence you may
+not convey it at all. For example, if you agree to terms that obligate you
+to collect a royalty for further conveying from those to whom you convey
+the Program, the only way you could satisfy both those terms and this
+License would be to refrain entirely from conveying the Program.
+
+ 13. Use with the GNU Affero General Public License.
+
+ Notwithstanding any other provision of this License, you have
+permission to link or combine any covered work with a work licensed
+under version 3 of the GNU Affero General Public License into a single
+combined work, and to convey the resulting work. The terms of this
+License will continue to apply to the part which is the covered work,
+but the special requirements of the GNU Affero General Public License,
+section 13, concerning interaction through a network will apply to the
+combination as such.
+
+ 14. Revised Versions of this License.
+
+ The Free Software Foundation may publish revised and/or new versions of
+the GNU General Public License from time to time. Such new versions will
+be similar in spirit to the present version, but may differ in detail to
+address new problems or concerns.
+
+ Each version is given a distinguishing version number. If the
+Program specifies that a certain numbered version of the GNU General
+Public License "or any later version" applies to it, you have the
+option of following the terms and conditions either of that numbered
+version or of any later version published by the Free Software
+Foundation. If the Program does not specify a version number of the
+GNU General Public License, you may choose any version ever published
+by the Free Software Foundation.
+
+ If the Program specifies that a proxy can decide which future
+versions of the GNU General Public License can be used, that proxy's
+public statement of acceptance of a version permanently authorizes you
+to choose that version for the Program.
+
+ Later license versions may give you additional or different
+permissions. However, no additional obligations are imposed on any
+author or copyright holder as a result of your choosing to follow a
+later version.
+
+ 15. Disclaimer of Warranty.
+
+ THERE IS NO WARRANTY FOR THE PROGRAM, TO THE EXTENT PERMITTED BY
+APPLICABLE LAW. EXCEPT WHEN OTHERWISE STATED IN WRITING THE COPYRIGHT
+HOLDERS AND/OR OTHER PARTIES PROVIDE THE PROGRAM "AS IS" WITHOUT WARRANTY
+OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING, BUT NOT LIMITED TO,
+THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
+PURPOSE. THE ENTIRE RISK AS TO THE QUALITY AND PERFORMANCE OF THE PROGRAM
+IS WITH YOU. SHOULD THE PROGRAM PROVE DEFECTIVE, YOU ASSUME THE COST OF
+ALL NECESSARY SERVICING, REPAIR OR CORRECTION.
+
+ 16. Limitation of Liability.
+
+ IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING
+WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MODIFIES AND/OR CONVEYS
+THE PROGRAM AS PERMITTED ABOVE, BE LIABLE TO YOU FOR DAMAGES, INCLUDING ANY
+GENERAL, SPECIAL, INCIDENTAL OR CONSEQUENTIAL DAMAGES ARISING OUT OF THE
+USE OR INABILITY TO USE THE PROGRAM (INCLUDING BUT NOT LIMITED TO LOSS OF
+DATA OR DATA BEING RENDERED INACCURATE OR LOSSES SUSTAINED BY YOU OR THIRD
+PARTIES OR A FAILURE OF THE PROGRAM TO OPERATE WITH ANY OTHER PROGRAMS),
+EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE POSSIBILITY OF
+SUCH DAMAGES.
+
+ 17. Interpretation of Sections 15 and 16.
+
+ If the disclaimer of warranty and limitation of liability provided
+above cannot be given local legal effect according to their terms,
+reviewing courts shall apply local law that most closely approximates
+an absolute waiver of all civil liability in connection with the
+Program, unless a warranty or assumption of liability accompanies a
+copy of the Program in return for a fee.
+
+ END OF TERMS AND CONDITIONS
+
+ How to Apply These Terms to Your New Programs
+
+ If you develop a new program, and you want it to be of the greatest
+possible use to the public, the best way to achieve this is to make it
+free software which everyone can redistribute and change under these terms.
+
+ To do so, attach the following notices to the program. It is safest
+to attach them to the start of each source file to most effectively
+state the exclusion of warranty; and each file should have at least
+the "copyright" line and a pointer to where the full notice is found.
+
+ standard-themes
+ Copyright (C) 2022 Free Software Foundation, Inc.
+
+ This program is free software: you can redistribute it and/or modify
+ it under the terms of the GNU General Public License as published by
+ the Free Software Foundation, either version 3 of the License, or
+ (at your option) any later version.
+
+ This program is distributed in the hope that it will be useful,
+ but WITHOUT ANY WARRANTY; without even the implied warranty of
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ GNU General Public License for more details.
+
+ You should have received a copy of the GNU General Public License
+ along with this program. If not, see <http://www.gnu.org/licenses/>.
+
+Also add information on how to contact you by electronic and paper mail.
+
+ If the program does terminal interaction, make it output a short
+notice like this when it starts in an interactive mode:
+
+ standard-themes Copyright (C) 2022 Free Software Foundation, Inc.
+ This program comes with ABSOLUTELY NO WARRANTY; for details type `show w'.
+ This is free software, and you are welcome to redistribute it
+ under certain conditions; type `show c' for details.
+
+The hypothetical commands `show w' and `show c' should show the appropriate
+parts of the General Public License. Of course, your program's commands
+might be different; for a GUI interface, you would use an "about box".
+
+ You should also get your employer (if you work as a programmer) or school,
+if any, to sign a "copyright disclaimer" for the program, if necessary.
+For more information on this, and how to apply and follow the GNU GPL, see
+<http://www.gnu.org/licenses/>.
+
+ The GNU General Public License does not permit incorporating your program
+into proprietary programs. If your program is a subroutine library, you
+may consider it more useful to permit linking proprietary applications with
+the library. If this is what you want to do, use the GNU Lesser General
+Public License instead of this License. But first, please read
+<http://www.gnu.org/philosophy/why-not-lgpl.html>.
+
diff --git a/README.md b/README.md
new file mode 100644
index 0000000000..a70eeab9c3
--- /dev/null
+++ b/README.md
@@ -0,0 +1,18 @@
+# Standard themes for GNU Emacs
+
+The `standard-themes` are a pair of light and dark themes for GNU
+Emacs. They emulate the out-of-the-box looks of Emacs (which
+technically do NOT constitute a theme) while bringing to them thematic
+consistency, customizability, and extensibility.
+
++ Package name (GNU ELPA): `standard-themes`
++ Official manual: <https://protesilaos.com/emacs/standard-themes>
++ Change log: <https://protesilaos.com/emacs/standard-themes-changelog>
++ Sample pictures: <https://protesilaos.com/emacs/standard-themes-pictures>
++ Git repo on SourceHut: <https://git.sr.ht/~protesilaos/standard-themes>
+ - Mirrors:
+ + GitHub: <https://github.com/protesilaos/standard-themes>
+ + GitLab: <https://gitlab.com/protesilaos/standard-themes>
++ Mailing list: <https://lists.sr.ht/~protesilaos/standard-themes>
++ Backronym: Standard Themes Are Not Derivatives but the
+ Affectionately Reimagined Defaults ... themes.
diff --git a/standard-dark-theme.el b/standard-dark-theme.el
new file mode 100644
index 0000000000..07e6bf4304
--- /dev/null
+++ b/standard-dark-theme.el
@@ -0,0 +1,203 @@
+;;; standard-dark-theme.el --- Like the unthemed dark Emacs, but more
consistent -*- lexical-binding:t -*-
+
+;; Copyright (C) 2022 Free Software Foundation, Inc.
+
+;; Author: Protesilaos Stavrou <info@protesilaos.com>
+;; Maintainer: Standard-Themes Development
<~protesilaos/standard-themes@lists.sr.ht>
+;; URL: https://git.sr.ht/~protesilaos/standard-themes
+;; Mailing-List: https://lists.sr.ht/~protesilaos/standard-themes
+;; Keywords: faces, theme, accessibility
+
+;; This file is part of GNU Emacs.
+
+;; GNU Emacs is free software: you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation, either version 3 of the License, or
+;; (at your option) any later version.
+;;
+;; GNU Emacs is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+;; GNU General Public License for more details.
+;;
+;; You should have received a copy of the GNU General Public License
+;; along with GNU Emacs. If not, see <https://www.gnu.org/licenses/>.
+
+;;; Commentary:
+;;
+;; The `standard-themes' are a pair of light and dark themes for GNU
+;; Emacs. They emulate the out-of-the-box looks of Emacs (which
+;; technically do NOT constitute a theme) while bringing to them
+;; thematic consistency, customizability, and extensibility.
+
+;;; Code:
+
+
+
+(eval-and-compile
+ (require 'standard-themes)
+
+ (deftheme standard-dark "Like the unthemed dark Emacs, but more consistent.")
+
+ (defconst standard-dark-palette
+ '(;; Basic tones
+ (bg-main "#000000")
+ (fg-main "#ffffff")
+ (bg-dim "#202020")
+ (fg-dim "#a6a6a6")
+ (bg-alt "#323232")
+ (fg-alt "#a0afef")
+
+ (bg-active "#424242")
+ (bg-inactive "#141414")
+
+ ;; Basic hues for foreground values
+ (red "#ff6f60")
+ (red-warmer "#ff7f24")
+ (red-cooler "#ff5a7a")
+ (red-faint "#ee5c42")
+ (green "#44cc44")
+ (green-warmer "#7abd0f")
+ (green-cooler "#98fb98")
+ (green-faint "#61a06c")
+ (yellow "#eedd82")
+ (yellow-warmer "#fec43f")
+ (yellow-cooler "#ffa07a")
+ (yellow-faint "#cf9f8f")
+ (blue "#87ceff")
+ (blue-warmer "#6a9fff")
+ (blue-cooler "#02cfff")
+ (blue-faint "#b0c4de")
+ (magenta "#ff8faf")
+ (magenta-warmer "#e580ea")
+ (magenta-cooler "#ee82ee")
+ (magenta-faint "#c57faf")
+ (cyan "#00ffff")
+ (cyan-warmer "#87cefa")
+ (cyan-cooler "#7fffd4")
+ (cyan-faint "#8aa0df")
+
+ ;; Basic hues for background values
+ (bg-red "#cd2f30")
+ (bg-green "#408420")
+ (bg-yellow "#8f5040")
+ (bg-blue "#4648d0")
+ (bg-magenta "#a050cf")
+ (bg-cyan "#2270be")
+
+ ;; Diffs
+ (bg-added "#00331f")
+ (bg-added-faint "#002410")
+ (bg-added-refine "#03492f")
+
+ (bg-changed "#323200")
+ (bg-changed-faint "#281a00")
+ (bg-changed-refine "#484800")
+
+ (bg-removed "#4a1119")
+ (bg-removed-faint "#320a0f")
+ (bg-removed-refine "#751a1f")
+
+ ;; Graphs
+ (red-graph-0-bg "#b52c2c")
+ (red-graph-1-bg "#702020")
+ (green-graph-0-bg "#4fd100")
+ (green-graph-1-bg "#007800")
+ (yellow-graph-0-bg "#f1e00a")
+ (yellow-graph-1-bg "#b08600")
+ (blue-graph-0-bg "#2fafef")
+ (blue-graph-1-bg "#1f2f8f")
+ (magenta-graph-0-bg "#bf94fe")
+ (magenta-graph-1-bg "#5f509f")
+ (cyan-graph-0-bg "#47dfea")
+ (cyan-graph-1-bg "#00808f")
+
+ ;; Special hues
+ (bg-mode-line "#505050") (fg-mode-line "#ffffff")
+ (bg-accent "#ffc200")
+ (bg-completion "#334e22")
+ (bg-hover "#457b2f")
+ (bg-hover-alt "#00688b")
+ (bg-hl-line "#556b2f")
+ (bg-region "#0000cd")
+ (bg-paren "#4f94cd")
+ (bg-err "#3f0d09") ; check with err
+ (bg-warning "#362f00") ; check with warning
+ (bg-info "#002f12") ; check with info
+
+ (border "#606070")
+ (cursor "#ffffff")
+
+ (bg-tab "#333333")
+ (bg-tab-inactive "#4d4d4d")
+ (bg-tab-inactive-alt "#666666")
+
+ (modeline-err "#ff80af")
+ (modeline-warning "#dfcf33")
+ (modeline-info "#2fc82f")
+
+ (underline-err "#df2f2f")
+ (underline-warning "#c0b000")
+ (underline-info "#22b022")
+
+ ;; Conditional hues
+ (bg-region-intense "#9f3047")
+ (bg-mode-line-accent "#662a10")
+
+ ;; Mappings
+ (err red)
+ (warning yellow-warmer)
+ (info green)
+
+ (link cyan)
+ (link-alt magenta-cooler)
+ (link-faint cyan-faint)
+ (link-alt-faint magenta-faint)
+ (date cyan-warmer)
+ (name cyan-cooler)
+ (keybind blue-cooler)
+ (prompt blue)
+ (bg-prompt bg-green)
+
+ (builtin blue-faint)
+ (comment red-warmer)
+ (constant cyan-cooler)
+ (fnname cyan-warmer)
+ (keyword cyan)
+ (preprocessor blue-faint)
+ (docstring yellow-cooler)
+ (string yellow-cooler)
+ (type green-cooler)
+ (variable yellow)
+
+ (rx-escape green) ; compare with `string'
+ (rx-construct fg-main)
+
+ (accent-0 yellow)
+ (accent-1 cyan-warmer)
+ (accent-2 green-cooler)
+ (accent-3 red-warmer)
+
+ (mail-0 yellow-cooler)
+ (mail-1 cyan-warmer)
+ (mail-2 cyan-cooler)
+ (mail-3 magenta-cooler)
+ (mail-4 red-warmer)
+ (mail-5 blue)
+
+ (rainbow-0 "#afeeee")
+ (rainbow-1 cyan-warmer)
+ (rainbow-2 yellow)
+ (rainbow-3 cyan)
+ (rainbow-4 red-warmer)
+ (rainbow-5 green-cooler)
+ (rainbow-6 cyan-cooler)
+ (rainbow-7 blue-faint)
+ (rainbow-8 yellow-cooler))
+ "The `standard-dark' palette.")
+
+ (standard-themes-theme standard-dark standard-dark-palette)
+
+ (provide-theme 'standard-dark))
+
+;;; standard-dark-theme.el ends here
diff --git a/standard-light-theme.el b/standard-light-theme.el
new file mode 100644
index 0000000000..4d6964ac9d
--- /dev/null
+++ b/standard-light-theme.el
@@ -0,0 +1,203 @@
+;;; standard-light-theme.el --- Like the unthemed light Emacs, but more
consistent -*- lexical-binding:t -*-
+
+;; Copyright (C) 2022 Free Software Foundation, Inc.
+
+;; Author: Protesilaos Stavrou <info@protesilaos.com>
+;; Maintainer: Standard-Themes Development
<~protesilaos/standard-themes@lists.sr.ht>
+;; URL: https://git.sr.ht/~protesilaos/standard-themes
+;; Mailing-List: https://lists.sr.ht/~protesilaos/standard-themes
+;; Keywords: faces, theme, accessibility
+
+;; This file is part of GNU Emacs.
+
+;; GNU Emacs is free software: you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation, either version 3 of the License, or
+;; (at your option) any later version.
+;;
+;; GNU Emacs is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+;; GNU General Public License for more details.
+;;
+;; You should have received a copy of the GNU General Public License
+;; along with GNU Emacs. If not, see <https://www.gnu.org/licenses/>.
+
+;;; Commentary:
+;;
+;; The `standard-themes' are a pair of light and dark themes for GNU
+;; Emacs. They emulate the out-of-the-box looks of Emacs (which
+;; technically do NOT constitute a theme) while bringing to them
+;; thematic consistency, customizability, and extensibility.
+
+;;; Code:
+
+
+
+(eval-and-compile
+ (require 'standard-themes)
+
+ (deftheme standard-light "Like the unthemed light Emacs, but more
consistent.")
+
+ (defconst standard-light-palette
+ '(;; Basic tones
+ (bg-main "#ffffff")
+ (fg-main "#000000")
+ (bg-dim "#ededed")
+ (fg-dim "#7f7f7f")
+ (bg-alt "#e5e5e5")
+ (fg-alt "#193f8f")
+
+ (bg-active "#bfbfbf")
+ (bg-inactive "#f5f5f5")
+
+ ;; Basic hues for foreground values
+ (red "#b3303a")
+ (red-warmer "#e00033")
+ (red-cooler "#ee3b3b")
+ (red-faint "#b22222")
+ (green "#228b22")
+ (green-warmer "#4f7400")
+ (green-cooler "#008858")
+ (green-faint "#61756c")
+ (yellow "#a45f22")
+ (yellow-warmer "#b6532f")
+ (yellow-cooler "#a0522d")
+ (yellow-faint "#a65f6a")
+ (blue "#001faf")
+ (blue-warmer "#3a5fcd")
+ (blue-cooler "#0000ff")
+ (blue-faint "#483d8b")
+ (magenta "#8b008b")
+ (magenta-warmer "#8b2252")
+ (magenta-cooler "#800080")
+ (magenta-faint "#bf3580")
+ (cyan "#1f6fbf")
+ (cyan-warmer "#2f8fab")
+ (cyan-cooler "#008b8b")
+ (cyan-faint "#506fa0")
+
+ ;; Basic hues for background values
+ (bg-red "#ff8f88")
+ (bg-green "#7ae070")
+ (bg-yellow "#fac200")
+ (bg-blue "#6bcfff")
+ (bg-magenta "#cf9fff")
+ (bg-cyan "#a8efff")
+
+ ;; Diffs
+ (bg-added "#d5f8d5")
+ (bg-added-faint "#e5ffe5")
+ (bg-added-refine "#c6e8c6")
+
+ (bg-changed "#ffdfa9")
+ (bg-changed-faint "#ffefbf")
+ (bg-changed-refine "#fac090")
+
+ (bg-removed "#ffd8d5")
+ (bg-removed-faint "#ffe9e9")
+ (bg-removed-refine "#f3b5af")
+
+ ;; Graphs
+ (red-graph-0-bg "#ef7969")
+ (red-graph-1-bg "#ffaab4")
+ (green-graph-0-bg "#4faa09")
+ (green-graph-1-bg "#8fef00")
+ (yellow-graph-0-bg "#ffcf00")
+ (yellow-graph-1-bg "#f9ff00")
+ (blue-graph-0-bg "#7090ff")
+ (blue-graph-1-bg "#9fc6ff")
+ (magenta-graph-0-bg "#e07fff")
+ (magenta-graph-1-bg "#fad0ff")
+ (cyan-graph-0-bg "#70d3f0")
+ (cyan-graph-1-bg "#afefff")
+
+ ;; Special hues
+ (bg-mode-line "#b3b3b3") (fg-mode-line "#000000")
+ (bg-accent "#0000cc")
+ (bg-completion "#bfe8ff")
+ (bg-hover "#aaeccf")
+ (bg-hover-alt "#ffff00")
+ (bg-hl-line "#b4eeb4")
+ (bg-region "#eedc82")
+ (bg-paren "#40e0d0")
+ (bg-err "#ffd5ea") ; check with err
+ (bg-warning "#ffeabb") ; check with warning
+ (bg-info "#d0efda") ; check with info
+
+ (border "#bababa")
+ (cursor "#000000")
+
+ (bg-tab "#d9d9d9")
+ (bg-tab-inactive "#bfbfbf")
+ (bg-tab-inactive-alt "#a6a6a6")
+
+ (modeline-err "#b02020")
+ (modeline-warning "#5f1080")
+ (modeline-info "#002fb0")
+
+ (underline-err "#ef0f1f")
+ (underline-warning "#bf5f00")
+ (underline-info "#02af52")
+
+ ;; Conditional hues
+ (bg-region-intense "#eeb422")
+ (bg-mode-line-accent "#9fbaff")
+
+ ;; Mappings
+ (err red-warmer)
+ (warning yellow-warmer)
+ (info green)
+
+ (link blue-warmer)
+ (link-alt magenta)
+ (link-faint blue-faint)
+ (link-alt-faint magenta-faint)
+ (date cyan-warmer)
+ (name cyan-cooler)
+ (keybind blue)
+ (prompt blue-cooler)
+ (bg-prompt bg-blue)
+
+ (builtin blue-faint)
+ (comment red-faint)
+ (constant cyan-cooler)
+ (fnname blue-cooler)
+ (keyword magenta-cooler)
+ (preprocessor blue-faint)
+ (docstring magenta-warmer)
+ (string magenta-warmer)
+ (type green)
+ (variable yellow-cooler)
+
+ (rx-escape green) ; compare with `string'
+ (rx-construct fg-main)
+
+ (accent-0 blue-cooler)
+ (accent-1 magenta)
+ (accent-2 red-faint)
+ (accent-3 yellow-cooler)
+
+ (mail-0 magenta-cooler)
+ (mail-1 blue-warmer)
+ (mail-2 cyan-cooler)
+ (mail-3 yellow-cooler)
+ (mail-4 blue)
+ (mail-5 green-warmer)
+
+ (rainbow-0 "#191970")
+ (rainbow-1 blue-cooler)
+ (rainbow-2 yellow-cooler)
+ (rainbow-3 magenta-cooler)
+ (rainbow-4 red-faint)
+ (rainbow-5 green-warmer)
+ (rainbow-6 cyan-cooler)
+ (rainbow-7 blue-faint)
+ (rainbow-8 magenta-warmer))
+ "The `standard-light' palette.")
+
+ (standard-themes-theme standard-light standard-light-palette)
+
+ (provide-theme 'standard-light))
+
+;;; standard-light-theme.el ends here
diff --git a/standard-themes.el b/standard-themes.el
new file mode 100644
index 0000000000..8305dc33b0
--- /dev/null
+++ b/standard-themes.el
@@ -0,0 +1,1974 @@
+;;; standard-themes.el --- Like the default theme but more consistent -*-
lexical-binding:t -*-
+
+;; Copyright (C) 2022 Free Software Foundation, Inc.
+
+;; Author: Protesilaos Stavrou <info@protesilaos.com>
+;; Maintainer: Standard-Themes Development
<~protesilaos/standard-themes@lists.sr.ht>
+;; URL: https://git.sr.ht/~protesilaos/standard-themes
+;; Mailing-List: https://lists.sr.ht/~protesilaos/standard-themes
+;; Version: 0.1.0
+;; Package-Requires: ((emacs "27.1"))
+;; Keywords: faces, theme, accessibility
+
+;; This file is NOT part of GNU Emacs.
+
+;; GNU Emacs is free software: you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation, either version 3 of the License, or
+;; (at your option) any later version.
+;;
+;; GNU Emacs is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+;; GNU General Public License for more details.
+;;
+;; You should have received a copy of the GNU General Public License
+;; along with GNU Emacs. If not, see <https://www.gnu.org/licenses/>.
+
+;;; Commentary:
+;;
+;; The `standard-themes' are a pair of light and dark themes for GNU
+;; Emacs. They emulate the out-of-the-box looks of Emacs (which
+;; technically do NOT constitute a theme) while bringing to them
+;; thematic consistency, customizability, and extensibility.
+;;
+;; Why call them "standard"? Obviously because: Standard Themes Are
+;; Not Derivatives but the Affectionately Reimagined Defaults.
+
+;;; Code:
+
+
+
+(eval-when-compile (require 'subr-x))
+
+(defgroup standard-themes ()
+ "Like the default Emacs themes with added consistency."
+ :group 'faces
+ :link '(info-link "(standard-themes) Top")
+ :prefix "standard-themes-"
+ :tag "Standard Themes")
+
+;;; User options
+
+(defconst standard-themes-items '(standard-dark standard-light)
+ "Symbols of the Standard themes.")
+
+(defcustom standard-themes-post-load-hook nil
+ "Hook that runs after loading a Standard theme.
+This is used by the command `standard-themes-toggle'."
+ :type 'hook
+ :package-version '(standard-themes . "0.1.0")
+ :group 'standard-themes)
+
+(defcustom standard-themes-bold-constructs nil
+ "Use bold text in more code constructs."
+ :group 'standard-themes
+ :package-version '(standard-themes . "0.1.0")
+ :type 'boolean
+ :link '(info-link "(standard-themes) Bold constructs"))
+
+(defcustom standard-themes-italic-constructs nil
+ "Use italic text in more code constructs."
+ :group 'standard-themes
+ :package-version '(standard-themes . "0.1.0")
+ :type 'boolean
+ :link '(info-link "(standard-themes) Italic constructs"))
+
+(defconst standard-themes-weights
+ '( thin ultralight extralight light semilight regular medium
+ semibold bold heavy extrabold ultrabold)
+ "List of font weights.")
+
+(defconst standard-themes--headings-choice
+ '(set :tag "Properties" :greedy t
+ (const :tag "Proportionately spaced font (variable-pitch)"
variable-pitch)
+ (choice :tag "Font weight (must be supported by the typeface)"
+ (const :tag "Bold (default)" nil)
+ (const :tag "Thin" thin)
+ (const :tag "Ultra-light" ultralight)
+ (const :tag "Extra-light" extralight)
+ (const :tag "Light" light)
+ (const :tag "Semi-light" semilight)
+ (const :tag "Regular" regular)
+ (const :tag "Medium" medium)
+ (const :tag "Semi-bold" semibold)
+ (const :tag "Extra-bold" extrabold)
+ (const :tag "Ultra-bold" ultrabold))
+ (radio :tag "Height"
+ (float :tag "Floating point to adjust height by")
+ (cons :tag "Cons cell of `(height . FLOAT)'"
+ (const :tag "The `height' key (constant)" height)
+ (float :tag "Floating point"))))
+ "Refer to the doc string of `standard-themes-headings'.
+This is a helper variable intended for internal use.")
+
+(defcustom standard-themes-headings nil
+ "Heading styles with optional list of values for levels 0-8.
+
+This is an alist that accepts a (key . list-of-values)
+combination. The key is either a number, representing the
+heading's level (0-8) or t, which pertains to the fallback style.
+
+Level 0 is a special heading: it is used for what counts as a
+document title or equivalent, such as the #+title construct we
+find in Org files. Levels 1-8 are regular headings.
+
+The list of values covers symbols that refer to properties, as
+described below. Here is a complete sample, followed by a
+presentation of all available properties:
+
+ (setq standard-themes-headings
+ (quote ((1 . (light variable-pitch 1.5))
+ (2 . (regular 1.3))
+ (3 . (1.1))
+ (t . (variable-pitch)))))
+
+By default (a nil value for this variable), all headings have a
+bold typographic weight, a font family that is the same as the
+`default' face (typically monospaced), and a height that is equal
+to the `default' face's height.
+
+- A `variable-pitch' property changes the font family of the
+ heading to that of the `variable-pitch' face (normally a
+ proportionately spaced typeface). Also check the `fontaine'
+ package (by Protesilaos) for tweaking fonts via faces.
+
+- The symbol of a weight attribute adjusts the font of the
+ heading accordingly, such as `light', `semibold', etc. Valid
+ symbols are defined in the variable `standard-themes-weights'. The
+ absence of a weight means that bold will be used by virtue of
+ inheriting the `bold' face.
+
+- A number, expressed as a floating point (e.g. 1.5), adjusts the
+ height of the heading to that many times the base font size.
+ The default height is the same as 1.0, though it need not be
+ explicitly stated. Instead of a floating point, an acceptable
+ value can be in the form of a cons cell like (height . FLOAT)
+ or (height FLOAT), where FLOAT is the given number.
+
+Combinations of any of those properties are expressed as a list,
+like in these examples:
+
+ (semibold)
+ (variable-pitch semibold)
+ (variable-pitch semibold 1.3)
+ (variable-pitch semibold (height 1.3)) ; same as above
+ (variable-pitch semibold (height . 1.3)) ; same as above
+
+The order in which the properties are set is not significant.
+
+In user configuration files the form may look like this:
+
+ (setq standard-themes-headings
+ (quote ((1 . (light variable-pitch 1.5))
+ (2 . (regular 1.3))
+ (3 . (1.1))
+ (t . (variable-pitch)))))
+
+When defining the styles per heading level, it is possible to
+pass a non-nil value (t) instead of a list of properties. This
+will retain the original aesthetic for that level. For example:
+
+ (setq standard-themes-headings
+ (quote ((1 . t) ; keep the default style
+ (2 . (variable-pitch 1.2))
+ (t . (variable-pitch))))) ; style for all other headings
+
+ (setq standard-themes-headings
+ (quote ((1 . (variable-pitch 1.6))
+ (2 . (1.3))
+ (t . t)))) ; default style for all other levels"
+ :group 'standard-themes
+ :package-version '(standard-themes . "0.1.0")
+ :type `(alist
+ :options ,(mapcar (lambda (h)
+ (list h standard-themes--headings-choice))
+ '(0 1 2 3 4 5 6 7 8 t))
+ :key-type symbol
+ :value-type ,standard-themes--headings-choice)
+ :link '(info-link "(standard-themes) Option for headings"))
+
+(defcustom standard-themes-mixed-fonts nil
+ "Non-nil to enable inheritance from `fixed-pitch' in some faces.
+
+This is done to allow spacing-sensitive constructs, such as Org
+tables and code blocks, to remain monospaced when users opt for a
+proportionately spaced font as their default or when they use
+something like the command `variable-pitch-mode'.
+
+Users may need to explicitly configure the font family of
+`fixed-pitch' in order to get a consistent experience with their
+typography (also check the `fontaine' package on GNU ELPA (by
+Protesilaos))."
+ :group 'standard-themes
+ :package-version '(standard-themes . "0.1.0")
+ :type 'boolean
+ :link '(info-link "(standard-themes) Enable mixed fonts"))
+
+(defcustom standard-themes-variable-pitch-ui nil
+ "Use proportional fonts (`variable-pitch') in UI elements.
+This includes the mode line, header line, tab bar, and tab line.
+
+Users may need to explicitly configure the font family of
+`variable-pitch' in order to get a consistent experience with
+their typography (also check the `fontaine' package on GNU
+ELPA (by Protesilaos))."
+ :group 'standard-themes
+ :package-version '(standard-themes . "0.1.0")
+ :type 'boolean
+ :link '(info-link "(standard-themes) UI typeface"))
+
+(defcustom standard-themes-region nil
+ "Control the appearance of the `region' face.
+
+The value is a list of symbols.
+
+If nil or an empty list (the default), use a subtle background
+for the region and preserve the color of selected text.
+
+The `no-extend' symbol limits the highlighted area to the end of
+the line, so that it does not reach the edge of the window.
+
+The `neutral' symbol makes the highlighted area's background
+gray (or more gray, depending on the theme).
+
+The `intense' symbol amplifies the intensity of the highlighted
+area's background color. It also overrides any text color to
+keep it legible.
+
+Combinations of those symbols are expressed in any order.
+
+In user configuration files the form may look like this:
+
+ (setq standard-themes-region \\='(intense no-extend))
+
+Other examples:
+
+ (setq standard-themes-region \\='(intense))
+ (setq standard-themes-region \\='(intense no-extend neutral))"
+ :group 'standard-themes
+ :package-version '(standard-themes . "0.1.0")
+ :type '(set :tag "Properties" :greedy t
+ (const :tag "Do not extend to the edge of the window" no-extend)
+ (const :tag "More neutral/gray background" neutral)
+ (const :tag "More intense background (also override text color)"
accented))
+ :link '(info-link "(standard-themes) Style of region highlight"))
+
+(defcustom standard-themes-fringes 'subtle
+ "Control the visibility of fringes.
+
+When the value is nil, do not apply a distinct background color.
+
+With a value of `subtle', use a gray background color that is
+visible yet close to the main background color.
+
+With `intense', use a more pronounced gray background color."
+ :group 'standard-themes
+ :package-version '(standard-themes . "0.1.0")
+ :version "29.1"
+ :type '(choice
+ (const :format "[%v] %t\n" :tag "No visible fringes" nil)
+ (const :format "[%v] %t\n" :tag "Subtle gray background" subtle)
+ (const :format "[%v] %t\n" :tag "Intense gray background" intense))
+ :link '(info-link "(standard-themes) Fringes"))
+
+(defcustom standard-themes-links nil
+ "Set the style of links.
+
+The value is a list of properties, each designated by a symbol.
+The default (a nil value or an empty list) is a prominent text
+color, typically blue, with an underline of the same color.
+
+For the style of the underline, a `neutral-underline' property
+turns the color of the line into a subtle gray, while the
+`no-underline' property removes the line altogether. If both of
+those are set, the latter takes precedence.
+
+For text coloration, a `faint' property desaturates the color of
+the text and the underline, unless the underline is affected by
+the aforementioned properties.
+
+A `bold' property applies a heavy typographic weight to the text
+of the link.
+
+An `italic' property adds a slant to the link's text (italic or
+oblique forms, depending on the typeface).
+
+Combinations of any of those properties are expressed as a list,
+like in these examples:
+
+ (faint)
+ (no-underline faint)
+
+The order in which the properties are set is not significant.
+
+In user configuration files the form may look like this:
+
+ (setq standard-themes-links (quote (neutral-underline faint)))
+
+The placement of the underline, meaning its proximity to the
+text, is controlled by `x-use-underline-position-properties',
+`x-underline-at-descent-line', `underline-minimum-offset'.
+Please refer to their documentation strings."
+ :group 'standard-themes
+ :package-version '(standard-themes . "0.1.0")
+ :type '(set :tag "Properties" :greedy t
+ (choice :tag "Text coloration"
+ (const :tag "Saturared color (default)" nil)
+ (const :tag "Faint coloration" faint))
+ (choice :tag "Underline"
+ (const :tag "Same color as text (default)" nil)
+ (const :tag "Neutral (gray) underline color"
neutral-underline)
+ (const :tag "No underline" no-underline))
+ (const :tag "Bold font weight" bold)
+ (const :tag "Italic font slant" italic))
+ :link '(info-link "(standard-themes) Link styles"))
+
+(defcustom standard-themes-prompts nil
+ "Use subtle or intense styles for minibuffer and REPL prompts.
+
+The value is a list of properties, each designated by a symbol.
+The default (a nil value or an empty list) means to only use a
+subtle accented foreground color.
+
+The property `background' applies a background color to the
+prompt's text. By default, this is a subtle accented value.
+
+The property `bold' makes the text use a bold typographic weight.
+Similarly, `italic' adds a slant to the font's forms (italic or
+oblique forms, depending on the typeface).
+
+Combinations of any of those properties are expressed as a list,
+like in these examples:
+
+ (intense)
+ (bold intense)
+ (intense bold gray)
+ (intense background gray bold)
+
+The order in which the properties are set is not significant.
+
+In user configuration files the form may look like this:
+
+ (setq standard-themes-prompts (quote (background gray)))"
+ :group 'standard-themes
+ :package-version '(standard-themes . "0.1.0")
+ :type '(set :tag "Properties" :greedy t
+ (const :tag "With Background" background)
+ (const :tag "Bold font weight" bold)
+ (const :tag "Italic font slant" italic))
+ :link '(info-link "(standard-themes) Command prompts"))
+
+(defcustom standard-themes-mode-line-accented nil
+ "When non-nil, use accented background for the active mode line."
+ :group 'standard-themes
+ :package-version '(standard-themes . "0.1.0")
+ :type 'boolean
+ :link '(info-link "(standard-themes) Mode line"))
+
+;;; Helpers for user options
+
+(defun standard-themes--warn (option)
+ "Warn that OPTION has changed."
+ (prog1 nil
+ (display-warning
+ 'standard-themes
+ (format "`%s' has changed; please read the updated documentation" option)
+ :warning)))
+
+(defun standard-themes--list-or-warn (option)
+ "Return list or nil value of OPTION, else `standard-themes--warn'."
+ (let* ((value (symbol-value option)))
+ (if (or (null value) (listp value))
+ value
+ (standard-themes--warn option))))
+
+(defun standard-themes--bold ()
+ "Conditional use of a heavier text weight."
+ (when standard-themes-bold-constructs
+ (list :inherit 'bold)))
+
+(defun standard-themes--slant ()
+ "Conditional use of italics for slant attribute."
+ (when standard-themes-italic-constructs
+ (list :inherit 'italic)))
+
+(defun standard-themes--fixed-pitch ()
+ "Conditional application of `fixed-pitch' inheritance."
+ (when standard-themes-mixed-fonts
+ (list :inherit 'fixed-pitch)))
+
+(defun standard-themes--variable-pitch-ui ()
+ "Conditional application of `variable-pitch' in the UI."
+ (when standard-themes-variable-pitch-ui
+ (list :inherit 'variable-pitch)))
+
+(defun standard-themes--fringe (mainbg intensebg)
+ "Conditional use of background colors for fringes.
+MAINBG is the default. INTENSEBG should be a prominent gray
+value."
+ (pcase standard-themes-fringes
+ ('intense (list :background intensebg))
+ ('subtle (list :background mainbg))
+ (_ (list :background 'unspecified))))
+
+(defun standard-themes--key-cdr (key alist)
+ "Get cdr of KEY in ALIST."
+ (cdr (assoc key alist)))
+
+(defun standard-themes--alist-or-seq (properties alist-key seq-pred
seq-default)
+ "Return value from alist or sequence.
+Check PROPERTIES for an alist value that corresponds to
+ALIST-KEY. If no alist is present, search the PROPERTIES
+sequence given SEQ-PRED, using SEQ-DEFAULT as a fallback."
+ (if-let* ((val (or (alist-get alist-key properties)
+ (seq-find seq-pred properties seq-default)))
+ ((listp val)))
+ (car val)
+ val))
+
+(defun standard-themes--weight (list)
+ "Search for `standard-themes--heading' weight in LIST."
+ (catch 'found
+ (dolist (elt list)
+ (when (memq elt standard-themes-weights)
+ (throw 'found elt)))))
+
+(defun standard-themes--heading (level)
+ "Conditional styles for `standard-themes-headings' per LEVEL heading."
+ (let* ((key (standard-themes--key-cdr level standard-themes-headings))
+ (style (or key (standard-themes--key-cdr t standard-themes-headings)))
+ (style-listp (listp style))
+ (properties style)
+ (weight (when style-listp (standard-themes--weight style))))
+ (list :inherit
+ (if (memq 'variable-pitch properties)
+ 'variable-pitch
+ 'unspecified)
+ :height
+ (standard-themes--alist-or-seq properties 'height #'floatp
'unspecified)
+ :weight
+ (cond
+ ((and (zerop level)
+ (null weight))
+ 'bold)
+ ((or weight 'unspecified))))))
+
+(defun standard-themes--region (bg bgneutral bgintense bgintenseneutral
fgintense)
+ "Apply `standard-themes-region' styles.
+
+BG is the default background. BGNEUTRAL is its gray counterpart.
+BGINTENSE is an amplified variant of BG, while BGINTENSENEUTRAL
+is a more intense neutral background. FGINTENSE is the
+foreground that is used with any of the intense backgrounds."
+ (let ((properties (standard-themes--list-or-warn 'standard-themes-region)))
+ (list
+ :background
+ (cond
+ ((and (memq 'intense properties) (memq 'neutral properties))
+ bgintenseneutral)
+ ((memq 'intense properties)
+ bgintense)
+ ((memq 'neutral properties)
+ bgneutral)
+ (bg))
+ :foreground
+ (if (memq 'intense properties)
+ fgintense
+ 'unspecified)
+ :extend
+ (if (memq 'no-extend properties)
+ nil
+ t))))
+
+(defun standard-themes--link (fg fgfaint underline)
+ "Conditional application of link styles.
+FG is the link's default color for its text and underline
+property. FGFAINT is a desaturated color for the text and
+underline. UNDERLINE is a gray color only for the undeline."
+ (let ((properties (standard-themes--list-or-warn 'standard-themes-links)))
+ (list :inherit
+ (cond
+ ((and (memq 'bold properties)
+ (memq 'italic properties))
+ 'bold-italic)
+ ((memq 'italic properties)
+ 'italic)
+ ((memq 'bold properties)
+ 'bold)
+ ('unspecified))
+ :foreground
+ (if (memq 'faint properties) fgfaint fg)
+ :underline
+ (cond
+ ((memq 'no-underline properties)
+ 'unspecified)
+ ((memq 'neutral-underline properties)
+ underline)
+ (t)))))
+
+(defun standard-themes--prompt (fg bg fg-for-bg)
+ "Conditional use of colors for text prompt faces.
+FG is the prompt's standard foreground. BG is a background
+color that is combined with FG-FOR-BG."
+ (let ((properties (standard-themes--list-or-warn 'standard-themes-prompts)))
+ (list :background
+ (if (memq 'background properties) bg 'unspecified)
+ :foreground
+ (if (memq 'background properties) fg-for-bg fg)
+ :inherit
+ (cond
+ ((and (memq 'bold properties)
+ (memq 'italic properties))
+ 'bold-italic)
+ ((memq 'italic properties)
+ 'italic)
+ ((memq 'bold properties)
+ 'bold)
+ ('unspecified)))))
+
+;;; Commands and their helper functions
+
+(declare-function cl-remove-if-not "cl-seq" (cl-pred cl-list &rest cl-keys))
+
+(defun standard-themes--list-enabled-themes ()
+ "Return list of `custom-enabled-themes' with standard- prefix."
+ (cl-remove-if-not
+ (lambda (theme)
+ (string-prefix-p "standard-" (symbol-name theme)))
+ custom-enabled-themes))
+
+(defun standard-themes--enable-themes ()
+ "Enable the Standard themes."
+ (mapc (lambda (theme)
+ (unless (memq theme custom-known-themes)
+ (load-theme theme :no-confirm :no-enable)))
+ standard-themes-items))
+
+(defun standard-themes--list-known-themes ()
+ "Return list of `custom-known-themes' with standard- prefix."
+ (standard-themes--enable-themes)
+ (cl-remove-if-not
+ (lambda (theme)
+ (string-prefix-p "standard-" (symbol-name theme)))
+ custom-known-themes))
+
+(defun standard-themes--current-theme ()
+ "Return first enabled Standard theme."
+ (car (standard-themes--list-enabled-themes)))
+
+(defun standard-themes--palette (theme)
+ "Return THEME palette as a symbol."
+ (when theme
+ (intern (format "%s-palette" theme))))
+
+(defun standard-themes--current-theme-palette ()
+ "Return palette of active Standard theme, else produce `user-error'."
+ (if-let* ((palette (standard-themes--palette
(standard-themes--current-theme))))
+ (symbol-value palette)
+ (user-error "No enabled Standard theme could be found")))
+
+(defun standard-themes--load-theme (theme)
+ "Load THEME while disabling other Standard themes.
+Run `standard-themes-post-load-hook'."
+ (mapc #'disable-theme (standard-themes--list-known-themes))
+ (load-theme theme :no-confirm)
+ (run-hooks 'standard-themes-post-load-hook))
+
+(defun standard-themes--load-prompt ()
+ "Helper for `standard-themes-toggle'."
+ (let ((theme
+ (intern
+ (completing-read "Load Standard theme (will disable all others): "
+ 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)))))
+
+;;;###autoload
+(defun standard-themes-toggle ()
+ "Toggle between the `standard-dark' and `standard-light' themes.
+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-themes--load-prompt))))
+
+(defun standard-themes--preview-colors-render (buffer theme &rest _)
+ "Render colors in BUFFER from THEME.
+Routine for `standard-themes-preview-colors'."
+ (let ((palette (seq-remove (lambda (cell)
+ (symbolp (cadr cell)))
+ (symbol-value (standard-themes--palette theme))))
+ (current-buffer buffer)
+ (current-theme theme))
+ (with-help-window buffer
+ (with-current-buffer standard-output
+ (erase-buffer)
+ (when (<= (display-color-cells) 256)
+ (insert (concat "Your display terminal may not render all color
previews!\n"
+ "It seems to only support <= 256 colors.\n\n"))
+ (put-text-property (point-min) (point) 'face 'warning))
+ ;; We need this to properly render the first line.
+ (insert " ")
+ (dolist (cell palette)
+ (let* ((name (car cell))
+ (color (cadr cell))
+ (fg (readable-foreground-color color))
+ (pad (make-string 5 ?\s)))
+ (let ((old-point (point)))
+ (insert (format "%s %s" color pad))
+ (put-text-property old-point (point) 'face `( :foreground
,color)))
+ (let ((old-point (point)))
+ (insert (format " %s %s %s\n" color pad name))
+ (put-text-property old-point (point)
+ 'face `( :background ,color
+ :foreground ,fg
+ :extend t)))
+ ;; We need this to properly render the last line.
+ (insert " ")))
+ (setq-local revert-buffer-function
+ (lambda (_ignore-auto _noconfirm)
+ (standard-themes--preview-colors-render current-buffer
current-theme)))))))
+
+(defvar standard-themes--preview-colors-prompt-history '()
+ "Minibuffer history for `standard-themes--preview-colors-prompt'.")
+
+(defun standard-themes--preview-colors-prompt ()
+ "Prompt for Standard theme.
+Helper function for `standard-themes-preview-colors'."
+ (let ((def (format "%s" (standard-themes--current-theme))))
+ (completing-read
+ (format "Use palette from theme [%s]: " def)
+ (standard-themes--list-known-themes) nil t nil
+ 'standard-themes--preview-colors-prompt-history def)))
+
+;;;###autoload
+(defun standard-themes-preview-colors (theme)
+ "Preview palette of the Standard THEME of choice."
+ (interactive (list (intern (standard-themes--preview-colors-prompt))))
+ (standard-themes--preview-colors-render
+ (format "*%s-preview-colors*" theme)
+ theme))
+
+;;;###autoload
+(defun standard-themes-preview-colors-current ()
+ "Call `standard-themes-preview-colors' for the current Standard theme."
+ (interactive)
+ (standard-themes-preview-colors (standard-themes--current-theme)))
+
+;;; Faces and variables
+
+(defgroup standard-themes-faces ()
+ "Faces defined by the Standard themes."
+ :group 'standard-themes
+ :link '(info-link "(standard-themes) Top")
+ :prefix "standard-themes-"
+ :tag "Standard Themes Faces")
+
+;; This produces `standard-themes-height-0' and the like.
+(dotimes (n 9)
+ (custom-declare-face
+ (intern (format "standard-themes-heading-%d" n))
+ nil (format "Used for level %d heading." n)
+ :package-version '(standard-themes . "0.1.0")
+ :group 'standard-themes-faces))
+
+(defface standard-themes-key-binding nil
+ "Face for key bindings."
+ :package-version '(standard-themes . "0.1.0")
+ :group 'standard-themes-faces)
+
+(defface standard-themes-bold nil
+ "Face attributes when `standard-themes-bold-constructs' is non-nil."
+ :package-version '(standard-themes . "0.1.0")
+ :group 'standard-themes-faces)
+
+(defface standard-themes-italic nil
+ "Face attributes when `standard-themes-italic-constructs' is non-nil."
+ :package-version '(standard-themes . "0.1.0")
+ :group 'standard-themes-faces)
+
+(defface standard-themes-fixed-pitch nil
+ "Face for `fixed-pitch' if `standard-themes-mixed-fonts' is non-nil."
+ :package-version '(standard-themes . "0.1.0")
+ :group 'standard-themes-faces)
+
+(defface standard-themes-ui-variable-pitch nil
+ "Face for `variable-pitch' if `standard-themes-variable-pitch-ui' is
non-nil."
+ :package-version '(standard-themes . "0.1.0")
+ :group 'standard-themes-faces)
+
+;; This produces `standard-themes-mark-delete' and the like.
+(dolist (scope '(delete select other))
+ (custom-declare-face
+ (intern (format "standard-themes-mark-%s" scope))
+ nil (format "Face for %s marks (e.g. `dired', `trashed')." scope)
+ :package-version '(standard-themes . "0.1.0")
+ :group 'standard-themes-faces))
+
+;; This produces `standard-themes-underline-error' and the like
+(dolist (scope '(info error warning))
+ (custom-declare-face
+ (intern (format "standard-themes-underline-%s" scope))
+ nil (format "Face for %s underline (e.g. `flymake', `flyspell')." scope)
+ :package-version '(standard-themes . "0.1.0")
+ :group 'standard-themes-faces))
+
+(defconst standard-themes-faces
+ '(
+;;;; internal faces
+ `(standard-themes-bold ((,c ,@(standard-themes--bold))))
+ `(standard-themes-italic ((,c ,@(standard-themes--slant))))
+ `(standard-themes-fixed-pitch ((,c ,@(standard-themes--fixed-pitch))))
+ `(standard-themes-heading-0 ((,c ,@(standard-themes--heading 0)
:foreground ,rainbow-0)))
+ `(standard-themes-heading-1 ((,c ,@(standard-themes--heading 1)
:foreground ,rainbow-1)))
+ `(standard-themes-heading-2 ((,c ,@(standard-themes--heading 2)
:foreground ,rainbow-2)))
+ `(standard-themes-heading-3 ((,c ,@(standard-themes--heading 3)
:foreground ,rainbow-3)))
+ `(standard-themes-heading-4 ((,c ,@(standard-themes--heading 4)
:foreground ,rainbow-4)))
+ `(standard-themes-heading-5 ((,c ,@(standard-themes--heading 5)
:foreground ,rainbow-5)))
+ `(standard-themes-heading-6 ((,c ,@(standard-themes--heading 6)
:foreground ,rainbow-6)))
+ `(standard-themes-heading-7 ((,c ,@(standard-themes--heading 7)
:foreground ,rainbow-7)))
+ `(standard-themes-heading-8 ((,c ,@(standard-themes--heading 8)
:foreground ,rainbow-8)))
+ `(standard-themes-key-binding ((,c :inherit (bold
standard-themes-fixed-pitch) :foreground ,keybind)))
+ `(standard-themes-ui-variable-pitch ((,c
,@(standard-themes--variable-pitch-ui))))
+ `(standard-themes-mark-delete ((,c :inherit error :background ,bg-err)))
+ `(standard-themes-mark-select ((,c :inherit success :background ,bg-info)))
+ `(standard-themes-mark-other ((,c :inherit warning :background
,bg-warning)))
+ `(standard-themes-underline-error ((,c :underline (:style wave :color
,underline-err))))
+ `(standard-themes-underline-info ((,c :underline (:style wave :color
,underline-info))))
+ `(standard-themes-underline-warning ((,c :underline (:style wave :color
,underline-warning))))
+;;;; all basic faces
+;;;;; absolute essentials
+ `(bold ((,c :weight bold)))
+ `(bold-italic ((,c :inherit (bold italic))))
+ `(cursor ((,c :background ,cursor)))
+ `(default ((,c :background ,bg-main :foreground ,fg-main)))
+ `(italic ((,c :slant italic)))
+ `(region ((,c ,@(standard-themes--region bg-region bg-alt
bg-region-intense bg-active fg-main))))
+ `(vertical-border ((,c :foreground "gray50")))
+;;;;; all other basic faces
+ `(button ((,c ,@(standard-themes--link link link-faint border))))
+ `(child-frame-border ((,c :background ,border)))
+ `(comint-highlight-input ((,c :inherit bold)))
+ `(comint-highlight-prompt ((,c :inherit minibuffer-prompt)))
+ `(edmacro-label ((,c :inherit bold)))
+ `(elisp-shorthand-font-lock-face ((,c :inherit italic)))
+ `(error ((,c :inherit bold :foreground ,err)))
+ `(escape-glyph ((,c :foreground ,warning)))
+ `(fringe ((,c ,@(standard-themes--fringe bg-dim bg-active) :foreground
,fg-main)))
+ `(header-line ((,c :inherit standard-themes-ui-variable-pitch :background
,bg-dim)))
+ `(header-line-highlight ((,c :inherit highlight)))
+ `(help-argument-name ((,c :foreground ,accent-0)))
+ `(help-key-binding ((,c :inherit (bold standard-themes-fixed-pitch)
:foreground ,keybind)))
+ `(highlight ((,c :background ,bg-hover :foreground ,fg-main)))
+ `(hl-line ((,c :background ,bg-hl-line)))
+ `(icon-button ((,c :box ,fg-dim :background ,bg-active :foreground
,fg-main))) ; same as `custom-button'
+ `(link ((,c ,@(standard-themes--link link link-faint border))))
+ `(link-visited ((,c ,@(standard-themes--link link-alt link-alt-faint
border))))
+ `(minibuffer-prompt ((,c ,@(standard-themes--prompt prompt bg-prompt
fg-main))))
+ `(mm-command-output ((,c :foreground ,mail-5))) ; like message-mml
+ `(pgtk-im-0 ((,c :inherit secondary-selection)))
+ `(read-multiple-choice-face ((,c :inherit warning :background
,bg-warning)))
+ `(rectangle-preview ((,c :inherit secondary-selection)))
+ `(secondary-selection ((,c :background ,bg-hover-alt :foreground
,fg-main)))
+ `(shadow ((,c :foreground ,fg-dim)))
+ `(success ((,c :inherit bold :foreground ,info)))
+ `(tooltip ((,c :background ,bg-alt :foreground ,fg-main)))
+ `(trailing-whitespace ((,c :background ,bg-red :foreground ,fg-main)))
+ `(warning ((,c :inherit bold :foreground ,warning)))
+;;;; all-the-icons
+ `(all-the-icons-blue ((,c :foreground ,blue-cooler)))
+ `(all-the-icons-blue-alt ((,c :foreground ,blue-warmer)))
+ `(all-the-icons-cyan ((,c :foreground ,cyan)))
+ `(all-the-icons-cyan-alt ((,c :foreground ,cyan-warmer)))
+ `(all-the-icons-dblue ((,c :foreground ,blue-faint)))
+ `(all-the-icons-dcyan ((,c :foreground ,cyan-faint)))
+ `(all-the-icons-dgreen ((,c :foreground ,green-faint)))
+ `(all-the-icons-dmaroon ((,c :foreground ,magenta-faint)))
+ `(all-the-icons-dorange ((,c :foreground ,red-faint)))
+ `(all-the-icons-dpink ((,c :foreground ,magenta-faint)))
+ `(all-the-icons-dpurple ((,c :foreground ,blue-faint)))
+ `(all-the-icons-dred ((,c :foreground ,red-faint)))
+ `(all-the-icons-dsilver ((,c :foreground ,cyan-faint)))
+ `(all-the-icons-dyellow ((,c :foreground ,yellow-faint)))
+ `(all-the-icons-green ((,c :foreground ,green)))
+ `(all-the-icons-lblue ((,c :foreground ,blue-cooler)))
+ `(all-the-icons-lcyan ((,c :foreground ,cyan)))
+ `(all-the-icons-lgreen ((,c :foreground ,green-warmer)))
+ `(all-the-icons-lmaroon ((,c :foreground ,magenta-warmer)))
+ `(all-the-icons-lorange ((,c :foreground ,red-warmer)))
+ `(all-the-icons-lpink ((,c :foreground ,magenta)))
+ `(all-the-icons-lpurple ((,c :foreground ,magenta-faint)))
+ `(all-the-icons-lred ((,c :foreground ,red)))
+ `(all-the-icons-lsilver ((,c :foreground ,fg-dim)))
+ `(all-the-icons-lyellow ((,c :foreground ,yellow-warmer)))
+ `(all-the-icons-maroon ((,c :foreground ,magenta)))
+ `(all-the-icons-orange ((,c :foreground ,red-warmer)))
+ `(all-the-icons-pink ((,c :foreground ,magenta)))
+ `(all-the-icons-purple ((,c :foreground ,magenta-cooler)))
+ `(all-the-icons-purple-alt ((,c :foreground ,magenta-cooler)))
+ `(all-the-icons-red ((,c :foreground ,red-warmer)))
+ `(all-the-icons-red-alt ((,c :foreground ,red-cooler)))
+ `(all-the-icons-silver ((,c :foreground ,cyan-faint)))
+ `(all-the-icons-yellow ((,c :foreground ,yellow)))
+;;;; all-the-icons-dired
+ `(all-the-icons-dired-dir-face ((,c :foreground ,accent-0)))
+;;;; all-the-icons-ibuffer
+ `(all-the-icons-ibuffer-dir-face ((,c :foreground ,accent-0)))
+ `(all-the-icons-ibuffer-file-face ((,c :foreground ,name)))
+ `(all-the-icons-ibuffer-mode-face ((,c :foreground ,constant)))
+ `(all-the-icons-ibuffer-size-face ((,c :foreground ,variable)))
+;;;; ansi-color
+ `(ansi-color-black ((,c :background "black" :foreground "black")))
+ `(ansi-color-blue ((,c :background ,blue :foreground ,blue)))
+ `(ansi-color-bold ((,c :inherit bold)))
+ `(ansi-color-bright-black ((,c :background "gray35" :foreground "gray35")))
+ `(ansi-color-bright-blue ((,c :background ,blue-warmer :foreground
,blue-warmer)))
+ `(ansi-color-bright-cyan ((,c :background ,cyan-cooler :foreground
,cyan-cooler)))
+ `(ansi-color-bright-green ((,c :background ,green-cooler :foreground
,green-cooler)))
+ `(ansi-color-bright-magenta ((,c :background ,magenta-cooler :foreground
,magenta-cooler)))
+ `(ansi-color-bright-red ((,c :background ,red-warmer :foreground
,red-warmer)))
+ `(ansi-color-bright-white ((,c :background "white" :foreground "white")))
+ `(ansi-color-bright-yellow ((,c :background ,yellow-warmer :foreground
,yellow-warmer)))
+ `(ansi-color-cyan ((,c :background ,cyan :foreground ,cyan)))
+ `(ansi-color-green ((,c :background ,green :foreground ,green)))
+ `(ansi-color-magenta ((,c :background ,magenta :foreground ,magenta)))
+ `(ansi-color-red ((,c :background ,red :foreground ,red)))
+ `(ansi-color-white ((,c :background "gray65" :foreground "gray65")))
+ `(ansi-color-yellow ((,c :background ,yellow :foreground ,yellow)))
+;;;; auctex and tex
+ `(font-latex-bold-face ((,c :inherit bold)))
+ `(font-latex-doctex-documentation-face ((,c :inherit font-lock-doc-face)))
+ `(font-latex-doctex-preprocessor-face ((,c :inherit
font-lock-preprocessor-face)))
+ `(font-latex-italic-face ((,c :inherit italic)))
+ `(font-latex-math-face ((,c :inherit font-lock-constant-face)))
+ `(font-latex-script-char-face ((,c :inherit font-lock-builtin-face)))
+ `(font-latex-sectioning-5-face ((,c :inherit (bold
standard-themes-variable-pitch) :foreground ,fg-alt)))
+ `(font-latex-sedate-face ((,c :inherit font-lock-keyword-face)))
+ `(font-latex-slide-title-face ((,c :inherit standard-themes-heading-0)))
+ `(font-latex-string-face ((,c :inherit font-lock-string-face)))
+ `(font-latex-underline-face ((,c :inherit underline)))
+ `(font-latex-verbatim-face ((,c :inherit standard-themes-fixed-pitch
:foreground ,accent-0)))
+ `(font-latex-warning-face ((,c :inherit font-lock-warning-face)))
+ `(tex-verbatim ((,c :inherit standard-themes-fixed-pitch :foreground
,accent-0)))
+ ;; `(texinfo-heading ((,c :foreground ,magenta)))
+ `(TeX-error-description-error ((,c :inherit error)))
+ `(TeX-error-description-help ((,c :inherit success)))
+ `(TeX-error-description-tex-said ((,c :inherit success)))
+ `(TeX-error-description-warning ((,c :inherit warning)))
+;;;; auto-dim-other-buffers
+ `(auto-dim-other-buffers-face ((,c :background ,bg-inactive)))
+;;;; bongo
+ `(bongo-album-title (( )))
+ `(bongo-artist ((,c :foreground ,rainbow-0)))
+ `(bongo-currently-playing-track ((,c :inherit bold)))
+ `(bongo-elapsed-track-part ((,c :background ,bg-alt :underline t)))
+ `(bongo-filled-seek-bar ((,c :background ,bg-hover)))
+ `(bongo-marked-track ((,c :inherit standard-themes-mark-other)))
+ `(bongo-marked-track-line ((,c :background ,bg-dim)))
+ `(bongo-played-track ((,c :inherit shadow :strike-through t)))
+ `(bongo-track-length ((,c :inherit shadow)))
+ `(bongo-track-title ((,c :foreground ,rainbow-1)))
+ `(bongo-unfilled-seek-bar ((,c :background ,bg-dim)))
+;;;; bookmark
+ `(bookmark-face ((,c :foreground ,info)))
+ `(bookmark-menu-bookmark ((,c :inherit bold)))
+;;;; calendar and diary
+ `(calendar-month-header ((,c :inherit bold)))
+ `(calendar-today ((,c :inherit bold :underline t)))
+ `(calendar-weekday-header ((,c :foreground ,fg-alt)))
+ `(calendar-weekend-header ((,c :inherit calendar-weekday-header)))
+ `(diary ((,c :background ,bg-dim :foreground ,accent-0)))
+ `(diary-anniversary ((,c :foreground ,accent-1)))
+ `(diary-time ((,c :foreground ,date)))
+ `(holiday ((,c :background ,bg-dim :foreground ,accent-2)))
+;;;; cider
+ `(cider-deprecated-face ((,c :background ,bg-warning :foreground
,warning)))
+ `(cider-enlightened-face ((,c :box ,warning)))
+ `(cider-enlightened-local-face ((,c :inherit warning)))
+ `(cider-error-highlight-face ((,c :inherit ef-themes-underline-error)))
+ `(cider-fringe-good-face ((,c :inherit ef-themes-mark-select)))
+ `(cider-instrumented-face ((,c :box ,err)))
+ `(cider-reader-conditional-face ((,c :inherit font-lock-type-face)))
+ `(cider-repl-prompt-face ((,c :inherit minibuffer-prompt)))
+ `(cider-repl-stderr-face ((,c :foreground ,err)))
+ `(cider-repl-stdout-face ((,c :foreground ,info)))
+ `(cider-warning-highlight-face ((,c :inherit ef-themes-underline-warning)))
+;;;; change-log and log-view (`vc-print-log' and `vc-print-root-log')
+ `(change-log-acknowledgment ((,c :inherit shadow)))
+ `(change-log-conditionals ((,c :inherit error)))
+ `(change-log-date ((,c :foreground ,date)))
+ `(change-log-email ((,c :foreground ,fg-alt)))
+ `(change-log-file ((,c :inherit bold)))
+ `(change-log-function ((,c :inherit warning)))
+ `(change-log-list ((,c :inherit bold)))
+ `(change-log-name ((,c :foreground ,name)))
+ `(log-edit-header ((,c :inherit bold)))
+ `(log-edit-headers-separator ((,c :height 1 :background ,border :extend
t)))
+ `(log-edit-summary ((,c :inherit bold :foreground ,accent-0)))
+ `(log-edit-unknown-header ((,c :inherit shadow)))
+ `(log-view-commit-body (( )))
+ `(log-view-file ((,c :inherit bold)))
+ `(log-view-message ((,c :inherit shadow)))
+;;;; company-mode
+ `(company-echo-common ((,c :inherit bold :foreground ,accent-0)))
+ `(company-preview ((,c :background ,bg-dim :foreground ,fg-dim)))
+ `(company-preview-common ((,c :inherit company-echo-common)))
+ `(company-preview-search ((,c :background ,bg-yellow :foreground
,fg-main)))
+ `(company-scrollbar-bg ((,c :background ,bg-active)))
+ `(company-scrollbar-fg ((,c :background ,fg-main)))
+ `(company-template-field ((,c :background ,bg-active :foreground
,fg-main)))
+ `(company-tooltip ((,c :background ,bg-inactive)))
+ `(company-tooltip-annotation ((,c :inherit completions-annotations)))
+ `(company-tooltip-common ((,c :inherit company-echo-common)))
+ `(company-tooltip-deprecated ((,c :inherit company-tooltip :strike-through
t)))
+ `(company-tooltip-mouse ((,c :inherit highlight)))
+ `(company-tooltip-scrollbar-thumb ((,c :background ,fg-alt)))
+ `(company-tooltip-scrollbar-track ((,c :background ,bg-alt)))
+ `(company-tooltip-search ((,c :inherit secondary-selection)))
+ `(company-tooltip-search-selection ((,c :inherit secondary-selection
:underline t)))
+ `(company-tooltip-selection ((,c :background ,bg-completion)))
+;;;; compilation
+ `(compilation-column-number ((,c :inherit compilation-line-number)))
+ `(compilation-error ((,c :inherit error)))
+ `(compilation-info ((,c :inherit bold :foreground ,name)))
+ `(compilation-line-number ((,c :inherit shadow)))
+ `(compilation-mode-line-exit ((,c :inherit bold :foreground
,modeline-info)))
+ `(compilation-mode-line-fail ((,c :inherit bold :foreground
,modeline-err)))
+ `(compilation-mode-line-run ((,c :inherit bold :foreground
,modeline-warning)))
+ `(compilation-warning ((,c :inherit warning)))
+;;;; completions
+ `(completions-annotations ((,c :inherit italic :foreground ,docstring)))
+ `(completions-common-part ((,c :inherit bold :foreground ,accent-0)))
+ `(completions-first-difference ((,c :inherit bold :foreground ,accent-1)))
+ `(completions-group-title ((,c :inherit bold :foreground ,name)))
+;;;; consult
+ `(consult-async-split ((,c :inherit warning)))
+ `(consult-key ((,c :inherit standard-themes-key-binding)))
+ `(consult-imenu-prefix ((,c :inherit shadow)))
+ `(consult-line-number ((,c :inherit shadow)))
+ `(consult-separator ((,c :foreground ,border)))
+;;;; corfu
+ `(corfu-current ((,c :background ,bg-completion)))
+ `(corfu-bar ((,c :background ,fg-main)))
+ `(corfu-border ((,c :background ,bg-active)))
+ `(corfu-default ((,c :background ,bg-inactive)))
+;;;; custom (M-x customize)
+ `(custom-button ((,c :box (:line-width 2 :style released-button)
:background ,bg-active :foreground ,fg-main)))
+ `(custom-button-mouse ((,c :inherit (highlight custom-button))))
+ `(custom-button-pressed ((,c :inherit (secondary-selection custom-button)
:box (:line-width 2 :style pressed-button))))
+ `(custom-changed ((,c :background ,bg-changed)))
+ `(custom-comment ((,c :inherit shadow)))
+ `(custom-comment-tag ((,c :inherit (bold shadow))))
+ `(custom-invalid ((,c :inherit error :strike-through t)))
+ `(custom-modified ((,c :inherit custom-changed)))
+ `(custom-rogue ((,c :inherit custom-invalid)))
+ `(custom-set ((,c :inherit success)))
+ `(custom-state ((,c :foreground ,fg-alt)))
+ `(custom-themed ((,c :inherit custom-changed)))
+ `(custom-variable-obsolete ((,c :inherit shadow)))
+ `(custom-face-tag ((,c :inherit bold :foreground ,type)))
+ `(custom-group-tag ((,c :inherit bold :foreground ,builtin)))
+ `(custom-group-tag-1 ((,c :inherit bold :foreground ,constant)))
+ `(custom-variable-tag ((,c :inherit bold :foreground ,variable)))
+;;;; denote
+ `(denote-faces-date ((,c :foreground ,date)))
+ `(denote-faces-keywords ((,c :foreground ,name)))
+;;;; dictionary
+ `(dictionary-button-face ((,c :inherit bold)))
+ `(dictionary-reference-face ((,c :inherit link)))
+ `(dictionary-word-definition-face (( )))
+ `(dictionary-word-entry-face ((,c :inherit font-lock-comment-face)))
+;;;; diff-hl
+ `(diff-hl-change ((,c :background ,bg-changed-refine)))
+ `(diff-hl-delete ((,c :background ,bg-removed-refine)))
+ `(diff-hl-insert ((,c :background ,bg-added-refine)))
+ `(diff-hl-reverted-hunk-highlight ((,c :background ,fg-main :foreground
,bg-main)))
+;;;; diff-mode
+ `(diff-added ((,c :background ,bg-added)))
+ `(diff-changed ((,c :background ,bg-changed :extend t)))
+ `(diff-changed-unspecified ((,c :inherit diff-changed)))
+ `(diff-removed ((,c :background ,bg-removed)))
+ `(diff-refine-added ((,c :background ,bg-added-refine :foreground
,fg-main)))
+ `(diff-refine-changed ((,c :background ,bg-changed-refine :foreground
,fg-main)))
+ `(diff-refine-removed ((,c :background ,bg-removed-refine :foreground
,fg-main)))
+ `(diff-indicator-added ((,c :inherit success :background ,bg-added)))
+ `(diff-indicator-changed ((,c :inherit warning :background ,bg-changed)))
+ `(diff-indicator-removed ((,c :inherit error :background ,bg-removed)))
+ `(diff-context (( )))
+ `(diff-error ((,c :inherit error)))
+ `(diff-file-header ((,c :inherit bold)))
+ `(diff-function ((,c :background ,bg-alt)))
+ `(diff-header (( )))
+ `(diff-hunk-header ((,c :inherit bold :background ,bg-alt)))
+ `(diff-index ((,c :inherit italic)))
+ `(diff-nonexistent ((,c :inherit bold)))
+;;;; dired
+ `(dired-broken-symlink ((,c :inherit (error link))))
+ `(dired-directory ((,c :foreground ,accent-0)))
+ `(dired-flagged ((,c :inherit standard-themes-mark-delete)))
+ `(dired-header ((,c :inherit bold)))
+ `(dired-ignored ((,c :inherit shadow)))
+ `(dired-mark ((,c :foreground ,fg-main)))
+ `(dired-marked ((,c :inherit standard-themes-mark-select)))
+ `(dired-symlink ((,c :inherit link)))
+ `(dired-warning ((,c :inherit warning)))
+;;;; dired-subtree
+ ;; remove backgrounds from dired-subtree faces, else they break
+ ;; dired-{flagged,marked} and any other face that sets a background
+ ;; such as hl-line. Also, denoting depth by varying shades of gray
+ ;; does not look right.
+ `(dired-subtree-depth-1-face (( )))
+ `(dired-subtree-depth-2-face (( )))
+ `(dired-subtree-depth-3-face (( )))
+ `(dired-subtree-depth-4-face (( )))
+ `(dired-subtree-depth-5-face (( )))
+ `(dired-subtree-depth-6-face (( )))
+;;;; diredfl
+ `(diredfl-autofile-name ((,c :background ,bg-alt)))
+ `(diredfl-compressed-file-name ((,c :foreground ,yellow-cooler)))
+ `(diredfl-compressed-file-suffix ((,c :foreground ,red)))
+ `(diredfl-date-time ((,c :foreground ,date)))
+ `(diredfl-deletion ((,c :inherit dired-flagged)))
+ `(diredfl-deletion-file-name ((,c :inherit diredfl-deletion)))
+ `(diredfl-dir-heading ((,c :inherit bold)))
+ `(diredfl-dir-name ((,c :inherit dired-directory)))
+ `(diredfl-dir-priv ((,c :inherit dired-directory)))
+ `(diredfl-exec-priv ((,c :foreground ,rainbow-3)))
+ `(diredfl-executable-tag ((,c :inherit diredfl-exec-priv)))
+ `(diredfl-file-name ((,c :foreground ,fg-main)))
+ `(diredfl-file-suffix ((,c :foreground ,variable)))
+ `(diredfl-flag-mark ((,c :inherit dired-marked)))
+ `(diredfl-flag-mark-line ((,c :inherit dired-marked)))
+ `(diredfl-ignored-file-name ((,c :inherit shadow)))
+ `(diredfl-link-priv ((,c :foreground ,link)))
+ `(diredfl-no-priv ((,c :inherit shadow)))
+ `(diredfl-number ((,c :inherit shadow)))
+ `(diredfl-other-priv ((,c :foreground ,rainbow-0)))
+ `(diredfl-rare-priv ((,c :foreground ,rainbow-0)))
+ `(diredfl-read-priv ((,c :foreground ,rainbow-1)))
+ `(diredfl-symlink ((,c :inherit dired-symlink)))
+ `(diredfl-tagged-autofile-name ((,c :inherit (diredfl-autofile-name
dired-marked))))
+ `(diredfl-write-priv ((,c :foreground ,rainbow-2)))
+;;;; dirvish
+ `(dirvish-hl-line ((,c :background ,bg-hl-line)))
+;;;; display-fill-column-indicator-mode
+ ;; NOTE 2022-09-14: We use the bg-alt mapping as the border mapping
+ ;; is for the `vertical-border'. We want this to be more subtle.
+ `(fill-column-indicator ((,c :height 1 :background ,bg-alt :foreground
,bg-alt)))
+;;;; doom-modeline
+ `(doom-modeline-bar ((,c :background ,bg-accent)))
+ `(doom-modeline-bar-inactive ((,c :background ,bg-alt)))
+ `(doom-modeline-battery-charging ((,c :foreground ,modeline-info)))
+ `(doom-modeline-battery-critical ((,c :underline t :foreground
,modeline-err)))
+ `(doom-modeline-battery-error ((,c :underline t :foreground
,modeline-err)))
+ `(doom-modeline-battery-full (( )))
+ `(doom-modeline-battery-warning ((,c :inherit bold :foreground
,modeline-warning)))
+ `(doom-modeline-buffer-file ((,c :inherit bold)))
+ `(doom-modeline-buffer-major-mode (( )))
+ `(doom-modeline-buffer-minor-mode (( )))
+ `(doom-modeline-buffer-modified ((,c :foreground ,modeline-err)))
+ `(doom-modeline-buffer-path (( )))
+ `(doom-modeline-evil-emacs-state ((,c :inherit italic)))
+ `(doom-modeline-evil-insert-state ((,c :foreground ,modeline-info)))
+ `(doom-modeline-evil-motion-state (( )))
+ `(doom-modeline-evil-normal-state (( )))
+ `(doom-modeline-evil-operator-state ((,c :inherit bold)))
+ `(doom-modeline-evil-replace-state ((,c :inherit bold :foreground
,modeline-err)))
+ `(doom-modeline-evil-visual-state ((,c :inherit bold :foreground
,modeline-warning)))
+ `(doom-modeline-info ((,c :inherit bold :foreground ,modeline-info)))
+ `(doom-modeline-input-method (( )))
+ `(doom-modeline-lsp-error ((,c :inherit bold-italic)))
+ `(doom-modeline-lsp-running (( )))
+ `(doom-modeline-lsp-success ((,c :inherit bold :foreground
,modeline-info)))
+ `(doom-modeline-lsp-warning ((,c :inherit bold :foreground
,modeline-warning)))
+ `(doom-modeline-notification ((,c :inherit mode-line-emphasis :foreground
,modeline-err)))
+ `(doom-modeline-project-dir (( )))
+ `(doom-modeline-project-parent-dir (( )))
+ `(doom-modeline-project-root-dir (( )))
+ `(doom-modeline-repl-success ((,c :inherit bold :foreground
,modeline-info)))
+ `(doom-modeline-repl-warning ((,c :inherit bold :foreground
,modeline-warning)))
+ `(doom-modeline-time (( )))
+ `(doom-modeline-urgent ((,c :inherit bold-italic :foreground
,modeline-err)))
+ `(doom-modeline-warning ((,c :inherit bold :foreground ,modeline-warning)))
+;;;; ediff
+ `(ediff-current-diff-A ((,c :inherit diff-removed)))
+ `(ediff-current-diff-Ancestor ((,c :background ,bg-region))) ; TODO
2022-08-14: Needs review
+ `(ediff-current-diff-B ((,c :inherit diff-added)))
+ `(ediff-current-diff-C ((,c :inherit diff-changed)))
+ `(ediff-even-diff-A ((,c :background ,bg-dim)))
+ `(ediff-even-diff-Ancestor ((,c :background ,bg-dim)))
+ `(ediff-even-diff-B ((,c :background ,bg-dim)))
+ `(ediff-even-diff-C ((,c :background ,bg-dim)))
+ `(ediff-fine-diff-A ((,c :inherit diff-refine-removed)))
+ `(ediff-fine-diff-Ancestor ((,c :inherit diff-refine-cyan)))
+ `(ediff-fine-diff-B ((,c :inherit diff-refine-added)))
+ `(ediff-fine-diff-C ((,c :inherit diff-refine-changed)))
+ `(ediff-odd-diff-A ((,c :inherit ediff-even-diff-A)))
+ `(ediff-odd-diff-Ancestor ((,c :inherit ediff-even-diff-Ancestor)))
+ `(ediff-odd-diff-B ((,c :inherit ediff-even-diff-B)))
+ `(ediff-odd-diff-C ((,c :inherit ediff-even-diff-C)))
+;;;; eldoc
+ ;; NOTE: see https://github.com/purcell/package-lint/issues/187
+ (list 'eldoc-highlight-function-argument `((,c :inherit warning
:background ,bg-warning)))
+;;;; elfeed
+ `(elfeed-log-date-face ((,c :inherit elfeed-search-date-face)))
+ `(elfeed-log-debug-level-face ((,c :inherit elfeed-search-filter-face)))
+ `(elfeed-log-error-level-face ((,c :inherit error)))
+ `(elfeed-log-info-level-face ((,c :inherit success)))
+ `(elfeed-log-warn-level-face ((,c :inherit warning)))
+ `(elfeed-search-date-face ((,c :foreground ,date)))
+ `(elfeed-search-feed-face ((,c :foreground ,accent-1)))
+ `(elfeed-search-filter-face ((,c :inherit bold)))
+ `(elfeed-search-last-update-face ((,c :inherit bold :foreground ,date)))
+ `(elfeed-search-tag-face ((,c :foreground ,accent-0)))
+ `(elfeed-search-title-face ((,c :foreground ,fg-dim)))
+ `(elfeed-search-unread-count-face (( )))
+ `(elfeed-search-unread-title-face ((,c :inherit bold :foreground
,fg-main)))
+;;;; embark
+ `(embark-keybinding ((,c :inherit standard-themes-key-binding)))
+ `(embark-keybinding-repeat ((,c :inherit bold)))
+ `(embark-collect-marked ((,c :inherit standard-themes-mark-select)))
+ `(embark-collect-group-title ((,c :inherit bold :foreground ,name)))
+ `(embark-collect-zebra-highlight ((,c :background ,bg-alt)))
+;;;; epa
+ `(epa-field-body (( )))
+ `(epa-field-name ((,c :inherit bold :foreground ,fg-dim)))
+ `(epa-mark ((,c :inherit bold)))
+ `(epa-string ((,c :foreground ,string)))
+ `(epa-validity-disabled ((,c :foreground ,err)))
+ `(epa-validity-high ((,c :inherit success)))
+ `(epa-validity-low ((,c :inherit shadow)))
+ `(epa-validity-medium ((,c :foreground ,info)))
+;;;; eshell
+ `(eshell-ls-archive ((,c :foreground ,accent-2)))
+ `(eshell-ls-backup ((,c :inherit shadow)))
+ `(eshell-ls-clutter ((,c :inherit shadow)))
+ `(eshell-ls-directory ((,c :foreground ,accent-0)))
+ `(eshell-ls-executable ((,c :foreground ,accent-1)))
+ `(eshell-ls-missing ((,c :inherit error)))
+ `(eshell-ls-product ((,c :inherit shadow)))
+ `(eshell-ls-readonly ((,c :foreground ,warning)))
+ `(eshell-ls-special ((,c :foreground ,magenta)))
+ `(eshell-ls-symlink ((,c :inherit link)))
+ `(eshell-ls-unreadable ((,c :inherit shadow)))
+ `(eshell-prompt ((,c :inherit minibuffer-prompt)))
+;;;; eww
+ `(eww-invalid-certificate ((,c :foreground ,err)))
+ `(eww-valid-certificate ((,c :foreground ,info)))
+ `(eww-form-checkbox ((,c :inherit eww-form-text)))
+ `(eww-form-file ((,c :inherit eww-form-submit)))
+ `(eww-form-select ((,c :inherit eww-form-submit)))
+ `(eww-form-submit ((,c :box ,fg-dim :background ,bg-active :foreground
,fg-main)))
+ `(eww-form-text ((,c :inherit widget-field)))
+ `(eww-form-textarea ((,c :inherit eww-form-text)))
+;;;; flycheck
+ `(flycheck-error ((,c :inherit standard-themes-underline-error)))
+ `(flycheck-fringe-error ((,c :inherit standard-themes-mark-delete)))
+ `(flycheck-fringe-info ((,c :inherit standard-themes-mark-select)))
+ `(flycheck-fringe-warning ((,c :inherit standard-themes-mark-other)))
+ `(flycheck-info ((,c :inherit standard-themes-underline-info)))
+ `(flycheck-warning ((,c :inherit standard-themes-underline-warning)))
+;;;; flymake
+ `(flymake-error ((,c :inherit standard-themes-underline-error)))
+ `(flymake-note ((,c :inherit standard-themes-underline-info)))
+ `(flymake-warning ((,c :inherit standard-themes-underline-warning)))
+;;;; flyspell
+ `(flyspell-duplicate ((,c :inherit standard-themes-underline-warning)))
+ `(flyspell-incorrect ((,c :inherit standard-themes-underline-error)))
+;;;; font-lock
+ `(font-lock-builtin-face ((,c :inherit standard-themes-bold :foreground
,builtin)))
+ `(font-lock-comment-delimiter-face ((,c :inherit font-lock-comment-face)))
+ `(font-lock-comment-face ((,c :inherit standard-themes-italic :foreground
,comment)))
+ `(font-lock-constant-face ((,c :foreground ,constant)))
+ `(font-lock-doc-face ((,c :inherit standard-themes-italic :foreground
,docstring)))
+ `(font-lock-function-name-face ((,c :foreground ,fnname)))
+ `(font-lock-keyword-face ((,c :inherit standard-themes-bold :foreground
,keyword)))
+ `(font-lock-negation-char-face ((,c :inherit standard-themes-bold)))
+ `(font-lock-preprocessor-face ((,c :foreground ,preprocessor)))
+ `(font-lock-regexp-grouping-backslash ((,c :inherit standard-themes-bold
:foreground ,rx-escape)))
+ `(font-lock-regexp-grouping-construct ((,c :inherit standard-themes-bold
:foreground ,rx-construct)))
+ `(font-lock-string-face ((,c :foreground ,string)))
+ `(font-lock-type-face ((,c :foreground ,type)))
+ `(font-lock-variable-name-face ((,c :foreground ,variable)))
+ `(font-lock-warning-face ((,c :foreground ,warning)))
+;;;; git-commit
+ `(git-commit-comment-action ((,c :inherit font-lock-comment-face)))
+ `(git-commit-comment-branch-local ((,c :inherit font-lock-comment-face
:foreground ,accent-0)))
+ `(git-commit-comment-heading ((,c :inherit (bold font-lock-comment-face))))
+ `(git-commit-comment-file ((,c :inherit font-lock-comment-face :foreground
,name)))
+ `(git-commit-keyword ((,c :foreground ,keyword)))
+ `(git-commit-nonempty-second-line ((,c :background ,bg-err :foreground
,err)))
+ `(git-commit-overlong-summary ((,c :background ,bg-warning :foreground
,warning)))
+ `(git-commit-summary ((,c :inherit bold :foreground ,accent-0)))
+;;;; git-rebase
+ `(git-rebase-comment-hash ((,c :inherit font-lock-comment-face :foreground
,constant)))
+ `(git-rebase-comment-heading ((,c :inherit (bold
font-lock-comment-face))))
+ `(git-rebase-description ((,c :foreground ,fg-main)))
+ `(git-rebase-hash ((,c :foreground ,constant)))
+;;;; gnus
+ `(gnus-button ((,c :inherit button)))
+ `(gnus-cite-1 ((,c :inherit message-cited-text-1)))
+ `(gnus-cite-2 ((,c :inherit message-cited-text-2)))
+ `(gnus-cite-3 ((,c :inherit message-cited-text-3)))
+ `(gnus-cite-4 ((,c :inherit message-cited-text-4)))
+ `(gnus-cite-5 ((,c :inherit message-cited-text-1)))
+ `(gnus-cite-6 ((,c :inherit message-cited-text-2)))
+ `(gnus-cite-7 ((,c :inherit message-cited-text-3)))
+ `(gnus-cite-8 ((,c :inherit message-cited-text-4)))
+ `(gnus-cite-9 ((,c :inherit message-cited-text-1)))
+ `(gnus-cite-10 ((,c :inherit message-cited-text-2)))
+ `(gnus-cite-11 ((,c :inherit message-cited-text-3)))
+ `(gnus-cite-attribution ((,c :inherit italic)))
+ `(gnus-emphasis-bold ((,c :inherit bold)))
+ `(gnus-emphasis-bold-italic ((,c :inherit bold-italic)))
+ `(gnus-emphasis-highlight-words ((,c :inherit warning)))
+ `(gnus-emphasis-italic ((,c :inherit italic)))
+ `(gnus-emphasis-underline-bold ((,c :inherit gnus-emphasis-bold :underline
t)))
+ `(gnus-emphasis-underline-bold-italic ((,c :inherit
gnus-emphasis-bold-italic :underline t)))
+ `(gnus-emphasis-underline-italic ((,c :inherit gnus-emphasis-italic
:underline t)))
+ `(gnus-header-content ((,c :inherit message-header-other)))
+ `(gnus-header-from ((,c :inherit message-header-to :underline nil)))
+ `(gnus-header-name ((,c :inherit message-header-name)))
+ `(gnus-header-newsgroups ((,c :inherit message-header-newsgroups)))
+ `(gnus-header-subject ((,c :inherit message-header-subject)))
+ `(gnus-server-agent ((,c :inherit bold)))
+ `(gnus-server-closed ((,c :inherit italic)))
+ `(gnus-server-cloud ((,c :inherit bold :foreground ,fg-alt)))
+ `(gnus-server-cloud-host ((,c :inherit bold :foreground ,fg-alt :underline
t)))
+ `(gnus-server-denied ((,c :inherit error)))
+ `(gnus-server-offline ((,c :inherit shadow)))
+ `(gnus-server-opened ((,c :inherit success)))
+ `(gnus-summary-selected ((,c :inherit highlight)))
+;;;; hi-lock (M-x highlight-regexp)
+ ;; NOTE 2022-10-16 We hardcode color values. We have to do this
+ ;; as the themes lack entries in their palette for such an edge
+ ;; case. Defining those entries is not appropriate.
+ ;;
+ ;; The use of :inverse-video here is to prevert `hl-line-mode' or
+ ;; the active region from overriding those highlights.
+ `(hi-aquamarine ((((class color) (min-colors 88) (background light))
+ :background "white" :foreground "#227f9f" :inverse-video
t)
+ (((class color) (min-colors 88) (background dark))
+ :background "black" :foreground "#66cbdc" :inverse-video
t)))
+ `(hi-black-b ((,c :inverse-video t)))
+ `(hi-black-hb ((,c :background ,bg-main :foreground ,fg-dim :inverse-video
t)))
+ `(hi-blue ((((class color) (min-colors 88) (background light))
+ :background "white" :foreground "#3366dd" :inverse-video t)
+ (((class color) (min-colors 88) (background dark))
+ :background "black" :foreground "#aaccff" :inverse-video t)))
+ `(hi-blue-b ((,c :inherit (bold hi-blue))))
+ `(hi-green ((((class color) (min-colors 88) (background light))
+ :background "white" :foreground "#008a00" :inverse-video t)
+ (((class color) (min-colors 88) (background dark))
+ :background "black" :foreground "#66dd66" :inverse-video t)))
+ `(hi-green-b ((,c :inherit (bold hi-green))))
+ `(hi-pink ((((class color) (min-colors 88) (background light))
+ :background "white" :foreground "#bd30aa" :inverse-video t)
+ (((class color) (min-colors 88) (background dark))
+ :background "black" :foreground "#ff88ee" :inverse-video t)))
+ `(hi-red-b ((((class color) (min-colors 88) (background light))
+ :background "white" :foreground "#dd0000" :inverse-video t)
+ (((class color) (min-colors 88) (background dark))
+ :background "black" :foreground "#f06666" :inverse-video t)))
+ `(hi-salmon ((((class color) (min-colors 88) (background light))
+ :background "white" :foreground "#af4f6f" :inverse-video t)
+ (((class color) (min-colors 88) (background dark))
+ :background "black" :foreground "#e08a50" :inverse-video t)))
+ `(hi-yellow ((((class color) (min-colors 88) (background light))
+ :background "white" :foreground "#af6f00" :inverse-video t)
+ (((class color) (min-colors 88) (background dark))
+ :background "black" :foreground "#faea00" :inverse-video t)))
+;;;; ibuffer
+ `(ibuffer-locked-buffer ((,c :foreground ,warning)))
+;;;; image-dired
+ `(image-dired-thumb-flagged ((,c :background ,err)))
+ `(image-dired-thumb-header-file-name ((,c :inherit bold)))
+ `(image-dired-thumb-header-file-size ((,c :foreground ,info)))
+ `(image-dired-thumb-mark ((,c :background ,info)))
+;;;; info
+ `(Info-quoted ((,c :inherit standard-themes-fixed-pitch :foreground
,accent-0))) ; the capitalization is canonical
+ `(info-header-node ((,c :inherit (shadow bold))))
+ `(info-index-match ((,c :inherit match)))
+ `(info-menu-header ((,c :inherit bold)))
+ `(info-menu-star ((,c :foreground ,red)))
+ `(info-node ((,c :inherit bold)))
+ `(info-title-1 ((,c :inherit standard-themes-heading-1)))
+ `(info-title-2 ((,c :inherit standard-themes-heading-2)))
+ `(info-title-3 ((,c :inherit standard-themes-heading-3)))
+ `(info-title-4 ((,c :inherit standard-themes-heading-4)))
+;;;; isearch, occur, and the like
+ `(isearch ((,c :background ,bg-magenta :foreground ,fg-main)))
+ `(isearch-fail ((,c :background ,bg-red :foreground ,fg-main)))
+ `(isearch-group-1 ((,c :background ,bg-green :foreground ,fg-main)))
+ `(isearch-group-2 ((,c :background ,bg-yellow :foreground ,fg-main)))
+ `(lazy-highlight ((,c :background ,bg-cyan :foreground ,fg-main)))
+ `(match ((,c :background ,bg-alt :foreground ,fg-main)))
+ `(query-replace ((,c :background ,bg-red :foreground ,fg-main)))
+;;;; keycast
+ `(keycast-command ((,c :inherit bold :foreground ,bg-accent)))
+ `(keycast-key ((,c :background ,bg-accent :foreground ,bg-main)))
+;;;; line numbers (display-line-numbers-mode and global variant)
+ ;; We need to fall back to `default' otherwise line numbers do not
+ ;; scale when using `text-scale-adjust'.
+ `(line-number ((,c :inherit (standard-themes-fixed-pitch shadow default))))
+ `(line-number-current-line ((,c :inherit (bold line-number) :foreground
,fg-main)))
+ `(line-number-major-tick ((,c :inherit (bold line-number) :foreground
,rainbow-0)))
+ `(line-number-minor-tick ((,c :inherit (bold line-number))))
+;;;; magit
+ `(magit-bisect-bad ((,c :inherit error)))
+ `(magit-bisect-good ((,c :inherit success)))
+ `(magit-bisect-skip ((,c :inherit warning)))
+ `(magit-blame-date (( )))
+ `(magit-blame-dimmed ((,c :inherit shadow)))
+ `(magit-blame-hash ((,c :inherit shadow)))
+ `(magit-blame-heading ((,c :background ,bg-dim :extend t)))
+ `(magit-blame-highlight ((,c :background ,bg-active :foreground ,fg-main)))
+ `(magit-blame-name (( )))
+ `(magit-blame-summary (( )))
+ `(magit-branch-local ((,c :foreground ,accent-0)))
+ `(magit-branch-remote ((,c :foreground ,accent-1)))
+ `(magit-branch-upstream ((,c :inherit italic)))
+ `(magit-branch-warning ((,c :inherit warning)))
+ `(magit-cherry-equivalent ((,c :foreground ,magenta)))
+ `(magit-cherry-unmatched ((,c :foreground ,cyan)))
+ `(magit-diff-added ((,c :background ,bg-added-faint)))
+ `(magit-diff-added-highlight ((,c :background ,bg-added)))
+ `(magit-diff-base ((,c :background ,bg-changed-faint)))
+ `(magit-diff-base-highlight ((,c :background ,bg-changed)))
+ `(magit-diff-context ((,c :inherit shadow)))
+ `(magit-diff-context-highlight ((,c :background ,bg-dim)))
+ `(magit-diff-file-heading ((,c :inherit bold :foreground ,accent-0)))
+ `(magit-diff-file-heading-highlight ((,c :inherit magit-diff-file-heading
:background ,bg-alt)))
+ `(magit-diff-file-heading-selection ((,c :inherit bold :background
,bg-hover-alt :foreground ,fg-main)))
+ `(magit-diff-hunk-heading ((,c :inherit bold :background ,bg-dim)))
+ `(magit-diff-hunk-heading-highlight ((,c :inherit bold :background
,bg-active :foreground ,fg-main)))
+ `(magit-diff-hunk-heading-selection ((,c :inherit bold :background
,bg-hover-alt :foreground ,fg-main)))
+ `(magit-diff-hunk-region ((,c :inherit bold)))
+ `(magit-diff-lines-boundary ((,c :background ,fg-main)))
+ `(magit-diff-lines-heading ((,c :background ,fg-alt :foreground ,bg-alt)))
+ `(magit-diff-removed ((,c :background ,bg-removed-faint)))
+ `(magit-diff-removed-highlight ((,c :background ,bg-removed)))
+ `(magit-diffstat-added ((,c :inherit success)))
+ `(magit-diffstat-removed ((,c :inherit error)))
+ `(magit-dimmed ((,c :inherit shadow)))
+ `(magit-filename ((,c :foreground ,name)))
+ `(magit-hash ((,c :inherit shadow)))
+ `(magit-head ((,c :inherit magit-branch-local)))
+ `(magit-header-line ((,c :inherit bold)))
+ `(magit-header-line-key ((,c :inherit standard-themes-key-binding)))
+ `(magit-header-line-log-select ((,c :inherit bold)))
+ `(magit-keyword ((,c :foreground ,keyword)))
+ `(magit-keyword-squash ((,c :inherit bold :foreground ,warning)))
+ `(magit-log-author ((,c :foreground ,name)))
+ `(magit-log-date ((,c :foreground ,date)))
+ `(magit-log-graph ((,c :inherit shadow)))
+ `(magit-mode-line-process ((,c :inherit bold :foreground ,modeline-info)))
+ `(magit-mode-line-process-error ((,c :inherit bold :foreground
,modeline-err)))
+ `(magit-process-ng ((,c :inherit error)))
+ `(magit-process-ok ((,c :inherit success)))
+ `(magit-reflog-amend ((,c :inherit warning)))
+ `(magit-reflog-checkout ((,c :inherit bold :foreground ,blue)))
+ `(magit-reflog-cherry-pick ((,c :inherit success)))
+ `(magit-reflog-commit ((,c :inherit bold)))
+ `(magit-reflog-merge ((,c :inherit success)))
+ `(magit-reflog-other ((,c :inherit bold :foreground ,cyan)))
+ `(magit-reflog-rebase ((,c :inherit bold :foreground ,magenta)))
+ `(magit-reflog-remote ((,c :inherit (bold magit-branch-remote))))
+ `(magit-reflog-reset ((,c :inherit error)))
+ `(magit-refname ((,c :inherit shadow)))
+ `(magit-refname-pullreq ((,c :inherit shadow)))
+ `(magit-refname-stash ((,c :inherit shadow)))
+ `(magit-refname-wip ((,c :inherit shadow)))
+ `(magit-section ((,c :background ,bg-dim :foreground ,fg-main)))
+ `(magit-section-heading ((,c :inherit bold)))
+ `(magit-section-heading-selection ((,c :inherit bold :background
,bg-hover-alt :foreground ,fg-main)))
+ `(magit-section-highlight ((,c :background ,bg-dim)))
+ `(magit-sequence-done ((,c :inherit success)))
+ `(magit-sequence-drop ((,c :inherit error)))
+ `(magit-sequence-exec ((,c :inherit bold :foreground ,magenta)))
+ `(magit-sequence-head ((,c :inherit bold :foreground ,cyan)))
+ `(magit-sequence-onto ((,c :inherit (bold shadow))))
+ `(magit-sequence-part ((,c :inherit warning)))
+ `(magit-sequence-pick ((,c :inherit bold)))
+ `(magit-sequence-stop ((,c :inherit error)))
+ `(magit-signature-bad ((,c :inherit error)))
+ `(magit-signature-error ((,c :inherit error)))
+ `(magit-signature-expired ((,c :inherit warning)))
+ `(magit-signature-expired-key ((,c :foreground ,warning)))
+ `(magit-signature-good ((,c :inherit success)))
+ `(magit-signature-revoked ((,c :inherit bold :foreground ,warning)))
+ `(magit-signature-untrusted ((,c :inherit (bold shadow))))
+ `(magit-tag ((,c :foreground ,accent-3))) ; compare with branches
+;;;; man
+ `(Man-overstrike ((,c :inherit bold :foreground ,accent-0)))
+ `(Man-underline ((,c :foreground ,accent-1 :underline t)))
+;;;; marginalia
+ `(marginalia-archive ((,c :foreground ,accent-0)))
+ `(marginalia-char ((,c :foreground ,accent-2)))
+ `(marginalia-date ((,c :foreground ,date)))
+ `(marginalia-documentation ((,c :inherit italic :foreground ,docstring)))
+ `(marginalia-file-name (( )))
+ `(marginalia-file-owner ((,c :inherit shadow)))
+ `(marginalia-file-priv-dir (( )))
+ `(marginalia-file-priv-exec ((,c :foreground ,rainbow-3)))
+ `(marginalia-file-priv-link ((,c :foreground ,link)))
+ `(marginalia-file-priv-no ((,c :inherit shadow)))
+ `(marginalia-file-priv-other ((,c :foreground ,rainbow-0)))
+ `(marginalia-file-priv-rare ((,c :foreground ,rainbow-0)))
+ `(marginalia-file-priv-read ((,c :foreground ,rainbow-1)))
+ `(marginalia-file-priv-write ((,c :foreground ,rainbow-2)))
+ `(marginalia-function ((,c :foreground ,fnname)))
+ `(marginalia-key ((,c :inherit standard-themes-key-binding)))
+ `(marginalia-lighter ((,c :inherit shadow)))
+ `(marginalia-liqst ((,c :inherit shadow)))
+ `(marginalia-mode ((,c :foreground ,constant)))
+ `(marginalia-modified ((,c :inherit warning)))
+ `(marginalia-null ((,c :inherit shadow)))
+ `(marginalia-number ((,c :foreground ,constant)))
+ `(marginalia-size ((,c :foreground ,variable)))
+ `(marginalia-string ((,c :foreground ,string)))
+ `(marginalia-symbol ((,c :foreground ,builtin)))
+ `(marginalia-true (( )))
+ `(marginalia-type ((,c :foreground ,type)))
+ `(marginalia-value ((,c :inherit shadow)))
+ `(marginalia-version ((,c :foreground ,accent-1)))
+;;;; markdown-mode
+ `(markdown-blockquote-face ((,c :inherit font-lock-doc-face)))
+ `(markdown-bold-face ((,c :inherit bold)))
+ `(markdown-code-face ((,c :inherit standard-themes-fixed-pitch)))
+ `(markdown-gfm-checkbox-face ((,c :foreground ,warning)))
+ `(markdown-header-face (( )))
+ `(markdown-header-face-1 ((,c :inherit standard-themes-heading-1)))
+ `(markdown-header-face-2 ((,c :inherit standard-themes-heading-2)))
+ `(markdown-header-face-3 ((,c :inherit standard-themes-heading-3)))
+ `(markdown-header-face-4 ((,c :inherit standard-themes-heading-4)))
+ `(markdown-header-face-5 ((,c :inherit standard-themes-heading-5)))
+ `(markdown-header-face-6 ((,c :inherit standard-themes-heading-6)))
+ `(markdown-highlighting-face ((,c :background ,bg-info :foreground ,info)))
+ `(markdown-inline-code-face ((,c :inherit standard-themes-fixed-pitch
:foreground ,accent-1))) ; same as `org-code'
+ `(markdown-italic-face ((,c :inherit italic)))
+ `(markdown-language-keyword-face ((,c :inherit standard-themes-fixed-pitch
:foreground ,comment)))
+ `(markdown-line-break-face ((,c :inherit nobreak-space)))
+ `(markdown-link-face ((,c :inherit link)))
+ `(markdown-markup-face ((,c :inherit shadow)))
+ `(markdown-metadata-key-face ((,c :inherit bold)))
+ `(markdown-metadata-value-face ((,c :foreground ,string)))
+ `(markdown-missing-link-face ((,c :inherit warning)))
+ `(markdown-pre-face ((,c :inherit markdown-code-face)))
+ `(markdown-table-face ((,c :inherit standard-themes-fixed-pitch
:foreground ,fg-alt))) ; same as `org-table'
+ `(markdown-url-face ((,c :foreground ,fg-alt)))
+;;;; messages
+ `(message-cited-text-1 ((,c :foreground ,mail-0)))
+ `(message-cited-text-2 ((,c :foreground ,mail-1)))
+ `(message-cited-text-3 ((,c :foreground ,mail-2)))
+ `(message-cited-text-4 ((,c :foreground ,mail-3)))
+ `(message-header-name ((,c :inherit bold)))
+ `(message-header-newsgroups ((,c :inherit message-header-other)))
+ `(message-header-to ((,c :inherit bold :foreground ,mail-0)))
+ `(message-header-cc ((,c :foreground ,mail-1)))
+ `(message-header-subject ((,c :inherit bold :foreground ,mail-2)))
+ `(message-header-xheader ((,c :foreground ,mail-3)))
+ `(message-header-other ((,c :foreground ,mail-4)))
+ `(message-mml ((,c :foreground ,mail-5)))
+ `(message-separator ((,c :background ,bg-alt)))
+;;;; mode-line
+ `(mode-line ((,c :inherit standard-themes-ui-variable-pitch
+ :background ,@(if standard-themes-mode-line-accented
+ (list bg-mode-line-accent)
+ (list bg-mode-line))
+ :foreground ,fg-mode-line)))
+ `(mode-line-active ((,c :inherit mode-line :box (:line-width -1 :style
released-button))))
+ `(mode-line-buffer-id ((,c :inherit bold)))
+ `(mode-line-emphasis ((,c :inherit bold :foreground ,modeline-info)))
+ `(mode-line-highlight ((,c :inherit highlight)))
+ `(mode-line-inactive ((,c :inherit standard-themes-ui-variable-pitch
+ :box (:line-width -1 :color ,border)
+ :background ,bg-alt :foreground ,fg-dim)))
+;;;; mu4e
+ `(mu4e-attach-number-face ((,c :inherit bold :foreground ,fg-dim)))
+ `(mu4e-cited-1-face ((,c :inherit message-cited-text-1)))
+ `(mu4e-cited-2-face ((,c :inherit message-cited-text-2)))
+ `(mu4e-cited-3-face ((,c :inherit message-cited-text-3)))
+ `(mu4e-cited-4-face ((,c :inherit message-cited-text-4)))
+ `(mu4e-cited-5-face ((,c :inherit message-cited-text-1)))
+ `(mu4e-cited-6-face ((,c :inherit message-cited-text-2)))
+ `(mu4e-cited-7-face ((,c :inherit message-cited-text-3)))
+ `(mu4e-compose-header-face ((,c :inherit mu4e-compose-separator-face)))
+ `(mu4e-compose-separator-face ((,c :inherit message-separator)))
+ `(mu4e-contact-face ((,c :inherit message-header-to)))
+ `(mu4e-context-face ((,c :inherit bold)))
+ `(mu4e-draft-face ((,c :foreground ,info)))
+ `(mu4e-flagged-face ((,c :foreground ,err)))
+ `(mu4e-footer-face ((,c :inherit italic :foreground ,fg-alt)))
+ `(mu4e-forwarded-face ((,c :inherit italic :foreground ,info)))
+ `(mu4e-header-face ((,c :inherit shadow)))
+ `(mu4e-header-highlight-face ((,c :inherit hl-line)))
+ `(mu4e-header-key-face ((,c :inherit message-header-name)))
+ `(mu4e-header-marks-face ((,c :inherit mu4e-special-header-value-face)))
+ `(mu4e-header-title-face ((,c :foreground ,rainbow-0)))
+ `(mu4e-header-value-face ((,c :inherit message-header-other)))
+ `(mu4e-highlight-face ((,c :inherit standard-themes-key-binding)))
+ `(mu4e-link-face ((,c :inherit link)))
+ `(mu4e-modeline-face (( )))
+ `(mu4e-moved-face ((,c :inherit italic :foreground ,warning)))
+ `(mu4e-ok-face ((,c :inherit success)))
+ `(mu4e-region-code ((,c :foreground ,builtin)))
+ `(mu4e-related-face ((,c :inherit (italic shadow))))
+ `(mu4e-replied-face ((,c :foreground ,info)))
+ `(mu4e-special-header-value-face ((,c :inherit message-header-subject)))
+ `(mu4e-system-face ((,c :inherit italic)))
+ `(mu4e-title-face (( )))
+ `(mu4e-trashed-face ((,c :foreground ,err)))
+ `(mu4e-unread-face ((,c :inherit bold)))
+ `(mu4e-url-number-face ((,c :inherit shadow)))
+ `(mu4e-view-body-face (( )))
+ `(mu4e-warning-face ((,c :inherit warning)))
+;;;; neotree
+ `(neo-banner-face ((,c :foreground ,accent-0)))
+ `(neo-button-face ((,c :inherit button)))
+ `(neo-dir-link-face (( )))
+ `(neo-expand-btn-face (( )))
+ `(neo-file-link-face (( )))
+ `(neo-header-face ((,c :inherit bold)))
+ `(neo-root-dir-face ((,c :inherit bold :foreground ,accent-0)))
+ `(neo-vc-added-face ((,c :inherit success)))
+ `(neo-vc-conflict-face ((,c :inherit error)))
+ `(neo-vc-default-face (( )))
+ `(neo-vc-edited-face ((,c :inherit italic)))
+ `(neo-vc-ignored-face ((,c :inherit shadow)))
+ `(neo-vc-missing-face ((,c :inherit error)))
+ `(neo-vc-needs-merge-face ((,c :inherit italic)))
+ `(neo-vc-needs-update-face ((,c :underline t)))
+ `(neo-vc-removed-face ((,c :strike-through t)))
+ `(neo-vc-unlocked-changes-face ((,c :inherit success)))
+ `(neo-vc-up-to-date-face (( )))
+ `(neo-vc-user-face ((,c :inherit warning)))
+;;;; notmuch
+ `(notmuch-crypto-decryption ((,c :inherit bold)))
+ `(notmuch-crypto-part-header ((,c :foreground ,mail-5))) ; like
`message-mml'
+ `(notmuch-crypto-signature-bad ((,c :inherit error)))
+ `(notmuch-crypto-signature-good ((,c :inherit success)))
+ `(notmuch-crypto-signature-good-key ((,c :inherit success)))
+ `(notmuch-crypto-signature-unknown ((,c :inherit warning)))
+ `(notmuch-jump-key ((,c :inherit standard-themes-key-binding)))
+ `(notmuch-message-summary-face ((,c :inherit bold :background ,bg-dim)))
+ `(notmuch-search-count ((,c :foreground ,fg-dim)))
+ `(notmuch-search-date ((,c :foreground ,date)))
+ `(notmuch-search-flagged-face ((,c :foreground ,err)))
+ `(notmuch-search-matching-authors ((,c :foreground ,name)))
+ `(notmuch-search-non-matching-authors ((,c :inherit shadow)))
+ `(notmuch-search-subject ((,c :foreground ,fg-main)))
+ `(notmuch-search-unread-face ((,c :inherit bold)))
+ `(notmuch-tag-added ((,c :underline ,underline-info)))
+ `(notmuch-tag-deleted ((,c :strike-through ,underline-err)))
+ `(notmuch-tag-face ((,c :foreground ,accent-0)))
+ `(notmuch-tag-flagged ((,c :foreground ,err)))
+ `(notmuch-tag-unread ((,c :foreground ,accent-1)))
+ `(notmuch-tree-match-author-face ((,c :inherit
notmuch-search-matching-authors)))
+ `(notmuch-tree-match-date-face ((,c :inherit notmuch-search-date)))
+ `(notmuch-tree-match-face ((,c :foreground ,fg-main)))
+ `(notmuch-tree-match-tag-face ((,c :inherit notmuch-tag-face)))
+ `(notmuch-tree-no-match-face ((,c :inherit shadow)))
+ `(notmuch-tree-no-match-date-face ((,c :inherit shadow)))
+ `(notmuch-wash-cited-text ((,c :inherit message-cited-text-1)))
+ `(notmuch-wash-toggle-button ((,c :background ,bg-dim :foreground
,fg-alt)))
+;;;; olivetti
+ `(olivetti-fringe (( )))
+;;;; orderless
+ `(orderless-match-face-0 ((,c :inherit bold :foreground ,accent-0)))
+ `(orderless-match-face-1 ((,c :inherit bold :foreground ,accent-1)))
+ `(orderless-match-face-2 ((,c :inherit bold :foreground ,accent-2)))
+ `(orderless-match-face-3 ((,c :inherit bold :foreground ,accent-3)))
+;;;; org
+ `(org-agenda-calendar-event ((,c :foreground ,fg-alt)))
+ `(org-agenda-calendar-sexp ((,c :inherit (italic
org-agenda-calendar-event))))
+ `(org-agenda-clocking ((,c :background ,bg-warning :foreground ,warning)))
+ `(org-agenda-column-dateline ((,c :background ,bg-alt)))
+ `(org-agenda-current-time ((,c :foreground ,fg-main)))
+ `(org-agenda-date ((,c :inherit standard-themes-heading-1)))
+ `(org-agenda-date-today ((,c :inherit org-agenda-date :underline t)))
+ `(org-agenda-date-weekend ((,c :inherit org-agenda-date)))
+ `(org-agenda-date-weekend-today ((,c :inherit org-agenda-date-today)))
+ `(org-agenda-diary ((,c :inherit org-agenda-calendar-sexp)))
+ `(org-agenda-dimmed-todo-face ((,c :inherit shadow)))
+ `(org-agenda-done ((,c :inherit success)))
+ `(org-agenda-filter-category ((,c :inherit bold :foreground
,modeline-err)))
+ `(org-agenda-filter-effort ((,c :inherit bold :foreground ,modeline-err)))
+ `(org-agenda-filter-regexp ((,c :inherit bold :foreground ,modeline-err)))
+ `(org-agenda-filter-tags ((,c :inherit bold :foreground ,modeline-err)))
+ `(org-agenda-restriction-lock ((,c :background ,bg-dim :foreground
,fg-dim)))
+ `(org-agenda-structure ((,c :inherit standard-themes-heading-0)))
+ `(org-agenda-structure-filter ((,c :inherit org-agenda-structure
:foreground ,rainbow-1)))
+ `(org-agenda-structure-secondary ((,c :foreground ,rainbow-1)))
+ `(org-archived ((,c :background ,bg-alt :foreground ,fg-main)))
+ `(org-block ((,c :inherit standard-themes-fixed-pitch)))
+ `(org-block-begin-line ((,c :inherit standard-themes-fixed-pitch
:foreground ,comment)))
+ `(org-block-end-line ((,c :inherit org-block-begin-line)))
+ `(org-checkbox ((,c :foreground ,warning)))
+ `(org-clock-overlay ((,c :background ,bg-alt :foreground ,red-cooler)))
+ `(org-code ((,c :inherit standard-themes-fixed-pitch :foreground
,accent-1)))
+ `(org-column ((,c :inherit default :background ,bg-alt)))
+ `(org-column-title ((,c :inherit (bold default) :underline t :background
,bg-alt)))
+ `(org-date ((,c :inherit standard-themes-fixed-pitch :foreground ,date
:underline t)))
+ `(org-date-selected ((,c :foreground ,date :inverse-video t)))
+ `(org-document-info ((,c :foreground ,rainbow-1)))
+ `(org-document-info-keyword ((,c :inherit shadow)))
+ `(org-document-title ((,c :inherit standard-themes-heading-0)))
+ `(org-done ((,c :inherit bold :foreground ,info)))
+ `(org-drawer ((,c :inherit standard-themes-fixed-pitch :foreground
,fnname)))
+ `(org-footnote ((,c :inherit link)))
+ `(org-formula ((,c :inherit standard-themes-fixed-pitch :foreground
,comment)))
+ `(org-hide ((,c :foreground ,bg-main)))
+ `(org-indent ((,c :inherit (fixed-pitch org-hide))))
+ `(org-imminent-deadline ((,c :inherit bold :foreground ,err)))
+ `(org-latex-and-related ((,c :foreground ,type)))
+ `(org-level-1 ((,c :inherit standard-themes-heading-1)))
+ `(org-level-2 ((,c :inherit standard-themes-heading-2)))
+ `(org-level-3 ((,c :inherit standard-themes-heading-3)))
+ `(org-level-4 ((,c :inherit standard-themes-heading-4)))
+ `(org-level-5 ((,c :inherit standard-themes-heading-5)))
+ `(org-level-6 ((,c :inherit standard-themes-heading-6)))
+ `(org-level-7 ((,c :inherit standard-themes-heading-7)))
+ `(org-level-8 ((,c :inherit standard-themes-heading-8)))
+ `(org-link ((,c :inherit link)))
+ `(org-list-dt ((,c :inherit bold)))
+ `(org-macro ((,c :inherit standard-themes-fixed-pitch :foreground
,accent-2)))
+ `(org-meta-line ((,c :inherit standard-themes-fixed-pitch :foreground
,comment)))
+ `(org-mode-line-clock (( )))
+ `(org-mode-line-clock-overrun ((,c :inherit bold :foreground
,modeline-err)))
+ `(org-priority ((,c :foreground ,keyword)))
+ `(org-property-value ((,c :inherit standard-themes-fixed-pitch :foreground
,fg-alt)))
+ `(org-quote ((,c :inherit org-block)))
+ `(org-sexp-date ((,c :foreground ,date)))
+ `(org-special-keyword ((,c :inherit standard-themes-fixed-pitch
:foreground ,keyword)))
+ `(org-table ((,c :inherit standard-themes-fixed-pitch :foreground
,fg-alt)))
+ `(org-table-header ((,c :inherit (bold org-table))))
+ `(org-tag ((,c :foreground ,fg-alt)))
+ `(org-tag-group ((,c :inherit (bold org-tag))))
+ `(org-target ((,c :underline t)))
+ `(org-time-grid ((,c :foreground ,fg-dim)))
+ `(org-todo ((,c :inherit bold :foreground ,err)))
+ `(org-verbatim ((,c :inherit standard-themes-fixed-pitch :foreground
,accent-0)))
+ `(org-verse ((,c :inherit org-block)))
+ `(org-warning ((,c :inherit warning)))
+;;;; org-habit
+ `(org-habit-alert-face ((,c :background ,yellow-graph-0-bg :foreground
"black"))) ; special case
+ `(org-habit-alert-future-face ((,c :background ,yellow-graph-1-bg)))
+ `(org-habit-clear-face ((,c :background ,blue-graph-0-bg :foreground
"black"))) ; special case
+ `(org-habit-clear-future-face ((,c :background ,blue-graph-1-bg)))
+ `(org-habit-overdue-face ((,c :background ,red-graph-0-bg)))
+ `(org-habit-overdue-future-face ((,c :background ,red-graph-1-bg)))
+ `(org-habit-ready-face ((,c :background ,green-graph-0-bg :foreground
"black"))) ; special case
+ `(org-habit-ready-future-face ((,c :background ,green-graph-1-bg)))
+;;;; org-modern
+ `(org-modern-date-active ((,c :inherit (standard-themes-fixed-pitch
org-modern-label) :background ,bg-alt)))
+ `(org-modern-date-inactive ((,c :inherit (standard-themes-fixed-pitch
org-modern-label) :background ,bg-dim :foreground ,fg-dim)))
+ `(org-modern-done ((,c :inherit org-modern-label :background ,bg-info
:foreground ,info)))
+ `(org-modern-priority ((,c :inherit (org-modern-label org-priority)
:background ,bg-dim)))
+ `(org-modern-statistics ((,c :inherit org-modern-label :background
,bg-dim)))
+ `(org-modern-tag ((,c :inherit (org-modern-label org-tag) :background
,bg-dim)))
+ `(org-modern-time-active ((,c :inherit (standard-themes-fixed-pitch
org-modern-label) :background ,bg-active :foreground ,fg-main)))
+ `(org-modern-time-inactive ((,c :inherit (org-modern-label
org-modern-date-inactive))))
+ `(org-modern-todo ((,c :inherit org-modern-label :background ,bg-err
:foreground ,err)))
+;;;; outline-mode
+ `(outline-1 ((,c :inherit standard-themes-heading-1)))
+ `(outline-2 ((,c :inherit standard-themes-heading-2)))
+ `(outline-3 ((,c :inherit standard-themes-heading-3)))
+ `(outline-4 ((,c :inherit standard-themes-heading-4)))
+ `(outline-5 ((,c :inherit standard-themes-heading-5)))
+ `(outline-6 ((,c :inherit standard-themes-heading-6)))
+ `(outline-7 ((,c :inherit standard-themes-heading-7)))
+ `(outline-8 ((,c :inherit standard-themes-heading-8)))
+;;;; outline-minor-faces
+ `(outline-minor-0 (( )))
+;;;; package (M-x list-packages)
+ `(package-description ((,c :foreground ,docstring)))
+ `(package-help-section-name ((,c :inherit bold)))
+ `(package-name ((,c :inherit link)))
+ `(package-status-available ((,c :foreground ,date)))
+ `(package-status-avail-obso ((,c :inherit error)))
+ `(package-status-built-in ((,c :foreground ,builtin)))
+ `(package-status-dependency ((,c :foreground ,warning)))
+ `(package-status-disabled ((,c :inherit error :strike-through t)))
+ `(package-status-held ((,c :foreground ,warning)))
+ `(package-status-incompat ((,c :inherit warning)))
+ `(package-status-installed ((,c :foreground ,fg-alt)))
+ `(package-status-new ((,c :inherit success)))
+ `(package-status-unsigned ((,c :inherit error)))
+;;;; perspective
+ `(persp-selected-face ((,c :inherit mode-line-emphasis)))
+;;;; rainbow-delimiters
+ `(rainbow-delimiters-base-error-face ((,c :inherit (bold
rainbow-delimiters-mismatched-face))))
+ `(rainbow-delimiters-base-face ((,c :foreground ,rainbow-0)))
+ `(rainbow-delimiters-depth-1-face ((,c :foreground ,rainbow-0)))
+ `(rainbow-delimiters-depth-2-face ((,c :foreground ,rainbow-1)))
+ `(rainbow-delimiters-depth-3-face ((,c :foreground ,rainbow-2)))
+ `(rainbow-delimiters-depth-4-face ((,c :foreground ,rainbow-3)))
+ `(rainbow-delimiters-depth-5-face ((,c :foreground ,rainbow-4)))
+ `(rainbow-delimiters-depth-6-face ((,c :foreground ,rainbow-5)))
+ `(rainbow-delimiters-depth-7-face ((,c :foreground ,rainbow-6)))
+ `(rainbow-delimiters-depth-8-face ((,c :foreground ,rainbow-7)))
+ `(rainbow-delimiters-depth-9-face ((,c :foreground ,rainbow-8)))
+ `(rainbow-delimiters-mismatched-face ((,c :background ,bg-red :foreground
,fg-main)))
+ `(rainbow-delimiters-unmatched-face ((,c :inherit (bold
rainbow-delimiters-mismatched-face))))
+;;;; rcirc
+ `(rcirc-bright-nick ((,c :inherit error)))
+ `(rcirc-dim-nick ((,c :inherit shadow)))
+ `(rcirc-monospace-text ((,c :inherit fixed-pitch)))
+ `(rcirc-my-nick ((,c :inherit bold :foreground ,accent-1)))
+ `(rcirc-nick-in-message ((,c :inherit rcirc-my-nick)))
+ `(rcirc-nick-in-message-full-line ((,c :inherit rcirc-my-nick)))
+ `(rcirc-other-nick ((,c :inherit bold :foreground ,accent-0)))
+ `(rcirc-prompt ((,c :inherit minibuffer-prompt)))
+ `(rcirc-server ((,c :inherit font-lock-comment-face)))
+ `(rcirc-timestamp ((,c :foreground ,date)))
+ `(rcirc-track-keyword ((,c :inherit bold :foreground ,modeline-warning)))
+ `(rcirc-track-nick ((,c :inherit rcirc-my-nick)))
+ `(rcirc-url ((,c :inherit link)))
+;;;; recursion-indicator
+ `(recursion-indicator-general ((,c :foreground ,modeline-err)))
+ `(recursion-indicator-minibuffer ((,c :foreground ,modeline-info)))
+;;;; regexp-builder (re-builder)
+ `(reb-match-0 ((,c :background ,bg-green :foreground ,fg-main)))
+ `(reb-match-1 ((,c :background ,bg-red :foreground ,fg-main)))
+ `(reb-match-2 ((,c :background ,bg-magenta :foreground ,fg-main)))
+ `(reb-match-3 ((,c :background ,bg-blue :foreground ,fg-main)))
+ `(reb-regexp-grouping-backslash ((,c :inherit
font-lock-regexp-grouping-backslash)))
+ `(reb-regexp-grouping-construct ((,c :inherit
font-lock-regexp-grouping-construct)))
+;;;; ruler-mode
+ `(ruler-mode-column-number ((,c :inherit ruler-mode-default)))
+ `(ruler-mode-comment-column ((,c :inherit ruler-mode-default :foreground
,red)))
+ `(ruler-mode-current-column ((,c :inherit ruler-mode-default :background
,bg-active :foreground ,fg-main)))
+ `(ruler-mode-default ((,c :inherit default :background ,bg-dim :foreground
,fg-dim)))
+ `(ruler-mode-fill-column ((,c :inherit ruler-mode-default :foreground
,green)))
+ `(ruler-mode-fringes ((,c :inherit ruler-mode-default :foreground ,cyan)))
+ `(ruler-mode-goal-column ((,c :inherit ruler-mode-default :foreground
,blue)))
+ `(ruler-mode-margins ((,c :inherit ruler-mode-default :foreground
,bg-main)))
+ `(ruler-mode-pad ((,c :inherit ruler-mode-default :background ,bg-alt
:foreground ,fg-dim)))
+ `(ruler-mode-tab-stop ((,c :inherit ruler-mode-default :foreground
,yellow)))
+;;;; selectrum
+ `(selectrum-completion-annotation ((,c :inherit completions-annotations)))
+ `(selectrum-completion-docsig ((,c :inherit completions-annotations)))
+ `(selectrum-current-candidate ((,c :background ,bg-completion)))
+ `(selectrum-group-title ((,c :inherit bold :foreground ,name)))
+ `(selectrum-mouse-highlight ((,c :inherit highlight)))
+;;;; show-paren-mode
+ `(show-paren-match ((,c :background ,bg-paren :foreground ,fg-main)))
+ `(show-paren-match-expression ((,c :background ,bg-alt)))
+ `(show-paren-mismatch ((,c :background ,bg-red :foreground ,fg-main)))
+;;;; shell-script-mode (sh-mode)
+ `(sh-heredoc ((,c :inherit font-lock-doc-face)))
+ `(sh-quoted-exec ((,c :inherit font-lock-builtin-face)))
+;;;; shr
+ `(shr-code ((,c :inherit standard-themes-fixed-pitch :foreground
,accent-1))) ; same as `org-code'
+ `(shr-h1 ((,c :inherit standard-themes-heading-1)))
+ `(shr-h2 ((,c :inherit standard-themes-heading-2)))
+ `(shr-h3 ((,c :inherit standard-themes-heading-3)))
+ `(shr-h4 ((,c :inherit standard-themes-heading-4)))
+ `(shr-h5 ((,c :inherit standard-themes-heading-5)))
+ `(shr-h6 ((,c :inherit standard-themes-heading-6)))
+ `(shr-selected-link ((,c :inherit link :background ,bg-dim)))
+;;;; smerge
+ `(smerge-base ((,c :inherit diff-changed)))
+ `(smerge-lower ((,c :inherit diff-added)))
+ `(smerge-markers ((,c :inherit diff-header)))
+ `(smerge-refined-added ((,c :inherit diff-refine-added)))
+ `(smerge-refined-changed (( )))
+ `(smerge-refined-removed ((,c :inherit diff-refine-removed)))
+ `(smerge-upper ((,c :inherit diff-removed)))
+;;;; tab-bar-mode
+ `(tab-bar ((,c :inherit standard-themes-ui-variable-pitch :background
,bg-tab)))
+ `(tab-bar-tab-inactive ((,c :inherit tab-bar-tab :background
,bg-tab-inactive)))
+;;;; tab-line-mode
+ `(tab-line ((,c :inherit standard-themes-ui-variable-pitch :background
,bg-tab :height 0.9)))
+ `(tab-line-close-highlight ((,c :foreground ,err)))
+ `(tab-line-highlight ((,c :inherit highlight)))
+ `(tab-line-tab-current ((,c :inherit tab-line-tab)))
+ `(tab-line-tab-inactive ((,c :inherit tab-line-tab :background
,bg-tab-inactive)))
+ `(tab-line-tab-inactive-alternate ((,c :inherit tab-line-tab-inactive
:background ,bg-tab-inactive-alt)))
+ `(tab-line-tab-modified ((,c :foreground ,warning)))
+;;;; tempel
+ `(tempel-default ((,c :inherit italic :background ,bg-alt :foreground
,fg-alt)))
+ `(tempel-field ((,c :background ,bg-info :foreground ,info)))
+ `(tempel-form ((,c :background ,bg-err :foreground ,err)))
+;;;; term
+ `(term ((,c :background ,bg-main :foreground ,fg-main)))
+ `(term-bold ((,c :inherit bold)))
+ `(term-color-black ((,c :background "black" :foreground "black")))
+ `(term-color-blue ((,c :background ,blue :foreground ,blue)))
+ `(term-color-cyan ((,c :background ,cyan :foreground ,cyan)))
+ `(term-color-green ((,c :background ,green :foreground ,green)))
+ `(term-color-magenta ((,c :background ,magenta :foreground ,magenta)))
+ `(term-color-red ((,c :background ,red :foreground ,red)))
+ `(term-color-white ((,c :background "white" :foreground "white")))
+ `(term-color-yellow ((,c :background ,yellow :foreground ,yellow)))
+ `(term-underline ((,c :underline t)))
+;;;; textsec
+ `(textsec-suspicious (( )))
+;;;; transient
+ `(transient-active-infix ((,c :background ,bg-active :foreground
,fg-main)))
+ `(transient-amaranth ((,c :inherit bold :foreground ,yellow-warmer)))
+ ;; Placate the compiler for what is a spurious warning. We also
+ ;; have to do this with `eldoc-highlight-function-argument'.
+ (list 'transient-argument `((,c :inherit warning :background ,bg-warning)))
+ `(transient-blue ((,c :inherit bold :foreground ,blue-cooler)))
+ `(transient-disabled-suffix ((,c :strike-through t)))
+ `(transient-enabled-suffix ((,c :inherit success :background ,bg-info)))
+ `(transient-heading ((,c :inherit bold)))
+ `(transient-inactive-argument ((,c :inherit shadow)))
+ `(transient-inactive-value ((,c :inherit shadow)))
+ `(transient-key ((,c :inherit standard-themes-key-binding)))
+ `(transient-mismatched-key ((,c :underline t)))
+ `(transient-nonstandard-key ((,c :underline t)))
+ `(transient-pink ((,c :inherit bold :foreground ,magenta)))
+ `(transient-purple ((,c :inherit bold :foreground ,magenta-cooler)))
+ `(transient-red ((,c :inherit bold :foreground ,red)))
+ `(transient-teal ((,c :inherit bold :foreground ,cyan-cooler)))
+ `(transient-unreachable ((,c :inherit shadow)))
+ `(transient-unreachable-key ((,c :inherit shadow)))
+ `(transient-value ((,c :inherit success :background ,bg-info)))
+;;;; trashed
+ `(trashed-restored ((,c :inherit standard-themes-mark-other)))
+;;;; tty-menu
+ `(tty-menu-disabled-face ((,c :background ,bg-alt :foreground ,fg-dim)))
+ `(tty-menu-enabled-face ((,c :background ,bg-alt :foreground ,fg-main)))
+ `(tty-menu-selected-face ((,c :inherit highlight)))
+;;;; vc (vc-dir.el, vc-hooks.el)
+ `(vc-dir-directory (( )))
+ `(vc-dir-file ((,c :foreground ,name)))
+ `(vc-dir-header ((,c :inherit bold)))
+ `(vc-dir-header-value ((,c :foreground ,string)))
+ `(vc-dir-mark-indicator ((,c :foreground ,fg-main)))
+ `(vc-dir-status-edited ((,c :inherit italic)))
+ `(vc-dir-status-ignored ((,c :inherit shadow)))
+ `(vc-dir-status-up-to-date ((,c :foreground ,info)))
+ `(vc-dir-status-warning ((,c :inherit error)))
+ `(vc-conflict-state ((,c :inherit error)))
+ `(vc-edited-state ((,c :inherit italic)))
+ `(vc-git-log-edit-summary-max-warning ((,c :background ,bg-err :foreground
,err)))
+ `(vc-git-log-edit-summary-target-warning ((,c :background ,bg-warning
:foreground ,warning)))
+ `(vc-locally-added-state ((,c :inherit italic)))
+ `(vc-locked-state ((,c :inherit success)))
+ `(vc-missing-state ((,c :inherit error)))
+ `(vc-needs-update-state ((,c :inherit error)))
+ `(vc-removed-state ((,c :inherit error)))
+ `(vc-state-base (( )))
+ `(vc-up-to-date-state (( )))
+;;;; vertico
+ `(vertico-current ((,c :background ,bg-completion)))
+ `(vertico-group-title ((,c :inherit bold :foreground ,name)))
+;;;; wgrep
+ `(wgrep-delete-face ((,c :inherit warning)))
+ `(wgrep-done-face ((,c :background ,bg-info :foreground ,info)))
+ `(wgrep-face ((,c :inherit bold)))
+ `(wgrep-file-face ((,c :foreground ,fg-alt)))
+ `(wgrep-reject-face ((,c :background ,bg-err :foreground ,err)))
+;;;; which-function-mode
+ `(which-func ((,c :inherit bold :foreground ,modeline-warning)))
+;;;; whitespace-mode
+ `(whitespace-big-indent ((,c :background ,bg-err :foreground ,err)))
+ `(whitespace-empty ((,c :inherit whitespace-big-indent)))
+ `(whitespace-hspace ((,c :inherit whitespace-indentation)))
+ `(whitespace-indentation ((,c :background ,bg-dim :foreground ,fg-dim)))
+ `(whitespace-line ((,c :background ,bg-dim :foreground ,warning)))
+ `(whitespace-newline ((,c :inherit whitespace-indentation)))
+ `(whitespace-space ((,c :inherit whitespace-indentation)))
+ `(whitespace-space-after-tab ((,c :inherit whitespace-space-before-tab)))
+ `(whitespace-space-before-tab ((,c :background ,bg-red)))
+ `(whitespace-tab ((,c :inherit whitespace-indentation)))
+ `(whitespace-trailing ((,c :inherit whitespace-space-before-tab)))
+;;;; widget
+ `(widget-button ((,c :inherit bold :foreground ,link)))
+ `(widget-button-pressed ((,c :inherit widget-button :foreground
,link-alt)))
+ `(widget-documentation ((,c :inherit font-lock-doc-face)))
+ `(widget-field ((,c :background ,bg-alt :foreground ,fg-main :extend nil)))
+ `(widget-inactive ((,c :inherit shadow :background ,bg-dim)))
+ `(widget-single-line-field ((,c :inherit widget-field)))
+;;;; writegood-mode
+ `(writegood-duplicates-face ((,c :inherit
standard-themes-underline-error)))
+ `(writegood-passive-voice-face ((,c :inherit
standard-themes-underline-info)))
+ `(writegood-weasels-face ((,c :inherit standard-themes-underline-warning)))
+;;;; woman
+ `(woman-addition ((,c :foreground ,accent-2)))
+ `(woman-bold ((,c :inherit bold :foreground ,accent-0)))
+ `(woman-italic ((,c :inherit italic :foreground ,accent-1)))
+ `(woman-unknown ((,c :foreground ,accent-3))))
+ "Face specs for use with `standard-themes-theme'.")
+
+(defconst standard-themes-custom-variables
+ '(
+;;;; chart
+ `(chart-face-color-list
+ '( ,red-graph-0-bg ,green-graph-0-bg ,yellow-graph-0-bg ,blue-graph-0-bg
,magenta-graph-0-bg ,cyan-graph-0-bg
+ ,red-graph-1-bg ,green-graph-1-bg ,yellow-graph-1-bg ,blue-graph-1-bg
,magenta-graph-1-bg ,cyan-graph-1-bg))
+;;;; flymake fringe indicators
+ `(flymake-error-bitmap '(flymake-double-exclamation-mark
standard-themes-mark-delete))
+ `(flymake-warning-bitmap '(exclamation-mark standard-themes-mark-other))
+ `(flymake-note-bitmap '(exclamation-mark standard-themes-mark-select))
+;;;; ibuffer
+ `(ibuffer-deletion-face 'standard-themes-mark-delete)
+ `(ibuffer-filter-group-name-face 'bold)
+ `(ibuffer-marked-face 'standard-themes-mark-select)
+ `(ibuffer-title-face 'default))
+ "Custom variables for `standard-themes-theme'.")
+
+;;; Theme macros
+
+;;;###autoload
+(defmacro standard-themes-theme (name palette)
+ "Bind NAME's color PALETTE around face specs and variables.
+Face specifications are passed to `custom-theme-set-faces'.
+While variables are handled by `custom-theme-set-variables'.
+Those are stored in `standard-themes-faces' and
+`standard-themes-custom-variables' respectively."
+ (declare (indent 0))
+ (let ((sym (gensym))
+ (colors (mapcar #'car (symbol-value palette))))
+ `(let* ((c '((class color) (min-colors 256)))
+ (,sym ,palette)
+ ,@(mapcar (lambda (color)
+ (list color
+ `(let* ((value (car (alist-get ',color ,sym))))
+ (if (stringp value)
+ value
+ (car (alist-get value ,sym))))))
+ colors))
+ (custom-theme-set-faces ',name ,@standard-themes-faces)
+ (custom-theme-set-variables ',name
,@standard-themes-custom-variables))))
+
+;;; Use theme colors
+
+(defmacro standard-themes-with-colors (&rest body)
+ "Evaluate BODY with colors from current palette bound."
+ (declare (indent 0))
+ (let* ((sym (gensym))
+ ;; NOTE 2022-08-23: We just give it a sample palette at this
+ ;; stage. It only needs to collect each car. Then we
+ ;; instantiate the actual theme's palette. We have to do this
+ ;; otherwise the macro does not work properly when called from
+ ;; inside a function.
+ (colors (mapcar #'car (standard-themes--current-theme-palette))))
+ `(let* ((c '((class color) (min-colors 256)))
+ (,sym (standard-themes--current-theme-palette))
+ ,@(mapcar (lambda (color)
+ (list color
+ `(let* ((value (car (alist-get ',color ,sym))))
+ (if (stringp value)
+ value
+ (car (alist-get value ,sym))))))
+ colors))
+ (ignore c ,@colors) ; Silence unused variable warnings
+ ,@body)))
+
+;;;###autoload
+(when load-file-name
+ (let ((dir (file-name-directory load-file-name)))
+ (unless (file-equal-p dir (expand-file-name "themes/" data-directory))
+ (add-to-list 'custom-theme-load-path dir))))
+
+(provide 'standard-themes)
+;;; standard-themes.el ends here
- [elpa] externals/standard-themes 392a05ebef 30/74: standard-dark-theme: review accent mappings, (continued)
- [elpa] externals/standard-themes 392a05ebef 30/74: standard-dark-theme: review accent mappings, ELPA Syncer, 2022/11/30
- [elpa] externals/standard-themes 3a192aa8c5 26/74: standard-light-theme: refine cyan-faint value, ELPA Syncer, 2022/11/30
- [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 <=
- [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, 2022/11/30
- [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