Для o
и O
, вот несколько функций, которые я написал много лет назад:
(defun vi-open-line-above ()
"Insert a newline above the current line and put point at beginning."
(interactive)
(unless (bolp)
(beginning-of-line))
(newline)
(forward-line -1)
(indent-according-to-mode))
(defun vi-open-line-below ()
"Insert a newline below the current line and put point at beginning."
(interactive)
(unless (eolp)
(end-of-line))
(newline-and-indent))
(defun vi-open-line (&optional abovep)
"Insert a newline below the current line and put point at beginning.
With a prefix argument, insert a newline above the current line."
(interactive "P")
(if abovep
(vi-open-line-above)
(vi-open-line-below)))
Вы можете связать vi-open-line
, скажем, M-insert следующим образом:
(define-key global-map [(meta insert)] 'vi-open-line)
Для dd
, если вы хотите, чтобы убитая строка попала в список уничтожений, вы можете использовать эту функцию, которая переносит kill-line
:
(defun kill-current-line (&optional n)
(interactive "p")
(save-excursion
(beginning-of-line)
(let ((kill-whole-line t))
(kill-line n))))
Для полноты, он принимает аргумент префикса и применяет его к kill-line
, так что он может убить намного больше, чем "текущая" строка.
Вы также можете посмотреть на источник viper-mode
, чтобы увидеть, как он реализует эквивалентные команды dd
, o
и O
.