diff options
Diffstat (limited to 'Biz/Dragons.hs')
| -rw-r--r-- | Biz/Dragons.hs | 82 |
1 files changed, 41 insertions, 41 deletions
diff --git a/Biz/Dragons.hs b/Biz/Dragons.hs index 4497f8e..3379732 100644 --- a/Biz/Dragons.hs +++ b/Biz/Dragons.hs @@ -31,16 +31,8 @@ module Biz.Dragons where import Alpha hiding (rem, (<.>)) -import qualified Biz.App as App -import qualified Biz.Auth as Auth -import qualified Biz.Cli as Cli import Biz.Dragons.Analysis (Analysis (..), Commit (..)) import qualified Biz.Dragons.Analysis as Analysis -import qualified Biz.Id as Id -import qualified Biz.Log as Log -import qualified Biz.Look -import Biz.Test ((@=?), (@?!=), (@?=)) -import qualified Biz.Test as Test import qualified CMark as Cmark import qualified CMark.Lucid as Cmark import Clay (em, pct, px, rem, sec, (?)) @@ -76,6 +68,14 @@ import qualified Lucid.Servant as Lucid import NeatInterpolation import qualified Network.Wai as Wai import qualified Network.Wai.Handler.Warp as Warp +import qualified Omni.App as App +import qualified Omni.Auth as Auth +import qualified Omni.Cli as Cli +import qualified Omni.Id as Id +import qualified Omni.Log as Log +import qualified Omni.Look +import Omni.Test ((@=?), (@?!=), (@?=)) +import qualified Omni.Test as Test import Servant import qualified Servant.Auth as Auth import qualified Servant.Auth.Server as Auth @@ -287,45 +287,45 @@ instance Indexable Analysis where instance App.HasCss AnalysisAction where cssFor _ = do "#analysis > *" ? do - Biz.Look.marginAll (rem 2) + Omni.Look.marginAll (rem 2) ".score" ? do Clay.display Clay.grid - Biz.Look.gridTemplateAreas + Omni.Look.gridTemplateAreas [ "title quantity details-collapsed", "preview-chart preview-chart preview-chart", "details details details" ] Clay.alignItems Clay.baseline Clay.gridTemplateColumns [pct 30, 40, 30] - Biz.Look.gridTemplateRows ["auto"] + Omni.Look.gridTemplateRows ["auto"] ".title" ? do - Biz.Look.gridArea "title" + Omni.Look.gridArea "title" Clay.fontSize (rem 1.4) Clay.lineHeight (rem 2.4) ".percentage" ? do - Biz.Look.gridArea "quantity" + Omni.Look.gridArea "quantity" Clay.display Clay.flex Clay.alignItems Clay.baseline ".centum" ? do Clay.fontSize (rem 1.2) Clay.lineHeight (rem 1.2) ".quantity" ? do - Biz.Look.gridArea "quantity" + Omni.Look.gridArea "quantity" Clay.fontSize (rem 3) Clay.lineHeight (rem 3) ".preview-chart" ? do - Biz.Look.gridArea "preview-chart" + Omni.Look.gridArea "preview-chart" "details" ? do - Biz.Look.gridArea "details-collapsed" - Biz.Look.justifySelf <| Clay.JustifyContentValue "self-end" + Omni.Look.gridArea "details-collapsed" + Omni.Look.justifySelf <| Clay.JustifyContentValue "self-end" "details[open]" ? do - Biz.Look.gridArea "details" - Biz.Look.justifySelf <| Clay.JustifyContentValue "auto" + Omni.Look.gridArea "details" + Omni.Look.justifySelf <| Clay.JustifyContentValue "auto" ".preview-chart" ? do Clay.height (px 2) Clay.maxWidth (pct 100) "table" ? do - Biz.Look.marginAll (px 0) + Omni.Look.marginAll (px 0) Clay.maxWidth (pct 100) "#hotspots" ? do ".preview-chart" ? do @@ -1098,9 +1098,9 @@ htmlApp jwtCfg cooks kp cfg oAuthArgs = baseStyle :: Clay.Css baseStyle = do - Biz.Look.fuckingStyle + Omni.Look.fuckingStyle - Biz.Look.whenDark <| do + Omni.Look.whenDark <| do "body" ? do Clay.backgroundColor black "a:link" <> "a:visited" ? do @@ -1112,7 +1112,7 @@ baseStyle = do Clay.backgroundColor black Clay.color Clay.white - Biz.Look.whenLight <| do + Omni.Look.whenLight <| do "body" ? do Clay.color black "a:link" <> "a:visited" ? do @@ -1124,7 +1124,7 @@ baseStyle = do Clay.backgroundColor Clay.white Clay.color black - "body" ? Biz.Look.fontStack + "body" ? Omni.Look.fontStack "header" ? do Clay.maxWidth (pct 100) "footer" ? do @@ -1140,17 +1140,17 @@ baseStyle = do "text-decoration-width" ] Clay.textDecoration Clay.underline - Biz.Look.textDecorationThickness (em 0.1) - Biz.Look.textDecorationWidth (em 0.1) + Omni.Look.textDecorationThickness (em 0.1) + Omni.Look.textDecorationWidth (em 0.1) "a:hover" <> "input.link" ? do Clay.textDecorationColor yellow Clay.textDecoration Clay.underline - Biz.Look.textDecorationThickness (em 0.2) - Biz.Look.textDecorationWidth (em 0.2) + Omni.Look.textDecorationThickness (em 0.2) + Omni.Look.textDecorationWidth (em 0.2) "select" <> "button" <> "input" ? do - Biz.Look.paddingAll (em 0.5) - Biz.Look.marginX (em 0.5) + Omni.Look.paddingAll (em 0.5) + Omni.Look.marginX (em 0.5) Clay.borderColor yellow Clay.borderStyle Clay.solid @@ -1159,18 +1159,18 @@ baseStyle = do Clay.cursor Clay.pointer Clay.borderWidth 0 Clay.fontSize (rem 1) - Biz.Look.marginAll (px 0) - Biz.Look.paddingAll (px 0) + Omni.Look.marginAll (px 0) + Omni.Look.paddingAll (px 0) ".badge" ? do Clay.borderWidth (px 1) Clay.borderColor Clay.grey Clay.borderStyle Clay.solid - Biz.Look.borderRadiusAll (rem 2) + Omni.Look.borderRadiusAll (rem 2) Clay.fontSize (rem 0.8) - Biz.Look.marginAll (rem 1) - Biz.Look.paddingX (rem 0.5) - Biz.Look.paddingY (rem 0.25) + Omni.Look.marginAll (rem 1) + Omni.Look.paddingX (rem 0.5) + Omni.Look.paddingY (rem 0.25) "label" ? do Clay.display Clay.inlineBlock @@ -1245,9 +1245,9 @@ instance App.HasCss Home where Clay.borderStyle Clay.solid Clay.borderWidth (px 2) Clay.borderColor "#aaa" - Biz.Look.borderRadiusAll (px 10) - Biz.Look.paddingX (em 2) - Biz.Look.paddingY (em 1) + Omni.Look.borderRadiusAll (px 10) + Omni.Look.paddingX (em 2) + Omni.Look.paddingY (em 1) maybe mempty App.cssFor mAnalysis "section" ? do Clay.padding (rem 3) 0 (rem 3) 0 @@ -1357,7 +1357,7 @@ instance Lucid.ToHtml Analyses where Lucid.a_ [ href analysisId, css - <| Biz.Look.marginAll (em 1) + <| Omni.Look.marginAll (em 1) <> Clay.textDecoration Clay.none ] <| do @@ -1374,7 +1374,7 @@ instance App.HasCss UserAccount where cssFor (UserAccount _) = do "ul.apikeys" ? do Clay.listStyleType Clay.none - Biz.Look.paddingAll (em 0) + Omni.Look.paddingAll (em 0) "li" ? do Clay.overflowX Clay.scroll |