100 % sur LightHouse !

pull/1/head
Jean-Christophe Jameux 4 years ago
parent 71fb3d7c88
commit d816d760b1
  1. 2
      .gitignore
  2. 1
      index.html
  3. 17709
      prof.js
  4. 9
      src/GenerateurDeProblemes.elm
  5. 27
      src/Prof.elm
  6. 6
      src/Style.elm

2
.gitignore vendored

@ -1 +1,3 @@
elm-stuff/
index.html
prof.js

@ -1 +0,0 @@
<!DOCTYPE html><html><head><meta charset="UTF-8"><link rel="icon"type="image/svg"href="fav.svg"/><title>Le coin du prof</title></head><body><div id="e"></div><script src="./prof.js"></script><script>Elm.Prof.init({node:document.getElementById("e"),flags:{l:window.innerWidth,h:window.innerHeight}})</script></body></html>

17709
prof.js

File diff suppressed because it is too large Load Diff

@ -22,7 +22,7 @@ import Style exposing (..)
titre =
"Générateur de proplèmes"
"Générateur de problèmes"
@ -63,6 +63,7 @@ type Msg
| GenererSujetAleatoire
| GenererVariantesSujet
| SujetGenere String
| TelechargerSujet
update : Msg -> Model -> ( Model, Cmd Msg )
@ -106,6 +107,11 @@ update msg model =
, Cmd.none
)
TelechargerSujet ->
( model
, File.Download.string "Sujets.tex" "text/tex" model.sujetGenere
)
-- SUBSCRIPTIONS
@ -176,6 +182,7 @@ view model =
]
[ bouton GenererSujetAleatoire "QuizScan"
, bouton GenererVariantesSujet "EvalBox"
, bouton TelechargerSujet "Télécharger"
]
, el
--^^ Cet élément ci

@ -39,7 +39,13 @@ main =
-- MODEL
{-
-}
type alias Model =
@ -102,7 +108,13 @@ init flags url key =
-- UPDATE
{-
-}
type Msg
@ -186,7 +198,14 @@ subscriptions _ =
-- VIEW
{-
-}
view : Model -> Browser.Document Msg
@ -209,7 +228,7 @@ view model =
[ GenerateurDeProblemes.view model.modeleGenerateurDeProblemes
|> Element.map GenerateurDeProblemesMsg
|> designGeneral
(model.largeur - 2 * (petitEspacement + grandEspacement))
(10 * (model.largeur - 2 * (petitEspacement + grandEspacement)) // 44)
GenerateurDeProblemes.titre
]
}

@ -72,7 +72,11 @@ bouton fonction label =
entete hauteur largeur titre =
html <|
svg [ viewBox <| "0 0 " ++ String.fromInt largeur ++ " 30", SvgA.height <| String.fromInt hauteur ] <|
svg
[ viewBox <| "0 0 " ++ String.fromInt largeur ++ " 30"
, SvgA.height <| String.fromInt hauteur
]
<|
echologo
++ [ text_
[ x "40"

Loading…
Cancel
Save