better Readm

This commit is contained in:
Nicole Dresselhaus 2022-12-25 01:53:06 +01:00
parent 8736e93643
commit 4ea203a082
4 changed files with 12 additions and 1 deletions

View File

@ -3,3 +3,11 @@
Dwarf Fortress Actor-Names in various DF-languages. Dwarf Fortress Actor-Names in various DF-languages.
![](img/example.png) ![](img/example.png)
Given you have an artifact-thief with an agent-name of "Breachlessons":
![](img/implication.png)
Just type it in and get names by race that you can look out for:
![](img/translations.png)
Schema seems to be: 2 random words of thief-race + 's'

View File

@ -45,7 +45,10 @@ colorLang _ = Default
search :: Dictionary -> Text -> [Text] search :: Dictionary -> Text -> [Text]
search _ "" = [""] search _ "" = [""]
search d name = let prefixes = L.filter (`T.isPrefixOf` name) $ keys d search d name = let prefixes = L.filter (`T.isPrefixOf` name) $ keys d
in [(d!p) <> s | p <- prefixes, s <- search d (T.drop (T.length p) name)] in if L.null prefixes then
[" - NO PERFECT MACTH ('"<>name<>"' left over from input)"]
else
[(d!p) <> s | p <- prefixes, s <- search d (T.drop (T.length p) name)]
getLanguageData :: IO (Map Language Dictionary) getLanguageData :: IO (Map Language Dictionary)
getLanguageData = do getLanguageData = do

BIN
img/implication.png Normal file

Binary file not shown.

After

Width:  |  Height:  |  Size: 22 KiB

BIN
img/translations.png Normal file

Binary file not shown.

After

Width:  |  Height:  |  Size: 18 KiB