Honor uppercase for cref output

lierdakil · May 26, 2015 · ce37700 · ce37700 · arve0 · May 26, 2015
1 parent 9eda052
commit ce37700
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/src/References/Refs.hs b/src/References/Refs.hs
@@ -79,12 +79,14 @@ replaceRefsLatex prefix opts cits =
     texcit =
       RawInline (Format "tex") $
       if useCleveref opts then
-        "\\cref{"++listLabels prefix "" "," "" cits++"}"
+        cref++"{"++listLabels prefix "" "," "" cits++"}"
         else
           listLabels prefix "\\ref{" ", " "}" cits
     p | useCleveref opts = []
       | otherwise = getRefPrefix opts prefix cap (length cits - 1)
     cap = isFirstUpper $ getLabelPrefix . citationId . head $ cits
+    cref | cap = "\\Cref"
+         | otherwise = "\\cref"
 
 listLabels :: String -> String -> String -> String -> [Citation] -> String
 listLabels prefix p sep s =