add options to control scale, width and height when compiling a latex…

…-string to pdf

ToolsForHigherHomologicalAlgebra/PackageInfo.g

@@ -10,7 +10,7 @@ SetPackageInfo( rec(
 
 PackageName := "ToolsForHigherHomologicalAlgebra",
 Subtitle := "Tools for the Higher Homological Algebra project",
-Version := "2023.09-01",
+Version := "2024.06-01",
 Date := (function ( ) if IsBound( GAPInfo.SystemEnvironment.GAP_PKG_RELEASE_DATE ) then return GAPInfo.SystemEnvironment.GAP_PKG_RELEASE_DATE; else return Concatenation( ~.Version{[ 1 .. 4 ]}, "-", ~.Version{[ 6, 7 ]}, "-01" ); fi; end)( ),
 License := "GPL-2.0-or-later",
 

ToolsForHigherHomologicalAlgebra/gap/LaTeX.gi

@@ -39,7 +39,7 @@ InstallOtherMethod( Show,
           [ IsString, IsObject ],
   function( c, r )
 
-    Show( c : ScaleBox := r );
+    Show( c : scale := r );
 
 end );
 
@@ -48,27 +48,22 @@ InstallMethod( Show,
           [ IsString ],
 
   function( str )
-    local scale, dir, filename, string, x, file;
-
-    scale := ValueOption( "ScaleBox" );
+    local scale, width, height, dir, filename, string, file, x;
 
-    if scale = fail then
-
-      scale := "1";
-
-    elif not IsString( scale ) then
-
-      scale := String( scale );
-
-    fi;
+    scale := CAP_INTERNAL_RETURN_OPTION_OR_DEFAULT( "scale", "1" );
+    width := CAP_INTERNAL_RETURN_OPTION_OR_DEFAULT( "width", "10in" );
+    height := CAP_INTERNAL_RETURN_OPTION_OR_DEFAULT( "height", "15in" );
 
     dir := DirectoryTemporary();
 
     filename := Filename( dir, "main.tex" );
 
     string := Concatenation(
 """
-\documentclass[12pt,makeidx]{amsbook}
+\documentclass{article}
+\usepackage{geometry}
+% Set custom paper size
+\geometry{paperwidth=""", width, ", paperheight=", height, """, margin=1in}
 \usepackage{mathtools}
 \usepackage{amssymb}
 \usepackage{amsthm}