A* Interview #4: Gershom Bazerman, organizer of the Haskell-NYC Meetup and maintainer of the JMacro Haskell Package.

/* change only these */

var youtubeID = “gELK8UESArg”;

var postID = “Gershom Bazerman”;

/* change only these */

// DON’T CHANGE BELOW

$(“.video”).html(“



var tag = document.createElement(‘script’);

tag.src = “http://www.youtube.com/player_api”;

var firstScriptTag = document.getElementsByTagName(‘script’)[0];

firstScriptTag.parentNode.insertBefore(tag, firstScriptTag); “);var tag = document.createElement(‘script’);tag.src = “http://www.youtube.com/player_api”;var firstScriptTag = document.getElementsByTagName(‘script’)[0];firstScriptTag.parentNode.insertBefore(tag, firstScriptTag); function onPlayerStateChange(event) {

if (event.data ==YT.PlayerState.PLAYING) {

mixpanel.track(“Video played”, {

“youtubeID”: youtubeID,

“postID”: postID });

}

if (event.data ==YT.PlayerState.ENDED || event.data==0) {

mixpanel.track(“Video ended”, {

“youtubeID”: youtubeID,

“postID”: postID

});

}

} var player;

function onYouTubePlayerAPIReady() {

player = new YT.Player(‘player’,

{

videoId: youtubeID,

events: {‘onStateChange’: onPlayerStateChange}

});

} mixpanel.track(“Post viewed”, {

“id”: postID

}); Source: https://www.youtube.com/)