gnu-social/actions/replies.php

<?php
/**
 * Laconica, the distributed open-source microblogging tool
 *
 * List of replies
 *
 * PHP version 5
 *
 * LICENCE: This program is free software: you can redistribute it and/or modify
 * it under the terms of the GNU Affero General Public License as published by
 * the Free Software Foundation, either version 3 of the License, or
 * (at your option) any later version.
 *
 * This program is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 * GNU Affero General Public License for more details.
 *
 * You should have received a copy of the GNU Affero General Public License
 * along with this program.  If not, see <http://www.gnu.org/licenses/>.
 *
 * @category  Personal
 * @package   Laconica
 * @author    Evan Prodromou <evan@controlyourself.ca>
 * @copyright 2008-2009 Control Yourself, Inc.
 * @license   http://www.fsf.org/licensing/licenses/agpl-3.0.html GNU Affero General Public License version 3.0
 * @link      http://laconi.ca/
 */

if (!defined('LACONICA')) {
    exit(1);
}

require_once INSTALLDIR.'/lib/personalgroupnav.php';
require_once INSTALLDIR.'/lib/noticelist.php';
require_once INSTALLDIR.'/lib/feedlist.php';

/**
 * List of replies
 *
 * @category Personal
 * @package  Laconica
 * @author   Evan Prodromou <evan@controlyourself.ca>
 * @license  http://www.fsf.org/licensing/licenses/agpl-3.0.html GNU Affero General Public License version 3.0
 * @link     http://laconi.ca/
 */

class RepliesAction extends Action
{
    var $user = null;
    var $page = null;

    /**
     * Prepare the object
     *
     * Check the input values and initialize the object.
     * Shows an error page on bad input.
     *
     * @param array $args $_REQUEST data
     *
     * @return boolean success flag
     */

    function prepare($args)
    {
        parent::prepare($args);

        $nickname = common_canonical_nickname($this->arg('nickname'));

        $this->user = User::staticGet('nickname', $nickname);

        if (!$this->user) {
            $this->clientError(_('No such user.'));
            return false;
        }

        $profile = $this->user->getProfile();

        if (!$profile) {
            $this->serverError(_('User has no profile.'));
            return false;
        }

        $this->page = ($this->arg('page')) ? ($this->arg('page')+0) : 1;

        return true;
    }

    /**
     * Handle a request
     *
     * Just show the page. All args already handled.
     *
     * @param array $args $_REQUEST data
     *
     * @return void
     */

    function handle($args)
    {
        parent::handle($args);
        $this->showPage();
    }

    /**
     * Title of the page
     *
     * Includes name of user and page number.
     *
     * @return string title of page
     */

    function title()
    {
        if ($this->page == 1) {
            return sprintf(_("Replies to %s"), $this->user->nickname);
        } else {
            return sprintf(_("Replies to %s, page %d"),
                           $this->user->nickname,
                           $this->page);
        }
    }

    /**
     * Feeds for the <head> section
     *
     * @return void
     */

    function showFeeds()
    {
        $rssurl   = common_local_url('repliesrss',
                                     array('nickname' => $this->user->nickname));
        $rsstitle = sprintf(_('Feed for replies to %s'), $this->user->nickname);

        $this->element('link', array('rel' => 'alternate',
                                     'href' => $rssurl,
                                     'type' => 'application/rss+xml',
                                     'title' => $rsstitle));
    }

    /**
     * show the personal group nav
     *
     * @return void
     */

    function showLocalNav()
    {
        $nav = new PersonalGroupNav($this);
        $nav->show();
    }

    /**
     * Show the replies feed links
     *
     * @return void
     */

    function showExportData()
    {
        $fl = new FeedList($this);

        $rssurl = common_local_url('repliesrss',
                                   array('nickname' => $this->user->nickname));

        $fl->show(array(0=>array('href'=> $rssurl,
                                 'type' => 'rss',
                                 'version' => 'RSS 1.0',
                                 'item' => 'repliesrss')));
    }

    /**
     * Show the content
     *
     * A list of notices that are replies to the user, plus pagination.
     *
     * @return void
     */

