Closes #238

src/Shared/Im/View/SuggestionProfile.purs

@@ -20,6 +20,7 @@ import Flame (Html)
 import Shared.Availability
 import Flame.Html.Attribute as HA
 import Flame.Html.Element as HE
+import Shared.Intl as SI
 import Safe.Coerce as SC
 import Shared.Avatar as SA
 import Shared.DateTime (DateTimeWrapper)
@@ -202,7 +203,7 @@ displayProfile index loggedUser { karmaPosition, name, availability, temporary,
                                 ]
                           _ →
                                 [ HE.div_
-                                        [ HE.span [ HA.class' "span-info" ] $ show karma
+                                        [ HE.span [ HA.class' "span-info" ] $ SI.thousands karma
                                         , HE.span [ HA.class' "duller" ] " karma"
                                         , HE.span_ $ " (#" <> show karmaPosition <> ")"
                                         ]

src/Shared/Im/View/UserMenu.purs

@@ -7,6 +7,7 @@ import Shared.Im.Types
 import Data.Maybe (Maybe(..))
 import Data.Maybe as DM
 import Flame (Html)
+import Shared.Intl as SI
 import Flame.Html.Attribute as HA
 import Flame.Html.Element as HE
 import Shared.Avatar as SA
@@ -89,7 +90,7 @@ header model@{ user: { karma, karmaPosition }, experimenting } = HE.fragment
       , HE.div [ HA.class' "settings-name" ]
               [ HE.strong_ name
               , HE.div [ HA.class' "settings-karma", HA.onClick <<< SpecialRequest $ ToggleModal ShowKarmaPrivileges, HA.title "See your privileges and karma stats" ]
-                      [ HE.span [ HA.class' "karma-number" ] $ show karma
+                      [ HE.span [ HA.class' "karma-number" ] $ SI.thousands karma
                       , HE.span [ HA.class' "karma-text" ] " karma "
                       , HE.span_ $ "(#" <> show karmaPosition <> ")"
                       ]

src/Shared/KarmaPrivileges/View.purs

@@ -6,6 +6,7 @@ import Shared.KarmaPrivileges.Types
 import Data.Array as DA
 import Data.Maybe (Maybe(..))
 import Data.Maybe as DM
+import Shared.Intl as SI
 import Data.Tuple (Tuple(..))
 import Flame (Html)
 import Flame.Html.Attribute as HA
@@ -64,7 +65,7 @@ view { top10, inBetween10, userPosition, toggleBoard, privileges, stats: { sent,
       where
       statEntry (Tuple n lbl) = HE.div_
             [ HE.div (HA.class' "privilege-body")
-                    [ HE.div (HA.class' "privilege-quantity") $ show n
+                    [ HE.div (HA.class' "privilege-quantity") $ SI.thousands n
                     , HE.div (HA.class' "privilege-name-description") lbl
                     ]
             ]
@@ -97,7 +98,7 @@ view { top10, inBetween10, userPosition, toggleBoard, privileges, stats: { sent,
                         , HE.div (HA.class' "name-karma")
                                 [ HE.div_
                                         [ HE.div (HA.class' "name") name
-                                        , HE.span (HA.class' "duller") $ show karma
+                                        , HE.span (HA.class' "duller") $ SI.thousands karma
                                         ]
                                 , HE.div (HA.class' "position") <<< HE.span (HA.class' "position-number") $ show position
                                 ]

src/Shared/Profile/View.purs

@@ -35,6 +35,7 @@ import Shared.Im.View.SuggestionProfile as SIVP
 import Shared.Markdown as SM
 import Shared.Network (RequestStatus(..))
 import Shared.Privilege (Privilege(..))
+import Shared.Intl as SI
 import Shared.Privilege as SP
 import Shared.Unsafe as SU
 import Shared.User (Gender(..))
@@ -76,7 +77,7 @@ view
               , displayEditHeadline
               , HE.div (HA.class' "profile-karma")
                       [ HE.div_
-                              [ HE.span [ HA.class' "span-info" ] $ show user.karma
+                              [ HE.span [ HA.class' "span-info" ] $ SI.thousands user.karma
                               , HE.span [ HA.class' "duller" ] " karma"
                               ]
                       ]