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

now has text box

Browse source
This commit is contained in:
Yehowshua Immanuel 2025-01-03 10:58:40 -05:00
parent db00669800
commit ccec612687
2 changed files with 21 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
Makefile
View file

@ -26,12 +26,9 @@ $(PUBLIC_DIR):
$(PUBLIC_DIR)/index.html: $(FRONTEND_DIR)/index.html $(PUBLIC_DIR) $(PUBLIC_DIR)/index.html: $(FRONTEND_DIR)/index.html $(PUBLIC_DIR)
cp $< $@ cp $< $@
$(FRONTEND_DIR)/elm.min.js:
make -C $(FRONTEND_DIR)
.PHONY: frontend backend .PHONY: frontend backend
frontend: $(PUBLIC_DIR)/index.html $(FRONTEND_DIR)/elm.min.js $(PUBLIC_DIR) frontend: $(PUBLIC_DIR)/index.html $(PUBLIC_DIR)
cp $(FRONTEND_DIR)/elm.min.js $(PUBLIC_DIR)/ cp $(FRONTEND_DIR)/elm.min.js $(PUBLIC_DIR)/
cp $(FRONTEND_DIR)/src/ports.websocket.js $(PUBLIC_DIR)/ cp $(FRONTEND_DIR)/src/ports.websocket.js $(PUBLIC_DIR)/
mkdir -p $(PUBLIC_DIR)/assets mkdir -p $(PUBLIC_DIR)/assets
@ -40,6 +37,7 @@ backend:
$(CARGO_BUILD) --manifest-path=$(BACKEND_DIR)/Cargo.toml $(CARGO_BUILD) --manifest-path=$(BACKEND_DIR)/Cargo.toml
serve: frontend backend serve: frontend backend
make -C $(FRONTEND_DIR)
ifeq ($(DEBUG),1) ifeq ($(DEBUG),1)
RUST_LOG=info,actix_web=debug $(CARGO_RUN) --manifest-path=$(BACKEND_DIR)/Cargo.toml RUST_LOG=info,actix_web=debug $(CARGO_RUN) --manifest-path=$(BACKEND_DIR)/Cargo.toml
else ifeq ($(RELEASE),1) else ifeq ($(RELEASE),1)

21
frontend/src/Page/Landing.elm
View file

@ -10,6 +10,8 @@ import Element exposing (Element)
import Websockets import Websockets
import Ports import Ports
import Json.Decode as Decode import Json.Decode as Decode
import Html.Attributes exposing (placeholder)
import Element.Input
type alias Model = { type alias Model = {
time : String time : String
@ -20,6 +22,7 @@ type alias Landing = {
type Msg type Msg
= ToFrontend Landing = ToFrontend Landing
| DecodeError Decode.Error | DecodeError Decode.Error
| GreetWidgetText String
| NoOp | NoOp
init : () -> Model init : () -> Model
@ -54,9 +57,23 @@ update msg model =
ToFrontend landing -> ( {model | time = landing.time}, Cmd.none ) ToFrontend landing -> ( {model | time = landing.time}, Cmd.none )
_ -> (model, Cmd.none) _ -> (model, Cmd.none)
greetWidget =
let
textInput =
Element.Input.text []
{ onChange = GreetWidgetText
, text = "text"
, placeholder = Nothing
, label = Element.Input.labelAbove [] (Element.text "Greet")
}
in
Element.row []
[ textInput ]
view : Model -> Element Msg view : Model -> Element Msg
view model = view model =
Element.column [] Element.column []
[ Element.text "Landing", [ Element.text "Landing"
Element.text <| "Current time is : " ++ model.time -- , Element.text <| "Current time is : " ++ model.time
, greetWidget
] ]