From 5f443900d7e95e9f72819d702b92af4c67005376 Mon Sep 17 00:00:00 2001
From: Gergely Polonkai <gergely.polonkai@ericsson.com>
Date: Mon, 26 Sep 2016 16:04:00 +0200
Subject: [PATCH] Remove my own move-line in favour of drag-stuff

---
 .gitmodules                                   |   3 -
 .../drag-stuff-autoloads.el                   |  78 ++++
 .../drag-stuff-pkg.el                         |   4 +
 elpa/drag-stuff-20160520.1159/drag-stuff.el   | 366 ++++++++++++++++++
 init.el                                       |   6 +-
 move-line                                     |   1 -
 6 files changed, 450 insertions(+), 8 deletions(-)
 create mode 100644 elpa/drag-stuff-20160520.1159/drag-stuff-autoloads.el
 create mode 100644 elpa/drag-stuff-20160520.1159/drag-stuff-pkg.el
 create mode 100644 elpa/drag-stuff-20160520.1159/drag-stuff.el
 delete mode 160000 move-line

diff --git a/.gitmodules b/.gitmodules
index c94277c..37308d7 100644
--- a/.gitmodules
+++ b/.gitmodules
@@ -1,6 +1,3 @@
 [submodule "gobgen"]
 	path = gobgen
 	url = git://github.com/gergelypolonkai/gobgen.el.git