    function showContent()
    {
        $notice = $this->user->getReplies(($this->page-1) * NOTICES_PER_PAGE,
                                          NOTICES_PER_PAGE + 1);

        $nl = new NoticeList($notice, $this);

        $cnt = $nl->show();

        $this->pagination($this->page > 1, $cnt > NOTICES_PER_PAGE,
                          $this->page, 'replies',
                          array('nickname' => $this->user->nickname));
    }

    function isReadOnly()
    {
        return true;
    }
}
First pass at replies support http://laconi.ca/PITS/00080 Doesn't handle a reply to a user that has never updated. darcs-hash:20080623030837-982e4-532ccd8899fd8be00575f8840da0defb44cd56f8.gz 2008-06-23 12:08:37 +09:00			`<?php`
Adapt replies to new framework 2009-01-18 08:17:57 +09:00			`/**`
			`* Laconica, the distributed open-source microblogging tool`
First pass at replies support http://laconi.ca/PITS/00080 Doesn't handle a reply to a user that has never updated. darcs-hash:20080623030837-982e4-532ccd8899fd8be00575f8840da0defb44cd56f8.gz 2008-06-23 12:08:37 +09:00			`*`
Adapt replies to new framework 2009-01-18 08:17:57 +09:00			`* List of replies`
			`*`
			`* PHP version 5`
			`*`
			`* LICENCE: This program is free software: you can redistribute it and/or modify`
First pass at replies support http://laconi.ca/PITS/00080 Doesn't handle a reply to a user that has never updated. darcs-hash:20080623030837-982e4-532ccd8899fd8be00575f8840da0defb44cd56f8.gz 2008-06-23 12:08:37 +09:00			`* it under the terms of the GNU Affero General Public License as published by`
			`* the Free Software Foundation, either version 3 of the License, or`
			`* (at your option) any later version.`
			`*`
			`* This program is distributed in the hope that it will be useful,`
			`* but WITHOUT ANY WARRANTY; without even the implied warranty of`
			`* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the`
			`* GNU Affero General Public License for more details.`
			`*`
			`* You should have received a copy of the GNU Affero General Public License`
			`* along with this program. If not, see <http://www.gnu.org/licenses/>.`
Adapt replies to new framework 2009-01-18 08:17:57 +09:00			`*`
			`* @category Personal`
			`* @package Laconica`
			`* @author Evan Prodromou <evan@controlyourself.ca>`
			`* @copyright 2008-2009 Control Yourself, Inc.`
			`* @license http://www.fsf.org/licensing/licenses/agpl-3.0.html GNU Affero General Public License version 3.0`
			`* @link http://laconi.ca/`
First pass at replies support http://laconi.ca/PITS/00080 Doesn't handle a reply to a user that has never updated. darcs-hash:20080623030837-982e4-532ccd8899fd8be00575f8840da0defb44cd56f8.gz 2008-06-23 12:08:37 +09:00			`*/`

Adapt replies to new framework 2009-01-18 08:17:57 +09:00			`if (!defined('LACONICA')) {`
			`exit(1);`
			`}`
First pass at replies support http://laconi.ca/PITS/00080 Doesn't handle a reply to a user that has never updated. darcs-hash:20080623030837-982e4-532ccd8899fd8be00575f8840da0defb44cd56f8.gz 2008-06-23 12:08:37 +09:00
Adapt replies to new framework 2009-01-18 08:17:57 +09:00			`require_once INSTALLDIR.'/lib/personalgroupnav.php';`
			`require_once INSTALLDIR.'/lib/noticelist.php';`
			`require_once INSTALLDIR.'/lib/feedlist.php';`
First pass at replies support http://laconi.ca/PITS/00080 Doesn't handle a reply to a user that has never updated. darcs-hash:20080623030837-982e4-532ccd8899fd8be00575f8840da0defb44cd56f8.gz 2008-06-23 12:08:37 +09:00
Adapt replies to new framework 2009-01-18 08:17:57 +09:00			`/**`
			`* List of replies`
			`*`
			`* @category Personal`
			`* @package Laconica`
			`* @author Evan Prodromou <evan@controlyourself.ca>`
			`* @license http://www.fsf.org/licensing/licenses/agpl-3.0.html GNU Affero General Public License version 3.0`
			`* @link http://laconi.ca/`
			`*/`
