Renamed to gprompt

I still have no clue what to call this useless thing so meh.
This commit is contained in:
Emmanuel BENOîT 2020-10-21 12:58:36 +02:00
parent d6fc8dcacb
commit 8486a660e7
2 changed files with 19 additions and 9 deletions

View file

@ -5,9 +5,9 @@
# - Allow overrides from environment # - Allow overrides from environment
cfg_from_env => 0 , cfg_from_env => 0 ,
# - System theme dirs # - System theme dirs
cfg_sys_themes => [ '/usr/share/spp/themes' ] , cfg_sys_themes => [ '/usr/share/gprompt/themes' ] ,
# - User theme dirs # - User theme dirs
cfg_user_themes => [ '.local/share/spp/themes' , '.spp-themes' ] , cfg_user_themes => [ '.local/share/gprompt/themes' , '.gprompt-themes' ] ,
# LAYOUT # LAYOUT
# - Theme and local overrides # - Theme and local overrides

View file

@ -1,6 +1,12 @@
#!/usr/bin/perl #!/usr/bin/perl
# SHINY PERL PROMPT, lol ################################################################################
# Use with : export PROMPT_COMMAND='eval "$(perl path/to/spp.pl $?)"' # GADGETOPROMPT
# A really useless bash prompt generator the most likely only works on Linux and
# requires Perl.
################################################################################
# Have a look at README.md for some documentation
# Licensed under the WTFPL version 2, which should be in the LICENSE file.
use strict; use strict;
use warnings; use warnings;
@ -18,9 +24,9 @@ our %CONFIG = (
# - Allow overrides from environment # - Allow overrides from environment
cfg_from_env => 0 , cfg_from_env => 0 ,
# - System theme dirs # - System theme dirs
cfg_sys_themes => [ '/usr/share/spp/themes' ] , cfg_sys_themes => [ '/usr/share/gprompt/themes' ] ,
# - User theme dirs # - User theme dirs
cfg_user_themes => [ '.local/share/spp/themes' , '.spp-themes' ] , cfg_user_themes => [ '.local/share/gprompt/themes' , '.gprompt-themes' ] ,
# LAYOUT # LAYOUT
# - Theme and local overrides # - Theme and local overrides
@ -597,8 +603,8 @@ sub gen_term_title
sub get_config_overrides sub get_config_overrides
{ {
foreach my $k ( keys %CONFIG ) { foreach my $k ( keys %CONFIG ) {
next unless exists $ENV{ "SPP_" . uc($k) }; next unless exists $ENV{ "GPROMPT_" . uc($k) };
my $ev = $ENV{ "SPP_" . uc($k) }; my $ev = $ENV{ "GPROMPT_" . uc($k) };
next if $ev eq ''; next if $ev eq '';
my $vt = ref $CONFIG{ $k }; my $vt = ref $CONFIG{ $k };
@ -618,7 +624,11 @@ sub get_config_overrides
sub load_config sub load_config
{ {
foreach my $cfg_file ( ( '/etc/spp-defaults.rc' , "$ENV{HOME}/.spp.rc" ) ) { my @cfg_files = (
'/etc/gprompt-defaults.rc' ,
"$ENV{HOME}/.gprompt.rc"
);
foreach my $cfg_file ( @cfg_files ) {
next unless -f $cfg_file; next unless -f $cfg_file;
my $data = do $cfg_file; my $data = do $cfg_file;
my $warn = $CONFIG{cfg_warn_files}; my $warn = $CONFIG{cfg_warn_files};