src/Names/Aarakocra.elm

@@ -9,17 +9,20 @@ For more name generators, make sure to check out <https://www.fantasynamegenerat
 
 -}
 
-import Names.Tools as Tools
 import Random exposing (Generator)
 import String.Extra
 
 
 female : Generator String
 female =
-    Tools.chooseFrom2
+    Random.uniform
-        (Tools.map3 nm1 nm2 nm3)
+        (Random.map3 (\a b c -> a ++ b ++ c) nm1 nm2 nm3
-        (Tools.map5 nm1 nm2 nm3 nm4 nm5)
+            |> Random.map String.Extra.toTitleCase
-        |> Random.map String.Extra.toTitleCase
+        )
+        [ Random.map5 (\a b c d e -> a ++ b ++ c ++ d ++ e) nm1 nm2 nm3 nm4 nm5
+            |> Random.map String.Extra.toTitleCase
+        ]
+        |> Random.andThen identity
 
 
 male : Generator String

src/Names/Aasimar.elm

@@ -9,30 +9,71 @@ For more name generators, make sure to check out <https://www.fantasynamegenerat
 
 -}
 
-import Names.Tools as Tools
 import Random exposing (Generator)
 import String.Extra
 
 
 female : Generator String
 female =
-    Tools.chooseFrom2
+    Random.uniform
-        (Tools.map5 nm7 nm8 nm9 nm10 nm13)
+        (Random.map5
-        (Tools.map7 nm7 nm8 nm9 nm10 nm11 nm12 nm13)
+            (\a b c d e -> a ++ " " ++ b ++ " " ++ c ++ " " ++ d ++ " " ++ e)
+            nm7
+            nm8
+            nm9
+            nm10
+            nm13
+        )
+        [ Random.map5
+            (\( a, b ) ( c, d ) e f g ->
+                a ++ " " ++ b ++ " " ++ c ++ " " ++ d ++ " " ++ e ++ " " ++ f ++ " " ++ g
+            )
+            (Random.map2 Tuple.pair nm7 nm8)
+            (Random.map2 Tuple.pair nm9 nm10)
+            nm11
+            nm12
+            nm13
+        ]
+        |> Random.andThen identity
         |> Random.map String.Extra.toTitleCase
 
 
 male : Generator String
 male =
-    Tools.chooseFrom2
+    Random.uniform
-        (Tools.map5 nm1 nm2 nm3 nm4 nm6)
+        (Random.map5
-        (Tools.map7 nm1 nm2 nm3 nm4 nm5 nm4 nm6)
+            (\a b c d e -> a ++ " " ++ b ++ " " ++ c ++ " " ++ d ++ " " ++ e)
+            nm1
+            nm2
+            nm3
+            nm4
+            nm6
+        )
+        [ Random.map5
+            (\( a, b ) ( c, d ) e f g ->
+                a ++ " " ++ b ++ " " ++ c ++ " " ++ d ++ " " ++ e ++ " " ++ f ++ " " ++ g
+            )
+            (Random.map2 Tuple.pair nm1 nm2)
+            (Random.map2 Tuple.pair nm3 nm4)
+            nm5
+            nm4
+            nm6
+        ]
+        |> Random.andThen identity
         |> Random.map String.Extra.toTitleCase
 
 
 lastName : Generator String
 lastName =
-    Tools.map7 nm1 nm2 nm3 nm4 nm11 nm12 nm13
+    Random.map5
+        (\( a, b ) ( c, d ) e f g ->
+            a ++ " " ++ b ++ " " ++ c ++ " " ++ d ++ " " ++ e ++ " " ++ f ++ " " ++ g
+        )
+        (Random.map2 Tuple.pair nm1 nm2)
+        (Random.map2 Tuple.pair nm3 nm4)
+        nm11
+        nm12
+        nm13
         |> Random.map String.Extra.toTitleCase
 
 

src/Names/Bugbear.elm

@@ -1,91 +0,0 @@
-module Names.Bugbear exposing (..)
-
-{-| This module exposes a generator for Bugbear names.
-
-For more name generators, make sure to check out <https://www.fantasynamegenerators.com/>
-
-
-# Copyright (C) 2012 - 2020 FantasyNameGenerators.com.
-
--}
-
-import Names.Tools as Tools
-import Random exposing (Generator)
-import String.Extra
-
-
-female : Generator String
-female =
-    Tools.chooseFrom2
-        (Tools.map5 nm1 nm2 nm3 nm4 nm5)
-        (Tools.map3 nm1 nm2 nm5)
-        |> Random.map String.Extra.toTitleCase
-
-
-male : Generator String
-male =
-    female
-
-
-lastName : Generator String
-lastName =
-    female
-
-
-nm1 : Generator String
-nm1 =
-    Random.uniform "b"
-        [ "br"
-        , "chr"
-        , "d"
-        , "g"
-        , "gh"
-        , "hr"
-        , "kh"
-        , "n"
-        , "r"
-        , "st"
-        , "t"
-        , "th"
-        , "v"
-        , "z"
-        , "zh"
-        ]
-
-
-nm2 : Generator String
-nm2 =
-    Random.uniform "a" [ "e", "i", "o", "u" ]
-
-
-nm3 : Generator String
-nm3 =
-    Random.uniform "d"
-        [ "dd"
-        , "dr"
-        , "g"
-        , "gh"
-        , "gg"
-        , "gr"
-        , "rr"
-        , "rd"
-        , "rg"
-        , "rn"
-        , "t"
-        , "tt"
-        , "tr"
-        , "v"
-        , "vr"
-        , "z"
-        , "zz"
-        ]
-
-
-nm4 : Generator String
-nm4 =
-    Random.uniform "a" [ "i", "o", "u" ]
-
-
-nm5 : Generator String
-nm5 =
-    Random.uniform "k" [ "lk", "mkk", "n", "nn", "nk", "r", "rk", "rr", "th" ]

