morepokes/morepokes.php

   1 <?php
   2 /**
   3  * Name: More Pokes
   4  * Description: Additional poke options
   5  * Version: 1.0
   6  * Author: Thomas Willingham <https://kakste.com/profile/beardyunixer>
   7  *
   8  */
   9 use Friendica\Core\Addon;
  10 use Friendica\Core\L10n;
  11
  12 function morepokes_install()
  13 {
  14           Addon::registerHook('poke_verbs', 'addon/morepokes/morepokes.php', 'morepokes_poke_verbs');
  15 }
  16
  17 function morepokes_uninstall()
  18 {
  19           Addon::unregisterHook('poke_verbs', 'addon/morepokes/morepokes.php', 'morepokes_poke_verbs');
  20 }
  21
  22 function morepokes_poke_verbs($a, &$b)
  23 {
  24         $b['bitchslap'] = ['bitchslapped', L10n::t('bitchslap'), L10n::t('bitchslapped')];
  25         $b['shag'] = ['shag', L10n::t('shag'), L10n::t('shagged')];
  26         $b['somethingobscenelybiological'] = ['something obscenely biological', L10n::t('do something obscenely biological to'), L10n::t('did something obscenely biological to')];
  27         $b['newpokefeature'] = ['pointed out the poke feature to', L10n::t('point out the poke feature to'), L10n::t('pointed out the poke feature to')];
  28         $b['declareundyinglove'] = ['declared undying love for', L10n::t('declare undying love for'), L10n::t('declared undying love for')];
  29         $b['patent'] = ['patented', L10n::t('patent'), L10n::t('patented')];
  30         $b['strokebeard'] = ['stroked their beard at', L10n::t('stroke beard'), L10n::t('stroked their beard at')];
  31         $b['bemoan'] = ['bemoaned the declining standards of modern secondary and tertiary education to', L10n::t('bemoan the declining standards of modern secondary and tertiary education to'), L10n::t('bemoans the declining standards of modern secondary and tertiary education to')];
  32         $b['hugs'] = ['hugged', L10n::t('hug'), L10n::t('hugged')];
  33         $b['kiss'] = ['kissed', L10n::t('kiss'), L10n::t('kissed')];
  34         $b['raiseeyebrows'] = ['raised their eyebrows at', L10n::t('raise eyebrows at'), L10n::t('raised their eyebrows at')];
  35         $b['insult'] = ['insulted', L10n::t('insult'), L10n::t('insulted')];
  36         $b['praise'] = ['praised', L10n::t('praise'), L10n::t('praised')];
  37         $b['bedubiousof'] = ['was dubious of', L10n::t('be dubious of'), L10n::t('was dubious of')];
  38         $b['eat'] = ['ate', L10n::t('eat'), L10n::t('ate')];
  39         $b['giggleandfawn'] = ['giggled and fawned at', L10n::t('giggle and fawn at'), L10n::t('giggled and fawned at')];
  40         $b['doubt'] = ['doubted', L10n::t('doubt'), L10n::t('doubted')];
  41         $b['glare'] = ['glared at', L10n::t('glare'), L10n::t('glared at')];
  42 }