nix-archive-1(type directoryentry(namesharenode(type directoryentry(nameemacsnode(type directoryentry(name site-lispnode(type directoryentry(namedrag-stuff-0.3.0node(type directoryentry(namedrag-stuff-autoloads.elnode(typeregularcontentsT ;;; drag-stuff-autoloads.el --- automatically extracted autoloads (do not edit) -*- lexical-binding: t -*- ;; Generated by the `loaddefs-generate' function. ;; This file is part of GNU Emacs. ;;; Code: ;;; Generated autoloads from drag-stuff.el (autoload 'drag-stuff-up "drag-stuff" "\ Drag stuff ARG lines up. (fn ARG)" t) (autoload 'drag-stuff-down "drag-stuff" "\ Drag stuff ARG lines down. (fn ARG)" t) (autoload 'drag-stuff-right "drag-stuff" "\ Drag stuff ARG lines to the right. (fn ARG)" t) (autoload 'drag-stuff-left "drag-stuff" "\ Drag stuff ARG lines to the left. (fn ARG)" t) (autoload 'drag-stuff-mode "drag-stuff" "\ Drag stuff around. This is a minor mode. If called interactively, toggle the `drag-Stuff mode' mode. If the prefix argument is positive, enable the mode, and if it is zero or negative, disable the mode. If called from Lisp, toggle the mode if ARG is `toggle'. Enable the mode if ARG is nil, omitted, or is a positive number. Disable the mode if ARG is a negative number. To check whether the minor mode is enabled in the current buffer, evaluate `drag-stuff-mode'. The mode's hook is called both when the mode is enabled and when it is disabled. (fn &optional ARG)" t) (autoload 'turn-on-drag-stuff-mode "drag-stuff" "\ Turn on `drag-stuff-mode'." t) (autoload 'turn-off-drag-stuff-mode "drag-stuff" "\ Turn off `drag-stuff-mode'." t) (put 'drag-stuff-global-mode 'globalized-minor-mode t) (defvar drag-stuff-global-mode nil "\ Non-nil if Drag-Stuff-Global mode is enabled. See the `drag-stuff-global-mode' command 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, toggle the mode if ARG is `toggle'. Enable the mode if ARG is nil, omitted, or is a positive number. Disable the mode if ARG is a negative number. 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) (register-definition-prefixes "drag-stuff" '("drag-stuff-")) ;;; End of scraped data (provide 'drag-stuff-autoloads) ;; Local Variables: ;; version-control: never ;; no-update-autoloads: t ;; no-native-compile: t ;; coding: utf-8-emacs-unix ;; End: ;;; drag-stuff-autoloads.el ends here ))entry(namedrag-stuff-autoloads.elcnode(typeregularcontentsä ;ELC ;;; Compiled ;;; in Emacs version 29.4 ;;; with all optimizations. (when (boundp 'comp--no-native-compile) (puthash load-file-name t comp--no-native-compile)) #@36 Drag stuff ARG lines up. (fn ARG) (autoload 'drag-stuff-up "drag-stuff" '(#$ . 178) t)#@38 Drag stuff ARG lines down. (fn ARG) (autoload 'drag-stuff-down "drag-stuff" '(#$ . 271) t)#@46 Drag stuff ARG lines to the right. (fn ARG) (autoload 'drag-stuff-right "drag-stuff" '(#$ . 368) t)#@45 Drag stuff ARG lines to the left. (fn ARG) (autoload 'drag-stuff-left "drag-stuff" '(#$ . 474) t)#@574 Drag stuff around. This is a minor mode. If called interactively, toggle the `drag-Stuff mode' mode. If the prefix argument is positive, enable the mode, and if it is zero or negative, disable the mode. If called from Lisp, toggle the mode if ARG is `toggle'. Enable the mode if ARG is nil, omitted, or is a positive number. Disable the mode if ARG is a negative number. To check whether the minor mode is enabled in the current buffer, evaluate `drag-stuff-mode'. The mode's hook is called both when the mode is enabled and when it is disabled. (fn &optional ARG) (autoload 'drag-stuff-mode "drag-stuff" '(#$ . 579) t)#@28 Turn on `drag-stuff-mode'. (autoload 'turn-on-drag-stuff-mode "drag-stuff" '(#$ . 1212) t)#@29 Turn off `drag-stuff-mode'. (autoload 'turn-off-drag-stuff-mode "drag-stuff" '(#$ . 1308) t) (put 'drag-stuff-global-mode 'globalized-minor-mode t)#@287 Non-nil if Drag-Stuff-Global mode is enabled. See the `drag-stuff-global-mode' command 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'. (defvar drag-stuff-global-mode nil (#$ . 1462)) (custom-autoload 'drag-stuff-global-mode "drag-stuff" nil)#@471 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, toggle the mode if ARG is `toggle'. Enable the mode if ARG is nil, omitted, or is a positive number. Disable the mode if ARG is a negative number. 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) (autoload 'drag-stuff-global-mode "drag-stuff" '(#$ . 1861) t) (byte-code "\300\301\302\"\210\303\304!\207" [register-definition-prefixes "drag-stuff" ("drag-stuff-") provide drag-stuff-autoloads] 3) ))entry(namedrag-stuff-pkg.elnode(typeregularcontents[(define-package "drag-stuff" "0.0.6" "Drag stuff (lines, words, region, etc...) around") ))entry(namedrag-stuff-pkg.elcnode(typeregularcontents¨;ELC ;;; Compiled ;;; in Emacs version 29.4 ;;; with all optimizations. (define-package "drag-stuff" "0.0.6" "Drag stuff (lines, words, region, etc...) around") ))entry(name drag-stuff.elnode(typeregularcontents].;;; drag-stuff.el --- Drag stuff (lines, words, region, etc...) around ;; Copyright (C) 2010-2016 Johan Andersson ;; Author: Johan Andersson ;; Maintainer: Johan Andersson ;; Version: 0.3.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) ;;;###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 ))entry(namedrag-stuff.elcnode(typeregularcontents+?;ELC ;;; Compiled ;;; in Emacs version 29.4 ;;; with all optimizations. #@69 A list of modes in which `drag-stuff-mode' should not be activated. (defvar drag-stuff-except-modes nil (#$ . 83))#@56 Modifier key(s) for bindings in `drag-stuff-mode-map'. (defvar drag-stuff-modifier 'meta (#$ . 203))#@31 Keymap for `drag-stuff-mode'. (defvar drag-stuff-mode-map (make-sparse-keymap) (#$ . 309))#@32 Called before dragging occurs. (defvar drag-stuff-before-drag-hook nil (#$ . 405))#@31 Called after dragging occurs. (defvar drag-stuff-after-drag-hook nil (#$ . 493))#@55 Predicate for checking if we're in evil visual state. (defalias 'drag-stuff--evil-p #[nil "\301\300!\205\f\205\f\302 \207" [evil-mode boundp evil-visual-state-p] 2 (#$ . 579)])#@21 Key binding helper. (defalias 'drag-stuff--kbd #[(key) "<\203 \202 C\303\304 \nC\"!)\207" [drag-stuff-modifier mod key vector append] 4 (#$ . 764)])#@62 Returns the line number where mark (first char selected) is. (defalias 'drag-stuff--line-at-mark #[nil "\302\203 \202 \303 !\207" [evilp evil-visual-mark line-number-at-pos mark] 2 (#$ . 924)])#@65 Returns the line number where point (current selected char) is. (defalias 'drag-stuff--line-at-point #[nil "\302\203 \202\n`!\207" [evilp evil-visual-point line-number-at-pos] 2 (#$ . 1127)])#@64 Returns the column number where mark (first char selected) is. (defalias 'drag-stuff--col-at-mark #[nil "\203\304 \305\216\212\nb\210i+\207\304 \306\216\212\307 \210i+\207" [evilp #1=#:saved-marker evil-visual-mark #2=#:saved-marker save-mark-and-excursion--save #[nil "\301!\207" [#1# save-mark-and-excursion--restore] 2] #[nil "\301!\207" [#2# save-mark-and-excursion--restore] 2] exchange-point-and-mark] 1 (#$ . 1328)])#@67 Returns the column number where point (current selected char) is. (defalias 'drag-stuff--col-at-point #[nil "\203\303 \304\216\212\nb\210i+\207i\207" [evilp #1=#:saved-marker evil-visual-point save-mark-and-excursion--save #[nil "\301!\207" [#1# save-mark-and-excursion--restore] 2]] 1 (#$ . 1764)])#@41 Execute BODY without conflicting modes. (defalias 'drag-stuff--execute '(macro . #[(&rest body) "\301\302\303\304\305\306\"BBBB\207" [body 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) append ((run-hooks 'drag-stuff-after-drag-hook) (when longlines-mode-active (longlines-mode 1)))] 7 (#$ . 2074)]))#@26 Drag stuff ARG lines up. (defalias 'drag-stuff-up #[(arg) "\306\211\307\300!\205  \203\300\310!\210\311\312!\210\f\203$\313 [!\210\202)\314 [!\210\311\315!\210 \2054\300\316!+\207" [longlines-mode longlines-mode-active electric-indent-mode auto-fill-function mark-active arg nil boundp -1 run-hooks drag-stuff-before-drag-hook drag-stuff-lines-up drag-stuff-line-up drag-stuff-after-drag-hook 1] 4 (#$ . 2552) "p"])#@28 Drag stuff ARG lines down. (defalias 'drag-stuff-down #[(arg) "\306\211\307\300!\205  \203\300\310!\210\311\312!\210\f\203#\313 !\210\202'\314 !\210\311\315!\210 \2052\300\316!+\207" [longlines-mode longlines-mode-active electric-indent-mode auto-fill-function mark-active arg nil boundp -1 run-hooks drag-stuff-before-drag-hook drag-stuff-lines-down drag-stuff-line-down drag-stuff-after-drag-hook 1] 4 (#$ . 2983) "p"])#@36 Drag stuff ARG lines to the right. (defalias 'drag-stuff-right #[(arg) "\203\302 !\207\303 !\207" [mark-active arg drag-stuff-region-right drag-stuff-word-right] 2 (#$ . 3420) "p"])#@35 Drag stuff ARG lines to the left. (defalias 'drag-stuff-left #[(arg) "\203\302 !\207\303 !\207" [mark-active arg drag-stuff-region-left drag-stuff-word-left] 2 (#$ . 3610) "p"])#@33 Drag current line ARG lines up. (defalias 'drag-stuff-line-up #[(arg) "\301 \302!V\203 \303\304!\207\305\306!\207" [arg line-number-at-pos abs drag-stuff-line-vertically #[(beg end column) "\304 \n#\210\305 !\207" [beg end arg column drag-stuff-drag-region-up move-to-column] 4] message "Can not move line further up"] 3 (#$ . 3796)])#@35 Drag current line ARG lines down. (defalias 'drag-stuff-line-down #[(arg) "\301 \\\302ed\"X\203\303\304!\207\305\306!\207" [arg line-number-at-pos count-lines drag-stuff-line-vertically #[(beg end column) "\304 \n#\210\305 !\207" [beg end arg column drag-stuff-drag-region-down move-to-column] 4] message "Can not move line further down"] 4 (#$ . 4139)])#@48 Yields variables used to drag line vertically. (defalias 'drag-stuff-line-vertically #[(fn) "i\304 \305  \n#+\207" [end beg column fn line-beginning-position line-end-position] 4 (#$ . 4503)])#@53 Move all lines in the selected region ARG lines up. (defalias 'drag-stuff-lines-up #[(arg) "\301\302 !\303!V\203\304\305!\207\306\307!\207" [arg line-number-at-pos region-beginning abs drag-stuff-lines-vertically #[(beg end) "\303 \n#\207" [beg end arg drag-stuff-drag-region-up] 4] message "Can not move lines further up"] 3 (#$ . 4706)])#@53 Move all lines in the selected region ARG lines up. (defalias 'drag-stuff-lines-down #[(arg) "\303 \203\304 \305\216\212\306 +\202\307 \310 !\n\\\311ed\"X\203'\312\313!\202*\314\315!)\207" [#1=#:saved-marker selection-end arg drag-stuff--evil-p save-mark-and-excursion--save #[nil "\301!\207" [#1# save-mark-and-excursion--restore] 2] evil-visual-goto-end region-end line-number-at-pos count-lines drag-stuff-lines-vertically #[(beg end) "\303 \n#\207" [beg end arg drag-stuff-drag-region-down] 4] message "Can not move lines further down"] 4 (#$ . 5055)])#@49 Yields variables used to drag lines vertically. (defalias 'drag-stuff-lines-vertically #[(fn) "\306 \211\205 \307 \310 \311 \312 \313 \314 \211@A@\315\"\210\316\n!\210y\210\317\f!\210\320 \210\316 !\210y\210\317 !\210\205_\321\322 `\"\210 \323=\205_\324\322 `\".\n\207" [evilp vtype mark-line point-line mark-col point-col drag-stuff--evil-p evil-visual-type drag-stuff--line-at-mark drag-stuff--line-at-point drag-stuff--col-at-mark drag-stuff--col-at-point drag-stuff-whole-lines-region nil goto-line move-to-column exchange-point-and-mark evil-visual-make-selection mark line evil-visual-line bounds beg end deactivate-mark fn arg] 4 (#$ . 5627)])#@48 Drags region between BEG and END ARG lines up. (defalias 'drag-stuff-drag-region-up #[(beg end arg) "\304 \"\305 \203 \306 \210 |\210\307\310!\210 Ty\210\311 b\210\nc\210\312 \210\313y)\207" [beg end region arg buffer-substring-no-properties drag-stuff--evil-p evil-exit-visual-state backward-delete-char 1 line-beginning-position newline -1] 3 (#$ . 6313)])#@50 Drags region between BEG and END ARG lines down. (defalias 'drag-stuff-drag-region-down #[(beg end arg) "\304 \"\305 \203 \306 \210 |\210\307\310!\210 Sy\210\311 b\210\312 \210\nc)\207" [beg end region arg buffer-substring-no-properties drag-stuff--evil-p evil-exit-visual-state delete-char 1 line-end-position newline] 3 (#$ . 6681)])#@63 Return the positions of the region with whole lines included. (defalias 'drag-stuff-whole-lines-region #[nil "\306\211\n\203&\307 \310\216\212\311 b\210\312 +\307 \313\216\212\314 \210\315 +\202=`\316 V\2030\317 \210\312  \203:\317 \210\315  *D\207" [end beg evilp #1=#:saved-marker #2=#:saved-marker mark-active nil save-mark-and-excursion--save #[nil "\301!\207" [#1# save-mark-and-excursion--restore] 2] region-beginning line-beginning-position #[nil "\301!\207" [#2# save-mark-and-excursion--restore] 2] evil-visual-goto-end line-end-position mark exchange-point-and-mark] 2 (#$ . 7026)])#@30 Drags region left ARG times. (defalias 'drag-stuff-region-left #[(arg) "`\301 ^eV\203\302[!\207\303\304!\207" [arg mark drag-stuff-region-horizontally message "Can not move region further to the left"] 2 (#$ . 7639)])#@31 Drags region right ARG times. (defalias 'drag-stuff-region-right #[(arg) "`\301 ]dW\203 \302!\207\303\304!\207" [arg mark drag-stuff-region-horizontally message "Can not move region further to the right"] 2 (#$ . 7865)])#@38 Drags region horizontally ARG times. (defalias 'drag-stuff-region-horizontally #[(arg) "\305 `\306 \"\307 |\210\fu\210\nc\210\310\f\\!\210 \f\\b,\207" [beg end region deactivate-mark arg mark buffer-substring-no-properties nil set-mark] 3 (#$ . 8093)])#@28 Drags word left ARG times. (defalias 'drag-stuff-word-left #[(arg) "\301[!\207" [arg drag-stuff-word-horizontally] 2 (#$ . 8358)])#@29 Drags word right ARG times. (defalias 'drag-stuff-word-right #[(arg) "\301!\207" [arg drag-stuff-word-horizontally] 2 (#$ . 8495)])#@36 Drags word horizontally ARG times. (defalias 'drag-stuff-word-horizontally #[(arg) "`\305 \306\216\212\307v\210`+`Z\3101#\311 !\210 \206\312[u0\2025\313 \314V\203/\315\2020\316!\210\nb)*\207" [#1=#:saved-marker offset old-point arg err save-mark-and-excursion--save #[nil "\301!\207" [#1# save-mark-and-excursion--restore] 2] nil (error) transpose-words 1 message 0 "Can not move word further to the right" "Can not move word further to the left"] 3 (#$ . 8633)])#@37 Defines keys for `drag-stuff-mode'. (defalias 'drag-stuff-define-keys #[nil "\301\302\303!\304#\210\301\302\305!\306#\210\301\302\307!\310#\210\301\302\311!\312#\207" [drag-stuff-mode-map define-key drag-stuff--kbd up drag-stuff-up down drag-stuff-down right drag-stuff-right left drag-stuff-left] 4 (#$ . 9113)])#@99 Non-nil if drag-Stuff mode is enabled. Use the command `drag-stuff-mode' to change this variable. (defvar drag-stuff-mode nil (#$ . 9436)) (make-variable-buffer-local 'drag-stuff-mode)#@554 Drag stuff around. This is a minor mode. If called interactively, toggle the `drag-Stuff mode' mode. If the prefix argument is positive, enable the mode, and if it is zero or negative, disable the mode. If called from Lisp, toggle the mode if ARG is `toggle'. Enable the mode if ARG is nil, omitted, or is a positive number. Disable the mode if ARG is a negative number. To check whether the minor mode is enabled in the current buffer, evaluate `drag-stuff-mode'. The mode's hook is called both when the mode is enabled and when it is disabled. (defalias 'drag-stuff-mode #[(&optional arg) "\305  \306=\203\n?\202 \247\203 \307W\203\310\202\311\312\303!\2032\313\302 \"\n\2032\302 B\314\315\n\203<\316\202=\317\"\210\320\321!\203c\305 \203Q\305 \232\203c\322\323\324\325\n\203^\326\202_\327\f$)\210)\330 \210\n\207" [#1=#:last-message arg drag-stuff-mode local-minor-modes local current-message toggle 1 nil t boundp delq run-hooks drag-stuff-mode-hook drag-stuff-mode-on-hook drag-stuff-mode-off-hook called-interactively-p any " in current buffer" message "%s %sabled%s" "drag-Stuff mode" "en" "dis" force-mode-line-update] 5 (#$ . 9627) (list (if current-prefix-arg (prefix-numeric-value current-prefix-arg) 'toggle))]) (defvar drag-stuff-mode-hook nil) (byte-code "\301\302N\204\f\303\301\302\304#\210\303\301\305\306#\210\303\301\307\310C#\210\311\312\313\310\211%\207" [drag-stuff-mode-map drag-stuff-mode-hook variable-documentation put "Hook run after entering or leaving `drag-stuff-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" custom-type hook standard-value nil add-minor-mode drag-stuff-mode " drag"] 6)#@28 Turn on `drag-stuff-mode'. (defalias 'turn-on-drag-stuff-mode #[nil " \235?\205\n\302\303!\207" [major-mode drag-stuff-except-modes drag-stuff-mode 1] 2 (#$ . 11373) nil])#@29 Turn off `drag-stuff-mode'. (defalias 'turn-off-drag-stuff-mode #[nil "\300\301!\207" [drag-stuff-mode -1] 2 (#$ . 11552) nil]) (put 'drag-stuff-global-mode 'globalized-minor-mode t) (defvar drag-stuff-mode-major-mode nil nil) (byte-code "\300\301!\210\302\303\304\305\306\307\310\311\312\313& \207" [make-variable-buffer-local drag-stuff-mode-major-mode custom-declare-variable drag-stuff-global-mode nil "Non-nil if Drag-Stuff-Global mode is enabled.\nSee the `drag-stuff-global-mode' command\nfor a description of this minor mode.\nSetting this variable directly does not take effect;\neither customize it (see the info node `Easy Customization')\nor call the function `drag-stuff-global-mode'." :set custom-set-minor-mode :initialize custom-initialize-default :type boolean] 10)#@451 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, toggle the mode if ARG is `toggle'. Enable the mode if ARG is nil, omitted, or is a positive number. Disable the mode if ARG is a negative number. 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. (defalias 'drag-stuff-global-mode #[(&optional arg) "\306 \307\303 \310=\203\311\303!?\202\" \247\203! \312W\203!\313\202\"\314\"\210\315\302!\2039\316\303\n\"\311\303!\2039\303\nB \203O\317\320\321\"\210\317\322\323\"\210\317\324\325\"\210\202^\326\320\321\"\210\326\322\323\"\210\326\324\325\"\210\327 \f\203\207\f@r q\210 \203v\330 \210\202\203\331\332!\210)\fA)\202a)\333\334\311\303!\203\224\335\202\225\336\"\210\337\340!\203\303\341\303!\210\306 \203\255\306 \232\203\303\342)\343\344\345\311\303!\203\275\346\202\276\347)$)\210)\350 \210\311\303!\207" [#1=#:last-message arg global-minor-modes drag-stuff-global-mode #2=#:tail buf current-message set-default toggle default-value 1 nil t boundp delq add-hook after-change-major-mode-hook drag-stuff-global-mode-enable-in-buffers find-file-hook drag-stuff-global-mode-check-buffers change-major-mode-hook drag-stuff-global-mode-cmhh remove-hook buffer-list turn-on-drag-stuff-mode drag-stuff-mode -1 run-hooks drag-stuff-global-mode-hook drag-stuff-global-mode-on-hook drag-stuff-global-mode-off-hook called-interactively-p any customize-mark-as-set "" message "%s %sabled%s" "Drag-Stuff-Global mode" "en" "dis" force-mode-line-update local] 5 (#$ . 12341) (list (if current-prefix-arg (prefix-numeric-value current-prefix-arg) 'toggle))]) (defvar drag-stuff-global-mode-hook nil) (byte-code "\301\302N\204\f\303\301\302\304#\210\303\301\305\306#\210\303\301\307\310C#\210\311\312\310\313\300!\205#\310\211%\207" [drag-stuff-global-mode-map drag-stuff-global-mode-hook variable-documentation put "Hook run after entering or leaving `drag-stuff-global-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" custom-type hook standard-value nil add-minor-mode drag-stuff-global-mode boundp] 6) (defvar drag-stuff-mode-set-explicitly nil nil) (make-variable-buffer-local 'drag-stuff-mode-set-explicitly) (defalias 'drag-stuff-mode-set-explicitly #[nil "\301\211\207" [drag-stuff-mode-set-explicitly t] 2]) (byte-code "\300\301\302\303#\210\304\305\301\"\207" [put drag-stuff-mode-set-explicitly definition-name drag-stuff-global-mode add-hook drag-stuff-mode-hook] 4) (defvar drag-stuff-global-mode-buffers nil) (defalias 'drag-stuff-global-mode-enable-in-buffers #[nil "\306 \n\205?\n@\307 !\2038r q\210\f\2044  =\2044\2031\310\311!\210\312 \210\2024\312 \210 )\nA)\202*\207" [drag-stuff-global-mode-buffers buffers #1=#:tail buf drag-stuff-mode-set-explicitly drag-stuff-mode-major-mode nil buffer-live-p drag-stuff-mode -1 turn-on-drag-stuff-mode major-mode] 2]) (put 'drag-stuff-global-mode-enable-in-buffers 'definition-name 'drag-stuff-global-mode) (defalias 'drag-stuff-global-mode-check-buffers #[nil "\300 \210\301\302\303\"\207" [drag-stuff-global-mode-enable-in-buffers remove-hook post-command-hook drag-stuff-global-mode-check-buffers] 3]) (put 'drag-stuff-global-mode-check-buffers 'definition-name 'drag-stuff-global-mode) (defalias 'drag-stuff-global-mode-cmhh #[nil "p\211 \235\203 \210\202 B)\302\303\304\"\207" [#1=#:x drag-stuff-global-mode-buffers add-hook post-command-hook drag-stuff-global-mode-check-buffers] 4]) (byte-code "\300\301\302\303#\210\304\305!\207" [put drag-stuff-global-mode-cmhh definition-name drag-stuff-global-mode provide drag-stuff] 4) )))))))))))