repobrowse: change Perl capitalization to "Repobrowse"

We mainly call it "repobrowse" (all lowercase), so do not imply
it is two separate words by capitalizing "Browse".

diff --git a/examples/repobrowse.psgi b/examples/repobrowse.psgi
index d7c096f83c4443d647947c5b64bb68f06fed59a8..a642911fe62f719a2715bc29b8fddc695dbad56c 100644 (file)
--- a/examples/repobrowse.psgi
+++ b/examples/repobrowse.psgi
@@ -5,11 +5,11 @@
 # Usage: plackup [OPTIONS] /path/to/this/file
 use strict;
 use warnings;
-use PublicInbox::RepoBrowse;
+use PublicInbox::Repobrowse;
 use Plack::Request;
 use Plack::Builder;
 my $have_deflater = eval { require Plack::Middleware::Deflater; 1 };
-my $repo_browse = PublicInbox::RepoBrowse->new;
+my $repo_browse = PublicInbox::Repobrowse->new;
 
 builder {
        enable 'Plack::Middleware::Chunked';

diff --git a/lib/PublicInbox/RepoBrowse.pm b/lib/PublicInbox/Repobrowse.pm
similarity index 91%
rename from lib/PublicInbox/RepoBrowse.pm
rename to lib/PublicInbox/Repobrowse.pm
index ec54ed05850c2cff6941bd0ddd9e2f9096b60de1..75dee72fafebbbf33eb07dc0eb139cf8fbbde584 100644 (file)
--- a/lib/PublicInbox/RepoBrowse.pm
+++ b/lib/PublicInbox/Repobrowse.pm
@@ -12,16 +12,16 @@
 #
 # This allows an M:N relationship between "normal" repos for project
 # and public-inbox (ssoma) git repositories where N may be zero.
-# In other words, RepoBrowse must work for repositories without
+# In other words, repobrowse must work for repositories without
 # any public-inbox at all; or with multiple public-inboxes.
 # And the rest of public-inbox will always work without a "normal"
 # code repo for the project.
 
-package PublicInbox::RepoBrowse;
+package PublicInbox::Repobrowse;
 use strict;
 use warnings;
 use URI::Escape qw(uri_escape_utf8 uri_unescape);
-use PublicInbox::RepoConfig;
+use PublicInbox::RepobrowseConfig;
 
 my %CMD = map { lc($_) => $_ } qw(Log Commit Tree Patch Blob Plain Tag);
 my %VCS = (git => 'Git');
@@ -29,7 +29,7 @@ my %LOADED;
 
 sub new {
        my ($class, $file) = @_;
-       bless { rconfig => PublicInbox::RepoConfig->new($file) }, $class;
+       bless { rconfig => PublicInbox::RepobrowseConfig->new($file) }, $class;
 }
 
 # simple response for errors
@@ -71,7 +71,7 @@ sub run {
                        unshift @extra, $cmd;
                        $mod = 'Fallback';
                }
-               $mod = load_once("PublicInbox::RepoBrowse$vcs$mod");
+               $mod = load_once("PublicInbox::Repobrowse$vcs$mod");
                $vcs = load_once("PublicInbox::$vcs");
                $repo_info->{$vcs_lc} ||= $vcs->new($repo_info->{path});
                $req->{relcmd} = '../' x scalar(@extra);

diff --git a/lib/PublicInbox/RepoBrowseBase.pm b/lib/PublicInbox/RepobrowseBase.pm
similarity index 95%
rename from lib/PublicInbox/RepoBrowseBase.pm
rename to lib/PublicInbox/RepobrowseBase.pm
index 2ff5680afe54e1302edbef71047b2c2ed6212589..06381b2a3c33f6d746cfe124fe1e3dacca60a5d5 100644 (file)
--- a/lib/PublicInbox/RepoBrowseBase.pm
+++ b/lib/PublicInbox/RepobrowseBase.pm
@@ -1,9 +1,9 @@
 # Copyright (C) 2015 all contributors <meta@public-inbox.org>
 # License: AGPL-3.0+ <https://www.gnu.org/licenses/agpl-3.0.txt>
-package PublicInbox::RepoBrowseBase;
+package PublicInbox::RepobrowseBase;
 use strict;
 use warnings;
-require PublicInbox::RepoBrowseQuery;
+require PublicInbox::RepobrowseQuery;
 use PublicInbox::Hval;
 
 sub new { bless {}, shift }

diff --git a/lib/PublicInbox/RepoConfig.pm b/lib/PublicInbox/RepobrowseConfig.pm
similarity index 93%
rename from lib/PublicInbox/RepoConfig.pm
rename to lib/PublicInbox/RepobrowseConfig.pm
index d55a27d29ab8e85b6c2905abd8792e4f6baafac6..2f780b65ba6164e5c6db5400a737866b3bef6e0c 100644 (file)
--- a/lib/PublicInbox/RepoConfig.pm
+++ b/lib/PublicInbox/RepobrowseConfig.pm
@@ -1,6 +1,6 @@
 # Copyright (C) 2015 all contributors <meta@public-inbox.org>
 # License: AGPL-3.0+ <https://www.gnu.org/licenses/agpl-3.0.txt>
-package PublicInbox::RepoConfig;
+package PublicInbox::RepobrowseConfig;
 use strict;
 use warnings;
 use PublicInbox::Config qw/try_cat/;
@@ -17,7 +17,7 @@ sub new {
 sub default_file {
        my $f = $ENV{PI_REPO_CONFIG};
        return $f if defined $f;
-       PublicInbox::Config::config_dir() . '/repo_config';
+       PublicInbox::Config::config_dir() . '/repobrowse_config';
 }
 
 # Returns something like:

diff --git a/lib/PublicInbox/RepoBrowseGit.pm b/lib/PublicInbox/RepobrowseGit.pm
similarity index 94%
rename from lib/PublicInbox/RepoBrowseGit.pm
rename to lib/PublicInbox/RepobrowseGit.pm
index 498b82c722291f2f34470fc284a5c172477ff5a9..eb79e56346b764c088401a059c40200c312a8820 100644 (file)
--- a/lib/PublicInbox/RepoBrowseGit.pm
+++ b/lib/PublicInbox/RepobrowseGit.pm
@@ -1,8 +1,8 @@
 # Copyright (C) 2015 all contributors <meta@public-inbox.org>
 # License: AGPL-3.0+ (https://www.gnu.org/licenses/agpl-3.0.txt)
 
-# common functions used by other RepoBrowseGit* modules
-package PublicInbox::RepoBrowseGit;
+# common functions used by other RepobrowseGit* modules
+package PublicInbox::RepobrowseGit;
 use strict;
 use warnings;
 use base qw(Exporter);

diff --git a/lib/PublicInbox/RepoBrowseGitBlob.pm b/lib/PublicInbox/RepobrowseGitBlob.pm
similarity index 93%
rename from lib/PublicInbox/RepoBrowseGitBlob.pm
rename to lib/PublicInbox/RepobrowseGitBlob.pm
index 3be069f74d47364737247ee2e3bb0e41fff24c49..273a10186854ec63100a2ae0b9f01c8eedcb0a46 100644 (file)
--- a/lib/PublicInbox/RepoBrowseGitBlob.pm
+++ b/lib/PublicInbox/RepobrowseGitBlob.pm
@@ -2,17 +2,17 @@
 # License: AGPL-3.0+ <https://www.gnu.org/licenses/agpl-3.0.txt>
 
 # Show a blob as-is
-package PublicInbox::RepoBrowseGitBlob;
+package PublicInbox::RepobrowseGitBlob;
 use strict;
 use warnings;
-use base qw(PublicInbox::RepoBrowseBase);
+use base qw(PublicInbox::RepobrowseBase);
 use base qw(Exporter);
 our @EXPORT = qw(git_blob_mime_type git_blob_stream_response);
 
 sub call_git_blob {
        my ($self, $req) = @_;
        my $git = $req->{repo_info}->{git};
-       my $q = PublicInbox::RepoBrowseQuery->new($req->{cgi});
+       my $q = PublicInbox::RepobrowseQuery->new($req->{cgi});
        my $id = $q->{id};
        $id eq '' and $id = 'HEAD';
 

diff --git a/lib/PublicInbox/RepoBrowseGitCommit.pm b/lib/PublicInbox/RepobrowseGitCommit.pm
similarity index 97%
rename from lib/PublicInbox/RepoBrowseGitCommit.pm
rename to lib/PublicInbox/RepobrowseGitCommit.pm
index 6278c53adcd0eb93f2092acaccb8c3169d11d4d1..b3973392cd11a4a651d4a1519ca432bb2c2d539b 100644 (file)
--- a/lib/PublicInbox/RepoBrowseGitCommit.pm
+++ b/lib/PublicInbox/RepobrowseGitCommit.pm
@@ -2,12 +2,12 @@
 # License: AGPL-3.0+ <https://www.gnu.org/licenses/agpl-3.0.txt>
 
 # shows the /commit/ endpoint for git repositories
-package PublicInbox::RepoBrowseGitCommit;
+package PublicInbox::RepobrowseGitCommit;
 use strict;
 use warnings;
-use base qw(PublicInbox::RepoBrowseBase);
+use base qw(PublicInbox::RepobrowseBase);
 use PublicInbox::Hval qw(utf8_html);
-use PublicInbox::RepoBrowseGit qw(git_unquote git_commit_title);
+use PublicInbox::RepobrowseGit qw(git_unquote git_commit_title);
 
 use constant GIT_FMT => '--pretty=format:'.join('%n',
        '%H', '%h', '%s', '%an <%ae>', '%ai', '%cn <%ce>', '%ci',
@@ -118,7 +118,7 @@ sub git_commit_stream {
 sub call_git_commit {
        my ($self, $req) = @_;
 
-       my $q = PublicInbox::RepoBrowseQuery->new($req->{cgi});
+       my $q = PublicInbox::RepobrowseQuery->new($req->{cgi});
        my $id = $q->{id};
        $id eq '' and $id = 'HEAD';
        my $git = $req->{repo_info}->{git};

diff --git a/lib/PublicInbox/RepoBrowseGitFallback.pm b/lib/PublicInbox/RepobrowseGitFallback.pm
similarity index 94%
rename from lib/PublicInbox/RepoBrowseGitFallback.pm
rename to lib/PublicInbox/RepobrowseGitFallback.pm
index 03b282effb09c4aa13169d8aef97cda27db031ee..79cc2fe4ab72d34f85ff8ec835a8830a68fbd674 100644 (file)
--- a/lib/PublicInbox/RepoBrowseGitFallback.pm
+++ b/lib/PublicInbox/RepobrowseGitFallback.pm
@@ -3,13 +3,13 @@
 
 # when no endpoints match, fallback to this and serve a static file
 # This can serve Smart HTTP in the future.
-package PublicInbox::RepoBrowseGitFallback;
+package PublicInbox::RepobrowseGitFallback;
 use strict;
 use warnings;
-use base qw(PublicInbox::RepoBrowseBase);
+use base qw(PublicInbox::RepobrowseBase);
 use Fcntl qw(:seek);
 
-# overrides PublicInbox::RepoBrowseBase::call
+# overrides PublicInbox::RepobrowseBase::call
 sub call {
        my ($self, undef, $req) = @_;
        my $expath = $req->{expath};

diff --git a/lib/PublicInbox/RepoBrowseGitLog.pm b/lib/PublicInbox/RepobrowseGitLog.pm
similarity index 93%
rename from lib/PublicInbox/RepoBrowseGitLog.pm
rename to lib/PublicInbox/RepobrowseGitLog.pm
index 9192c7fc1ac37702f4ab339dc4eb283d331d7e36..5d2c855cc611cd16041e249575c0b04b41055777 100644 (file)
--- a/lib/PublicInbox/RepoBrowseGitLog.pm
+++ b/lib/PublicInbox/RepobrowseGitLog.pm
@@ -1,12 +1,12 @@
 # Copyright (C) 2015 all contributors <meta@public-inbox.org>
 # License: AGPL-3.0+ <https://www.gnu.org/licenses/agpl-3.0.txt>
 
-package PublicInbox::RepoBrowseGitLog;
+package PublicInbox::RepobrowseGitLog;
 use strict;
 use warnings;
 use PublicInbox::Hval qw(utf8_html);
-use base qw(PublicInbox::RepoBrowseBase);
-use PublicInbox::RepoBrowseGit qw(git_dec_links git_commit_title);
+use base qw(PublicInbox::RepobrowseBase);
+use PublicInbox::RepobrowseGit qw(git_dec_links git_commit_title);
 # cannot rely on --date=format-local:... yet, it is too new (September 2015)
 my $LOG_FMT = '--pretty=tformat:'.
                join('%x00', qw(%h %p %s D%D));
@@ -19,7 +19,7 @@ sub call_git_log {
        $max = int($max);
        $max = 50 if $max == 0;
 
-       my $q = PublicInbox::RepoBrowseQuery->new($req->{cgi});
+       my $q = PublicInbox::RepobrowseQuery->new($req->{cgi});
        my $h = $q->{h};
        $h eq '' and $h = 'HEAD';
 

diff --git a/lib/PublicInbox/RepoBrowseGitPatch.pm b/lib/PublicInbox/RepobrowseGitPatch.pm
similarity index 89%
rename from lib/PublicInbox/RepoBrowseGitPatch.pm
rename to lib/PublicInbox/RepobrowseGitPatch.pm
index 432bbd3c8f184e43b4d53d780c4bb8a490fd36c3..7f03864e40a7004c9d64d98ce7136318eafc41e0 100644 (file)
--- a/lib/PublicInbox/RepoBrowseGitPatch.pm
+++ b/lib/PublicInbox/RepobrowseGitPatch.pm
@@ -3,10 +3,10 @@
 
 # shows the /patch/ endpoint for git repositories
 # usage: /repo.git/patch?id=COMMIT_ID
-package PublicInbox::RepoBrowseGitPatch;
+package PublicInbox::RepobrowseGitPatch;
 use strict;
 use warnings;
-use base qw(PublicInbox::RepoBrowseBase);
+use base qw(PublicInbox::RepobrowseBase);
 
 # try to be educational and show the command-line used in the signature
 my @CMD = qw(format-patch -M --stdout);
@@ -15,7 +15,7 @@ my $sig = '--signature=git '.join(' ', @CMD);
 sub call_git_patch {
        my ($self, $req) = @_;
        my $git = $req->{repo_info}->{git};
-       my $q = PublicInbox::RepoBrowseQuery->new($req->{cgi});
+       my $q = PublicInbox::RepobrowseQuery->new($req->{cgi});
        my $id = $q->{id};
        $id =~ /\A[\w-]+([~\^][~\^\d])*\z/ or $id = 'HEAD';
 

diff --git a/lib/PublicInbox/RepoBrowseGitPlain.pm b/lib/PublicInbox/RepobrowseGitPlain.pm
similarity index 92%
rename from lib/PublicInbox/RepoBrowseGitPlain.pm
rename to lib/PublicInbox/RepobrowseGitPlain.pm
index e16195dd2cf5f2407fa2911cd2af021f2f59941a..ebb4f39721a0d4ac03d560ce0bf759b03f2e3b65 100644 (file)
--- a/lib/PublicInbox/RepoBrowseGitPlain.pm
+++ b/lib/PublicInbox/RepobrowseGitPlain.pm
@@ -1,16 +1,16 @@
 # Copyright (C) 2015-2016 all contributors <meta@public-inbox.org>
 # License: AGPL-3.0+ <https://www.gnu.org/licenses/agpl-3.0.txt>
-package PublicInbox::RepoBrowseGitPlain;
+package PublicInbox::RepobrowseGitPlain;
 use strict;
 use warnings;
-use base qw(PublicInbox::RepoBrowseBase);
-use PublicInbox::RepoBrowseGitBlob;
+use base qw(PublicInbox::RepobrowseBase);
+use PublicInbox::RepobrowseGitBlob;
 use PublicInbox::Hval qw(utf8_html);
 
 sub call_git_plain {
        my ($self, $req) = @_;
        my $git = $req->{repo_info}->{git};
-       my $q = PublicInbox::RepoBrowseQuery->new($req->{cgi});
+       my $q = PublicInbox::RepobrowseQuery->new($req->{cgi});
        my $id = $q->{id};
        $id eq '' and $id = 'HEAD';
 

diff --git a/lib/PublicInbox/RepoBrowseGitTag.pm b/lib/PublicInbox/RepobrowseGitTag.pm
similarity index 97%
rename from lib/PublicInbox/RepoBrowseGitTag.pm
rename to lib/PublicInbox/RepobrowseGitTag.pm
index 2019dd6fd3e6284ec81aeb378d24456d87aaac0e..13af0a34800fc318d3904d054d830d1d476cda4f 100644 (file)
--- a/lib/PublicInbox/RepoBrowseGitTag.pm
+++ b/lib/PublicInbox/RepobrowseGitTag.pm
@@ -2,10 +2,10 @@
 # License: AGPL-3.0+ <https://www.gnu.org/licenses/agpl-3.0.txt>
 
 # shows the /tag/ endpoint for git repositories
-package PublicInbox::RepoBrowseGitTag;
+package PublicInbox::RepobrowseGitTag;
 use strict;
 use warnings;
-use base qw(PublicInbox::RepoBrowseBase);
+use base qw(PublicInbox::RepobrowseBase);
 use POSIX qw(strftime);
 use PublicInbox::Hval qw(utf8_html);
 
@@ -18,7 +18,7 @@ my %cmd_map = ( # type => action
 sub call_git_tag {
        my ($self, $req) = @_;
 
-       my $q = PublicInbox::RepoBrowseQuery->new($req->{cgi});
+       my $q = PublicInbox::RepobrowseQuery->new($req->{cgi});
        my $h = $q->{h};
        $h eq '' and return sub {
                my ($res) = @_;

diff --git a/lib/PublicInbox/RepoBrowseGitTree.pm b/lib/PublicInbox/RepobrowseGitTree.pm
similarity index 97%
rename from lib/PublicInbox/RepoBrowseGitTree.pm
rename to lib/PublicInbox/RepobrowseGitTree.pm
index 6d5d4b8c96e398996d8f0fa27a207d7611c27536..13ded634d2e60f8f77af850339e3c78ddfb81934 100644 (file)
--- a/lib/PublicInbox/RepoBrowseGitTree.pm
+++ b/lib/PublicInbox/RepobrowseGitTree.pm
@@ -1,9 +1,9 @@
 # Copyright (C) 2015 all contributors <meta@public-inbox.org>
 # License: AGPL-3.0+ <https://www.gnu.org/licenses/agpl-3.0.txt>
-package PublicInbox::RepoBrowseGitTree;
+package PublicInbox::RepobrowseGitTree;
 use strict;
 use warnings;
-use base qw(PublicInbox::RepoBrowseBase);
+use base qw(PublicInbox::RepobrowseBase);
 use PublicInbox::Hval qw(utf8_html);
 
 my %GIT_MODE = (
@@ -20,7 +20,7 @@ sub git_tree_stream {
        my ($self, $req, $res) = @_; # res: Plack callback
        my @extra = @{$req->{extra}};
        my $git = $req->{repo_info}->{git};
-       my $q = PublicInbox::RepoBrowseQuery->new($req->{cgi});
+       my $q = PublicInbox::RepobrowseQuery->new($req->{cgi});
        my $id = $q->{id};
        if ($id eq '') {
                chomp($id = $git->qx(qw(rev-parse --short=10 HEAD)));

diff --git a/lib/PublicInbox/RepoBrowseQuery.pm b/lib/PublicInbox/RepobrowseQuery.pm
similarity index 95%
rename from lib/PublicInbox/RepoBrowseQuery.pm
rename to lib/PublicInbox/RepobrowseQuery.pm
index 861e587b636d6e22e8570acd3f6068fd8e51a40a..e9c5153f8b221f74d58f24b444c435db73bde15f 100644 (file)
--- a/lib/PublicInbox/RepoBrowseQuery.pm
+++ b/lib/PublicInbox/RepobrowseQuery.pm
@@ -2,7 +2,7 @@
 # License: AGPL-3.0+ <https://www.gnu.org/licenses/agpl-3.0.txt>
 
 # query parameter management for repobrowse
-package PublicInbox::RepoBrowseQuery;
+package PublicInbox::RepobrowseQuery;
 use strict;
 use warnings;
 use PublicInbox::Hval;

diff --git a/t/repobrowse_common_git.perl b/t/repobrowse_common_git.perl
index 869ab3826bf959bb8606971c9bc8edbdd46ad050..96763d9db3b0cfe285c1464d819190d8fdc2232b 100644 (file)
--- a/t/repobrowse_common_git.perl
+++ b/t/repobrowse_common_git.perl
@@ -64,4 +64,4 @@ bless {
        psgi => $psgi,
        git_dir => $git_dir,
        app => $app,
-}, 'RepoBrowse::TestGit';
+}, 'Repobrowse::TestGit';

diff --git a/t/repobrowse_git.t b/t/repobrowse_git.t
index eeda90a358e6cd50de84508c7d0dd7c00e0f718d..6ae7475bbe94f63bd1d6c13761ed6456a692b142 100644 (file)
--- a/t/repobrowse_git.t
+++ b/t/repobrowse_git.t
@@ -3,7 +3,7 @@
 use strict;
 use warnings;
 use Test::More;
-use PublicInbox::RepoBrowseGit qw(git_unquote);
+use PublicInbox::RepobrowseGit qw(git_unquote);
 
 is("foo\nbar", git_unquote('"foo\\nbar"'), 'unquoted newline');
 is("Eléanor", git_unquote('"El\\303\\251anor"'), 'unquoted octal');