diff options
| author | Griffin Smith <grfn@gws.fyi> | 2021-11-06T15·44-0400 |
|---|---|---|
| committer | grfn <grfn@gws.fyi> | 2021-11-06T15·52+0000 |
| commit | ff6c008d7884975f3dc0295a75b9383fd2c3a2ed (patch) | |
| tree | 7b84c368db6c152f9e871cae8b9faa676262e1a1 /users/grfn/xanthous/src/Xanthous/Game/Draw.hs | |
| parent | 099f36e5ee8b18126e006219153e3cf6fb6e7a50 (diff) | |
feat(gs/xanthous): Default to the current save file r/3008
When saving, default to the save file that was loaded for the game if any. To support this, this also makes text prompts support a default, which will be used if no value is input. Change-Id: I72a826499d6e987b939e3465a2d29167e53416be Reviewed-on: https://cl.tvl.fyi/c/depot/+/3801 Reviewed-by: grfn <grfn@gws.fyi> Tested-by: BuildkiteCI
Diffstat (limited to 'users/grfn/xanthous/src/Xanthous/Game/Draw.hs')
| -rw-r--r-- | users/grfn/xanthous/src/Xanthous/Game/Draw.hs | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/users/grfn/xanthous/src/Xanthous/Game/Draw.hs b/users/grfn/xanthous/src/Xanthous/Game/Draw.hs index 25b1b92e21..b9590ba404 100644 --- a/users/grfn/xanthous/src/Xanthous/Game/Draw.hs +++ b/users/grfn/xanthous/src/Xanthous/Game/Draw.hs @@ -43,8 +43,12 @@ drawPromptState :: GamePromptState m -> Widget ResourceName drawPromptState NoPrompt = emptyWidget drawPromptState (WaitingPrompt msg (Prompt _ pt ps pri _)) = case (pt, ps, pri) of - (SStringPrompt, StringPromptState edit, _) -> - txtWrap msg <+> txt " " <+> renderEditor (txt . fold) True edit + (SStringPrompt, StringPromptState edit, mDef) -> + txtWrap msg + <+> txt " " + <+> txt (maybe "" (\def -> "(default: " <> def <> ")") mDef) + <+> txt " " + <+> renderEditor (txt . fold) True edit (SDirectionPrompt, DirectionPromptState, _) -> txtWrap msg (SMenu, _, menuItems) -> txtWrap msg |