diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2013-08-25 20:48:38 -0700 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2013-08-25 20:48:38 -0700 |
| commit | e7a4bcc6fed37afbba423e4c41df6043d7158b3f (patch) | |
| tree | 8c6e59c1dcb6749262e87ba701b1dce736ab1123 /src/Text/Pandoc/Readers/LaTeX.hs | |
| parent | a68805bebd172b107e75fe330698cbc7eee7f75a (diff) | |
| parent | 5f09cf7ff033ae11c5094fe39f8cd2ac11657229 (diff) | |
Merge pull request #961 from nougad/add_latex_listings_label
Write id for code block to label attr in latex when listing is used
Diffstat (limited to 'src/Text/Pandoc/Readers/LaTeX.hs')
| -rw-r--r-- | src/Text/Pandoc/Readers/LaTeX.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Readers/LaTeX.hs b/src/Text/Pandoc/Readers/LaTeX.hs index e558ed1b9..9dbcd3644 100644 --- a/src/Text/Pandoc/Readers/LaTeX.hs +++ b/src/Text/Pandoc/Readers/LaTeX.hs @@ -46,6 +46,7 @@ import Text.Pandoc.Builder import Data.Char (isLetter) import Control.Applicative import Data.Monoid +import Data.Maybe (fromMaybe) import System.Environment (getEnv) import System.FilePath (replaceExtension, (</>)) import Data.List (intercalate, intersperse) @@ -898,7 +899,7 @@ environments = M.fromList lookup "numbers" options == Just "left" ] ++ maybe [] (:[]) (lookup "language" options >>= fromListingsLanguage) - let attr = ("",classes,kvs) + let attr = (fromMaybe "" (lookup "label" options),classes,kvs) codeBlockWith attr <$> (verbEnv "lstlisting")) , ("minted", do options <- option [] keyvals lang <- grouped (many1 $ satisfy (/='}')) |