From a043e0a81460a94e0732672afc3831689984caf8 Mon Sep 17 00:00:00 2001
From: xmusjackson <viking.chris@live.com>
Date: Sun, 14 May 2023 20:57:35 -0500
Subject: Add "Extract to subdirectory" option

This commit adds an "Extract to subdirectory" option to
the extract dialog which allows the user to extract the
contents of the archive to a directory with the name of
the archive (without the extension.) The user will be
prompted if the directory must be created.

file-utils.c: Improve remove_extension_from_path

Rework this function so that it correctly parses and
truncates files with multiple extensions like .tar.gz

file-utils.c: Improve get_file_extension

Improve this function to correctly identify and return
supported compressed tar file extensions
---
 src/ui/dlg-extract.ui | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)

(limited to 'src/ui')

diff --git a/src/ui/dlg-extract.ui b/src/ui/dlg-extract.ui
index 745c548..e842512 100644
--- a/src/ui/dlg-extract.ui
+++ b/src/ui/dlg-extract.ui
@@ -304,6 +304,22 @@
                             <property name="position">2</property>
                           </packing>
                         </child>
+                        <child>
+                          <object class="GtkCheckButton" id="create_subdir_checkbutton">
+                            <property name="label" translatable="yes">Extract to s_ubdirectory</property>
+                            <property name="visible">True</property>
+                            <property name="can_focus">True</property>
+                            <property name="receives_default">False</property>
+                            <property name="halign">start</property>
+                            <property name="use_underline">True</property>
+                            <property name="draw_indicator">True</property>
+                          </object>
+                          <packing>
+                            <property name="expand">False</property>
+                            <property name="fill">True</property>
+                            <property name="position">1</property>
+                          </packing>
+                        </child> 
                       </object>
                     </child>
                   </object>
-- 
cgit v1.2.1