clp/better-think-editor
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Show "running command" in the log pane when running a command.

Browse source
This commit is contained in:
Christian Lawson-Perfect 2025-02-12 10:51:52 +00:00
parent e595bbbea8
commit 0b982a326d
1 changed files with 7 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
src/App.elm
View file

@ -62,6 +62,7 @@ type Log
| MakeResult String String | MakeResult String String
| MakeError String | MakeError String
| CommandResult String String | CommandResult String String
| RunningCommand String
type alias CommandResult = Result String { stdout : String, stderr : String } type alias CommandResult = Result String { stdout : String, stderr : String }
@ -261,7 +262,7 @@ update msg model = case msg of
SetCommand cmd -> { model | command_to_run = cmd } |> nocmd SetCommand cmd -> { model | command_to_run = cmd } |> nocmd
RunCommand cmd -> RunCommand cmd ->
(model ({ model | log = RunningCommand cmd }
, Http.post , Http.post
{ url = "run-command" { url = "run-command"
, body = Http.multipartBody , body = Http.multipartBody
@ -649,6 +650,11 @@ log_pane model =
, H.dt [] [H.text "stderr" ] , H.dt [] [H.text "stderr" ]
, H.dd [] [H.pre [] [ H.text stderr ]] , H.dd [] [H.pre [] [ H.text stderr ]]
] ]
RunningCommand cmd ->
H.div
[]
[ H.p [] [H.text "Running command ", H.code [] [H.text cmd] ]]
CommandResult stdout stderr -> CommandResult stdout stderr ->
H.dl H.dl