ReferenceProjects/example-spa-elm-app
1
0
Fork 0
Code Issues 1 Pull requests Actions Packages Projects Releases Wiki Activity

now also using url in debug mode but browser nav link does not seem to be changing

Browse source
This commit is contained in:
Yehowshua Immanuel 2024-12-30 13:15:06 -05:00
parent 52bf643dea
commit 36d22a6f1c
3 changed files with 17 additions and 12 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
optimize.sh
View file

@ -5,10 +5,11 @@ set -e
js="elm.js" js="elm.js"
min="elm.min.js" min="elm.min.js"
elm make --optimize --output=$js "$@" elm make --debug --output=$js "$@"
# elm make --optimize --debug --output=$js "$@"
uglifyjs $js --compress 'pure_funcs=[F2,F3,F4,F5,F6,F7,F8,F9,A2,A3,A4,A5,A6,A7,A8,A9],pure_getters,keep_fargs=false,unsafe_comps,unsafe' | uglifyjs --mangle --output $min uglifyjs $js --compress 'pure_funcs=[F2,F3,F4,F5,F6,F7,F8,F9,A2,A3,A4,A5,A6,A7,A8,A9],pure_getters,keep_fargs=false,unsafe_comps,unsafe' | uglifyjs --mangle --output $min
echo "Compiled size:$(wc $js -c) bytes ($js)" echo "Compiled size:$(wc $js -c) bytes ($js)"
echo "Minified size:$(wc $min -c) bytes ($min)" echo "Minified size:$(wc $min -c) bytes ($min)"
echo "Gzipped size: $(gzip $min -c | wc -c) bytes" echo "Gzipped size: $(gzip $min -c | wc -c) bytes"

18
src/Header.elm
View file

@ -22,15 +22,17 @@ view model =
blur = 5, blur = 5,
color = Element.rgba 0 0 0 0.15 color = Element.rgba 0 0 0 0.15
} }
headerButton msg string = headerButton string =
Element.el Element.link
[Element.alignRight, Element.Events.onClick <| msg] [Element.alignRight]
(Element.text string) { url = "/" ++ string
, label = Element.text string
}
products = headerButton ClickedProducts "Products" products = headerButton "Products"
resources = headerButton ClickedResources "Resources" resources = headerButton "Resources"
about = headerButton ClickedAbout "About" about = headerButton "About"
contact = headerButton ClickedContact "Contact" contact = headerButton "Contact"
in in
Element.row [Element.width Element.fill, Element.row [Element.width Element.fill,
Element.spacing 15, Element.spacing 15,

6
src/Main.elm
View file

@ -63,7 +63,7 @@ type Msg
| Header Header.Msg | Header Header.Msg
| LandingPage Page.Landing.Msg | LandingPage Page.Landing.Msg
| UrlChanged Url.Url | UrlChanged Url.Url
| LinkedClicked Browser.UrlRequest | UrlRequest Browser.UrlRequest
update : Msg -> Model -> (Model, Cmd Msg) update : Msg -> Model -> (Model, Cmd Msg)
@ -75,6 +75,8 @@ update msg model =
newModel = { model | page = toPage headerMsg } newModel = { model | page = toPage headerMsg }
in in
(newModel, Browser.Navigation.pushUrl model.key (Url.toString newUrl)) (newModel, Browser.Navigation.pushUrl model.key (Url.toString newUrl))
UrlChanged url ->
(model, Browser.Navigation.pushUrl model.key (Url.toString url))
_ -> (model, Cmd.none) _ -> (model, Cmd.none)
subscriptions : Model -> Sub Msg subscriptions : Model -> Sub Msg
@ -118,5 +120,5 @@ main =
,update = update ,update = update
,subscriptions = subscriptions ,subscriptions = subscriptions
,onUrlChange = UrlChanged ,onUrlChange = UrlChanged
,onUrlRequest = LinkedClicked ,onUrlRequest = UrlRequest
} }