kakoune/rc/tools/autorestore.kak
Tim Allen a25cc215e8 Reference content goes in docstrings, explanations go in prose docs.
Also, make sure docstrings reference the prose docs, so people who stumble over
an interesting-looking command or option can find out more about it.
2020-09-04 19:20:50 +10:00

94 lines
3.0 KiB
Plaintext

declare-option -docstring %{
Remove backups once they've been restored
See `:doc autorestore` for details.
} \
bool autorestore_purge_restored true
## Insert the content of the backup file into the current buffer, if a suitable one is found
define-command autorestore-restore-buffer \
-docstring %{
Restore the backup for the current file if it exists
See `:doc autorestore` for details.
} \
%{
evaluate-commands %sh{
buffer_basename="${kak_buffile##*/}"
buffer_dirname=$(dirname "${kak_buffile}")
if [ -f "${kak_buffile}" ]; then
newer=$(find "${buffer_dirname}"/".${buffer_basename}.kak."* -newer "${kak_buffile}" -exec ls -1t {} + 2>/dev/null | head -n 1)
older=$(find "${buffer_dirname}"/".${buffer_basename}.kak."* \! -newer "${kak_buffile}" -exec ls -1t {} + 2>/dev/null | head -n 1)
else
# New buffers that were never written to disk.
newer=$(ls -1t "${buffer_dirname}"/".${buffer_basename}.kak."* 2>/dev/null | head -n 1)
older=""
fi
if [ -z "${newer}" ]; then
if [ -n "${older}" ]; then
printf %s\\n "
echo -debug Old backup file(s) found: will not restore ${older} .
"
fi
exit
fi
printf %s\\n "
## Replace the content of the buffer with the content of the backup file
echo -debug Restoring file: ${newer}
execute-keys -draft %{ %d!cat<space>\"${newer}\"<ret>d }
## If the backup file has to be removed, issue the command once
## the current buffer has been saved
## If the autorestore_purge_restored option has been unset right after the
## buffer was restored, do not remove the backup
hook -group autorestore buffer BufWritePost '${kak_buffile}' %{
nop %sh{
if [ \"\${kak_opt_autorestore_purge_restored}\" = true ];
then
rm -f \"${buffer_dirname}/.${buffer_basename}.kak.\"*
fi
}
}
"
}
}
## Remove all the backups that have been created for the current buffer
define-command autorestore-purge-backups \
-docstring %{
Remove all the backups of the current buffer
See `:doc autorestore` for details.
} \
%{
evaluate-commands %sh{
[ ! -f "${kak_buffile}" ] && exit
buffer_basename="${kak_bufname##*/}"
buffer_dirname=$(dirname "${kak_bufname}")
rm -f "${buffer_dirname}/.${buffer_basename}.kak."*
printf %s\\n "
echo -markup {Information}Backup files removed.
"
}
}
## If for some reason, backup files need to be ignored
define-command autorestore-disable \
-docstring %{
Disable automatic backup recovering
See `:doc autorestore` for details.
} \
%{
remove-hooks global autorestore
}
hook -group autorestore global BufCreate .* %{ autorestore-restore-buffer }