Skip to content

Commit 36eac19

Browse files
committed
Add optional fields, custom fields and field options
add a number of optional fields : mood, composer, lyricist, conductor, remixer, bpm (note that these artist fields do not currently support multi-artists) rating and playcount can now optionally be saved in the file tag, using FMPS standard custom fields can be created, currently only custom ratings can be saved in tags
1 parent 92d8546 commit 36eac19

File tree

4 files changed

+444
-23
lines changed

4 files changed

+444
-23
lines changed

gmusicbrowser.pl

Lines changed: 7 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -495,6 +495,12 @@ sub MarkupFormat
495495
{ my $format=shift;
496496
sprintf $format, map PangoEsc($_), @_;
497497
}
498+
sub Gtk2::Label::new_with_format
499+
{ my $class=shift;
500+
my $label=Gtk2::Label->new;
501+
$label->set_markup( MarkupFormat(@_) );
502+
return $label;
503+
}
498504
sub Gtk2::Label::set_markup_with_format
499505
{ my $label=shift;
500506
$label->set_markup( MarkupFormat(@_) );
@@ -5137,6 +5143,7 @@ sub PrefDialog
51375143
$notebook->append_page( PrefAudio() ,Gtk2::Label->new(_"Audio"));
51385144
$notebook->append_page( PrefLayouts() ,Gtk2::Label->new(_"Layouts"));
51395145
$notebook->append_page( PrefMisc() ,Gtk2::Label->new(_"Misc."));
5146+
$notebook->append_page( Songs::PrefFields(),Gtk2::Label->new(_"Fields"));
51405147
$notebook->append_page( PrefPlugins() ,Gtk2::Label->new(_"Plugins"));
51415148
$notebook->append_page( PrefKeys() ,Gtk2::Label->new(_"Keys"));
51425149
$notebook->append_page( PrefTags() ,Gtk2::Label->new(_"Tags"));

gmusicbrowser_list.pm

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -3448,7 +3448,7 @@ sub PopupSelectorMenu
34483448
}
34493449
my $item1=Gtk2::MenuItem->new(_"Select search fields");
34503450
$item1->set_submenu( ::BuildChoiceMenu(
3451-
{ map { $_=>Songs::FieldName($_) } qw/title artist album comment label genre file path album_artist version/ },
3451+
{ map { $_=>Songs::FieldName($_) } Songs::StringFields(),qw/file path/,},
34523452
'reverse' =>1,
34533453
check=> sub { [split /\|/,$self->{fields}]; },
34543454
code => sub { $self->ToggleField($_[1]); },

0 commit comments

Comments
 (0)