[feature] Add user configuration for org-mode specfic S-[arrow] bindings

This commit adds a function that a prelude user can add to their
personal configs that, if called, will set org-mode specific S-[arrow key]
functionality in org-mode buffers instead of the default windmove
keybindings.

Windmove keybindings should work in all other buffers.

Fixes bbatsov#1364

Alternative to bbatsov#1427

Author: planetmcd

docs/configuration.md

@@ -210,3 +210,18 @@ to disable this behaviour, set the following variable to nil before loading prel
 ```emacs-lisp
 (setq prelude-override-package-user-dir nil)
 ```
+
+### Enable org-mode shift arrow Keybindings
+By default, windmove keybindings take precedence for binding to the S+[arrow] keys.
+Org-mode keybindings are overridden. This is a [know issue][1] described in org-mode's
+manual.
+
+[1]: https://orgmode.org/manual/Conflicts.html
+
+To have org-mode S+[arrow key] keybindings in org buffers, add this to your configs:
+
+```lisp
+(prelude-enable-org-mode-shift-bindings)
+```
+
+Other buffers should continue to be bound to windmove keybindings.

modules/prelude-org.el

@@ -58,6 +58,42 @@
 
 (add-hook 'org-mode-hook (lambda () (run-hooks 'prelude-org-mode-hook)))
 
+(defun prelude-enable-org-mode-shift-bindings ()
+  "Enable windmove advice to use org-mode shift functions in org buffers."
+  (interactive)
+  (message "Prelude: Installing org-mode shift key bindings to superced windmove bindings")
+
+;; Advice to redirect windmove commands to org-mode functions in org buffers
+(defun ap/windmove-left-advice (orig-fun &rest args)
+  "Use org-mode shift-left in org buffers, windmove-left elsewhere."
+  (if (derived-mode-p 'org-mode)
+      (org-shiftleft)
+    (apply orig-fun args)))
+
+(defun ap/windmove-right-advice (orig-fun &rest args)
+  "Use org-mode shift-right in org buffers, windmove-right elsewhere."
+  (if (derived-mode-p 'org-mode)
+      (org-shiftright)
+    (apply orig-fun args)))
+
+(defun ap/windmove-up-advice (orig-fun &rest args)
+  "Use org-mode shift-up in org buffers, windmove-up elsewhere."
+  (if (derived-mode-p 'org-mode)
+      (org-shiftup)
+    (apply orig-fun args)))
+
+(defun ap/windmove-down-advice (orig-fun &rest args)
+  "Use org-mode shift-down in org buffers, windmove-down elsewhere."
+  (if (derived-mode-p 'org-mode)
+      (org-shiftdown)
+    (apply orig-fun args)))
+
+;; Apply advice to all windmove functions
+(advice-add 'windmove-left :around #'ap/windmove-left-advice)
+(advice-add 'windmove-right :around #'ap/windmove-right-advice)
+(advice-add 'windmove-up :around #'ap/windmove-up-advice)
+(advice-add 'windmove-down :around #'ap/windmove-down-advice))
+
 (provide 'prelude-org)
 
 ;;; prelude-org.el ends here