1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
|
import div, span, sup, a, i, b from require 'mmm.dom'
parse_bibtex = (src) ->
type, key, kv = src\match '@(%w+){(.-),(.*)}'
with info = { _type: type, _key: key }
for key, val in kv\gmatch '([a-z]-)%s*=%s*(%b{})'
val\sub 2, -2
info[key] = val\gsub '[{}]', ''
for key, val in kv\gmatch '([a-z]-)%s*=%s*(%d+)'
info[key] = val
title = () =>
assert @title, "cite doesn't have title"
inner = i @title
if @url
a inner, href: @url, style: display: 'inline'
else
b inner
format_full = () =>
tt = title @
dot, com = if @title\match '[.?!]$' then '', '' else '.', ','
@author or= 'N. N.'
switch @_type
when 'book', 'article'
span with setmetatable {}, __index: table
\insert "#{@author} (#{@year}), "
\insert tt
if @journal
\insert "#{dot} "
\insert i @journal
\insert ", volume #{@volume}" if @volume
else if @series
\insert "#{dot} "
\insert i @series
\insert ", No. #{@number}" if @number
\insert ", pages #{@pages}" if @pages
\insert "#{dot} #{@publisher}" if @publisher
if @doi
\insert "#{dot} "
\insert a "doi:#{@doi}", href: "https://doi.org/#{@doi}"
when 'web', 'online'
span with setmetatable {}, __index: table
\insert "#{@author}"
\insert " (#{@year})" if @year
\insert ", "
\insert tt
\insert "#{com} #{@url}"
\insert " from #{@visited}" if @visited
else
span with setmetatable {}, __index: table
\insert "#{@author} (#{@year}), "
\insert tt
\insert "#{dot} #{@publisher}" if @publisher
span tbl
{
{
inp: 'cite/doi'
out: 'URL -> text/bibtex'
cost: 0.1
transform: (doi) =>
doi = doi\match '(10%.%d%d%d%d%d?%d?%d?%d?%d?/[%d%w%.%-_:;%(%)]+)'
"http://api.crossref.org/works/#{doi}/transform/application/x-bibtex"
}
{
inp: 'text/bibtex'
out: 'mmm/dom'
cost: 1
transform: (bib) => format_full parse_bibtex bib
}
}
|
