From 516c678827e1f3e2435d8b0876f33b07f0d5bc85 Mon Sep 17 00:00:00 2001
From: ike <ike@zebra411.server4you.de>
Date: Sun, 19 Feb 2012 19:48:09 +0100
Subject: [PATCH] First commit: Addon for shortening long content and "show
 more" link.

---
 showmore.tgz          | Bin 0 -> 1872 bytes
 showmore/README       |   3 ++
 showmore/showmore.css |  19 +++++++
 showmore/showmore.php | 121 ++++++++++++++++++++++++++++++++++++++++++
 4 files changed, 143 insertions(+)
 create mode 100644 showmore.tgz
 create mode 100755 showmore/README
 create mode 100755 showmore/showmore.css
 create mode 100755 showmore/showmore.php

diff --git a/showmore.tgz b/showmore.tgz
new file mode 100644
index 0000000000000000000000000000000000000000..70c4beef90ce33de6c73724a4131aa0bed6202a6
GIT binary patch
literal 1872
zcmV-W2e0@aiwFR2FgQ;D1MOICZ`-yO?$`KNoM}cS7q(=_ZZp`i_mX(H1)8>K+!YsV
zVbBt73z12Iq~Zj_{`);7B{_<nm)+ZJcbJJJmdV41=k?)H<dUyfT+raz(~UNcqobGl
zvvYLR%|Cl)J|E9IoukgH_F=Dci1VFJyZh=HynI5P%8^M$1i-WSg5E3l(E8tW$Rhq9
z#y_5(ji2O<2jh=xHva8b-NUYq{}HAEw4X$qTjL)d|8tB#=me<M@KGqrB&?{EWI-hm
z76G5nslZ1_Vs-(FgDiIVwZB^V{rI0pS^vd@A4>U^&v>Z*yRVA+?{vF8&HvrrzW)E5
zQTw(Cd@CU{nlxcEK^d7P`8@nqJD4Y&s6Hfgt_HP(bsVW>AG+;!dWBzCL@Z*~QatTL
z$4vcRy8*uDB9hzS+prJd$ZWQXmEKkne3=XSrC>y5xFwe3{nbwYKN{QhpDxp{e8&Ct
zuY0|ty#BkI0c`zu_Vxc~jN|Vy-nHPxiyFLuw`4{8U|NDR-4fu`DVC9lQx$X8hZCM8
zB$X6WE|t{FzhG}*mO6f0fB!L4*hTc=EDo0hS>qSJz`w`nydTn75Nt0}f=x#3M|7m+
zi!mdTMv$eP!Q1nnKfzq^6@pw)I3wXA7MC%D<E2t*KL}REj34q<kP1GJ6B?{gSVQ7Z
zP^--|7HXZLNb70LFwjZjH8d#*x`?HsV!Gt~!gEtWQ7t;1@#xxZf=i-^vtVaw=;ac#
zvad1N#!WKho~fit#cUz}2(*#g?0gt}s$=rspJ2B)42f<#FJl$=W$dXOxQ+Z(UHB0E
zlRB{~>picN=JUGL4y_%;bMG5Scu10ICaLfmjoJYQTxEg{a5=!rim(^Y1W0wAP`RX3
z>1JFlu^6#e2gzYgAtVe|1gpkK<|iR8zW^48)Re|SowP=J&#&%Mt&$}rk^2SwA-Kn;
z#TPUgI-64*P}eCPI*MMY0DD6RmV(ZQj_Yfj1yxgByP3e$@ZI1pzu`vLcO87Sh+;By
zFq52M<oeEM@tHZ=!n*ATrs0x?7f1y|@M5MeN#f}v(vY)xyzp*%s98qAZMsn`^>(+>
zfbYR|p${(PP(vqwa7+r+k(ls(W(beMHNs|}j*#7}LsO!-y>{C*21x6}D87U+AyT3f
z^8mDFh=1XX+`&d{*&VsygYsObd<Aphyi8W#Jr1<Ypo$!$Ih&qJkTj*j0B^)>yH*jr
z*~mFC=VEIOF?`fzY@4$32C#aVeHB$=mS$?#8AY}jm(Tc>0}St!9by>S4CgyKkE)^f
zT?n@9&OI6?l%T!G0nSxqb{M_WS`)V1*ptjS+g@fs=Ew?QLXm|_(1IkyDH98Lq!Ub+
zd$VG;?6(RO=A-duLYGF>Xk+1hrr)1&woNWG1V*{GRx`WmRCO;VZz)_%?>=E;iB0Bn
zGwU|+n=z?WHwbp>d$U`2ii-G%9Y#Q}@N$s4xd=4T;Wd95M-<s<ktNu$ZI-1yE%(^Q
zJq3F{f{P7r=Y%|a6d~hsefs|0`Q%skmZ#h==88O!kEfTW67gyq&n|vxX!a@iQS+jA
zmCJ6R^0Kn@m-FTpUM_?B^`UJ+bJ|4IPAflQ@L1go%56dcV=!Yj=blN0f<#JI14%A*
zed~CQ-@Vb|zwZvu&Ay--m%1r2RG4K+VrlsgUJ#WymOQR+o5t6<5?;33HbuabN+gu&
zk2swwg15d6^~~PAI=BrOK@MW_ratEx)AyeenF&T++W*T@JBiy%H-(vs6}^eqEU+5B
z<NLm2Tx`?T;O1utbAli&;;X6FjxD_JY)X_+u=CDQ6mNUcLgGRUO<Sf@7&_?RG$Gf0
zFn8TRQ|v}@-?4S+_;|v>!5vrG!=MFi%(2DMy@~^zg-IM<3>}_Qc9L*Oz0aGBF91Jd
zxL~J5<=nf)Zdt7bkyBk?rsz5~_im;;rkJ0zk$b1Tcbm#Mqt<<8Bucou3#QBjed%Bl
zBr#Hv3AULjGRJ&rn8eSgSF<T5{3R7?N?FJwoe4RJ`>)B_o7VX4<n`qB_#Erp`8fHx
z^_^4MkEDnBQ*3FMM;jTW)sB`?Lf~T|<QzMu5yPp&9jl{qwYy{WdAZu#u{yBI>C&@@
zV{K_5oA$S-4|UnzV~G|uBn32)v;xu1A$ku(bQ^gQ)*~Kj;-YIfeRp=s!)!&F@{B#W
zgiSf#XjEL%PfLvDc}hY}%yWWg5AyB$`Zjg>&FQ<7$-m!^L1zfO|M=6J*C*h#g5Xp4
zBnVC?r=WueJ--bTEOQy_bRkI)jNdxo<S)|e_1a%|eJ&Qk<U{abeA3cry>@^v43heh
zifqsNgH<o#B+{r}p$V3?-Y`1WG>ye=?AEnzzGMHY7pv)Fk@P)akc{nx^OTq(?I&oq
zM}#2PUKL&^P8GQcg(i(A<Xg0u`NgSCwp+q4(|`XT!2Q^d{n(HF*pL0#kNx<Ej{g9b
K^bAG-C;$M!ZO117

literal 0
HcmV?d00001

diff --git a/showmore/README b/showmore/README
new file mode 100755
index 00000000..8ee882e3
--- /dev/null
+++ b/showmore/README
@@ -0,0 +1,3 @@
+Show more
+
+Shortens messages and offers a link to show more.
diff --git a/showmore/showmore.css b/showmore/showmore.css
new file mode 100755
index 00000000..710c1f3f
--- /dev/null
+++ b/showmore/showmore.css
@@ -0,0 +1,19 @@
+
+#showmore-label, #showmore-enable-label {
+	float: left;
+	width: 300px;
+	margin-top: 10px;
+}
+
+#showmore-words, #showmore-enable {
+	float: left;
+	margin-top: 10px;
+}
+
+#showmore-submit {
+	margin-top: 15px;
+}
+
+.showmore-desc {
+	margin-top: 10px;
+}
diff --git a/showmore/showmore.php b/showmore/showmore.php
new file mode 100755
index 00000000..7842a58e
--- /dev/null
+++ b/showmore/showmore.php
@@ -0,0 +1,121 @@
+<?php
+/**
+ * Name: Show More
+ * Description: Collapse posts
+ * Version: 1.0
+ * Author: Michael Vogel <ike@piratenpartei.de>
+ *         based upon NSFW from Mike Macgirvin <http://macgirvin.com/profile/mike>
+ *
+ */
+
+function showmore_install() {
+	register_hook('prepare_body', 'addon/showmore/showmore.php', 'showmore_prepare_body');
+	register_hook('plugin_settings', 'addon/showmore/showmore.php', 'showmore_addon_settings');
+	register_hook('plugin_settings_post', 'addon/showmore/showmore.php', 'showmore_addon_settings_post');
+}
+
+function showmore_uninstall() {
+	unregister_hook('prepare_body', 'addon/showmore/showmore.php', 'showmore_prepare_body');
+	unregister_hook('plugin_settings', 'addon/showmore/showmore.php', 'showmore_addon_settings');
+	unregister_hook('plugin_settings_post', 'addon/showmore/showmore.php', 'showmore_addon_settings_post');
+}
+
+function showmore_addon_settings(&$a,&$s) {
+
+	if(! local_user())
+		return;
+
+	/* Add our stylesheet to the page so we can make our settings look nice */
+
+	$a->page['htmlhead'] .= '<link rel="stylesheet" type="text/css" href="'.$a->get_baseurl().'/addon/showmore/showmore.css'.'" media="all"/>'."\r\n";
+
+	$enable_checked = (intval(get_pconfig(local_user(),'showmore','disable')) ? '' : ' checked="checked"');
+	$chars = get_pconfig(local_user(),'showmore','chars');
+	if(!$chars)
+		$chars = '1100';
+
+	$s .= '<div class="settings-block">';
+	$s .= '<h3>' . t('"Show more" Settings').'</h3>';
+	$s .= '<div id="showmore-wrapper">';
+
+	$s .= '<label id="showmore-enable-label" for="showmore-enable">'.t('Enable Show More').'</label>';
+	$s .= '<input id="showmore-enable" type="checkbox" name="showmore-enable" value="1"'.$enable_checked.' />';
+	$s .= '<div class="clear"></div>';
+	$s .= '<label id="showmore-label" for="showmore-chars">'.t('Cutting posts after how much characters').' </label>';
+	$s .= '<input id="showmore-words" type="text" name="showmore-chars" value="'.$chars.'" />';
+	$s .= '</div><div class="clear"></div>';
+
+	$s .= '<div class="settings-submit-wrapper" ><input type="submit" id="showmore-submit" name="showmore-submit" class="settings-submit" value="' . t('Submit') . '" /></div>';
+//	$s .= '<div class="showmore-desc">' . t('Use /expression/ to provide regular expressions') . '</div></div>';
+
+	return;
+}
+
+function showmore_addon_settings_post(&$a,&$b) {
+
+	if(! local_user())
+		return;
+
+	if($_POST['showmore-submit']) {
+		set_pconfig(local_user(),'showmore','chars',trim($_POST['showmore-chars']));
+		$enable = ((x($_POST,'showmore-enable')) ? intval($_POST['showmore-enable']) : 0);
+		$disable = 1-$enable;
+		set_pconfig(local_user(),'showmore','disable', $disable);
+		info( t('Show More Settings saved.') . EOL);
+	}
+}
+
+function showmore_prepare_body(&$a,&$b) {
+
+	$words = null;
+	if(get_pconfig(local_user(),'showmore','disable'))
+		return;
+
+	$chars = (int)get_pconfig(local_user(),'showmore','chars');
+	if(!$chars)
+		$chars = 1100;
+
+	if (strlen(strip_tags(trim($b['html']))) > $chars) {
+		$found = true;
+		$shortened = trim(showmore_cutitem($b['html'], $chars))."...";
+	}
+
+	if($found) {
+		$rnd = random_string(8);
+		$b['html'] = '<span id="showmore-teaser-'.$rnd.'" style="display: block;">'.$shortened." ".
+				'<span id="showmore-wrap-'.$rnd.'" style="white-space:nowrap;" class="fakelink" onclick="openClose(\'showmore-'.$rnd.'\'); openClose(\'showmore-teaser-'.$rnd.'\');" >'.sprintf(t('Show More')).'</span></span>'.
+				'<div id="showmore-'.$rnd.'" style="display: none;">'.$b['html'].'</div>';
+	}
+}
+
+function showmore_cutitem($text, $limit) {
+	$text = trim($text);
+
+	$text = mb_convert_encoding($text, 'HTML-ENTITIES', "UTF-8");
+
+	$text = substr($text, 0, $limit);
+
+	$pos1 = strrpos($text, "<");
+	$pos2 = strrpos($text, ">");
+	$pos3 = strrpos($text, "&");
+	$pos4 = strrpos($text, ";");
+
+	if ($pos1 > $pos3) {
+		if ($pos1 > $pos2)
+			$text = substr($text, 0, $pos1);
+	} else {
+		if ($pos3 > $pos4)
+			$text = substr($text, 0, $pos3);
+	}
+
+	$doc = new DOMDocument();
+	$doc->preserveWhiteSpace = false;
+
+	$doctype = '<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN" "http://www.w3.org/TR/REC-html40/loose.dtd">';
+	@$doc->loadHTML($doctype."<html><body>".$text."</body></html>");
+
+	$text = $doc->saveHTML();
+	$text = str_replace(array("<html><body>", "</body></html>", $doctype), array("", "", ""), $text);
+
+	return($text);
+}
-- 
2.39.5