diff options
author | Yorhel <git@yorhel.nl> | 2020-07-09 12:57:41 +0200 |
---|---|---|
committer | Yorhel <git@yorhel.nl> | 2020-07-09 12:57:41 +0200 |
commit | 9215c6eb5a0128a94a8511aeb72c0f95ab9f99fd (patch) | |
tree | 2791c99513cebff84bb50a5a9385619522fddf3c /elm/User/Edit.elm | |
parent | 73eb6385240d82424d13235f02822920f51e974b (diff) |
User::Edit: Remove "show_nsfw" setting from profile + deprecate NSFW flags
Diffstat (limited to 'elm/User/Edit.elm')
-rw-r--r-- | elm/User/Edit.elm | 9 |
1 files changed, 2 insertions, 7 deletions
diff --git a/elm/User/Edit.elm b/elm/User/Edit.elm index c8ecdddb..c51f37b4 100644 --- a/elm/User/Edit.elm +++ b/elm/User/Edit.elm @@ -73,7 +73,6 @@ type AdminMsg type PrefMsg = EMail String - | ShowNsfw Bool | MaxSexual Int | MaxViolence Int | TraitsSexual Bool @@ -123,7 +122,6 @@ updatePrefs : PrefMsg -> GUE.SendPrefs -> GUE.SendPrefs updatePrefs msg model = case msg of EMail n -> { model | email = n } - ShowNsfw b -> { model | show_nsfw = b } MaxSexual n-> { model | max_sexual = n } MaxViolence n -> { model | max_violence = n } TraitsSexual b -> { model | traits_sexual = b } @@ -231,11 +229,8 @@ view model = prefsform m = [ tr [ class "newpart" ] [ td [ colspan 2 ] [ text "Preferences" ] ] - , formField "NSFW" [ label [] [ inputCheck "" m.show_nsfw (Prefs << ShowNsfw), text " Show NSFW images by default" ] ] - , formField "" - [ b [ class "grayedout" ] [ text "The two options below are only used for character images at the moment, they will eventually replace the above checkbox and apply to all images on the site." ] - , br [] [] - , inputSelect "" m.max_sexual (Prefs << MaxSexual) [style "width" "400px"] + , formField "NSFW" + [ inputSelect "" m.max_sexual (Prefs << MaxSexual) [style "width" "400px"] [ (-1,"Hide all images") , (0, "Hide sexually suggestive or explicit images") , (1, "Hide only sexually explicit images") |