First pass at replies support http://laconi.ca/PITS/00080 Doesn't handle a reply to a user that has never updated. darcs-hash:20080623030837-982e4-532ccd8899fd8be00575f8840da0defb44cd56f8.gz 2008-06-23 12:08:37 +09:00
Adapt replies to new framework 2009-01-18 08:17:57 +09:00			`class RepliesAction extends Action`
			`{`
			`var $user = null;`
			`var $page = null;`

			`/**`
			`* Prepare the object`
			`*`
			`* Check the input values and initialize the object.`
			`* Shows an error page on bad input.`
			`*`
			`* @param array $args $_REQUEST data`
			`*`
			`* @return boolean success flag`
			`*/`

			`function prepare($args)`
change function headers to K&R style Another huge change, for PEAR code standards compliance. Function headers have to be in K&R style (opening brace on its own line), instead of having the opening brace on the same line as the function and parameters. So, a little perl magic found all the function definitions and move the opening brace to the next line (properly indented... usually). darcs-hash:20081223193323-84dde-a28e36ecc66672c783c2842d12fc11043c13ab28.gz 2008-12-24 04:33:23 +09:00			`{`
Adapt replies to new framework 2009-01-18 08:17:57 +09:00			`parent::prepare($args);`
First pass at replies support http://laconi.ca/PITS/00080 Doesn't handle a reply to a user that has never updated. darcs-hash:20080623030837-982e4-532ccd8899fd8be00575f8840da0defb44cd56f8.gz 2008-06-23 12:08:37 +09:00
replace all tabs with four spaces The PEAR coding standards decree: no tabs, but indent by four spaces. I've done a global search-and-replace on all tabs, replacing them by four spaces. This is a huge change, but it will go a long way to getting us towards phpcs-compliance. And that means better code readability, and that means more participation. darcs-hash:20081223191907-84dde-21e8efe210e6d5d54e935a22d0cee5c7bbfc007d.gz 2008-12-24 04:19:07 +09:00			`$nickname = common_canonical_nickname($this->arg('nickname'));`
First pass at replies support http://laconi.ca/PITS/00080 Doesn't handle a reply to a user that has never updated. darcs-hash:20080623030837-982e4-532ccd8899fd8be00575f8840da0defb44cd56f8.gz 2008-06-23 12:08:37 +09:00
Adapt replies to new framework 2009-01-18 08:17:57 +09:00			`$this->user = User::staticGet('nickname', $nickname);`

			`if (!$this->user) {`
			`$this->clientError(_('No such user.'));`
			`return false;`
replace all tabs with four spaces The PEAR coding standards decree: no tabs, but indent by four spaces. I've done a global search-and-replace on all tabs, replacing them by four spaces. This is a huge change, but it will go a long way to getting us towards phpcs-compliance. And that means better code readability, and that means more participation. darcs-hash:20081223191907-84dde-21e8efe210e6d5d54e935a22d0cee5c7bbfc007d.gz 2008-12-24 04:19:07 +09:00			`}`
First pass at replies support http://laconi.ca/PITS/00080 Doesn't handle a reply to a user that has never updated. darcs-hash:20080623030837-982e4-532ccd8899fd8be00575f8840da0defb44cd56f8.gz 2008-06-23 12:08:37 +09:00
Adapt replies to new framework 2009-01-18 08:17:57 +09:00			`$profile = $this->user->getProfile();`
First pass at replies support http://laconi.ca/PITS/00080 Doesn't handle a reply to a user that has never updated. darcs-hash:20080623030837-982e4-532ccd8899fd8be00575f8840da0defb44cd56f8.gz 2008-06-23 12:08:37 +09:00
replace all tabs with four spaces The PEAR coding standards decree: no tabs, but indent by four spaces. I've done a global search-and-replace on all tabs, replacing them by four spaces. This is a huge change, but it will go a long way to getting us towards phpcs-compliance. And that means better code readability, and that means more participation. darcs-hash:20081223191907-84dde-21e8efe210e6d5d54e935a22d0cee5c7bbfc007d.gz 2008-12-24 04:19:07 +09:00			`if (!$profile) {`
Convert use of common_server_error and common_user_error to methods on Action 2009-01-16 08:03:38 +09:00			`$this->serverError(_('User has no profile.'));`
Adapt replies to new framework 2009-01-18 08:17:57 +09:00			`return false;`
replace all tabs with four spaces The PEAR coding standards decree: no tabs, but indent by four spaces. I've done a global search-and-replace on all tabs, replacing them by four spaces. This is a huge change, but it will go a long way to getting us towards phpcs-compliance. And that means better code readability, and that means more participation. darcs-hash:20081223191907-84dde-21e8efe210e6d5d54e935a22d0cee5c7bbfc007d.gz 2008-12-24 04:19:07 +09:00			`}`
First pass at replies support http://laconi.ca/PITS/00080 Doesn't handle a reply to a user that has never updated. darcs-hash:20080623030837-982e4-532ccd8899fd8be00575f8840da0defb44cd56f8.gz 2008-06-23 12:08:37 +09:00
Adapt replies to new framework 2009-01-18 08:17:57 +09:00			`$this->page = ($this->arg('page')) ? ($this->arg('page')+0) : 1;`
First pass at replies support http://laconi.ca/PITS/00080 Doesn't handle a reply to a user that has never updated. darcs-hash:20080623030837-982e4-532ccd8899fd8be00575f8840da0defb44cd56f8.gz 2008-06-23 12:08:37 +09:00
Adapt replies to new framework 2009-01-18 08:17:57 +09:00			`return true;`
			`}`
