Search Wikipedia

These functions make it easier to search Wikipedia. The wp function searches Wikipedia for its arguments. The lwp function searches Wikipedia for the current line. If the search terms match a page title, that page opens. Otherwise, the functions move to the first search result. To move to the next search result, you can use the / command.

# Search Wikipedia.
# usage: <wp <article name or search terms>
function+wp {
db0
H-
js-
b https://en.wikipedia.org/wiki/~0
sw+
/does not have an article with this exact name/fX
if(*) {
/Search/fg
/results/fX
/already covered/fX
if(*) {
/^{/X
.g/^{~0}/fiX
if(*) {
g
# Use X at the end of the next line if you want to suppress this output.
/h1/f
/^From Wikipedia/fX
/^[^(]/f
} else {
p
}
} else {
/results/f
}
} else {
# Use X at the end of the next line if you want to suppress this output.
/h1/f
/^From Wikipedia/fX
/^[^(]/f
}
}

# Search Wikipedia for the current line.
# usage: <lwp [extra search terms]
function+lwp {
db0
H-
sw+
e/temporary buffer for function lwp to use
if(*) {
eret
ebvar-
!echo temporary buffer already exists
} else {
enew
f temporary buffer for function lwp to use
M0
.w/temporary buffer for function lwp to use@.
e/temporary buffer for function lwp to use
s/.*/b https:\/\/en.wikipedia.org\/wiki\/& ~0/f
bw
eret
js-
<*/temporary buffer for function lwp to use
q/temporary buffer for function lwp to use
/does not have an article with this exact name/fX
if(*) {
/Search/fg
/results/fX
/already covered/fX
if(*) {
/^{/
} else {
/results/f
}
} else {
# Use X at the end of the next line if you want to suppress this output.
/h1/f
/^From Wikipedia/fX
/^[^(]/f
}
}
}