src/Names/Tools.elm

@@ -1,163 +0,0 @@
-module Names.Tools exposing (..)
-
-{-| The Tools module helps with the generation of names.
--}
-
-import Random exposing (Generator)
-
-
-chooseFrom2 : Generator a -> Generator a -> Generator a
-chooseFrom2 a b =
-    Random.uniform a [ b ]
-        |> Random.andThen identity
-
-
-chooseFrom3 : Generator a -> Generator a -> Generator a -> Generator a
-chooseFrom3 a b c =
-    Random.uniform a [ b, c ]
-        |> Random.andThen identity
-
-
-chooseFrom4 :
-    Generator a
-    -> Generator a
-    -> Generator a
-    -> Generator a
-    -> Generator a
-chooseFrom4 a b c d =
-    Random.uniform a [ b, c, d ]
-        |> Random.andThen identity
-
-
-chooseFrom5 :
-    Generator a
-    -> Generator a
-    -> Generator a
-    -> Generator a
-    -> Generator a
-    -> Generator a
-chooseFrom5 a b c d e =
-    Random.uniform a [ b, c, d, e ]
-        |> Random.andThen identity
-
-
-chooseFrom6 :
-    Generator a
-    -> Generator a
-    -> Generator a
-    -> Generator a
-    -> Generator a
-    -> Generator a
-    -> Generator a
-chooseFrom6 a b c d e f =
-    Random.uniform a [ b, c, d, e, f ]
-        |> Random.andThen identity
-
-
-chooseFrom7 :
-    Generator a
-    -> Generator a
-    -> Generator a
-    -> Generator a
-    -> Generator a
-    -> Generator a
-    -> Generator a
-    -> Generator a
-chooseFrom7 a b c d e f g =
-    Random.uniform a [ b, c, d, e, f, g ]
-        |> Random.andThen identity
-
-
-chooseFrom8 :
-    Generator a
-    -> Generator a
-    -> Generator a
-    -> Generator a
-    -> Generator a
-    -> Generator a
-    -> Generator a
-    -> Generator a
-    -> Generator a
-chooseFrom8 a b c d e f g h =
-    Random.uniform a [ b, c, d, e, f, g, h ]
-        |> Random.andThen identity
-
-
-map2 : Generator String -> Generator String -> Generator String
-map2 =
-    Random.map2 (++)
-
-
-map3 :
-    Generator String
-    -> Generator String
-    -> Generator String
-    -> Generator String
-map3 =
-    Random.map3 (\a b c -> a ++ b ++ c)
-
-
-map4 :
-    Generator String
-    -> Generator String
-    -> Generator String
-    -> Generator String
-    -> Generator String
-map4 =
-    Random.map4 (\a b c d -> a ++ b ++ c ++ d)
-
-
-map5 :
-    Generator String
-    -> Generator String
-    -> Generator String
-    -> Generator String
-    -> Generator String
-    -> Generator String
-map5 =
-    Random.map5 (\a b c d e -> a ++ b ++ c ++ d ++ e)
-
-
-map6 :
-    Generator String
-    -> Generator String
-    -> Generator String
-    -> Generator String
-    -> Generator String
-    -> Generator String
-    -> Generator String
-map6 nm1 nm2 =
-    Random.map5 (\( a, b ) c d e f -> a ++ b ++ c ++ d ++ e ++ f)
-        (Random.map2 Tuple.pair nm1 nm2)
-
-
-map7 :
-    Generator String
-    -> Generator String
-    -> Generator String
-    -> Generator String
-    -> Generator String
-    -> Generator String
-    -> Generator String
-    -> Generator String
-map7 nm1 nm2 nm3 nm4 =
-    Random.map5 (\( a, b ) ( c, d ) e f g -> a ++ b ++ c ++ d ++ e ++ f ++ g)
-        (Random.map2 Tuple.pair nm1 nm2)
-        (Random.map2 Tuple.pair nm3 nm4)
-
-
-map8 :
-    Generator String
-    -> Generator String
-    -> Generator String
-    -> Generator String
-    -> Generator String
-    -> Generator String
-    -> Generator String
-    -> Generator String
-    -> Generator String
-map8 nm1 nm2 nm3 nm4 nm5 nm6 =
-    Random.map5 (\( a, b ) ( c, d ) ( e, f ) g h -> a ++ b ++ c ++ d ++ e ++ f ++ g ++ h)
-        (Random.map2 Tuple.pair nm1 nm2)
-        (Random.map2 Tuple.pair nm3 nm4)
-        (Random.map2 Tuple.pair nm5 nm6)