miso-functora css themes wip

Author: functora

ghcjs/miso-functora/Setup.hs

@@ -22,14 +22,13 @@ import qualified Data.Text as T
 import Distribution.Simple hiding (Module (..))
 import Distribution.Simple.LocalBuildInfo (LocalBuildInfo (..))
 import Distribution.Simple.Utils (writeUTF8File)
+import Functora.Prelude hiding (empty)
 import GHC (runGhc)
 import GHC.Paths (libdir)
 import GHC.SourceGen
 import qualified System.Directory as Directory
 import System.Environment (getProgName)
-import qualified System.FilePath as FilePath
 import qualified Text.Casing as Casing
-import Universum hiding (empty)
 
 #if MIN_VERSION_ghc(9,0,0)
 import "ghc" GHC.Driver.Session (getDynFlags)
@@ -72,16 +71,16 @@ codeGenHook :: LocalBuildInfo -> IO ()
 codeGenHook _ = do
   prog <- getProgName
   runGhc (Just libdir) $ do
-    dflags <-
-      getDynFlags
-    cssKebab <-
-      liftIO $ FilePath.takeBaseName <<$>> Directory.listDirectory "css/"
+    dflags <- getDynFlags
+    cssRaw <- liftIO $ Directory.listDirectory "dist/css/"
+    let cssKebab =
+          sort . fmap (dropEnd 8) $ filter (isSuffixOf ".min.css") cssRaw
     let cssPascal =
           fmap Casing.pascal cssKebab
     when (cssKebab /= fmap Casing.kebab cssPascal)
       . error
       $ "Bad kebab <-> pascal isomorphism in "
-      <> show cssKebab
+      <> inspect @Text cssKebab
     liftIO
       . writeFileIfChanged
       . showPpr dflags
@@ -95,11 +94,12 @@ generateCode prog css =
         module'
           (Just "Functora.Miso.Theme")
           (Just [thingAll "Theme"])
