mirror of
https://github.com/mawww/kakoune.git
synced 2024-11-24 16:15:38 +03:00
11dfd4994b
Not escaping '(' here led to a 'no closing quote' error on OpenBSD.
69 lines
2.5 KiB
Plaintext
69 lines
2.5 KiB
Plaintext
declare-option -docstring "name of the client in which documentation is to be displayed" \
|
|
str docsclient
|
|
|
|
declare-option -hidden str manpage
|
|
|
|
hook -group man-highlight global WinSetOption filetype=man %{
|
|
add-highlighter window/man-highlight group
|
|
# Sections
|
|
add-highlighter window/man-highlight/ regex ^\S.*?$ 0:title
|
|
# Subsections
|
|
add-highlighter window/man-highlight/ regex '^ {3}\S.*?$' 0:default+b
|
|
# Command line options
|
|
add-highlighter window/man-highlight/ regex '^ {7}-[^\s,]+(,\s+-[^\s,]+)*' 0:list
|
|
# References to other manpages
|
|
add-highlighter window/man-highlight/ regex [-a-zA-Z0-9_.]+\([a-z0-9]+\) 0:header
|
|
|
|
hook -once -always window WinSetOption filetype=.* %{ remove-highlighter window/man-highlight }
|
|
}
|
|
|
|
hook global WinSetOption filetype=man %{
|
|
hook -group man-hooks window WinResize .* %{ man-impl %val{bufname} %opt{manpage} }
|
|
hook -once -always window WinSetOption filetype=.* %{ remove-hooks window man-hooks }
|
|
}
|
|
|
|
define-command -hidden -params 2..3 man-impl %{ evaluate-commands %sh{
|
|
buffer_name="$1"
|
|
shift
|
|
manout=$(mktemp "${TMPDIR:-/tmp}"/kak-man-XXXXXX)
|
|
colout=$(mktemp "${TMPDIR:-/tmp}"/kak-man-XXXXXX)
|
|
MANWIDTH=${kak_window_width} man "$@" > $manout 2>/dev/null
|
|
retval=$?
|
|
col -b -x > ${colout} < ${manout}
|
|
rm ${manout}
|
|
if [ "${retval}" -eq 0 ]; then
|
|
printf %s\\n "
|
|
edit -scratch '$buffer_name'
|
|
execute-keys '%|cat<space>${colout}<ret>gk'
|
|
nop %sh{rm ${colout}}
|
|
set-option buffer filetype man
|
|
set-option window manpage '$@'
|
|
"
|
|
else
|
|
printf %s\\n "echo -markup %{{Error}man '$@' failed: see *debug* buffer for details}"
|
|
rm ${colout}
|
|
fi
|
|
} }
|
|
|
|
define-command -params ..1 \
|
|
-shell-script-candidates %{
|
|
find /usr/share/man/ -name '*.[1-8]*' | sed 's,^.*/\(.*\)\.\([1-8][a-zA-Z]*\).*$,\1(\2),'
|
|
} \
|
|
-docstring %{man [<page>]: manpage viewer wrapper
|
|
If no argument is passed to the command, the selection will be used as page
|
|
The page can be a word, or a word directly followed by a section number between parenthesis, e.g. kak(1)} \
|
|
man %{ evaluate-commands %sh{
|
|
subject=${1-$kak_selection}
|
|
|
|
## The completion suggestions display the page number, strip them if present
|
|
case "${subject}" in
|
|
*\([1-8]*\))
|
|
pagenum="${subject##*\(}"
|
|
pagenum="${pagenum%\)}"
|
|
subject="${subject%%\(*}"
|
|
;;
|
|
esac
|
|
|
|
printf %s\\n "evaluate-commands -try-client %opt{docsclient} man-impl *man* $pagenum $subject"
|
|
} }
|