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".

13 files changed, 39 insertions, 39 deletions

diff --git a/lib/PublicInbox/RepoBrowse.pm b/lib/PublicInbox/Repobrowse.pm
index ec54ed05..75dee72f 100644
--- 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
index 2ff5680a..06381b2a 100644
--- 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
index d55a27d2..2f780b65 100644
--- 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
index 498b82c7..eb79e563 100644
--- 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
index 3be069f7..273a1018 100644
--- 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
index 6278c53a..b3973392 100644
--- 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
index 03b282ef..79cc2fe4 100644
--- 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
index 9192c7fc..5d2c855c 100644
--- 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
index 432bbd3c..7f03864e 100644
--- 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
index e16195dd..ebb4f397 100644
--- 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
index 2019dd6f..13af0a34 100644
--- 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
index 6d5d4b8c..13ded634 100644
--- 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
index 861e587b..e9c5153f 100644
--- 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;