Convert _t() to _() for gettext. darcs-hash:20080708094531-533db-83399a46e6ec4c0fcc6249b0235961f969d1ae73.gz 2008-07-08 18:45:31 +09:00
Adapt replies to new framework 2009-01-18 08:17:57 +09:00			`/**`
			`* Handle a request`
			`*`
			`* Just show the page. All args already handled.`
			`*`
			`* @param array $args $_REQUEST data`
			`*`
			`* @return void`
			`*/`
Convert _t() to _() for gettext. darcs-hash:20080708094531-533db-83399a46e6ec4c0fcc6249b0235961f969d1ae73.gz 2008-07-08 18:45:31 +09:00
Adapt replies to new framework 2009-01-18 08:17:57 +09:00			`function handle($args)`
			`{`
			`parent::handle($args);`
			`$this->showPage();`
replace all tabs with four spaces The PEAR coding standards decree: no tabs, but indent by four spaces. I've done a global search-and-replace on all tabs, replacing them by four spaces. This is a huge change, but it will go a long way to getting us towards phpcs-compliance. And that means better code readability, and that means more participation. darcs-hash:20081223191907-84dde-21e8efe210e6d5d54e935a22d0cee5c7bbfc007d.gz 2008-12-24 04:19:07 +09:00			`}`
Convert _t() to _() for gettext. darcs-hash:20080708094531-533db-83399a46e6ec4c0fcc6249b0235961f969d1ae73.gz 2008-07-08 18:45:31 +09:00
Adapt replies to new framework 2009-01-18 08:17:57 +09:00			`/**`
			`* Title of the page`
			`*`
			`* Includes name of user and page number.`
			`*`
			`* @return string title of page`
			`*/`

			`function title()`
change function headers to K&R style Another huge change, for PEAR code standards compliance. Function headers have to be in K&R style (opening brace on its own line), instead of having the opening brace on the same line as the function and parameters. So, a little perl magic found all the function definitions and move the opening brace to the next line (properly indented... usually). darcs-hash:20081223193323-84dde-a28e36ecc66672c783c2842d12fc11043c13ab28.gz 2008-12-24 04:33:23 +09:00			`{`
Adapt replies to new framework 2009-01-18 08:17:57 +09:00			`if ($this->page == 1) {`
			`return sprintf(_("Replies to %s"), $this->user->nickname);`
			`} else {`
			`return sprintf(_("Replies to %s, page %d"),`
fix title on replies 2009-01-25 02:28:47 +09:00			`$this->user->nickname,`
Adapt replies to new framework 2009-01-18 08:17:57 +09:00			`$this->page);`
			`}`
