Make 'modus-themes-load-theme' return the THEME it acts on

The intent is to allow other functions that call this one to capture the return value for their purposes. Thank to Oliver Epper for the feedback in issue 78 on the GitHub mirror: <#78>.
protesilaos · May 23, 2023 · e213a88 · e213a88
1 parent ae1d68d
commit e213a88
Show file tree

Hide file tree

Showing 3 changed files with 37 additions and 32 deletions.
diff --git a/doc/modus-themes.info b/doc/modus-themes.info
@@ -5481,19 +5481,20 @@ Ideas and user feedback
      Simpson, Marko Kocic, Markus Beppler, Matt Armstrong, Matthias
      Fuchs, Mattias Engdegård, Mauro Aranda, Maxime Tréca, Michael
      Goldenberg, Morgan Smith, Morgan Willcock, Murilo Pereira, Nicky
-     van Foreest, Nicolas De Jaeghere, Nicolas Semrau, Pablo Stafforini,
-     Paul Poloskov, Pengji Zhang, Pete Kazmier, Peter Wu, Philip
-     Kaludercic, Pierre Téchoueyres, Przemysław Kryger, Robert Hepple,
-     Roman Rudakov, Russell Sim, Ryan Phillips, Rytis Paškauskas, Rudolf
-     Adamkovič, Sam Kleinman, Samuel Culpepper, Saša Janiška, Shreyas
-     Ragavan, Simon Pugnet, Steve Downey, Tassilo Horn, Thanos Apollo,
-     Thibaut Verron, Thomas Heartman, Togan Muftuoglu, Tony Zorman, Trey
-     Merkley, Tomasz Hołubowicz, Toon Claes, Uri Sharf, Utkarsh Singh,
-     Vincent Foley, Zoltan Kiraly.  As well as users: Ben,
-     CsBigDataHub1, Emacs Contrib, Eugene, Fourchaux, Fredrik, Moesasji,
-     Nick, Summer Emacs, TheBlob42, TitusMu, Trey, bepolymathe,
-     bit9tream, bangedorrunt, derek-upham, doolio, fleimgruber, gitrj95,
-     iSeeU, jixiuf, okamsn, pRot0ta1p, soaringbird, tumashu, wakamenod.
+     van Foreest, Nicolas De Jaeghere, Nicolas Semrau, Oliver Epper,
+     Pablo Stafforini, Paul Poloskov, Pengji Zhang, Pete Kazmier, Peter
+     Wu, Philip Kaludercic, Pierre Téchoueyres, Przemysław Kryger,
+     Robert Hepple, Roman Rudakov, Russell Sim, Ryan Phillips, Rytis
+     Paškauskas, Rudolf Adamkovič, Sam Kleinman, Samuel Culpepper, Saša
+     Janiška, Shreyas Ragavan, Simon Pugnet, Steve Downey, Tassilo Horn,
+     Thanos Apollo, Thibaut Verron, Thomas Heartman, Togan Muftuoglu,
+     Tony Zorman, Trey Merkley, Tomasz Hołubowicz, Toon Claes, Uri
+     Sharf, Utkarsh Singh, Vincent Foley, Zoltan Kiraly.  As well as
+     users: Ben, CsBigDataHub1, Emacs Contrib, Eugene, Fourchaux,
+     Fredrik, Moesasji, Nick, Summer Emacs, TheBlob42, TitusMu, Trey,
+     bepolymathe, bit9tream, bangedorrunt, derek-upham, doolio,
+     fleimgruber, gitrj95, iSeeU, jixiuf, okamsn, pRot0ta1p,
+     soaringbird, tumashu, wakamenod.
 
 Packaging
      Basil L. Contovounesios, Eli Zaretskii, Glenn Morris, Mauro Aranda,
@@ -6256,11 +6257,11 @@ Node: Sources of the themes220572
 Node: Issues you can help with221466
 Node: Patches require copyright assignment to the FSF222857
 Node: Acknowledgements225077
-Node: GNU Free Documentation License229135
-Node: Indices254499
-Node: Function index254678
-Node: Variable index255861
-Node: Concept index258317
+Node: GNU Free Documentation License229154
+Node: Indices254518
+Node: Function index254697
+Node: Variable index255880
+Node: Concept index258336
 
 End Tag Table
 

