anchor.diff:          R.tr null, 
             for bars, idx in segments
               segment = 6 - idx
  -            is_selected = selected_segment[0] == segment
  +            is_selected = selected_segment == segment
               R.td 
                 className:"histogram_segment #{if is_selected then 'is_selected' else 'not_selected'}"
                 key:segment
                 # onMouseEnter: @onSelectSegment
                 'data-segment':segment
  -              style : { opacity: (if is_selected && !selected_segment[0]? then '1' else '1') }
  +              style : { opacity: (if is_selected && !selected_segment? then '1' else '1') }
               ,
                 R.table null,
                   R.tr null,
  
positive.code: 
  fetch 'histogram',
    highlighted_users : null
    selected_segment : [null, null]
  
  fetch 'slider',
    has_moved : false
  
negative.code: 
      # Remove filter when on crafting page
      if @root.page_name == 'crafting'
        hist.selected_segment = null
        hist.selected_segment_isclicked = null
  
      filter_options = ['show all opinions',
          'only full opposers',
  