qcomment/qcomment.php

   1 <?php
   2
   3
   4 /**
   5  * Name: Quick Comment
   6  * Description: Two click comments
   7  * Version: 1.0
   8  * Author: Mike Macgirvin <http://macgirvin.com/profile/mike>
   9  *
  10  * Provides a set of text "snippets" which can be inserted into a comment window by clicking on them.
  11  * First enable the addon in the system admin panel.
  12  * Then each person can tailor their choice of words in Settings->Plugin Settings in the Qcomment
  13  * pane. Initially no qcomments are provided, but on viewing the settings page, a default set of
  14  * of words is suggested. These can be accepted (click Submit) or edited first. Each text line represents
  15  * a different qcomment.
  16  * Many themes will hide the qcomments above or immediately adjacent to the comment input box until
  17  * you wish to use them. On some themes they may be visible.
  18  * Wave the mouse around near the comment input box and the qcomments will show up. Click on any of
  19  * them to open the comment window fully and insert the qcomment. Then "Submit" will submit it.
  20  *
  21  */
  22
  23 function qcomment_install() {
  24         register_hook('plugin_settings', 'addon/qcomment/qcomment.php', 'qcomment_addon_settings');
  25         register_hook('plugin_settings_post', 'addon/qcomment/qcomment.php', 'qcomment_addon_settings_post');
  26
  27 }
  28
  29
  30 function qcomment_uninstall() {
  31         unregister_hook('plugin_settings', 'addon/qcomment/qcomment.php', 'qcomment_addon_settings');
  32         unregister_hook('plugin_settings_post', 'addon/qcomment/qcomment.php', 'qcomment_addon_settings_post');
  33
  34 }
  35
  36
  37
  38
  39
  40 function qcomment_addon_settings(&$a,&$s) {
  41
  42         if(! local_user())
  43                 return;
  44
  45     /* Add our stylesheet to the page so we can make our settings look nice */
  46
  47     $a->page['htmlhead'] .= '<link rel="stylesheet"  type="text/css" href="' . $a->get_baseurl() . '/addon/qcomment/qcomment.css' . '" media="all" />' . "\r\n";
  48
  49         $words = get_pconfig(local_user(),'qcomment','words');
  50         if($words === false)
  51                 $words = t(':-)') . "\n" . t(':-(') . "\n" .  t('lol');
  52
  53     $s .= '<div class="settings-block">';
  54     $s .= '<h3>' . t('Quick Comment Settings') . '</h3>';
  55     $s .= '<div id="qcomment-wrapper">';
  56         $s .= '<div id="qcomment-desc">' . t("Quick comments are found near comment boxes, sometimes hidden. Click them to provide simple replies.") . '</div>';
  57     $s .= '<label id="qcomment-label" for="qcomment-words">' . t('Enter quick comments, one per line') . ' </label>';
  58     $s .= '<textarea id="qcomment-words" type="text" name="qcomment-words" >' . htmlspecialchars(unxmlify($words)) . '</textarea>';
  59     $s .= '</div><div class="clear"></div>';
  60
  61     $s .= '<div class="settings-submit-wrapper" ><input type="submit" id="qcomment-submit" name="qcomment-submit" class="settings-submit" value="' . t('Save Settings') . '" /></div>';
  62         $s .= '</div>';
  63
  64         return;
  65
  66 }
  67
  68 function qcomment_addon_settings_post(&$a,&$b) {
  69
  70         if(! local_user())
  71                 return;
  72
  73         if($_POST['qcomment-submit']) {
  74                 set_pconfig(local_user(),'qcomment','words',xmlify($_POST['qcomment-words']));
  75                 info( t('Quick Comment settings saved.') . EOL);
  76         }
  77 }
  78