Don't try to load categories.

Currently, categories are not implemented.

1 files changed, 20 insertions, 18 deletions

diff --git a/bin/gtk-straw-viewer b/bin/gtk-straw-viewer
index ba4f123..432f31f 100755
--- a/bin/gtk-straw-viewer
+++ b/bin/gtk-straw-viewer
@@ -247,7 +247,7 @@ my %CONFIG = (
     history_file           => $history_file,
     recent_history         => 10,
     remember_session       => 1,
-    remember_session_max   => 10,
+    remember_session_depth   => 10,
     save_titles_to_history => 0,
     entry_completion_limit => 10,
 );
@@ -1806,31 +1806,33 @@ sub append_categories {
     return 1;
 }
 
-{
+#<<<
+#~ {
     # Standard categories:
-    add_category_header("Categories");
+    #~ add_category_header("Categories");
 
-    my $cats = $yv_obj->video_categories();
-    if (ref($cats) eq 'HASH' and ref($cats->{items}) eq 'ARRAY') {
+    #~ my $cats = $yv_obj->video_categories();
+    #~ if (ref($cats) eq 'HASH' and ref($cats->{items}) eq 'ARRAY') {
 
-        my $help_text = '';
-        foreach my $cat (sort { $a->{id} <=> $b->{id} } @{$cats->{items}}) {
-            $cat->{snippet}{assignable} || next;
-            $help_text .= sprintf("%2d - %s\n", $cat->{id}, $yv_utils->get_title($cat));
-        }
+        #~ my $help_text = '';
+        #~ foreach my $cat (sort { $a->{id} <=> $b->{id} } @{$cats->{items}}) {
+            #~ $cat->{snippet}{assignable} || next;
+            #~ $help_text .= sprintf("%2d - %s\n", $cat->{id}, $yv_utils->get_title($cat));
+        #~ }
 
-        # Set tooltip text for "CategoryID" entry
-        chomp($help_text);
-        $category_id_entry->set_tooltip_text($help_text);
+        #~ # Set tooltip text for "CategoryID" entry
+        #~ chomp($help_text);
+        #~ $category_id_entry->set_tooltip_text($help_text);
 
-        # Append the categories to the "Categories" tab
-        append_categories($cats, 'cat');
-    }
+        #~ # Append the categories to the "Categories" tab
+        #~ append_categories($cats, 'cat');
+    #~ }
 
     # EDU categories:
     #add_category_header("EDU Categories");
     #append_categories($yv_obj->get_educategories(), 'edu-cat');
-}
+#~ }
+#>>>
 
 my $tops_liststore = $gui->get_object('liststore6');
 my $tops_treeview  = $gui->get_object('treeview4');
@@ -3472,7 +3474,7 @@ sub save_session {
 
     require List::Util;
 
-    my $max   = $CONFIG{remember_session_max};
+    my $max   = $CONFIG{remember_session_depth};
     my @left  = @results[List::Util::max(0, $curr - $max) .. $curr - 1];
     my @right = @results[$curr + 1 .. List::Util::min($#results, $curr + $max)];