*
* Provides a set of text "snippets" which can be inserted into a comment window by clicking on them.
* First enable the addon in the system admin panel.
* Then each person can tailor their choice of words in Settings->Addon Settings in the Qcomment
* pane. Initially no qcomments are provided, but on viewing the settings page, a default set of
* of words is suggested. These can be accepted (click Submit) or edited first. Each text line represents
* a different qcomment.
* Many themes will hide the qcomments above or immediately adjacent to the comment input box until
* you wish to use them. On some themes they may be visible.
* Wave the mouse around near the comment input box and the qcomments will show up. Click on any of
* them to open the comment window fully and insert the qcomment. Then "Submit" will submit it.
*
*/
use Friendica\Core\Hook;
use Friendica\Core\L10n;
use Friendica\Core\PConfig;
use Friendica\DI;
use Friendica\Util\XML;
function qcomment_install() {
Hook::register('addon_settings', 'addon/qcomment/qcomment.php', 'qcomment_addon_settings');
Hook::register('addon_settings_post', 'addon/qcomment/qcomment.php', 'qcomment_addon_settings_post');
}
function qcomment_uninstall() {
Hook::unregister('addon_settings', 'addon/qcomment/qcomment.php', 'qcomment_addon_settings');
Hook::unregister('addon_settings_post', 'addon/qcomment/qcomment.php', 'qcomment_addon_settings_post');
}
function qcomment_addon_settings(&$a, &$s)
{
if (! local_user()) {
return;
}
/* Add our stylesheet to the page so we can make our settings look nice */
DI::page()['htmlhead'] .= '' . "\r\n";
$words = PConfig::get(local_user(), 'qcomment', 'words', L10n::t(':-)') . "\n" . L10n::t(':-(') . "\n" . L10n::t('lol'));
$s .= '
';
$s .= '
' . L10n::t('Quick Comment Settings') . '
';
$s .= '
';
$s .= '
' . L10n::t("Quick comments are found near comment boxes, sometimes hidden. Click them to provide simple replies.") . '
';
$s .= '';
$s .= '';
$s .= '
';
$s .= '';
$s .= '
';
return;
}
function qcomment_addon_settings_post(&$a, &$b)
{
if (! local_user()) {
return;
}
if ($_POST['qcomment-submit']) {
PConfig::set(local_user(), 'qcomment', 'words', XML::escape($_POST['qcomment-words']));
info(L10n::t('Quick Comment settings saved.') . EOL);
}
}