suzanne.soy/hyper-literate
1
0
Fork 0
Code Issues 4 Pull Requests 1 Actions Packages Projects Releases Wiki Activity

Allow autobib references to be interposed on.

Browse Source
This commit is contained in:
Vincent St-Amour 2017-08-15 13:06:57 -05:00
parent 01b279d5ba
commit 178935f55c
2 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
scribble-lib/scriblib/autobib.rkt
View File

@ -138,7 +138,7 @@
(error 'citet "citet must be used with identical authors, given ~a" (error 'citet "citet must be used with identical authors, given ~a"
(map (compose author-element-names* auto-bib-author) bib-entries))) (map (compose author-element-names* auto-bib-author) bib-entries)))
(make-element (make-element
#f (make-style "Autobibref" '())
(list (add-cite group (car bib-entries) 'autobib-author #f #f style) (list (add-cite group (car bib-entries) 'autobib-author #f #f style)
'nbsp 'nbsp
(send style get-cite-open) (send style get-cite-open)
@ -155,7 +155,7 @@
(values (hash-update h k (lambda (cur) (cons b cur)) null) (values (hash-update h k (lambda (cur) (cons b cur)) null)
(cons k (remove k ks)))))) (cons k (remove k ks))))))
(make-element (make-element
#f (make-style "Autobibref" '())
(append (append
(list 'nbsp (send style get-cite-open)) (list 'nbsp (send style get-cite-open))
(add-between (add-between

2
scribble-lib/scriblib/autobib.tex
View File

@ -6,3 +6,5 @@
\newlength{\ABcollength} \newlength{\ABcollength}
\newcommand{\Autocolbibnumber}[1]{\parbox[t]{5ex}{\hfill#1~~\vspace{1.0ex}}} \newcommand{\Autocolbibnumber}[1]{\parbox[t]{5ex}{\hfill#1~~\vspace{1.0ex}}}
\newcommand{\Autocolbibentry}[1]{\setlength{\ABcollength}{\linewidth-5ex}\parbox[t]{\ABcollength}{#1\vspace{1.0ex}}} \newcommand{\Autocolbibentry}[1]{\setlength{\ABcollength}{\linewidth-5ex}\parbox[t]{\ABcollength}{#1\vspace{1.0ex}}}
\newcommand{\Autobibref}[1]{#1}