• [[https://github.com/mrbig033/cool-moves/blob/master/README_pt.org][Leia Em Português]]

• Table of Contents :toc:

• [[#what-it-does][What It Does]]

• [[#rationale][Rationale]]

• [[#installation][Installation]]

  • [[#with-use-package][With use-package]]
  • [[#without-use-package][Without use-package]]

• [[#commands][Commands]]

• [[#settings][Settings]]

  • [[#suggested-keybindings][Suggested Keybindings]]
  • [[#suggested-hydra][Suggested Hydra]]

• [[#differences-from-drag-stuff][Differences from drag-stuff]]

• What It Does This is a package to move text around on Emacs. It uses basic functions to move words, lines, paragraphs, sentences and sexps forward and backward.

[[https://gfycat.com/ClassicUnevenEquestrian][See it in action]].

• Rationale I'm an Evil user and write a lot of prose on Emacs. This package was inspired by [[https://emacsredux.com/blog/2013/04/02/move-current-line-up-or-down/][this]] and [[https://with-emacs.com/posts/i-like-to-move-it-emacs-version/][this]] blog posts. It uses basic functions to move words, lines, paragraphs, sentences, and sexps both forward and backward. Being able to quickly reorganize my prose is extremely important for me.

This is my first attempt at publishing code, so criticism is more than welcome!

• Installation ** With use-package Put =cool-motions.el= somewhere in your Emacs path and replace =~/.emacs.d/lisp/cool-moves= with the path to it. Here's an example (the keybindings are optional):

+BEGIN_SRC emacs-lisp

(use-package cool-moves :load-path "~/.emacs.d/lisp/cool-moves" :config (general-define-key :keymaps 'override "" 'cool-moves/paragraph-forward "" 'cool-moves/paragraph-backward "C-S-j" 'cool-moves/line-forward "C-S-k" 'cool-moves/line-backward "C-M-n" 'cool-moves/word-forward "C-M-p" 'cool-moves/word-backwards))

+END_SRC

** Without use-package Remember to replace =~/.emacs.d/lisp/cool-moves=. The rest is straightforward.

+BEGIN_SRC emacs-lisp

(add-to-list 'load-path "~/.emacs.d/lisp/cool-moves") (load "cool-moves")

(general-define-key :keymaps 'override "" 'cool-moves/paragraph-forward "" 'cool-moves/paragraph-backward "C-S-j" 'cool-moves/line-forward "C-S-k" 'cool-moves/line-backward "C-M-n" 'cool-moves/word-forward "C-M-p" 'cool-moves/word-backwards)

+END_SRC

• Commands Each of these commands move something either forward or backwards, and are named in predictable manner. This package have no default keybindings, but I'll make some suggestions below.

• cool-moves/character-backward

• cool-moves/character-forward

• cool-moves/line-backward

• cool-moves/line-forward

• cool-moves/paragraph-forward

• cool-moves/paragraph-backward

• cool-moves/sentence-backward

• cool-moves/sentence-forward

• cool-moves/sexp-backward

• cool-moves/sexp-forward

• cool-moves/word-backwards

• cool-moves/word-forward

• Settings Besides the keybindings there are no settings to be made. ** Suggested Keybindings I use [[https://github.com/noctuid/general.el][general.el]] for my keybindings, so:

+BEGIN_SRC emacs-lisp

(general-define-key :keymaps 'override "C-S-j" 'cool-moves/line-forward "C-M-n" 'cool-moves/word-forward "C-S-k" 'cool-moves/line-backward "C-M-p" 'cool-moves/word-backwards "" 'cool-moves/paragraph-backward "" 'cool-moves/paragraph-forward)

+END_SRC

If you don't use General and don't know how to create keybindings, [[https://www.masteringemacs.org/article/mastering-key-bindings-emacs][this article]] might be helpful. ** Suggested Hydra You can use a [[https://github.com/abo-abo/hydra][Hydra]] to make the commands easily accessible.

+BEGIN_SRC emacs-lisp

(defhydra hydra-text-motions (:color amaranth :hint nil :foreign-keys nil) " ^ ^Motions^

_l_: line ↓      _w_: word →
_L_: line ↑      _W_: word ←
_p_: par  ↓      _c_: char →
_P_: par  ↑      _C_: char ←
_s_: sentence →  _x_: sexp →
_S_: sentence ←  _X_: sexp ←

"

("" nil) ("u" nil)

("l" cool-moves/line-forward) ("L" cool-moves/line-backward)

("p" cool-moves/paragraph-forward) ("P" cool-moves/paragraph-backward)

("w" cool-moves/word-forward) ("W" cool-moves/word-backwards)

("c" cool-moves/character-forward) ("C" cool-moves/character-backward)

("s" cool-moves/sentence-forward) ("S" cool-moves/sentence-backward)

("x" cool-moves/sexp-forward) ("X" cool-moves/sexp-backward))

+END_SRC

• Differences from drag-stuff [[https://github.com/rejeep/drag-stuff.el][drag-stuff]] is bigger, robuster and able to drag regions. Unlike cool-moves, it doesn't move sentences or characters. When I try to use =drag-stuff-right= on the first word of a line, it's switched with the last word of the previous paragraph. =drag-stuff= is clearly a good mode that does a lot with a single command, but in text editing predictability is a must and I don't need the added complexity. I didn't use any code from this package. My functions were largely inspired from the aforementioned [[https://emacsredux.com/blog/2013/04/02/move-current-line-up-or-down/][blog post]] by Bozhidar Batsov.