summary refs log tree commit diff stats
path: root/tag-emacs/emacs.d/elisp/shuffle-lines.el
diff options
context:
space:
mode:
authorAlan Pearce2014-04-12 13:15:53 +0100
committerAlan Pearce2014-04-12 13:15:53 +0100
commit81c8016d1e296ed91af69f2d5bf435d7d657af04 (patch)
treebbccda0a7e252ce2f90bfd648fa7b5edb7d45920 /tag-emacs/emacs.d/elisp/shuffle-lines.el
parent9dd9b2972c4c526109f4fb57f936b67290ace003 (diff)
downloaddotfiles-81c8016d1e296ed91af69f2d5bf435d7d657af04.tar.lz
dotfiles-81c8016d1e296ed91af69f2d5bf435d7d657af04.tar.zst
dotfiles-81c8016d1e296ed91af69f2d5bf435d7d657af04.zip
Restructure everything to use rcm
https://github.com/thoughtbot/rcm
Diffstat (limited to 'tag-emacs/emacs.d/elisp/shuffle-lines.el')
-rw-r--r--tag-emacs/emacs.d/elisp/shuffle-lines.el20
1 files changed, 20 insertions, 0 deletions
diff --git a/tag-emacs/emacs.d/elisp/shuffle-lines.el b/tag-emacs/emacs.d/elisp/shuffle-lines.el
new file mode 100644
index 0000000..be0a98f
--- /dev/null
+++ b/tag-emacs/emacs.d/elisp/shuffle-lines.el
@@ -0,0 +1,20 @@
+;;;###autoload
+(defun move-line-down ()
+    (interactive)
+    (let ((col (current-column)))
+        (save-excursion
+            (forward-line)
+            (transpose-lines 1))
+        (forward-line)
+        (move-to-column col)))
+
+;;;###autoload
+(defun move-line-up ()
+    (interactive)
+    (let ((col (current-column)))
+        (save-excursion
+            (forward-line)
+            (transpose-lines -1))
+        (move-to-column col)))
+
+(provide 'shuffle-lines)