-[submodule "move-line"]
-	path = move-line
-	url = git://github.com/nflath/move-line.git
diff --git a/elpa/drag-stuff-20160520.1159/drag-stuff-autoloads.el b/elpa/drag-stuff-20160520.1159/drag-stuff-autoloads.el
new file mode 100644
index 0000000..9b84ecb
--- /dev/null
+++ b/elpa/drag-stuff-20160520.1159/drag-stuff-autoloads.el
@@ -0,0 +1,78 @@
+;;; drag-stuff-autoloads.el --- automatically extracted autoloads
+;;
+;;; Code:
+(add-to-list 'load-path (or (file-name-directory #$) (car load-path)))
+
+;;;### (autoloads nil "drag-stuff" "drag-stuff.el" (22505 10892 547932
+;;;;;;  56000))
+;;; Generated autoloads from drag-stuff.el
+
+(autoload 'drag-stuff-up "drag-stuff" "\
+Drag stuff ARG lines up.
+
+\(fn ARG)" t nil)
+
+(autoload 'drag-stuff-down "drag-stuff" "\
+Drag stuff ARG lines down.
+
+\(fn ARG)" t nil)
+
+(autoload 'drag-stuff-right "drag-stuff" "\
+Drag stuff ARG lines to the right.
+
+\(fn ARG)" t nil)
+
+(autoload 'drag-stuff-left "drag-stuff" "\
+Drag stuff ARG lines to the left.
+
+\(fn ARG)" t nil)
+
+(autoload 'drag-stuff-mode "drag-stuff" "\
+Drag stuff around.
+
+\(fn &optional ARG)" t nil)
+
+(autoload 'turn-on-drag-stuff-mode "drag-stuff" "\
+Turn on `drag-stuff-mode'.
+
+\(fn)" t nil)
+
+(autoload 'turn-off-drag-stuff-mode "drag-stuff" "\
+Turn off `drag-stuff-mode'.
+
+\(fn)" t nil)
+
+(defvar drag-stuff-global-mode nil "\
+Non-nil if Drag-Stuff-Global mode is enabled.
+See the command `drag-stuff-global-mode' for a description of this minor mode.
+Setting this variable directly does not take effect;
+either customize it (see the info node `Easy Customization')
+or call the function `drag-stuff-global-mode'.")
+
+(custom-autoload 'drag-stuff-global-mode "drag-stuff" nil)
+
+(autoload 'drag-stuff-global-mode "drag-stuff" "\
+Toggle Drag-Stuff mode in all buffers.
+With prefix ARG, enable Drag-Stuff-Global mode if ARG is positive;
+otherwise, disable it.  If called from Lisp, enable the mode if
+ARG is omitted or nil.
+
+Drag-Stuff mode is enabled in all buffers where
+`turn-on-drag-stuff-mode' would do it.
+See `drag-stuff-mode' for more information on Drag-Stuff mode.
+
+\(fn &optional ARG)" t nil)
+
+;;;***
+
+;;;### (autoloads nil nil ("drag-stuff-pkg.el") (22505 10892 574776
+;;;;;;  658000))
+
+;;;***
+
+;; Local Variables:
+;; version-control: never
+;; no-byte-compile: t
+;; no-update-autoloads: t
+;; End:
+;;; drag-stuff-autoloads.el ends here
diff --git a/elpa/drag-stuff-20160520.1159/drag-stuff-pkg.el b/elpa/drag-stuff-20160520.1159/drag-stuff-pkg.el
new file mode 100644
index 0000000..f58b0a4
--- /dev/null
+++ b/elpa/drag-stuff-20160520.1159/drag-stuff-pkg.el
@@ -0,0 +1,4 @@
+(define-package "drag-stuff" "20160520.1159" "Drag stuff (lines, words, region, etc...) around" 'nil)
+;; Local Variables:
+;; no-byte-compile: t
+;; End:
diff --git a/elpa/drag-stuff-20160520.1159/drag-stuff.el b/elpa/drag-stuff-20160520.1159/drag-stuff.el
new file mode 100644
index 0000000..985c7c7
--- /dev/null
+++ b/elpa/drag-stuff-20160520.1159/drag-stuff.el
@@ -0,0 +1,366 @@
+;;; drag-stuff.el --- Drag stuff (lines, words, region, etc...) around
+
+;; Copyright (C) 2010-2016 Johan Andersson
+
+;; Author: Johan Andersson <johan.rejeep@gmail.com>
+;; Maintainer: Johan Andersson <johan.rejeep@gmail.com>
+;; Version: 0.2.0
+;; Keywords: speed, convenience
+;; URL: http://github.com/rejeep/drag-stuff
+
+;; This file is NOT part of GNU Emacs.
+
+;;; License:
+
+;; This program is free software; you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation; either version 3, or (at your option)
+;; any later version.
+
+;; This program is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with GNU Emacs; see the file COPYING.  If not, write to the
+;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
+;; Boston, MA 02110-1301, USA.
+
+;;; Commentary:
+
+;; drag-stuff is a minor mode for dragging stuff around in Emacs. You
+;; can drag lines, words and region.
+
+;; To use drag-stuff, make sure that this file is in Emacs load-path
+;; (add-to-list 'load-path "/path/to/directory/or/file")
+;;
+;; Then require drag-stuff
+;; (require 'drag-stuff)
+
+;; To start drag-stuff
+;; (drag-stuff-mode t) or M-x drag-stuff-mode
+;;
+;; drag-stuff is buffer local, so hook it up
+;; (add-hook 'ruby-mode-hook 'drag-stuff-mode)
+;;
+;; Or use the global mode to activate it in all buffers.
+;; (drag-stuff-global-mode t)
+
+;; Drag Stuff stores a list (`drag-stuff-except-modes') of modes in
+;; which `drag-stuff-mode' should not be activated in (note, only if
+;; you use the global mode) because of conflicting use.
+;;
+;; You can add new except modes:
+;;   (add-to-list 'drag-stuff-except-modes 'conflicting-mode)
+
+;; Default modifier key is the meta-key. This can be changed and is
+;; controlled by the variable `drag-stuff-modifier'.
+;;
+;; Control key as modifier:
+;;   (setq drag-stuff-modifier 'control)
+;;
+;; Meta and Shift keys as modifier:
+;;   (setq drag-stuff-modifier '(meta shift))
+
+;;; Code:
+
+(eval-when-compile
+  (require 'cl))
+
+(defvar drag-stuff-except-modes ()
+  "A list of modes in which `drag-stuff-mode' should not be activated.")
+
+(defvar drag-stuff-modifier 'meta
+  "Modifier key(s) for bindings in `drag-stuff-mode-map'.")
+
+(defvar drag-stuff-mode-map (make-sparse-keymap)
+  "Keymap for `drag-stuff-mode'.")
+
+(defvar drag-stuff-before-drag-hook nil
+  "Called before dragging occurs.")
+
+(defvar drag-stuff-after-drag-hook nil
+  "Called after dragging occurs.")
+
+;; save-mark-and-excursion in Emacs 25 works like save-excursion did before
+(eval-when-compile
+  (when (not (fboundp #'save-mark-and-excursion))
+    (defmacro save-mark-and-excursion (&rest body)
+      `(save-excursion ,@body))))
+
+(defun drag-stuff--evil-p ()
+  "Predicate for checking if we're in evil visual state."
+  (and (bound-and-true-p evil-mode) (evil-visual-state-p)))
+
+(defun drag-stuff--kbd (key)
+  "Key binding helper."
+  (let ((mod (if (listp drag-stuff-modifier)
+                 drag-stuff-modifier
+               (list drag-stuff-modifier))))
+    (vector (append mod (list key)))))
+
+(defun drag-stuff--line-at-mark ()
+  "Returns the line number where mark (first char selected) is."
+  (line-number-at-pos
+   (if evilp evil-visual-mark (mark))))
+
+(defun drag-stuff--line-at-point ()
+  "Returns the line number where point (current selected char) is."
+  (line-number-at-pos
+   (if evilp evil-visual-point (point))))
+
+(defun drag-stuff--col-at-mark ()
+  "Returns the column number where mark (first char selected) is."
+  (if evilp
+      (save-mark-and-excursion (goto-char evil-visual-mark) (current-column))
+    (save-mark-and-excursion (exchange-point-and-mark) (current-column))))
+
+(defun drag-stuff--col-at-point ()
+  "Returns the column number where point (current selected char) is."
+  (if evilp
+      (save-mark-and-excursion (goto-char evil-visual-point) (current-column))
+    (current-column)))
+
+(defmacro drag-stuff--execute (&rest body)
+  "Execute BODY without conflicting modes."
+  `(let ((auto-fill-function nil)
+         (electric-indent-mode nil)
+         (longlines-mode-active
+          (and (boundp 'longlines-mode) longlines-mode)))
+     (when longlines-mode-active
+       (longlines-mode -1))
+     (run-hooks 'drag-stuff-before-drag-hook)
+     ,@body
+     (run-hooks 'drag-stuff-after-drag-hook)
+     (when longlines-mode-active
+       (longlines-mode 1))))
+
+;;;###autoload
+(defun drag-stuff-up (arg)
+  "Drag stuff ARG lines up."
+  (interactive "p")
+  (drag-stuff--execute
+   (if mark-active
+       (drag-stuff-lines-up (- arg))
+     (drag-stuff-line-up (- arg)))))
+
+;;;###autoload
+(defun drag-stuff-down (arg)
+  "Drag stuff ARG lines down."
+  (interactive "p")
+  (drag-stuff--execute
+   (if mark-active
+       (drag-stuff-lines-down arg)
+     (drag-stuff-line-down arg))))
+
+;;;###autoload
+(defun drag-stuff-right (arg)
+  "Drag stuff ARG lines to the right."
+  (interactive "p")
+  (if mark-active
+      (drag-stuff-region-right arg)
+    (drag-stuff-word-right arg)))
+
+;;;###autoload
+(defun drag-stuff-left (arg)
+  "Drag stuff ARG lines to the left."
+  (interactive "p")
+  (if mark-active
+      (drag-stuff-region-left arg)
+    (drag-stuff-word-left arg)))
+
+(defun drag-stuff-line-up (arg)
+  "Drag current line ARG lines up."
+  (if (> (line-number-at-pos) (abs arg))
+      (drag-stuff-line-vertically
+       (lambda (beg end column)
+         (drag-stuff-drag-region-up beg end arg)
+         (move-to-column column)))
+    (message "Can not move line further up")))
+
+(defun drag-stuff-line-down (arg)
+  "Drag current line ARG lines down."
+  (if (<= (+ (line-number-at-pos) arg) (count-lines (point-min) (point-max)))
+      (drag-stuff-line-vertically
+       (lambda (beg end column)
+         (drag-stuff-drag-region-down beg end arg)
+         (move-to-column column)))
+    (message "Can not move line further down")))
+
+(defun drag-stuff-line-vertically (fn)
+  "Yields variables used to drag line vertically."
+  (let ((column (current-column))
+        (beg (line-beginning-position))
+        (end (line-end-position)))
+    (funcall fn beg end column)))
+
+(defun drag-stuff-lines-up (arg)
+  "Move all lines in the selected region ARG lines up."
+  (if (> (line-number-at-pos (region-beginning)) (abs arg))
+      (drag-stuff-lines-vertically
+       (lambda (beg end)
+         (drag-stuff-drag-region-up beg end arg)))
+    (message "Can not move lines further up")))
+
+(defun drag-stuff-lines-down (arg)
+  "Move all lines in the selected region ARG lines up."
+  (let ((selection-end (if (drag-stuff--evil-p)
+                           (save-mark-and-excursion (evil-visual-goto-end))
+                         (region-end))))
+    (if (<= (+ (line-number-at-pos selection-end) arg) (count-lines (point-min) (point-max)))
+        (drag-stuff-lines-vertically
+         (lambda (beg end)
+           (drag-stuff-drag-region-down beg end arg)))
+      (message "Can not move lines further down"))))
+
+(defun drag-stuff-lines-vertically (fn)
+  "Yields variables used to drag lines vertically."
+  (let* ((evilp (drag-stuff--evil-p))
+         (vtype (if evilp (evil-visual-type) nil))
+         (mark-line (drag-stuff--line-at-mark))
+         (point-line (drag-stuff--line-at-point))
+         (mark-col (drag-stuff--col-at-mark))
+         (point-col (drag-stuff--col-at-point))
+         (bounds (drag-stuff-whole-lines-region))
+         (beg (car bounds))
+         (end (car (cdr bounds)))
+         (deactivate-mark nil))
+
+    (funcall fn beg end)
+    ;; Restore region
+    (goto-line mark-line)
+    (forward-line arg)
+    (move-to-column mark-col)
+    (exchange-point-and-mark)
+    (goto-line point-line)
+    (forward-line arg)
+    (move-to-column point-col)
+    (when evilp
+      (evil-visual-make-selection (mark) (point))
+      (when (eq vtype 'line) (evil-visual-line (mark) (point))))))
+
+
+(defun drag-stuff-drag-region-up (beg end arg)
+  "Drags region between BEG and END ARG lines up."
+  (let ((region (buffer-substring-no-properties beg end)))
+    (when (drag-stuff--evil-p) (evil-exit-visual-state))
+    (delete-region beg end)
+    (backward-delete-char 1)
+    (forward-line (+ arg 1))
+    (goto-char (line-beginning-position))
+    (insert region)
+    (newline)
+    (forward-line -1)))
+
+(defun drag-stuff-drag-region-down (beg end arg)
+  "Drags region between BEG and END ARG lines down."
+  (let ((region (buffer-substring-no-properties beg end)))
+    (when (drag-stuff--evil-p) (evil-exit-visual-state))
+    (delete-region beg end)
+    (delete-char 1)
+    (forward-line (- arg 1))
+    (goto-char (line-end-position))
+    (newline)
+    (insert region)))
+
+(defun drag-stuff-whole-lines-region ()
+  "Return the positions of the region with whole lines included."
+  (let (beg end)
+    (cond (evilp
+           (setq beg (save-mark-and-excursion (goto-char (region-beginning)) (line-beginning-position)))
+           (setq end (save-mark-and-excursion (evil-visual-goto-end) (line-end-position))))
+          (t
+           (if (> (point) (mark))
+               (exchange-point-and-mark))
+           (setq beg (line-beginning-position))
+           (if mark-active
+               (exchange-point-and-mark))
+           (setq end (line-end-position))))
+    (list beg end)))
+
+(defun drag-stuff-region-left (arg)
+  "Drags region left ARG times."
+  (if (> (min (point) (mark)) (point-min))
+      (drag-stuff-region-horizontally (- arg))
+    (message "Can not move region further to the left")))
+
+(defun drag-stuff-region-right (arg)
+  "Drags region right ARG times."
+  (if (< (max (point) (mark)) (point-max))
+      (drag-stuff-region-horizontally arg)
+    (message "Can not move region further to the right")))
+
+(defun drag-stuff-region-horizontally (arg)
+  "Drags region horizontally ARG times."
+  (let* ((beg (mark))
+         (end (point))
+         (region (buffer-substring-no-properties beg end))
+         (deactivate-mark nil))
+    (delete-region beg end)
+    (forward-char arg)
+    (insert region)
+    (set-mark (+ beg arg))
+    (goto-char (+ end arg))))
+
+(defun drag-stuff-word-left (arg)
+  "Drags word left ARG times."
+  (drag-stuff-word-horizontally (- arg)))
+
+(defun drag-stuff-word-right (arg)
+  "Drags word right ARG times."
+  (drag-stuff-word-horizontally arg))
+
+(defun drag-stuff-word-horizontally (arg)
+  "Drags word horizontally ARG times."
+  (let ((old-point (point))
+        (offset (- (save-mark-and-excursion (forward-word) (point)) (point))))
+    (condition-case err
+        (progn
+          (transpose-words arg)
+          (backward-char offset))
+      (error
+       (message
+        (if (> arg 0)
+            "Can not move word further to the right"
+          "Can not move word further to the left"))
+       (goto-char old-point)))))
+
+(defun drag-stuff-define-keys ()
+  "Defines keys for `drag-stuff-mode'."
+  (define-key drag-stuff-mode-map (drag-stuff--kbd 'up) 'drag-stuff-up)
+  (define-key drag-stuff-mode-map (drag-stuff--kbd 'down) 'drag-stuff-down)
+  (define-key drag-stuff-mode-map (drag-stuff--kbd 'right) 'drag-stuff-right)
+  (define-key drag-stuff-mode-map (drag-stuff--kbd 'left) 'drag-stuff-left))
+
+;;;###autoload
+(define-minor-mode drag-stuff-mode
+  "Drag stuff around."
+  :init-value nil
+  :lighter " drag"
+  :keymap drag-stuff-mode-map
+  (when drag-stuff-mode
+    (drag-stuff-define-keys)))
+
+;;;###autoload
+(defun turn-on-drag-stuff-mode ()
+  "Turn on `drag-stuff-mode'."
+  (interactive)
+  (unless (member major-mode drag-stuff-except-modes)
+    (drag-stuff-mode +1)))
+
+;;;###autoload
+(defun turn-off-drag-stuff-mode ()
+  "Turn off `drag-stuff-mode'."
+  (interactive)
+  (drag-stuff-mode -1))
+
+;;;###autoload
+(define-globalized-minor-mode drag-stuff-global-mode
+  drag-stuff-mode
+  turn-on-drag-stuff-mode)
+
+
+(provide 'drag-stuff)
+
+;;; drag-stuff.el ends here
diff --git a/init.el b/init.el
index d2432b8..d5d6cdc 100644
--- a/init.el
+++ b/init.el
@@ -96,7 +96,6 @@
  '(trailing-whitespace ((t (:inherit nil :background "red1"))))
  '(whitespace-line ((t (:inherit nil :background "orange")))))
 
-(add-to-list 'load-path (concat user-emacs-directory "move-line"))
 (add-to-list 'load-path (concat user-emacs-directory "gobgen"))
 
 ; Nyanyanyanyanya
@@ -104,7 +103,6 @@
 (add-hook 'after-init-hook 'global-wakatime-mode)
 (add-hook 'after-init-hook (lambda () (require 'magit-gerrit)))
 
-(add-hook 'after-init-hook (lambda () (require 'move-line)))
 (add-hook 'after-init-hook (lambda () (require 'whitespace)))
 (add-hook 'after-init-hook (lambda () (require 'rcirc)))
 (add-hook 'after-init-hook (lambda () (require 'thingatpt)))
@@ -143,8 +141,6 @@
 (add-hook 'c-mode-common-hook
           (lambda()
             (local-set-key  (kbd "C-c o") 'ff-find-other-file)))
-(global-set-key (kbd "M-<up>") 'move-line-up)
-(global-set-key (kbd "M-<down>") 'move-line-down)
 ;; Some terminals don’t interpret Alt-Up/Down as M-<up/down>.
 (global-set-key (kbd "ESC <up>") 'move-line-up)
 (global-set-key (kbd "ESC <down>") 'move-line-down)
@@ -511,3 +507,5 @@ Version 2016-02-16"
         (message "File '%s' successfully removed" filename)))))
 
 (global-set-key (kbd "C-x C-d") 'delete-current-buffer-file)
+
+(drag-stuff-global-mode t)
diff --git a/move-line b/move-line
deleted file mode 160000
index f170765..0000000
--- a/move-line
+++ /dev/null
@@ -1 +0,0 @@
-Subproject commit f1707658df1621a9acc9d728c92d12bfef22d55d