mirror of
https://codeberg.org/scip/viking-mode.git
synced 2025-12-17 20:40:59 +01:00
152 lines
5.0 KiB
Markdown
152 lines
5.0 KiB
Markdown
# viking-mode
|
|
Kill first, ask later - an emacs mode for killing things quickly
|
|
|
|
# Introduction
|
|
|
|
Viking minor mode enables you to delete things at point with one key
|
|
stroke at once. More and more will be deleted if you repeat the key
|
|
stroke. As visual feedback the thing to be deleted will be highlighted
|
|
shortly.
|
|
|
|
The default key binding is C-d, but you may also bind it to C-k or
|
|
whatever you wish.
|
|
|
|
If you press C-d the first time, the word at point will be deleted.
|
|
If you press it again, the remainder of the line from point will be
|
|
deleted. If pressed again, the whole line, then the paragraph and
|
|
finally the whole buffer will be deleted.
|
|
|
|
Like:
|
|
|
|
[keep pressing ctrl] C-d - word
|
|
C-d C-d - line remainder
|
|
C-d C-d C-d - line
|
|
C-d C-d C-d C-d - paragraph
|
|
C-d C-d C-d C-d C-d - buffer
|
|
|
|
However, this only works when pressing the key in a row. If you do
|
|
something else in between, it starts from scratch (i.e. delete word).
|
|
|
|
# Install
|
|
|
|
To use, save viking-mode.el to a directory in your load-path.
|
|
|
|
Add something like this to your config:
|
|
|
|
(require 'viking-mode)
|
|
(add-hook 'text-mode-hook 'turn-on-viking-mode)
|
|
|
|
or load it manually
|
|
|
|
M-x viking-mode
|
|
|
|
However, it's also possible to enable viking-mode globally:
|
|
|
|
(viking-global-mode)
|
|
|
|
# Customize
|
|
|
|
By default viking-mode doesn't really delete things, everything
|
|
remains available for yanking in the kill ring. However, you may turn
|
|
it into berserk mode by setting 'viking-really-delete to t:
|
|
|
|
(setq viking-really-delete t)
|
|
|
|
You can change the default key binding by:
|
|
|
|
(define-key viking-mode-map (kbd "C-k") 'vk/kill-thing-at-point)
|
|
|
|
In case you don't like the default key binding cascade, you may also
|
|
use separate bindings for each kill function, e.g.:
|
|
|
|
(define-key viking-mode-map (kbd "C-d") nil) turn C-d into a prefix-key
|
|
(define-key viking-mode-map (kbd "C-d w") 'vk/kill-word)
|
|
(define-key viking-mode-map (kbd "C-d r") 'vk/kill-line-from-point)
|
|
(define-key viking-mode-map (kbd "C-d l") 'vk/kill-line)
|
|
(define-key viking-mode-map (kbd "C-d p") 'vk/kill-paragraph)
|
|
(define-key viking-mode-map (kbd "C-d a") 'vk/kill-buffer)
|
|
|
|
Also, the font face of the short highlight can be modified:
|
|
|
|
M-x customize-face (select viking-blink)
|
|
|
|
Or, modify all available viking-mode variables interactively with:
|
|
|
|
M-x customize-group (select viking-mode)
|
|
|
|
Besides, the primary function of viking-mode is vk/last-key-repeats,
|
|
which returns the number of times the last key have been pressed.
|
|
This can be used for other things as well, for example:
|
|
|
|
(defun goto-begin()
|
|
(interactive)
|
|
(let* ((key-times (vk/last-key-repeats)))
|
|
(cond
|
|
((eq key-times 3)
|
|
(if mark-active
|
|
(goto-char (point-min))
|
|
(beginning-of-buffer)))
|
|
((eq key-times 2)
|
|
(if mark-active () (push-mark))
|
|
(move-to-window-line 0))
|
|
((eq key-times 1)
|
|
(beginning-of-line)))))
|
|
|
|
(defun goto-end ()
|
|
(interactive)
|
|
(let* ((key-times (vk/last-key-repeats)))
|
|
(cond
|
|
((eq key-times 3)
|
|
(if mark-active
|
|
(goto-char (point-max))
|
|
(end-of-buffer)))
|
|
((eq key-times 2)
|
|
(if mark-active () (push-mark))
|
|
(move-to-window-line -1)
|
|
(end-of-line))
|
|
((eq key-times 1)
|
|
(end-of-line)))))
|
|
|
|
(global-set-key (kbd "<home>") 'goto-begin)
|
|
(global-set-key (kbd "<end>") 'goto-end)
|
|
|
|
When you put this into your .emacs config, then you can do:
|
|
|
|
hit <home> once: goto beginning of current line
|
|
repeat: goto beginning of current window
|
|
repeat: goto beginning of current buffer
|
|
|
|
(and the same with <end> in the other direction)
|
|
|
|
|
|
# Meta
|
|
|
|
Copyright (C) 2016, T.v.Dein <tlinden@cpan.org>
|
|
|
|
This file is NOT part of Emacs.
|
|
|
|
This program is free software; you can redistribute it and/or modify
|
|
it under the terms of the GNU General Public License as published by
|
|
the Free Software Foundation; either version 2 of the License, or (at
|
|
your option) any later version.
|
|
|
|
This program is distributed in the hope that it will be useful, but
|
|
WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
|
|
General Public License for more details.
|
|
|
|
You should have received a copy of the GNU General Public License
|
|
along with this program; if not, write to the Free Software
|
|
Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307
|
|
USA
|
|
|
|
Version: 0.01
|
|
Author: T.v.Dein <tlinden@cpan.org>
|
|
Maintainer: T.v.Dein <tlinden@cpan.org>
|
|
Created: May 2016
|
|
Keywords: kill delete
|
|
Homepage: http://www.daemon.de/Viking
|
|
Repository: https://github.com/tlinden/viking-mode
|
|
License: GNU General Public License >= 2
|
|
Distribution: This file is not part of Emacs
|