16 lines
459 B
EmacsLisp
16 lines
459 B
EmacsLisp
;; Stolen from https://github.com/rexim/dotfiles
|
|
(defun rc/duplicate-line ()
|
|
"Duplicate current line"
|
|
(interactive)
|
|
(let ((column (- (point) (point-at-bol)))
|
|
(line (let ((s (thing-at-point 'line t)))
|
|
(if s (string-remove-suffix "\n" s) ""))))
|
|
(move-end-of-line 1)
|
|
(newline)
|
|
(insert line)
|
|
(move-beginning-of-line 1)
|
|
(forward-char column)))
|
|
|
|
(global-set-key (kbd "C-,") 'rc/duplicate-line)
|
|
|
|
(provide 'oxa/misc)
|