At the moment, the `org-cite-adjust-punctuation' function is designed
with author-year to note conversion in mind, not the other way. I don't
have enough examples of the opposite transformation to even be sure the
current interface would be appropriate. I even believe this is not often
possible, as it would imply rewording, i.e., add information that is not
present in the original document.
This doesn't seem to be a limitation, though. This feature is useful for
users having to switch between author-year and note styles. The rule of
thumb is to always write author-year in source.
In any case, this explains why the docstring has a bias. I updated it to
insist on the fact that these are rules for author-year to note
conversion.
Also, this function is not meant to be accessible to the end user. It is
called from the processor, which knows the type (or style) of the
citation. It may also choose not to use this function. So, I agree with
Bruce D'Arcus: selecting an appropriate rule and punctuation ought to
happen at that level.
More importantly, I don't think fine-grain configuration is required.
For specific needs, this "smart" feature should be disabled, and
elements (punctuation, citation) positioned manually. But, again, if
configuration is needed, the processor should provide it, e.g., through
variables, not Org Cite. For example, a defcustom could offer to 1) not
use this feature 2) rely on "language" keyword 3) apply a user-defined
rule and punctuation set.
What would be nice, however, would be an association between language
and default rules and punctuation characters.
WDYT?
Meanwhile, I modified `org-cite-adjust-punctuation' function a bit. Here
is its new docstring.
--8<---------------cut here---------------start------------->8---
Adjust punctuation around CITATION object.
When CITATION follows a quotation, or when there is punctuation next to it,
the function tries to normalize the location of punctuation and citation
according to some RULE.
RULE is a triplet of symbols (PUNCTUATION CITE ORDER):
PUNCTUATION is the desired location of the punctuation with regards to the
quotation, if any. It may be `inside', `outside', or`static'. When set to
`static', the punctuation is not moved.
CITE is the desired location of the citation with regards to the quotation
mark, if any. It may be `inside', `outside', or `same'. When set to `same',
the citation is moved on the same side as the punctuation, but does not move
if there is punctuation on both sides or on none.
ORDER is the relative position of the citation with regards to the closest
punctuation. It may be `after' or `before'.
For example, when changing from author-date to note style,
(inside outside after) corresponds to American typography;
(static outside after) corresponds to German typography;
(static same before) corresponds to French typography.
INFO is the export state, as a property list.
Optional argument PUNCT is a list of punctuation marks to be considered.
When nil, it includes the following: \".\" \",\" \";\" \":\" \"!\" and \"?\".
When optional argument ADD-SPACE is non-nil, add a space before citation. This
is useful, for example, when switching from note to author-year style.
Parse tree is modified by side-effect.
Note: if you are calling both `org-cite-adjust-punctuation' and
`org-cite-wrap-citation' on the same object, call `org-cite-adjust-punctuation'
first.
--8<---------------cut here---------------end--------------->8---
Note that previous `strict' became `static', and I introduced a `same'
value for the second rule. I also added a new ADD-SPACE optional
argument as an attempt to ease note to author-year style conversion.
As written already in another message, you can test the following
updated processor:
--8<---------------cut here---------------start------------->8---
(defun org-test--language-to-rule (info)
(pcase (plist-get info :language)
("en-us" '(inside outside after))
((or "en" "de" "en-gb") '(static outside after))
("fr" '(static same before))
(_ nil)))
(defun org-test-export-citation (citation style _backend info)
(pcase style
("author-year"
(org-cite-adjust-punctuation citation '(outside outside before) info nil
t)
"(John Doe, 1999)")
(_
(pcase (org-test--language-to-rule info)
(`nil nil)
(rule (org-cite-adjust-punctuation citation rule info)))
(unless (org-cite-inside-footnote-p citation)
(org-cite-wrap-citation citation info))
"...")))
(org-cite-register-processor 'test
:export-citation #'org-test-export-citation)
--8<---------------cut here---------------end--------------->8---
Regards,