diff --git a/doc/modus-themes.org b/doc/modus-themes.org
@@ -5375,18 +5375,19 @@ The Modus themes are a collective effort.  Every bit of work matters.
   Matt Armstrong, Matthias Fuchs, Mattias Engdegård, Mauro Aranda,
   Maxime Tréca, Michael Goldenberg, Morgan Smith, Morgan Willcock,
   Murilo Pereira, Nicky van Foreest, Nicolas De Jaeghere, Nicolas
-  Semrau, Pablo Stafforini, Paul Poloskov, Pengji Zhang, Pete Kazmier,
-  Peter Wu, Philip Kaludercic, Pierre Téchoueyres, Przemysław Kryger,
-  Robert Hepple, Roman Rudakov, Russell Sim, Ryan Phillips, Rytis
-  Paškauskas, Rudolf Adamkovič, Sam Kleinman, Samuel Culpepper, Saša
-  Janiška, Shreyas Ragavan, Simon Pugnet, Steve Downey, Tassilo Horn,
-  Thanos Apollo, Thibaut Verron, Thomas Heartman, Togan Muftuoglu,
-  Tony Zorman, Trey Merkley, Tomasz Hołubowicz, Toon Claes, Uri Sharf,
-  Utkarsh Singh, Vincent Foley, Zoltan Kiraly.  As well as users: Ben,
-  CsBigDataHub1, Emacs Contrib, Eugene, Fourchaux, Fredrik, Moesasji,
-  Nick, Summer Emacs, TheBlob42, TitusMu, Trey, bepolymathe,
-  bit9tream, bangedorrunt, derek-upham, doolio, fleimgruber, gitrj95,
-  iSeeU, jixiuf, okamsn, pRot0ta1p, soaringbird, tumashu, wakamenod.
+  Semrau, Oliver Epper, Pablo Stafforini, Paul Poloskov, Pengji Zhang,
+  Pete Kazmier, Peter Wu, Philip Kaludercic, Pierre Téchoueyres,
+  Przemysław Kryger, Robert Hepple, Roman Rudakov, Russell Sim, Ryan
+  Phillips, Rytis Paškauskas, Rudolf Adamkovič, Sam Kleinman, Samuel
+  Culpepper, Saša Janiška, Shreyas Ragavan, Simon Pugnet, Steve
+  Downey, Tassilo Horn, Thanos Apollo, Thibaut Verron, Thomas
+  Heartman, Togan Muftuoglu, Tony Zorman, Trey Merkley, Tomasz
+  Hołubowicz, Toon Claes, Uri Sharf, Utkarsh Singh, Vincent Foley,
+  Zoltan Kiraly.  As well as users: Ben, CsBigDataHub1, Emacs Contrib,
+  Eugene, Fourchaux, Fredrik, Moesasji, Nick, Summer Emacs, TheBlob42,
+  TitusMu, Trey, bepolymathe, bit9tream, bangedorrunt, derek-upham,
+  doolio, fleimgruber, gitrj95, iSeeU, jixiuf, okamsn, pRot0ta1p,
+  soaringbird, tumashu, wakamenod.
 
 + Packaging :: Basil L.{{{space()}}} Contovounesios, Eli Zaretskii,
   Glenn Morris, Mauro Aranda, Richard Stallman, Stefan Kangas (core

diff --git a/modus-themes.el b/modus-themes.el
@@ -1254,10 +1254,13 @@ Which themes are disabled is determined by the user option
 `modus-themes-disable-other-themes'.
 
 Run the `modus-themes-after-load-theme-hook' as the final step
-after loading the THEME."
+after loading the THEME.
+
+Return THEME."
   (modus-themes--disable-themes)
   (load-theme theme :no-confirm)
-  (run-hooks 'modus-themes-after-load-theme-hook))
+  (run-hooks 'modus-themes-after-load-theme-hook)
+  theme)
 
 (defun modus-themes--retrieve-palette-value (color palette)
   "Return COLOR from PALETTE.