emacs-orgmode
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: [wip-cite-new] Adjust punctuation around citations


From: Nicolas Goaziou
Subject: Re: [wip-cite-new] Adjust punctuation around citations
Date: Sat, 15 May 2021 13:56:28 +0200
User-agent: Gnus/5.13 (Gnus v5.13) Emacs/27.2 (gnu/linux)

Hello,

Denis Maier <denis.maier.lists@mailbox.org> writes:

> Am 13.05.2021 um 23:33 schrieb Nicolas Goaziou:
>> Hello,
>> [...]
>>    RULE is a triplet of symbols (PUNCT POSITION RELATIVE):
>>      PUNCT is the desired location of the punctuation with regards
>> to the
>>      quotation, if any.  It may be `inside', `outside', or`strict', the 
>> latter
>>      meaning the punctuation should not be moved.
>>      POSITION is the desired location of the citation with regards
>> to the
>>      quotation, if any.  It may be `inside' or `outside'.
>>      RELATIVE is the relative position of the citation with regards
>> to the closest
>>      punctuation.  It may be `after' or `before'.
>>    For example,
>>      (inside outside after) corresponds to American typography;
>>      (strict outside after) corresponds to German typography;
>>      (strict inside before) corresponds to French typography.
> These things are not only language dependent, but depend also on the
> chosen citation style. E.g. with in-text styles you'll have (outside 
> outside before) in German, and American typography, in French likely
> as well.

Since the location of the punctuation is meaningful in French (and
German), I have doubts about (outside ...) being appropriate. More on
this below.

> So, perhaps another setting:
> #+type-of-citation-style: in-text
> #+type-of-citation-style: note
>
> And ideally this RULE should be configurable directly as well:
> #+punct-moving-rule: strict inside before
>
>>    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 
>> \"?\".
>
> Here as well, it should be possible to configure these on a user
> level. Something like:
> #+moved-punctuation: ,.?!
>
> WDYT?

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,
-- 
Nicolas Goaziou



reply via email to

[Prev in Thread] Current Thread [Next in Thread]