// v0.1   Initial release
// v0.1a  Removed bogus leading slash on <script> tag. Thanks sgoodwin

function smd_pullquote($atts) {
	require_plugin('smd_lib');

	// MLP support
	global $smd_pquoLang;
	$smd_pquo_str = array(
		'pq_search_class' => 'pq',
		'pq_class' => 'pQuote',
		'pq_start' => '',
		'pq_end' => '',
		'pq_omit' => '&hellip;',
	);
	$smd_pquoLang = new smd_MLP('smd_pullquote', 'smd_pquo', $smd_pquo_str);

	// Process the args
	$insertMethods = array("append", "prepend", "after", "before", "replaceWith");
	extract(lAtts(array(
		'jquery'				=> '/textpattern/jquery.js',
		'jq_clashvar'		=> 'jq',
		'container'			=> 'body',
		'insert_method'	=> $insertMethods[0],
		'search_class'		=> $smd_pquoLang->gTxt("pq_search_class"),
		'class'				=> $smd_pquoLang->gTxt("pq_class"),
		'wraptag'			=> 'q',
		'limit'				=> '0',
		'random'				=> '0',
		'chopper'			=> '~~',
		'start'				=> $smd_pquoLang->gTxt("pq_start"),
		'end'					=> $smd_pquoLang->gTxt("pq_end"),
		'omissions'			=> $smd_pquoLang->gTxt("pq_omit"),
		'hide_originals'	=> '0',
		'pos'					=> '',
	), $atts));

	$ret = "";
	if (!empty($jquery)) {
		$ret .= '<script type="text/javascript" src="'.$jquery.'"></script>';
	}
	$ret .= '<script type="text/javascript">'.n;
	$ret .= '<!--'.n;

	if (!empty($jq_clashvar)) {
		$ret .= 'if (typeof $'.$jq_clashvar.' == \'undefined\') {'.n;
		$ret .= ' var $'.$jq_clashvar.' = jQuery.noConflict();'.n;
		$ret .= '}'.n;
	}
	$jq_clashvar = "$".$jq_clashvar;

	// Check relevant passed args are reasonable
	$limit = (trim($limit) == "") ? 0 : $limit;
	$container = (trim($container) == "") ? "body" : $container;
	$insert_method = (in_array($insert_method, $insertMethods)) ? $insert_method : $insertMethods[0];

	// Write the javascript to the page.
	// Callback for array.sort() to randomly order the array
	$ret .= 'function randOrder() {'.n;
	$ret .= ' return (Math.round(Math.random())-0.5);'.n;
 	$ret .= '}'.n;

	// Choose N numbers from a list of M (ranging from 0 - M-1).
	// If typ = "rnd", choose them randomly; if typ="all" generate a complete range.
	// Original random algorithm by Donald Knuth.
	$ret .= 'function genList(M,N,typ) {'.n;
	$ret .= ' ary = [];'.n;
	$ret .= ' for (idx=0; idx<M && N>0; ++idx) {'.n;
	$ret .= '  if ((Math.floor(Math.random()*(M-idx)))<N || typ == "all") {'.n;
	$ret .= '   ary.push(idx);'.n;
	$ret .= '   N=N-1;'.n;
	$ret .= '  }'.n;
	$ret .= ' }'.n;
	$ret .= ' return(ary);'.n;
	$ret .= '}'.n;

	// Find each quote, grab the text, chop out any omissions, make the pullquote,
	// then remove the chopper symbols from the original text on the page
	$ret .= 'function smd_pullquote() {'.n;
	$ret .= ' var snipReg = /'.$chopper.'.+?'.$chopper.'/gi;'.n;
	$ret .= ' var cleaReg = /'.$chopper.'/gi;'.n;
	$ret .= ' var numQuotes = '. $jq_clashvar.'(".'.$search_class.'").length;'.n;
	$ret .= ' var quotes = [];'.n;
	$ret .= ' var quoteCtr = 0;'.n;
	$ret .= ' var quotePos = [];'.n;
	$ret .= ' var lim = (' .$limit. ' > numQuotes || ' .$limit. ' == 0) ? numQuotes : ' .$limit. ';'.n;
	$ret .= ($random==0) ? ' chosen = genList(numQuotes, lim, "all");'.n : ' chosen = genList(numQuotes, lim, "rnd");'.n;
	$ret .= ($random==0) ? '' : ' chosen.sort(randOrder)'.n;
	$ret .= ' ' .$jq_clashvar. '(".'.$search_class.'").each(function() {'.n;
	$ret .= '  var $this = '.$jq_clashvar.'(this);'.n;
	$ret .= '  txt = $this.text();'.n;
	$ret .= '  rep = txt.replace(snipReg, "'.$omissions.'");'.n;
	$ret .= '  quotes.push(rep);'.n;
	$ret .= '  quotePos.push($this.offset());'.n;
	$ret .= '  $this.text(txt.replace(cleaReg, ""));'.n;
	if ($hide_originals == "1") {
		$ret .= '  (chosen.exists(quoteCtr)) ? $this.empty() : "";'.n;
	} else if ($hide_originals == "2") {
		$ret .= '  $this.empty();'.n;
	}
	$ret .= '  quoteCtr++;'.n;
	$ret .= '  });'.n;

	// Insert the pullquotes into the page content in the chosen order
	$ret .= ' for (var idx = 0; idx < chosen.length; idx++) {'.n;
	$ret .= '  ' .$jq_clashvar. '("'.$container.'").' .$insert_method. '(\'<'.$wraptag. (($class=="") ? "" : ' class="'.$class.'"') . '>' .$start. '\'+quotes[chosen[idx]]+\'' .$end. '</'.$wraptag.'>\');'.n;

	// Calculate the position if applicable
	$top = "";
	$left = "";
	$units = "px";
	$expr = "[em|ex|px|in|cm|mm|pt|pc|%]";
	$uexpr = "[^em|ex|px|in|cm|mm|pt|pc|%]";
	if ($pos != "") {
		$posParts = explode(",", $pos);
		if (count($posParts) == 2) {
			$lunits = trim(ereg_replace($uexpr, "", $posParts[0]));
			$tunits = trim(ereg_replace($uexpr, "", $posParts[1]));
			$left = str_replace("x", "quotePos[chosen[idx]].left", trim(ereg_replace($expr, "", $posParts[0])));
			$top = str_replace("y", "quotePos[chosen[idx]].top", trim(ereg_replace($expr, "", $posParts[1])));
		} else {
			$pos = "";
		}
	}
	$ret .= ($pos=="") ? "" : '  ' .$jq_clashvar. '(".' .$class. ':eq("+idx+")").css({top: '.$top.'+"'.(($tunits!="") ? $tunits : $units ).'", left: '.$left.'+"'.(($lunits=="") ? $units : $lunits ).'"});'.n;
	$ret .= ' }'.n;

	$ret .= '}'.n;

	// Run smd_pullquote on DOM ready
	$ret .= $jq_clashvar.'(function() {'.n;
	$ret .= ' smd_pullquote();'.n;
	$ret .= '});'.n;
	$ret .= '-->'.n;
	$ret .= '</script>'.n;

	return $ret;
}