git.iko.soy/typeable/pandoc
on master help sign in
Allow _ character in automatically generated identifiers.

git-svn-id: https://pandoc.googlecode.com/svn/trunk@1635 788f1e2b-df1e-0410-8736-df70ead52e1b

commita84472e0542e0837d62cb637c2e446c2570d0230 authorfiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> dateSun 29 Nov 2009, 20:37 (17 years ago) parent80a4a03
1 file changed+1−1
compare with master
unifiedsplit
src/Text/Pandoc/Shared.hs+1−1
src/Text/Pandoc/Shared.hs+1−1
@@ -891,7 +891,7 @@ inlineListToIdentifier' [] = ""
891891inlineListToIdentifier' (x:xs) =
892892 xAsText ++ inlineListToIdentifier' xs
893893 where xAsText = case x of
894− Str s -> filter (\c -> c == '-' || not (isPunctuation c)) $
894+ Str s -> filter (\c -> c `elem` "_-" || not (isPunctuation c)) $
895895 intercalate "-" $ words $ map toLower s
896896 Emph lst -> inlineListToIdentifier' lst
897897 Strikeout lst -> inlineListToIdentifier' lst