From 9215c6eb5a0128a94a8511aeb72c0f95ab9f99fd Mon Sep 17 00:00:00 2001
From: Yorhel <git@yorhel.nl>
Date: Thu, 9 Jul 2020 12:57:41 +0200
Subject: User::Edit: Remove "show_nsfw" setting from profile + deprecate NSFW
 flags

---
 elm/User/Edit.elm | 9 ++-------
 1 file changed, 2 insertions(+), 7 deletions(-)

(limited to 'elm')

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")
-- 
cgit v1.2.3