diff --git a/CHANGELOG.md b/CHANGELOG.md --- a/CHANGELOG.md +++ b/CHANGELOG.md @@ -1,5 +1,9 @@ # citeproc changelog +## 0.6.0.1 + + * Ensure that position evaluates false inside bibliography (#99). + ## 0.6 * Add Term parameter to TagTerm [API change]. diff --git a/Setup.hs b/Setup.hs deleted file mode 100644 --- a/Setup.hs +++ /dev/null @@ -1,2 +0,0 @@ -import Distribution.Simple -main = defaultMain diff --git a/citeproc.cabal b/citeproc.cabal --- a/citeproc.cabal +++ b/citeproc.cabal @@ -1,6 +1,6 @@ cabal-version: 2.2 name: citeproc -version: 0.6 +version: 0.6.0.1 synopsis: Generates citations and bibliography from CSL styles. description: citeproc parses CSL style files and uses them to generate a list of formatted citations and bibliography diff --git a/locales/hi-IN.xml b/locales/hi-IN.xml new file mode 100644 --- /dev/null +++ b/locales/hi-IN.xml @@ -0,0 +1,361 @@ + + + + + Neha Srivastava + neha-srivastava@outlook.com + + This work is licensed under a Creative Commons Attribution-ShareAlike 3.0 License + 2021-02-22T12:13:02+05:30 + + + + + + + + + + + + + + अंतिम उपयोग + व + व अन्य + अज्ञात + अज्ञात + पर + पर उपलब्ध + द्वारा + सन + सन. + उल्लेखित + + संस्करण + संस्करण + + ed. + इत्यादि + आगामी + से + उक्त + में + मुद्रण में + इंटर्नेट + साक्षात्कार + पत्र + दिनांक अज्ञात + n.d. + ऑनलाइन + पर प्रस्तुत + + संदर्भ + references + + + ref. + refs. + + पुनर्प्राप्त + scale + संस्करण + + + CE + BCE + + + “ + ” + ‘ + ’ + – + + + वाँ + + + + + + + + पहला + पहली + दूसरा + दूसरी + तीसरा + तीसरी + चौथा + चौथी + पाँचवा + पाँचवी + छठा + छठी + सातवाँ + सातवीं + आठवाँ + आठवीं + नवाँ + नौवीं + दसवाँ + दसवीं + + + + पुस्तक + पुस्तकें + + + अध्याय + अध्याय + + + कॉलम + columns + + + चित्र + चित्रों + + + पर्ण + folios + + + संख्या + संख्याएँ + + + पंक्ति + पंक्तियाँ + + + नोट + notes + + + opus + opera + + + पृष्ठ + पृष्ठ + + + पृष्ठ संख्या + पृष्ठों की संख्या + + + अनुच्छेद + paragraphs + + + भाग + parts + + + अनुभाग + sections + + + sub verbo + sub verbis + + + पद + verses + + + वॉल्यूम + वॉल्यूम्ज़ + + + + + bk. + bks. + + + chap. + chaps. + + + col. + cols. + + + fig. + figs. + + + fol. + fols. + + + no. + nos. + + + l. + ll. + + + n. + nn. + + + op. + opp. + + + पृ. + पृ. + + + पृ. स. + पृ. स. + + + para. + paras. + + + pt. + pts. + + + sec. + secs. + + + s.v. + s.vv. + + + v. + vv. + + + vol. + vols. + + + + + + ¶¶ + + + § + §§ + + + + + निर्देशक + directors + + + सम्पादक + editors + + + सम्पादक + editors + + + चित्रकार + illustrators + + + अनुवादक + translators + + + सम्पादक & अनुवादक + editors & translators + + + + + dir. + dirs. + + + ed. + eds. + + + ed. + eds. + + + ill. + ills. + + + tran. + trans. + + + ed. & tran. + eds. & trans. + + + + द्वारा + निर्देशन + सम्पादन + निर्देशन + चित्रकारी + साक्षात्कारकर्ता + सेवा में + द्वारा + अनुवाद + सम्पादन & अनुवाद + + + dir. by + ed. by + ed. by + illus. by + trans. by + ed. & trans. by + + + जनवरी + फ़रवरी + मार्च + अप्रैल + मई + जून + जुलाई + अगस्त + सितम्बर + अक्टूबर + नवम्बर + दिसम्बर + + + जन. + फ़र. + मार्च + अप्रैल + मई + जून + जुलाई + अग. + सित. + अक्ट. + नव. + दिस. + + + वसंत ऋतु + ग्रीष्म ऋतु + पतझड़ ऋतु + शिशिर ऋतु + + diff --git a/src/Citeproc/Eval.hs b/src/Citeproc/Eval.hs --- a/src/Citeproc/Eval.hs +++ b/src/Citeproc/Eval.hs @@ -1315,42 +1315,52 @@ getPosition :: Int -> Maybe Int -> CitationItem a -> Int -> Eval a [Position] getPosition groupNum mbNoteNum item posInGroup = do - lastCitedMap <- gets stateLastCitedMap - noteMap <- gets stateNoteMap - case M.lookup (citationItemId item) lastCitedMap of - Nothing -> return [FirstPosition] - Just (prevGroupNum, mbPrevNoteNum, - prevPosInGroup, prevAloneInGroup, prevLabel, prevLoc) -> do - isNote <- asks (styleIsNoteStyle . contextStyleOptions) - nearNoteDistance <- fromMaybe 5 <$> - asks (styleNearNoteDistance . contextStyleOptions) - let noteNum = fromMaybe groupNum mbNoteNum - let prevNoteNum = fromMaybe prevGroupNum mbPrevNoteNum - let prevAloneInNote = - case M.lookup prevNoteNum noteMap of - Nothing -> True - Just s -> Set.size s <= 1 - let prevAlone = prevAloneInGroup && prevAloneInNote - return $ - (if isNote && noteNum - prevNoteNum < nearNoteDistance - then (NearNote :) - else id) . - (if (groupNum == prevGroupNum && - posInGroup == prevPosInGroup + 1) || - (groupNum == prevGroupNum + 1 && - (((-) <$> mbNoteNum <*> mbPrevNoteNum) <= Just 1) && - posInGroup == 1 && - prevAlone) - then case (prevLoc, citationItemLocator item) of - (Nothing, Just _) -> (IbidWithLocator :) . (Ibid :) - (Nothing, Nothing) -> (Ibid :) - (Just _, Nothing) -> id - (Just l1, Just l2) - | l1 == l2 - , citationItemLabel item == prevLabel -> (Ibid :) - | otherwise -> (IbidWithLocator :) . (Ibid :) - else id) - $ [Subsequent] + inBibliography <- asks contextInBibliography + if inBibliography + then return [] + else getPosition' + where + getPosition' = do + lastCitedMap <- gets stateLastCitedMap + noteMap <- gets stateNoteMap + case M.lookup (citationItemId item) lastCitedMap of + Nothing -> return [FirstPosition] + Just (prevGroupNum, mbPrevNoteNum, + prevPosInGroup, prevAloneInGroup, + prevLabel, prevLoc) -> do + isNote <- asks (styleIsNoteStyle . contextStyleOptions) + nearNoteDistance <- fromMaybe 5 <$> + asks (styleNearNoteDistance . contextStyleOptions) + let noteNum = fromMaybe groupNum mbNoteNum + let prevNoteNum = fromMaybe prevGroupNum mbPrevNoteNum + let prevAloneInNote = + case M.lookup prevNoteNum noteMap of + Nothing -> True + Just s -> Set.size s <= 1 + let prevAlone = prevAloneInGroup && prevAloneInNote + return $ + (if isNote && noteNum - prevNoteNum < nearNoteDistance + then (NearNote :) + else id) . + (if (groupNum == prevGroupNum && + posInGroup == prevPosInGroup + 1) || + (groupNum == prevGroupNum + 1 && + (((-) <$> mbNoteNum <*> mbPrevNoteNum) <= Just 1) && + posInGroup == 1 && + prevAlone) + then case (prevLoc, citationItemLocator item) of + (Nothing, Just _) + -> (IbidWithLocator :) . (Ibid :) + (Nothing, Nothing) -> (Ibid :) + (Just _, Nothing) -> id + (Just l1, Just l2) + | l1 == l2 + , citationItemLabel item == prevLabel + -> (Ibid :) + | otherwise + -> (IbidWithLocator :) . (Ibid :) + else id) + $ [Subsequent] eElement :: CiteprocOutput a => Element a -> Eval a [Output a] eElement (Element etype formatting) = diff --git a/stack.yaml b/stack.yaml --- a/stack.yaml +++ b/stack.yaml @@ -2,9 +2,7 @@ citeproc: executable: true icu: false -resolver: lts-17.5 -extra-deps: -- unicode-collation-0.1.3 -- text-icu-0.7.1.0 +resolver: lts-18.10 +extra-deps: [] ghc-options: "$locals": -fhide-source-paths diff --git a/test/extra/issue_99.txt b/test/extra/issue_99.txt new file mode 100644 --- /dev/null +++ b/test/extra/issue_99.txt @@ -0,0 +1,78 @@ +>>===== MODE =====>> +bibliography +<<===== MODE =====<< + + + + +>>===== RESULT =====>> +
+
John Doe
+
+<<===== RESULT =====<< + + +>>===== CSL =====>> + + +<<===== CSL =====<< + + +>>===== CITATION-ITEMS =====>> +[ [ {"id":"Doe"} ] ] +<<===== CITATION-ITEMS =====<< + + + +>>===== INPUT =====>> +[ + { + "author": [ + { + "family": "Doe", + "given": "John" + } + ], + "id": "Doe", + "type": "book", + "title": "Title" + } +] +<<===== INPUT =====<< + + +>>===== VERSION =====>> +1.0 +<<===== VERSION =====<< +