1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
|
;;; move-line.el --- Move current line up or down -*- lexical-binding: t; -*-
;; Copyright (C) 2024 Aryadev Chavali
;; Author: Aryadev Chavali <aryadev@aryadevchavali.com>
;; Keywords:
;; This is free and unencumbered software released into the public domain.
;; Anyone is free to copy, modify, publish, use, compile, sell, or
;; distribute this software, either in source code form or as a compiled
;; binary, for any purpose, commercial or non-commercial, and by any
;; means.
;; In jurisdictions that recognize copyright laws, the author or authors
;; of this software dedicate any and all copyright interest in the
;; software to the public domain. We make this dedication for the benefit
;; of the public at large and to the detriment of our heirs and
;; successors. We intend this dedication to be an overt act of
;; relinquishment in perpetuity of all present and future rights to this
;; software under copyright law.
;; THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
;; EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
;; MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
;; IN NO EVENT SHALL THE AUTHORS BE LIABLE FOR ANY CLAIM, DAMAGES OR
;; OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE,
;; ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR
;; OTHER DEALINGS IN THE SOFTWARE.
;; For more information, please refer to <https://unlicense.org>
;;; Commentary:
;; Move the current line up or down. Shamelessly copied from
;; https://emacsredux.com/blog/2013/04/02/move-current-line-up-or-down/ so
;;; Code:
(defun +move/--normalise-arg (arg)
(if (or (null arg) (< arg 1))
1
arg))
(defmacro +move/create-move (name description &rest body)
`(defun ,name (&optional arg)
,description
(interactive "P")
(let ((arg (+move/--normalise-arg arg)))
(while (not (= arg 0))
,@body
(setq arg (- arg 1))))))
(+move/create-move
+move/line-up
"Move the current line up"
(transpose-lines 1)
(forward-line -2)
(indent-according-to-mode))
(+move/create-move
+move/line-down
"Move the current line down"
(forward-line 1)
(transpose-lines 1)
(forward-line -1)
(indent-according-to-mode))
(+move/create-move
+move/word-forward
"Move the current word forward"
(forward-word 1)
(transpose-words 1)
(forward-word -1)
(indent-according-to-mode))
(+move/create-move
+move/word-backward
"Move the current word backward"
(transpose-words 1)
(forward-word -2)
(indent-according-to-mode))
(provide 'move)
;;; move.el ends here
|
