arrow.el

(require 'windmove)
(require 'evil nil t)

(global-set-key (kbd "<down>")  'windmove-down)
(global-set-key (kbd "<up>")    'windmove-up)
(global-set-key (kbd "<right>") 'windmove-right)
(global-set-key (kbd "<left>")  'windmove-left)

(when (require 'evil nil t)
  (define-key evil-motion-state-map [left] nil)
  (define-key evil-motion-state-map [right] nil)
  (define-key evil-motion-state-map [up] nil)
  (define-key evil-motion-state-map [down] nil))

(defun my-frame-increase-height ()
  (interactive)
  (set-frame-height nil (+ (frame-height) 1)))

(defun my-frame-decrease-height ()
  (interactive)
  (set-frame-height nil (- (frame-height) 1)))

(defun my-frame-increase-width ()
  (interactive)
  (set-frame-width nil (+ (frame-width) 4)))

(defun my-frame-decrease-width ()
  (interactive)
  (set-frame-width nil (- (frame-width) 4)))

(global-set-key (kbd "<C-M-S-down>") 'my-frame-increase-height)
(global-set-key (kbd "<C-M-S-up>") 'my-frame-decrease-height)
(global-set-key (kbd "<C-M-S-right>") 'my-frame-increase-width)
(global-set-key (kbd "<C-M-S-left>") 'my-frame-decrease-width)

(defun my-frame-move-down ()
  (interactive)
  (set-frame-position nil
                      (car (frame-position))
                      (+ (cdr (frame-position)) 16)))

(defun my-frame-move-up ()
  (interactive)
  (set-frame-position nil
                      (car (frame-position))
                      (- (cdr (frame-position)) 16)))

(defun my-frame-move-right ()
  (interactive)
  (set-frame-position nil
                      (+ (car (frame-position)) 16)
                      (cdr (frame-position))))

(defun my-frame-move-left ()
  (interactive)
  (set-frame-position nil
                      (- (car (frame-position)) 16)
                      (cdr (frame-position))))

(global-set-key (kbd "<C-S-down>") 'my-frame-move-down)
(global-set-key (kbd "<C-S-up>") 'my-frame-move-up)
(global-set-key (kbd "<C-S-right>") 'my-frame-move-right)
(global-set-key (kbd "<C-S-left>") 'my-frame-move-left)

(defun my-window-increase-height ()
  (interactive)
  (if (window-in-direction 'down)
      (enlarge-window 1)
    (shrink-window 1)))

(defun my-window-decrease-height ()
  (interactive)
  (if (window-in-direction 'down)
      (shrink-window 1)
    (enlarge-window 1)))

(defun my-window-increase-width ()
  (interactive)
  (if (window-in-direction 'right)
      (enlarge-window-horizontally 4)
    (shrink-window-horizontally 4)))

(defun my-window-decrease-width ()
  (interactive)
  (if (window-in-direction 'right)
      (shrink-window-horizontally 4)
    (enlarge-window-horizontally 4)))

(global-set-key (kbd "<M-down>") 'my-window-increase-height)
(global-set-key (kbd "<M-up>") 'my-window-decrease-height)
(global-set-key (kbd "<M-right>") 'my-window-increase-width)
(global-set-key (kbd "<M-left>") 'my-window-decrease-width)

;; C-M-S- frame resizing
;; C-M- frame repositioning
;; C- window resizing
;; C-M- frame repositioning

;; 000
;; 001 S-
;; 010 M-
;; 011 M-S-   window resizing
;; 100 C-
;; 101 C-S-   frame repositioning
;; 110 C-M-   already taken by OS
;; 111 C-M-S- frame resizing

(with-eval-after-load "org"
  (define-key org-mode-map (kbd "<M-down>") nil)
  (define-key org-mode-map (kbd "<M-up>") nil)
  (define-key org-mode-map (kbd "<M-right>") nil)
  (define-key org-mode-map (kbd "<M-left>") nil))

(with-eval-after-load "org"
  (define-key org-mode-map (kbd "<C-S-down>") nil)
  (define-key org-mode-map (kbd "<C-S-up>") nil)
  (define-key org-mode-map (kbd "<C-S-right>") nil)
  (define-key org-mode-map (kbd "<C-S-left>") nil))

(with-eval-after-load "org"
  (define-key org-mode-map (kbd "<C-M-S-down>") nil)
  (define-key org-mode-map (kbd "<C-M-S-up>") nil)
  (define-key org-mode-map (kbd "<C-M-S-right>") nil)
  (define-key org-mode-map (kbd "<C-M-S-left>") nil))