anchor.diff:            R.div className: 'drag_arrow left', '<' if page == 'crafting' && !slider.has_moved
   
           R.img className:'bubblemouth', src: bubblemouth_src, style: {left: slider.clientX}
  +    
   
   ##
   # OpinionFilter
  
positive.code:       segments[segment].push []
  
      # ensure neutral segment has 3 columns
      segments[3].push([]) while segments[3].length < 3   
  
      # Assign each Opinion to a column
      # This gets complicated because we treat the extremes and Neutral differently. 
  
negative.code:     [num_columns, segments, avatar_size] = @buildHistogram() #todo: memoize
  
      effective_histogram_width = num_columns * avatar_size
      margin_adjustment = -(effective_histogram_width - HISTOGRAM_WIDTH) / 2 #- avatar_size / 4
      #make sure that the extreme segments are balanced
      margin_adjustment -= avatar_size * (segments[0].length - segments[6].length) / 2 
  
      console.log effective_histogram_width, num_columns, avatar_size, segments[0].length, segments[6].length, margin_adjustment
  
      R.table 
        className: 'histogram'
  