mirrors/WolframLanguageForJupyter
1
0
Fork 0
mirror of https://github.com/WolframResearch/WolframLanguageForJupyter.git synced 2025-04-15 19:26:04 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

Do not allow line breaks when generating TeX source for text/html results; allow setting PageWidth to Infinity

Browse Source
This commit is contained in:
cc-wr 2020-03-08 14:01:22 -04:00
parent 5587c6b763
commit 10c8ff5991
2 changed files with 28 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
WolframLanguageForJupyter/Resources/Initialization.wl
View File

@ -234,7 +234,10 @@ If[
Replace[
Lookup[Options[$Output], PageWidth],
Except[
pageWidth_ /; ((IntegerQ[pageWidth]) && (pageWidth > 0))
Alternatives[
Infinity,
pageWidth_ /; ((IntegerQ[pageWidth]) && (pageWidth > 0))
]
] ->
$defaultPageWidth
];

35
WolframLanguageForJupyter/Resources/OutputHandlingUtilities.wl
View File

@ -50,6 +50,7 @@ If[
(* convert an expression into a textual form,
using as much of the options already set for $Output as possible for ToString *)
(* NOTE: toOutTextHTML used to call toStringUsingOutput *)
toStringUsingOutput[expr_] :=
ToString[
expr,
@ -180,26 +181,32 @@ If[
results as text and images
*************************************)
(* generate the textual form of a result *)
(* generate the textual form of a result using a given page width *)
(* NOTE: the OutputForm (which ToString uses) of any expressions wrapped with, say, InputForm should
be identical to the string result of an InputForm-wrapped expression itself *)
toText[result_] :=
toText[result_, pageWidth_] :=
ToString[
(* make sure to apply $trueFormatType to the result if the result is not already headed by TeXForm *)
If[
Head[result] =!= TeXForm,
$trueFormatType[result],
result
Head[result] === TeXForm,
result,
$trueFormatType[result]
],
(* also, use the current PageWidth setting for $Output *)
PageWidth -> $truePageWidth
(* also, use the given page width *)
PageWidth -> pageWidth
];
(* generate the textual form of a result using the current PageWidth setting for $Output *)
toText[result_] := toText[result, $truePageWidth];
(* generate HTML for the textual form of a result *)
toOutTextHTML[result_] :=
Module[
{isTeX},
(* check if this result should be marked as TeX *)
isTeX = (Head[result] === TeXForm) || $outputSetToTeXForm;
{
(* if the result should be marked as TeX *)
isTeX
},
(* check if the result should be marked as TeX *)
isTeX = ((Head[result] === TeXForm) || ($outputSetToTeXForm));
Return[
StringJoin[
@ -222,7 +229,13 @@ If[
(* the textual form of the result *)
({"&#", ToString[#1], ";"} & /@
ToCharacterCode[
(* toStringUsingOutput[result] *) toText[result],
If[
isTeX,
(* if the result is TeX, do not allow line breaks *)
toText[result, Infinity],
(* otherwise, just call toText *)
toText[result]
],
"Unicode"
]),