Parenthesize integrand with addition or subtraction. Update Symtegrat…

…ion version.

src/Symtegration/Site/Content.hs

@@ -6,6 +6,7 @@
 module Symtegration.Site.Content where
 
 import Symtegration
+import Symtegration.Symbolic
 import Text.Blaze.Html5
 
 -- | Turn a list of expressions into HTML showing an expression integrated into its integral.
@@ -18,7 +19,9 @@ integralExamples = mapM_ (p . integralExample)
 integralExample :: Expression -> Html
 integralExample e = toHtml equation
   where
-    equation = "\\( \\int " <> toLaTeX e <> " \\, dx = " <> t <> " \\)"
+    equation = "\\( \\int " <> delimit (toLaTeX e) <> " \\, dx = " <> t <> " \\)"
+    delimit v | (_ :+: _) <- e = brace v | (_ :-: _) <- e = brace v | otherwise = v
+    brace v = "\\left(" <> v <> "\\right)"
     t
       | Just e' <- integrate "x" e = toLaTeX e'
       | otherwise = "\\bot"

stack.yaml

@@ -11,4 +11,4 @@ packages:
 # Dependency packages to be pulled from upstream that are not in the snapshot.
 extra-deps:
 - git: https://github.com/symtegration/symtegration
-  commit: '7d49eca9f48adf6740dcb3a7934872e3b91a30e6'
+  commit: 'f0d317fed5457bc96c69495c26a53eab8b7716e1'