Re: Implementing a custom authorconversion for bibliographies

[Hans Hagen via ntg-context <ntg-context@ntg.nl>]

On 9/15/2021 5:06 AM, Joey McCollum via ntg-context wrote:
> All right, I figured out where I needed to make this change for it to 
> take effect. The relevant script is publ-aut.lua. The code I needed to 
> change was for the "oneauthor" function definition, which itself is 
> located in the "btxauthor" function definition. My changes are detailed 
> below:

did you try to stay at the tex end? like:

% \startsetups \s!btx:\s!cite:\s!author:invertedfirst
%     \ifnum\currentbtxauthorindex>\plusone
%        \btxsetauthorvariant{inverted}
%     \else
%        \btxsetauthorvariant{normal}
%     \fi
%     \fastsetup{\s!btx:\s!cite:\s!author:\btxauthorvariant}
% \stopsetups

\startsetups \s!btx:\s!cite:\s!author:invertedfirst
     \ifnum\currentbtxauthorindex>\plusone
        \fastsetup{\s!btx:\s!cite:\s!author:inverted}
     \else
        \fastsetup{\s!btx:\s!cite:\s!author:normal}
     \fi
\stopsetups



> ```
>          local function oneauthor(i,last,justone)
>              local author = split[i]
>              if index then
>                  ctx_btxstartauthor(i,1,0)
>              elseif last then
>                  ctx_btxstartauthor(i,1,0)
>                  ctx_btxsetconcat(0)
>                  if combiner == "invertedfirst" then
>                      if i == 1 then
>                          ctx_btxsetauthorvariant("inverted")
>                      else
>                          ctx_btxsetauthorvariant("normal")
>                      end
>                  else
>                      ctx_btxsetauthorvariant(combiner)
>                  end
>              else
>                  local state = author.state or 0
>                  ctx_btxstartauthor(i,max,state)
>                  ctx_btxsetconcat(concatstate(i,max))
>                  if combiner == "invertedfirst" then
>                      if i == 1 then
>                          ctx_btxsetauthorvariant("inverted")
>                      else
>                          ctx_btxsetauthorvariant("normal")
>                      end
>                  else
>                      ctx_btxsetauthorvariant(combiner)
>                  end
>              end
>              local initials = author.initials
>              if initials and #initials > 0 then
>                  ctx_btxsetinitials() -- 
> (concat(the_initials(initials,symbol)," "))
>              end
>              local firstnames = author.firstnames
>              if firstnames and #firstnames > 0 then
>                  ctx_btxsetfirstnames() -- (concat(firstnames," "))
>              end
>              local vons = author.vons
>              if vons and #vons > 0 then
>                  ctx_btxsetvons() -- (concat(vons," "))
>              end
>              local surnames = author.surnames
>              if surnames and #surnames > 0 then
>                  ctx_btxsetsurnames() -- (concat(surnames," "))
>              end
>              local juniors = author.juniors
>              if juniors and #juniors > 0 then
>                  ctx_btxsetjuniors() -- (concat(juniors," "))
>              end
>              if not index and i == max then
>                  if split.others then
>                      ctx_btxsetoverflow(1)
>                  else
>                      local overflow = #split - max
>                      if overflow > 0 then
>                          ctx_btxsetoverflow(overflow)
>                      end
>                  end
>              end
>              if combiner == "invertedfirst" then
>                  if i == 1 then
>                      ctx_btxsetup("inverted")
>                  else
>                      ctx_btxsetup("normal")
>                  end
>              else
>                  ctx_btxsetup(combiner)
>              end
>              ctx_btxstopauthor()
>          end
> ```
> 
> I'll admit that the addition of entire if-else blocks around whether or 
> not the combiner is a specific value may not be the best practice in 
> terms of future maintenance (especially if similar index-dependent 
> authorconversions are needed in the future). Alternatively, the 
> "btxauthor" function could populate a "combiners" array of length "max" 
> with a specific authorconversion for each author in the split; for most 
> authorconversions, all entries in this array would be the same, but for 
> authorconversions like "invertedfirst", the first entry would be 
> different from the rest. Then, the "oneauthor" function could just 
> reference combiners[i] instead of combiner.
> 
> Joey
> 
> On Fri, Sep 3, 2021 at 10:48 PM Joey McCollum 
> <jmccollum20140511@gmail.com <mailto:jmccollum20140511@gmail.com>> wrote:
> 
>     Hi,
> 
>     I mentioned this in an earlier e-mail but thought that now might be
>     a good time to describe this issue in detail. I'd like to define a
>     new authorconversion that renders the first author in a list
>     differently than the remaining authors in the list. Specifically,
>     I'd like to use the "inverted" authorconversion for the first author
>     and the "normal" authorconversion for the rest.
> 
>     In the newer bibl-bib.lua file, I can see what I might have to
>     modify to accomplish this (I added the if combiner ==
>     "invertedfirst"  block):
> 
>     ```
>     function authors.concat(author,combiner,what,settings)
>          if type(combiner) == "string" then
>              combiner = authors[combiner or "normal"] or authors.normal
>          end
>          local split = splitauthors(author)
>          local setting = settings[what]
>          local etallimit, etaldisplay, etaltext = 1000, 1000, ""
>          if setting then
>              etallimit   = settings.etallimit   or 1000
>              etaldisplay = settings.etaldisplay or etallimit
>              etalltext   = settings.etaltext    or ""
>          end
>          local max = #split
>          if max > etallimit and etaldisplay < max then
>              max = etaldisplay
>          end
>          if combiner == "invertedfirst" then
>              for i=1,max do
>                  if i == 1 then
>                      split[i] = authors.inverted(split[i],settings)
>                  else
>                      split[i] = authors.normal(split[i],settings)
>                  end
> 
>              end
>          else
>              for i=1,max do
>                  split[i] = combiner(split[i],settings)
>              end
>          end
>          local result = bibtexconcat(split,settings)
>          if max < #split then
>              return result
>          else
>              return result .. etaltext
>          end
>     end
>     ```
> 
>     Unfortunately, this doesn't seem to do anything. It's not clear to
>     me how bibl-bib.lua and bibl-bib.mkiv are being used by the other
>     publication support modules, if they're being used at all
>     (publ-ini.mkiv doesn't appear to register it, anyway). Is there
>     another file I'd have to change to make "invertedfirst" a working
>     authorconversion? Is there a similar block of code in publ-ini.lua
>     where I should be implementing this change instead?
> 
>     Thanks!
> 
>     Joey
> 
> 
> ___________________________________________________________________________________
> If your question is of interest to others as well, please add an entry to the Wiki!
> 
> maillist : ntg-context@ntg.nl / http://www.ntg.nl/mailman/listinfo/ntg-context
> webpage  : http://www.pragma-ade.nl / http://context.aanhet.net
> archive  : https://bitbucket.org/phg/context-mirror/commits/
> wiki     : http://contextgarden.net
> ___________________________________________________________________________________
> 


-- 

-----------------------------------------------------------------
                                           Hans Hagen | PRAGMA ADE
               Ridderstraat 27 | 8061 GH Hasselt | The Netherlands
        tel: 038 477 53 69 | www.pragma-ade.nl | www.pragma-pod.nl
-----------------------------------------------------------------
___________________________________________________________________________________
If your question is of interest to others as well, please add an entry to the Wiki!

maillist : ntg-context@ntg.nl / http://www.ntg.nl/mailman/listinfo/ntg-context
webpage  : http://www.pragma-ade.nl / http://context.aanhet.net
archive  : https://bitbucket.org/phg/context-mirror/commits/
wiki     : http://contextgarden.net
___________________________________________________________________________________