replace all tabs with four spaces The PEAR coding standards decree: no tabs, but indent by four spaces. I've done a global search-and-replace on all tabs, replacing them by four spaces. This is a huge change, but it will go a long way to getting us towards phpcs-compliance. And that means better code readability, and that means more participation. darcs-hash:20081223191907-84dde-21e8efe210e6d5d54e935a22d0cee5c7bbfc007d.gz 2008-12-24 04:19:07 +09:00			`}`
no such user in replies. darcs-hash:20080717124215-84dde-83c2c5ec54a50bb5aa7a5adc23321dadc48083ad.gz 2008-07-17 21:42:15 +09:00
Adapt replies to new framework 2009-01-18 08:17:57 +09:00			`/**`
			`* Feeds for the <head> section`
			`*`
			`* @return void`
			`*/`

			`function showFeeds()`
change function headers to K&R style Another huge change, for PEAR code standards compliance. Function headers have to be in K&R style (opening brace on its own line), instead of having the opening brace on the same line as the function and parameters. So, a little perl magic found all the function definitions and move the opening brace to the next line (properly indented... usually). darcs-hash:20081223193323-84dde-a28e36ecc66672c783c2842d12fc11043c13ab28.gz 2008-12-24 04:33:23 +09:00			`{`
Adapt replies to new framework 2009-01-18 08:17:57 +09:00			`$rssurl = common_local_url('repliesrss',`
			`array('nickname' => $this->user->nickname));`
			`$rsstitle = sprintf(_('Feed for replies to %s'), $this->user->nickname);`

Convert all actions to use new UI functions I did a massive search-and-replace to get all the action subclasses to use the new output function (common_element() -> $this->element(), etc.) There's still a lot to do, but it's a first step 2009-01-16 07:57:15 +09:00			`$this->element('link', array('rel' => 'alternate',`
Adapt replies to new framework 2009-01-18 08:17:57 +09:00			`'href' => $rssurl,`
replace all tabs with four spaces The PEAR coding standards decree: no tabs, but indent by four spaces. I've done a global search-and-replace on all tabs, replacing them by four spaces. This is a huge change, but it will go a long way to getting us towards phpcs-compliance. And that means better code readability, and that means more participation. darcs-hash:20081223191907-84dde-21e8efe210e6d5d54e935a22d0cee5c7bbfc007d.gz 2008-12-24 04:19:07 +09:00			`'type' => 'application/rss+xml',`
Adapt replies to new framework 2009-01-18 08:17:57 +09:00			`'title' => $rsstitle));`
replace all tabs with four spaces The PEAR coding standards decree: no tabs, but indent by four spaces. I've done a global search-and-replace on all tabs, replacing them by four spaces. This is a huge change, but it will go a long way to getting us towards phpcs-compliance. And that means better code readability, and that means more participation. darcs-hash:20081223191907-84dde-21e8efe210e6d5d54e935a22d0cee5c7bbfc007d.gz 2008-12-24 04:19:07 +09:00			`}`
First pass at replies support http://laconi.ca/PITS/00080 Doesn't handle a reply to a user that has never updated. darcs-hash:20080623030837-982e4-532ccd8899fd8be00575f8840da0defb44cd56f8.gz 2008-06-23 12:08:37 +09:00
Adapt replies to new framework 2009-01-18 08:17:57 +09:00			`/**`
			`* show the personal group nav`
			`*`
			`* @return void`
			`*/`

			`function showLocalNav()`
change function headers to K&R style Another huge change, for PEAR code standards compliance. Function headers have to be in K&R style (opening brace on its own line), instead of having the opening brace on the same line as the function and parameters. So, a little perl magic found all the function definitions and move the opening brace to the next line (properly indented... usually). darcs-hash:20081223193323-84dde-a28e36ecc66672c783c2842d12fc11043c13ab28.gz 2008-12-24 04:33:23 +09:00			`{`
Adapt replies to new framework 2009-01-18 08:17:57 +09:00			`$nav = new PersonalGroupNav($this);`
			`$nav->show();`
			`}`
Convert _t() to _() for gettext. darcs-hash:20080708094531-533db-83399a46e6ec4c0fcc6249b0235961f969d1ae73.gz 2008-07-08 18:45:31 +09:00
Adapt replies to new framework 2009-01-18 08:17:57 +09:00			`/**`
			`* Show the replies feed links`
			`*`
			`* @return void`
			`*/`

			`function showExportData()`
			`{`
			`$fl = new FeedList($this);`
