Add: julia-0.6.2

Former-commit-id: ccc667cf67d569f3fb3df39aa57c2134755a7551

julia-0.6.2/share/julia/base/markdown/render/latex.jl

@@ -0,0 +1,172 @@
+# This file is a part of Julia. License is MIT: https://julialang.org/license
+
+export latex
+
+function wrapblock(f, io, env)
+    println(io, "\\begin{", env, "}")
+    f()
+    println(io, "\\end{", env, "}")
+end
+
+function wrapinline(f, io, cmd)
+    print(io, "\\", cmd, "{")
+    f()
+    print(io, "}")
+end
+
+# Block elements
+
+latex(io::IO, md::MD) = latex(io, md.content)
+
+function latex(io::IO, content::Vector)
+    for c in content
+        latex(io, c)
+    end
+end
+
+function latex{l}(io::IO, header::Header{l})
+    tag = l < 4 ? "sub"^(l-1) * "section" : "sub"^(l-4) * "paragraph"
+    wrapinline(io, tag) do
+        latexinline(io, header.text)
+    end
+    println(io)
+end
+
+function latex(io::IO, code::Code)
+    wrapblock(io, "verbatim") do
+        # TODO latex escape
+        println(io, code.code)
+    end
+end
+
+function latexinline(io::IO, code::Code)
+    wrapinline(io, "texttt") do
+        print(io, latexesc(code.code))
+    end
+end
+
+function latex(io::IO, md::Paragraph)
+    for md in md.content
+        latexinline(io, md)
+    end
+    println(io)
+    println(io)
+end
+
+function latex(io::IO, md::BlockQuote)
+    wrapblock(io, "quote") do
+        latex(io, md.content)
+    end
+end
+
+
+function latex(io::IO, f::Footnote)
+    print(io, "\\footnotetext[", f.id, "]{")
+    latex(io, f.text)
+    println(io, "}")
+end
+
+function latex(io::IO, md::Admonition)
+    wrapblock(io, "quote") do
+        wrapinline(io, "textbf") do
+            print(io, md.category)
+        end
+        println(io, "\n\n", md.title, "\n")
+        latex(io, md.content)
+    end
+end
+
+function latex(io::IO, md::List)
+    # `\begin{itemize}` is used here for both ordered and unordered lists since providing
+    # custom starting numbers for enumerated lists is simpler to do by manually assigning
+    # each number to `\item` ourselves rather than using `\setcounter{enumi}{<start>}`.
+    #
+    # For an ordered list starting at 5 the following will be generated:
+    #
+    # \begin{itemize}
+    #   \item[5. ] ...
+    #   \item[6. ] ...
+    #   ...
+    # \end{itemize}
+    #
+    pad = ndigits(md.ordered + length(md.items)) + 2
+    fmt = n -> (isordered(md) ? "[$(rpad("$(n + md.ordered - 1).", pad))]" : "")
+    wrapblock(io, "itemize") do
+        for (n, item) in enumerate(md.items)
+            print(io, "\\item$(fmt(n)) ")
+            latex(io, item)
+            n < length(md.items) && println(io)
+        end
+    end
+end
+
+function show(io::IO, ::MIME"text/latex", md::HorizontalRule)
+    println(io, "\\rule{\\textwidth}{1pt}")
+end
+
+# Inline elements
+
+function latexinline(io::IO, md::Vector)
+    for c in md
+        latexinline(io, c)
+    end
+end
+
+function latexinline(io::IO, md::AbstractString)
+    latexesc(io, md)
+end
+
+function latexinline(io::IO, md::Bold)
+    wrapinline(io, "textbf") do
+        latexinline(io, md.text)
+    end
+end
+
+function latexinline(io::IO, md::Italic)
+    wrapinline(io, "emph") do
+        latexinline(io, md.text)
+    end
+end
+
+function latexinline(io::IO, md::Image)
+    wrapblock(io, "figure") do
+        println(io, "\\centering")
+        wrapinline(io, "includegraphics") do
+            print(io, md.url)
+        end
+        println(io)
+        wrapinline(io, "caption") do
+            latexinline(io, md.alt)
+        end
+        println(io)
+    end
+end
+
+latexinline(io::IO, f::Footnote) = print(io, "\\footnotemark[", f.id, "]")
+
+function latexinline(io::IO, md::Link)
+    wrapinline(io, "href") do
+        print(io, md.url)
+    end
+    print(io, "{")
+    latexinline(io, md.text)
+    print(io, "}")
+end
+
+const _latexescape_chars = Dict{Char, AbstractString}(
+   '~'=>"{\\sim}", '^'=>"\\^{}", '\\'=>"{\\textbackslash}")
+for ch in "&%\$#_{}"
+    _latexescape_chars[ch] = "\\$ch"
+end
+
+function latexesc(io, s::AbstractString)
+    for ch in s
+        print(io, get(_latexescape_chars, ch, ch))
+    end
+end
+
+latex(md) = sprint(latex, md)
+latexinline(md) = sprint(latexinline, md)
+latexesc(s) = sprint(latexesc, s)
+
+show(io::IO, ::MIME"text/latex", md::MD) = latex(io, md)