-          ( fmap (qualified' . import')
-              $ [ "Prelude",
-                  "Data.Data",
-                  "GHC.Generics"
-                ]
+          ( fmap
+              import'
+              [ "Prelude",
+                "Data.Data",
+                "GHC.Generics"
+              ]
           )
           [ data'
               "Theme"

ghcjs/miso-functora/miso-functora.cabal

@@ -16,11 +16,11 @@ custom-setup
     , casing
     , directory
     , filepath
+    , functora-ghcjs
     , ghc
     , ghc-paths
     , ghc-source-gen  ==0.4.2.0
     , text
-    , universum
 
 common pkg
   default-language:   Haskell2010
@@ -117,7 +117,6 @@ library
     ghc-options: -Wno-unused-packages
 
   exposed-modules:
-    Functora.Miso.Css
     Functora.Miso.Jsm
     Functora.Miso.Jsm.Generic
     Functora.Miso.Jsm.Specific
@@ -153,7 +152,6 @@ test-suite miso-functora-test
   if flag(ghcid)
     hs-source-dirs: src
     other-modules:
-      Functora.Miso.Css
       Functora.Miso.Jsm
       Functora.Miso.Jsm.Generic
       Functora.Miso.Jsm.Specific

ghcjs/miso-functora/src/Functora/Miso/Css.hs

@@ -2,162 +2,141 @@
 module Functora.Miso.Theme (
         Theme(..)
     ) where
-import qualified Prelude
-import qualified Data.Data
-import qualified GHC.Generics
+import Prelude
+import Data.Data
+import GHC.Generics
 data Theme
-  = MdRetro |
-    Simple |
-    Propeller |
-    Motherplate |
-    Hack |
-    Bullframe |
-    Scooter |
-    AttriMidnightGreen |
+  = A11yana |
+    AdsTufte |
+    Almond |
+    AttriBrightLightGreen |
     AttriDarkFairyPink |
-    AwsmPearllusta |
-    Sakura |
-    New |
-    Codify |
-    Marx |
-    Picnic |
-    Centigram |
-    SkeletonFramework |
-    Brutalist |
-    W3cOldstyle |
-    Wing |
-    W3cTraditional |
-    Milligram |
+    AttriDarkForestGreen |
+    AttriLightFairyPink |
+    AttriMidnightGreen |
     AwsmBigstone |
-    Koochak |
-    Tui |
-    Holiday |
+    AwsmBlack |
+    AwsmDefault |
+    AwsmGondola |
+    AwsmMischka |
+    AwsmPastelpink |
+    AwsmPearllusta |
     AwsmTasman |
-    Yorha |
-    Tent |
-    Caramel |
-    W3cUltramarine |
+    AwsmWhite |
+    Axist |
+    Bahunya |
+    Bamboo |
+    Bare |
+    Base |
+    Basic |
+    Bolt |
+    Bonsai |
+    BootCerulean |
+    BootCosmo |
     BootCyborg |
-    Neat |
-    Gutenberg |
-    Almond |
+    BootDarkly |
+    BootFlatly |
+    BootJournal |
+    BootLumen |
+    BootSandstone |
+    BootSlate |
+    BootSpacelab |
     BootSuperhero |
-    Yamb |
-    AwsmPastelpink |
+    BootYeti |
+    Brutalist |
+    Bullframe |
+    Caiuss |
+    Caramel |
+    Cardinal |
+    Centigram |
+    Centurion |
+    Chota |
+    Cirrus |
+    Classless |
     Clmaterial |
-    Style |
-    Water |
+    Codify |
+    Comet |
+    Concise |
+    Concrete |
     Cutestrap |
-    AwsmBlack |
-    Ok |
-    AdsNotebook |
-    MdModest |
-    AdsMedium |
-    MinimalStylesheet |
-    BootSpacelab |
-    BootFlatly |
-    MdAir |
-    Bahunya |
-    Latex |
-    Materialize |
-    Axist |
-    SkeletonPlus |
-    MdSplendor |
-    AwsmMischka |
-    MissingStyle |
+    Fluidity |
     Furtive |
-    Shoelace |
-    BootSlate |
-    W3cSwiss |
-    Caiuss |
-    AttriBrightLightGreen |
-    Spectre |
-    Bamboo |
-    Superstylin |
-    Pavilion |
-    W3cModernist |
-    Terminal |
     Gd |
+    Generic |
     GithubMarkdown |
-    W3cMidnight |
-    NoClass |
-    Concrete |
-    AwsmGondola |
-    Roble |
-    Pico |
-    Min |
-    AwsmWhite |
-    Vanilla |
+    Gutenberg |
+    Hack |
+    Hiq |
+    Holiday |
+    HtmlStarterkit |
+    Hyp |
+    Kathamo |
+    Koochak |
+    Kraken |
+    Kube |
+    Lemon |
     Lissom |
+    Lit |
+    Lotus |
+    Magick |
+    Markdown |
+    Marx |
     Material |
-    Cirrus |
-    AttriLightFairyPink |
-    AdsGazette |
-    Primer |
+    Materialize |
+    MdAir |
+    MdModest |
+    MdRetro |
+    MdSplendor |
+    Mercury |
+    Milligram |
+    Min |
+    Mini |
+    MinimalStylesheet |
     Mobi |
-    Skeleton |
-    Vital |
-    Hello |
-    Writ |
-    Hyp |
-    Pure |
-    A11yana |
-    HtmlStarterkit |
-    Markdown |
-    BootPaper |
-    Minimal |
-    Basic |
-    BootReadable |
-    FlatUi |
-    Sanitize |
-    Lemon |
+    Mu |
+    Mui |
+    Mvp |
+    Neat |
+    New |
+    NoClass |
+    Normalize |
+    OhMyCss |
     Paper |
-    Concise |
-    Chota |
-    Spcss |
-    Mini |
-    Centurion |
-    AttriDarkForestGreen |
-    BootCerulean |
-    AdsTufte |
-    Bolt |
-    Preface |
-    Mercury |
-    W3cSteely |
     Papier |
-    OhMyCss |
-    Magick |
-    Kraken |
-    Bonsai |
-    Kathamo |
-    AwsmDefault |
-    Classless |
-    Base |
-    PandocScholar |
-    Bare |
-    SemanticUi |
-    Thao |
-    Normalize |
-    Lotus |
-    Siimple |
-    BootDarkly |
-    BootJournal |
-    Mu |
-    Fluidity |
-    Generic |
-    Lit |
+    Pavilion |
+    Picnic |
+    Pico |
+    Preface |
+    Pure |
+    Roble |
+    Sakura |
+    Sanitize |
+    Shoelace |
+    Simple |
+    Skeleton |
+    SkeletonFramework |
+    SkeletonPlus |
     Snack |
-    BootCosmo |
-    BootLumen |
-    Hiq |
+    Spcss |
+    Spectre |
+    Style |
     Stylize |
-    Mui |
-    Mvp |
-    Kube |
-    BootSandstone |
-    W3cChocolate |
+    Superstylin |
     Tacit |
-    Cardinal |
-    BootYeti |
-    Comet
+    Tent |
+    Terminal |
+    Thao |
+    Vanilla |
+    Vital |
+    W3cChocolate |
+    W3cMidnight |
+    W3cModernist |
+    W3cOldstyle |
+    W3cSteely |
+    W3cSwiss |
+    W3cUltramarine |
+    Water |
+    Wing |
+    Writ |
+    Yorha
   deriving stock (Eq, Ord, Show, Read, Data, Generic, Enum, Bounded)

ghcjs/miso-functora/src/Functora/Miso/Theme.hs

@@ -195,6 +195,11 @@
                   ver = "0.12.7.3";
                   sha256 = "zQY5xQclPNZk7b14ut6Wzcgaolkx+brOxDO5FrZAzk8=";
                 } {});
+                ghc-source-gen = self.callHackageDirect {
+                  pkg = "ghc-source-gen";
+                  ver = "0.4.2.0";
+                  sha256 = "VWWv8jnXiFxClu5PvQjTY/e29GSZ9NYVYd5BK+XaVa8=";
+                } {};
                 secp256k1-haskell = self.callHackageDirect {
                   pkg = "secp256k1-haskell";
                   ver = "0.6.1";