Commit b0f037d2 authored by Celia Rubio Madrigal's avatar Celia Rubio Madrigal

añadir escalas

parent 8ec4c3bd
......@@ -5973,19 +5973,21 @@ var author$project$Styles$bloquealeatorio = F2(
]))
]));
});
var author$project$Styles$fieldStyle = _Utils_ap(
_List_fromArray(
[
A2(elm$html$Html$Attributes$style, 'width', '650px'),
A2(elm$html$Html$Attributes$style, 'text-align', 'center'),
A2(elm$html$Html$Attributes$style, 'border-radius', '20px 20px 20px 20px')
]),
author$project$Styles$textStyle('30px'));
var author$project$Styles$fieldStyle = function (s) {
return _Utils_ap(
_List_fromArray(
[
A2(elm$html$Html$Attributes$style, 'width', s),
A2(elm$html$Html$Attributes$style, 'text-align', 'center'),
A2(elm$html$Html$Attributes$style, 'border-radius', '20px 20px 20px 20px')
]),
author$project$Styles$textStyle('30px'));
};
var author$project$Styles$entrada = function (inp) {
return A2(
elm$html$Html$input,
_Utils_ap(
author$project$Styles$fieldStyle,
author$project$Styles$fieldStyle('650px'),
_List_fromArray(
[
A2(elm$html$Html$Attributes$style, 'margin-top', '50px'),
......@@ -6034,10 +6036,6 @@ var elm$html$Html$a = _VirtualDom_node('a');
var elm$html$Html$br = _VirtualDom_node('br');
var elm$html$Html$nav = _VirtualDom_node('nav');
var author$project$Styles$navbar = function (_this) {
var _n0 = _Utils_Tuple3(_this === 1, _this === 2, _this === 3);
var one = _n0.a;
var two = _n0.b;
var three = _n0.c;
return A2(
elm$html$Html$div,
_List_Nil,
......@@ -6056,26 +6054,33 @@ var author$project$Styles$navbar = function (_this) {
[
A2(
elm$html$Html$a,
A2(author$project$Styles$aStyle, one, 'https://matrices.netlify.com/'),
A2(author$project$Styles$aStyle, _this === 1, 'https://matrices.netlify.com/'),
_List_fromArray(
[
elm$html$Html$text('Matrices')
])),
A2(
elm$html$Html$a,
A2(author$project$Styles$aStyle, two, 'https://diagramas.netlify.com/'),
A2(author$project$Styles$aStyle, _this === 2, 'https://diagramas.netlify.com/'),
_List_fromArray(
[
elm$html$Html$text('Diagramas')
])),
A2(
elm$html$Html$a,
A2(author$project$Styles$aStyle, three, 'https://modificaciones.netlify.com/'),
A2(author$project$Styles$aStyle, _this === 3, 'https://modificaciones.netlify.com/'),
_List_fromArray(
[
elm$html$Html$text('Modificaciones')
])),
A2(
elm$html$Html$a,
A2(author$project$Styles$aStyle, _this === 4, 'https://escalas.netlify.com/'),
_List_fromArray(
[
elm$html$Html$text('Escalas')
])),
A2(
elm$html$Html$div,
_List_fromArray(
[
......
......@@ -128,9 +128,9 @@ littlebuttonStyle =
++ ( textStyle "20px" )
fieldStyle : List (Attribute msg)
fieldStyle =
[ style "width" "650px"
fieldStyle : String -> List (Attribute msg)
fieldStyle s =
[ style "width" s
, style "text-align" "center"
, style "border-radius" "20px 20px 20px 20px"
]
......@@ -192,7 +192,7 @@ originalrow r =
entrada : Attribute msg -> Html msg
entrada inp =
input
( fieldStyle
( fieldStyle "650px"
++ [ style "margin-top" "50px"
, style "margin-bottom" "50px"
, placeholder "4 5 7 1 6 3 8 2 11 0 9 10"
......@@ -236,9 +236,6 @@ aStyle this ref =
navbar : Int -> Html msg
navbar this =
let (one,two,three) =
(this==1,this==2,this==3)
in
div []
[ nav
[ style "position" "fixed"
......@@ -246,12 +243,14 @@ navbar this =
, style "width" "100%"
, style "background-color" back
]
[ a (aStyle one "https://matrices.netlify.com/")
[ a (aStyle (this==1) "https://matrices.netlify.com/")
[ text "Matrices"]
, a (aStyle two "https://diagramas.netlify.com/")
, a (aStyle (this==2) "https://diagramas.netlify.com/")
[ text "Diagramas"]
, a (aStyle three "https://modificaciones.netlify.com/")
, a (aStyle (this==3) "https://modificaciones.netlify.com/")
[ text "Modificaciones"]
, a (aStyle (this==4) "https://escalas.netlify.com/")
[ text "Escalas"]
, div [style "min-width" "15px",style "display" "inline-block"] [text " "]
]
, br [] []
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment