47 lines
1.3 KiB
Perl
47 lines
1.3 KiB
Perl
#!/usr/bin/perl --
|
|
use strict;
|
|
use warnings;
|
|
use utf8;
|
|
use feature qw(say);
|
|
|
|
my $file = $0;
|
|
$file =~ s/\.pl$/\.txt/;
|
|
|
|
local $/=undef;
|
|
my $text = <DATA>;
|
|
|
|
$text =~ s/[\x00-\x20]+/ /g;
|
|
$text =~ s/\A //;
|
|
$text =~ s/ \z//;
|
|
$text =~ s/> />/g;
|
|
$text =~ s/ </</g;
|
|
|
|
open(my $fh,">:utf8",$file) or die "$file $!";
|
|
say $fh $text;
|
|
close($fh) or die "$file $!";
|
|
|
|
|
|
__DATA__
|
|
|
|
<p>Mastodon client for Android 8.0 or later.</p>
|
|
|
|
<p>Also this app has partially support for Misskey. But it does not include function to use message, drive, reversi, widget.</p>
|
|
|
|
<p># Multiple accounts, Multiple columns:</p>
|
|
<ul>
|
|
<li>You can swipe horizontally to switch columns and accounts.</li>
|
|
<li>You can add, remove, rearrange columns.</li>
|
|
<li>Column types: home, notification, local-TL, federate-TL, search, hash tags, conversation, profile, muted, blocked, follow requests, etc.</li>
|
|
</ul>
|
|
|
|
<p># Cross account action:</p>
|
|
<ul>
|
|
<li>You can favorite/follow operation as a user different from bind to column.</li>
|
|
</ul>
|
|
|
|
<p># Other informations:</p>
|
|
<ul>
|
|
<li>source code is here. <a href="https://github.com/tateisu/SubwayTooter">https://github.com/tateisu/SubwayTooter</a></li>
|
|
<li>Some of the icons used in this app is based on the Icons8. <a href="https://icons8.com/license/">https://icons8.com/license/</a></li>
|
|
</ul>
|