summaryrefslogtreecommitdiff
path: root/elm
diff options
context:
space:
mode:
authorYorhel <git@yorhel.nl>2020-07-09 12:57:41 +0200
committerYorhel <git@yorhel.nl>2020-07-09 12:57:41 +0200
commit9215c6eb5a0128a94a8511aeb72c0f95ab9f99fd (patch)
tree2791c99513cebff84bb50a5a9385619522fddf3c /elm
parent73eb6385240d82424d13235f02822920f51e974b (diff)
User::Edit: Remove "show_nsfw" setting from profile + deprecate NSFW flags
Diffstat (limited to 'elm')
-rw-r--r--elm/User/Edit.elm9
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")