Convert _t() to _() for gettext. darcs-hash:20080708094531-533db-83399a46e6ec4c0fcc6249b0235961f969d1ae73.gz 2008-07-08 18:45:31 +09:00
Adapt replies to new framework 2009-01-18 08:17:57 +09:00			`$rssurl = common_local_url('repliesrss',`
			`array('nickname' => $this->user->nickname));`
trac626 Put a list of feed links darcs-hash:20081114210506-eefa4-ba7e9bdd794ddfcacc397d732073abf99e97f3a5.gz 2008-11-15 06:05:06 +09:00
Adapt replies to new framework 2009-01-18 08:17:57 +09:00			`$fl->show(array(0=>array('href'=> $rssurl,`
			`'type' => 'rss',`
			`'version' => 'RSS 1.0',`
			`'item' => 'repliesrss')));`
replace all tabs with four spaces The PEAR coding standards decree: no tabs, but indent by four spaces. I've done a global search-and-replace on all tabs, replacing them by four spaces. This is a huge change, but it will go a long way to getting us towards phpcs-compliance. And that means better code readability, and that means more participation. darcs-hash:20081223191907-84dde-21e8efe210e6d5d54e935a22d0cee5c7bbfc007d.gz 2008-12-24 04:19:07 +09:00			`}`
Convert _t() to _() for gettext. darcs-hash:20080708094531-533db-83399a46e6ec4c0fcc6249b0235961f969d1ae73.gz 2008-07-08 18:45:31 +09:00
Adapt replies to new framework 2009-01-18 08:17:57 +09:00			`/**`
			`* Show the content`
			`*`
			`* A list of notices that are replies to the user, plus pagination.`
			`*`
			`* @return void`
			`*/`
UNDO: use DB_DataObject join darcs-hash:20080707070545-84dde-8034bf485a182ac86295c9a7831cfabac3cb2b55.gz 2008-07-07 16:05:45 +09:00
Adapt replies to new framework 2009-01-18 08:17:57 +09:00			`function showContent()`
			`{`
			`$notice = $this->user->getReplies(($this->page-1) * NOTICES_PER_PAGE,`
			`NOTICES_PER_PAGE + 1);`
UNDO: use DB_DataObject join darcs-hash:20080707070545-84dde-8034bf485a182ac86295c9a7831cfabac3cb2b55.gz 2008-07-07 16:05:45 +09:00
Adapt replies to new framework 2009-01-18 08:17:57 +09:00			`$nl = new NoticeList($notice, $this);`
make a new NoticeList widget and call it from StreamAction I made a new notice-list widget (like the profile list) and call it from StreamAction. This cleans up some of the mess in the various notice-stream-showing classes. I also changed show-stream so it uses a subclass of NoticeList that doesn't show author info (which is unnecessary). darcs-hash:20081211231252-5ed1f-ee6e551ed5a029406748120f12e2ff57c4a86493.gz 2008-12-12 08:12:52 +09:00
Adapt replies to new framework 2009-01-18 08:17:57 +09:00			`$cnt = $nl->show();`
Convert _t() to _() for gettext. darcs-hash:20080708094531-533db-83399a46e6ec4c0fcc6249b0235961f969d1ae73.gz 2008-07-08 18:45:31 +09:00
Adapt replies to new framework 2009-01-18 08:17:57 +09:00			`$this->pagination($this->page > 1, $cnt > NOTICES_PER_PAGE,`
			`$this->page, 'replies',`
			`array('nickname' => $this->user->nickname));`
replace all tabs with four spaces The PEAR coding standards decree: no tabs, but indent by four spaces. I've done a global search-and-replace on all tabs, replacing them by four spaces. This is a huge change, but it will go a long way to getting us towards phpcs-compliance. And that means better code readability, and that means more participation. darcs-hash:20081223191907-84dde-21e8efe210e6d5d54e935a22d0cee5c7bbfc007d.gz 2008-12-24 04:19:07 +09:00			`}`
mark a bunch of actions read-only 2009-01-23 18:15:15 +09:00
			`function isReadOnly()`
			`{`
			`return true;`
			`}`
First pass at replies support http://laconi.ca/PITS/00080 Doesn't handle a reply to a user that has never updated. darcs-hash:20080623030837-982e4-532ccd8899fd8be00575f8840da0defb44cd56f8.gz 2008-06-23 12:08:37 +09:00			`}`