[ELPA] Some more packages
This commit is contained in:
parent
60905453ef
commit
4daeaba40c
|
@ -11,6 +11,11 @@
|
||||||
!/elpa/diminish-20*
|
!/elpa/diminish-20*
|
||||||
!/elpa/bind-key-20*
|
!/elpa/bind-key-20*
|
||||||
!/elpa/use-package-20*
|
!/elpa/use-package-20*
|
||||||
|
!/elpa/dash-20*
|
||||||
|
!/elpa/hydra-20*
|
||||||
|
!/elpa/page-break-lines-20*
|
||||||
|
!/elpa/multiple-cursors-20*
|
||||||
|
!/elpa/exec-path-from-shell-20*
|
||||||
/emms/
|
/emms/
|
||||||
/eshell/history
|
/eshell/history
|
||||||
/eshell/lastdir
|
/eshell/lastdir
|
||||||
|
|
|
@ -0,0 +1,15 @@
|
||||||
|
;;; dash-autoloads.el --- automatically extracted autoloads
|
||||||
|
;;
|
||||||
|
;;; Code:
|
||||||
|
(add-to-list 'load-path (directory-file-name (or (file-name-directory #$) (car load-path))))
|
||||||
|
|
||||||
|
;;;### (autoloads nil nil ("dash.el") (22942 51308 152174 503000))
|
||||||
|
|
||||||
|
;;;***
|
||||||
|
|
||||||
|
;; Local Variables:
|
||||||
|
;; version-control: never
|
||||||
|
;; no-byte-compile: t
|
||||||
|
;; no-update-autoloads: t
|
||||||
|
;; End:
|
||||||
|
;;; dash-autoloads.el ends here
|
|
@ -0,0 +1,2 @@
|
||||||
|
;;; -*- no-byte-compile: t -*-
|
||||||
|
(define-package "dash" "20170810.137" "A modern list library for Emacs" 'nil :commit "0df0ff1a65d54377381e50c08d88b247db44c3dd" :keywords '("lists"))
|
File diff suppressed because it is too large
Load Diff
|
@ -0,0 +1,44 @@
|
||||||
|
;;; exec-path-from-shell-autoloads.el --- automatically extracted autoloads
|
||||||
|
;;
|
||||||
|
;;; Code:
|
||||||
|
(add-to-list 'load-path (directory-file-name (or (file-name-directory #$) (car load-path))))
|
||||||
|
|
||||||
|
;;;### (autoloads nil "exec-path-from-shell" "exec-path-from-shell.el"
|
||||||
|
;;;;;; (22911 3932 648589 906000))
|
||||||
|
;;; Generated autoloads from exec-path-from-shell.el
|
||||||
|
|
||||||
|
(autoload 'exec-path-from-shell-copy-envs "exec-path-from-shell" "\
|
||||||
|
Set the environment variables with NAMES from the user's shell.
|
||||||
|
|
||||||
|
As a special case, if the variable is $PATH, then `exec-path' and
|
||||||
|
`eshell-path-env' are also set appropriately. The result is an alist,
|
||||||
|
as described by `exec-path-from-shell-getenvs'.
|
||||||
|
|
||||||
|
\(fn NAMES)" nil nil)
|
||||||
|
|
||||||
|
(autoload 'exec-path-from-shell-copy-env "exec-path-from-shell" "\
|
||||||
|
Set the environment variable $NAME from the user's shell.
|
||||||
|
|
||||||
|
As a special case, if the variable is $PATH, then `exec-path' and
|
||||||
|
`eshell-path-env' are also set appropriately. Return the value
|
||||||
|
of the environment variable.
|
||||||
|
|
||||||
|
\(fn NAME)" t nil)
|
||||||
|
|
||||||
|
(autoload 'exec-path-from-shell-initialize "exec-path-from-shell" "\
|
||||||
|
Initialize environment from the user's shell.
|
||||||
|
|
||||||
|
The values of all the environment variables named in
|
||||||
|
`exec-path-from-shell-variables' are set from the corresponding
|
||||||
|
values used in the user's shell.
|
||||||
|
|
||||||
|
\(fn)" t nil)
|
||||||
|
|
||||||
|
;;;***
|
||||||
|
|
||||||
|
;; Local Variables:
|
||||||
|
;; version-control: never
|
||||||
|
;; no-byte-compile: t
|
||||||
|
;; no-update-autoloads: t
|
||||||
|
;; End:
|
||||||
|
;;; exec-path-from-shell-autoloads.el ends here
|
|
@ -0,0 +1,2 @@
|
||||||
|
;;; -*- no-byte-compile: t -*-
|
||||||
|
(define-package "exec-path-from-shell" "20170508.4" "Get environment variables such as $PATH from the shell" 'nil :commit "5e355fbc50913d1ffe48bf86df0bcecd8b369ffb" :url "https://github.com/purcell/exec-path-from-shell" :keywords '("environment"))
|
|
@ -0,0 +1,270 @@
|
||||||
|
;;; exec-path-from-shell.el --- Get environment variables such as $PATH from the shell
|
||||||
|
|
||||||
|
;; Copyright (C) 2012-2014 Steve Purcell
|
||||||
|
|
||||||
|
;; Author: Steve Purcell <steve@sanityinc.com>
|
||||||
|
;; Keywords: environment
|
||||||
|
;; URL: https://github.com/purcell/exec-path-from-shell
|
||||||
|
;; Package-Version: 20170508.4
|
||||||
|
;; Package-X-Original-Version: 0
|
||||||
|
|
||||||
|
;; This file is not part of GNU Emacs.
|
||||||
|
|
||||||
|
;; This file 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 of the License, or
|
||||||
|
;; (at your option) any later version.
|
||||||
|
|
||||||
|
;; This file 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 this file. If not, see <http://www.gnu.org/licenses/>.
|
||||||
|
|
||||||
|
;;; Commentary:
|
||||||
|
|
||||||
|
;; On OS X (and perhaps elsewhere) the $PATH environment variable and
|
||||||
|
;; `exec-path' used by a windowed Emacs instance will usually be the
|
||||||
|
;; system-wide default path, rather than that seen in a terminal
|
||||||
|
;; window.
|
||||||
|
|
||||||
|
;; This library allows the user to set Emacs' `exec-path' and $PATH
|
||||||
|
;; from the shell path, so that `shell-command', `compile' and the
|
||||||
|
;; like work as expected.
|
||||||
|
|
||||||
|
;; It also allows other environment variables to be retrieved from the
|
||||||
|
;; shell, so that Emacs will see the same values you get in a terminal.
|
||||||
|
|
||||||
|
;; If you use a non-POSIX-standard shell like "tcsh" or "fish", your
|
||||||
|
;; shell will be asked to execute "sh" as a subshell in order to print
|
||||||
|
;; out the variables in a format which can be reliably parsed. "sh"
|
||||||
|
;; must be a POSIX-compliant shell in this case.
|
||||||
|
|
||||||
|
;; Note that shell variables which have not been exported as
|
||||||
|
;; environment variables (e.g. using the "export" keyword) may not be
|
||||||
|
;; visible to `exec-path-from-shell'.
|
||||||
|
|
||||||
|
;; Installation:
|
||||||
|
|
||||||
|
;; ELPA packages are available on Marmalade and MELPA. Alternatively,
|
||||||
|
;; place this file on a directory in your `load-path', and explicitly
|
||||||
|
;; require it.
|
||||||
|
|
||||||
|
;; Usage:
|
||||||
|
;;
|
||||||
|
;; (require 'exec-path-from-shell) ;; if not using the ELPA package
|
||||||
|
;; (exec-path-from-shell-initialize)
|
||||||
|
;;
|
||||||
|
;; Customize `exec-path-from-shell-variables' to modify the list of
|
||||||
|
;; variables imported.
|
||||||
|
;;
|
||||||
|
;; If you use your Emacs config on other platforms, you can instead
|
||||||
|
;; make initialization conditional as follows:
|
||||||
|
;;
|
||||||
|
;; (when (memq window-system '(mac ns))
|
||||||
|
;; (exec-path-from-shell-initialize))
|
||||||
|
;;
|
||||||
|
;; Alternatively, you can use `exec-path-from-shell-copy-envs' or
|
||||||
|
;; `exec-path-from-shell-copy-env' directly, e.g.
|
||||||
|
;;
|
||||||
|
;; (exec-path-from-shell-copy-env "PYTHONPATH")
|
||||||
|
|
||||||
|
;;; Code:
|
||||||
|
|
||||||
|
(defgroup exec-path-from-shell nil
|
||||||
|
"Make Emacs use shell-defined values for $PATH etc."
|
||||||
|
:prefix "exec-path-from-shell-"
|
||||||
|
:group 'environment)
|
||||||
|
|
||||||
|
(defcustom exec-path-from-shell-variables
|
||||||
|
'("PATH" "MANPATH")
|
||||||
|
"List of environment variables which are copied from the shell."
|
||||||
|
:type '(repeat (string :tag "Environment variable"))
|
||||||
|
:group 'exec-path-from-shell)
|
||||||
|
|
||||||
|
(defcustom exec-path-from-shell-check-startup-files t
|
||||||
|
"If non-nil, warn if variables are being set in the wrong shell startup files.
|
||||||
|
Environment variables should be set in .profile or .zshenv rather than
|
||||||
|
.bashrc or .zshrc."
|
||||||
|
:type 'boolean
|
||||||
|
:group 'exec-path-from-shell)
|
||||||
|
|
||||||
|
(defcustom exec-path-from-shell-shell-name nil
|
||||||
|
"If non-nil, use this shell executable.
|
||||||
|
Otherwise, use either `shell-file-name' (if set), or the value of
|
||||||
|
the SHELL environment variable."
|
||||||
|
:type '(choice
|
||||||
|
(file :tag "Shell executable")
|
||||||
|
(const :tag "Use `shell-file-name' or $SHELL" nil))
|
||||||
|
:group 'exec-path-from-shell)
|
||||||
|
|
||||||
|
(defvar exec-path-from-shell-debug nil
|
||||||
|
"Display debug info when non-nil.")
|
||||||
|
|
||||||
|
(defun exec-path-from-shell--double-quote (s)
|
||||||
|
"Double-quote S, escaping any double-quotes already contained in it."
|
||||||
|
(concat "\"" (replace-regexp-in-string "\"" "\\\\\"" s) "\""))
|
||||||
|
|
||||||
|
(defun exec-path-from-shell--shell ()
|
||||||
|
"Return the shell to use.
|
||||||
|
See documentation for `exec-path-from-shell-shell-name'."
|
||||||
|
(or
|
||||||
|
exec-path-from-shell-shell-name
|
||||||
|
shell-file-name
|
||||||
|
(getenv "SHELL")
|
||||||
|
(error "SHELL environment variable is unset")))
|
||||||
|
|
||||||
|
(defcustom exec-path-from-shell-arguments
|
||||||
|
(if (string-match-p "t?csh$" (exec-path-from-shell--shell))
|
||||||
|
(list "-d")
|
||||||
|
(list "-l" "-i"))
|
||||||
|
"Additional arguments to pass to the shell.
|
||||||
|
|
||||||
|
The default value denotes an interactive login shell."
|
||||||
|
:type '(repeat (string :tag "Shell argument"))
|
||||||
|
:group 'exec-path-from-shell)
|
||||||
|
|
||||||
|
(defun exec-path-from-shell--debug (msg &rest args)
|
||||||
|
"Print MSG and ARGS like `message', but only if debug output is enabled."
|
||||||
|
(when exec-path-from-shell-debug
|
||||||
|
(apply 'message msg args)))
|
||||||
|
|
||||||
|
(defun exec-path-from-shell--standard-shell-p (shell)
|
||||||
|
"Return non-nil iff the shell supports the standard ${VAR-default} syntax."
|
||||||
|
(not (string-match "\\(fish\\|t?csh\\)$" shell)))
|
||||||
|
|
||||||
|
(defun exec-path-from-shell-printf (str &optional args)
|
||||||
|
"Return the result of printing STR in the user's shell.
|
||||||
|
|
||||||
|
Executes the shell as interactive login shell.
|
||||||
|
|
||||||
|
STR is inserted literally in a single-quoted argument to printf,
|
||||||
|
and may therefore contain backslashed escape sequences understood
|
||||||
|
by printf.
|
||||||
|
|
||||||
|
ARGS is an optional list of args which will be inserted by printf
|
||||||
|
in place of any % placeholders in STR. ARGS are not automatically
|
||||||
|
shell-escaped, so they may contain $ etc."
|
||||||
|
(let* ((printf-bin (or (executable-find "printf") "printf"))
|
||||||
|
(printf-command
|
||||||
|
(concat printf-bin
|
||||||
|
" '__RESULT\\000" str "\\000__RESULT' "
|
||||||
|
(mapconcat #'exec-path-from-shell--double-quote args " ")))
|
||||||
|
(shell (exec-path-from-shell--shell))
|
||||||
|
(shell-args (append exec-path-from-shell-arguments
|
||||||
|
(list "-c"
|
||||||
|
(if (exec-path-from-shell--standard-shell-p shell)
|
||||||
|
printf-command
|
||||||
|
(concat "sh -c " (shell-quote-argument printf-command)))))))
|
||||||
|
(with-temp-buffer
|
||||||
|
(exec-path-from-shell--debug "Invoking shell %s with args %S" shell shell-args)
|
||||||
|
(let ((exit-code (apply #'call-process shell nil t nil shell-args)))
|
||||||
|
(exec-path-from-shell--debug "Shell printed: %S" (buffer-string))
|
||||||
|
(unless (zerop exit-code)
|
||||||
|
(error "Non-zero exit code from shell %s invoked with args %S. Output was:\n%S"
|
||||||
|
shell shell-args (buffer-string))))
|
||||||
|
(goto-char (point-min))
|
||||||
|
(if (re-search-forward "__RESULT\0\\(.*\\)\0__RESULT" nil t)
|
||||||
|
(match-string 1)
|
||||||
|
(error "Expected printf output from shell, but got: %S" (buffer-string))))))
|
||||||
|
|
||||||
|
(defun exec-path-from-shell-getenvs (names)
|
||||||
|
"Get the environment variables with NAMES from the user's shell.
|
||||||
|
|
||||||
|
Execute the shell according to `exec-path-from-shell-arguments'.
|
||||||
|
The result is a list of (NAME . VALUE) pairs."
|
||||||
|
(let* ((random-default (md5 (format "%s%s%s" (emacs-pid) (random) (current-time))))
|
||||||
|
(dollar-names (mapcar (lambda (n) (format "${%s-%s}" n random-default)) names))
|
||||||
|
(values (split-string (exec-path-from-shell-printf
|
||||||
|
(mapconcat #'identity (make-list (length names) "%s") "\\000")
|
||||||
|
dollar-names) "\0")))
|
||||||
|
(let (result)
|
||||||
|
(while names
|
||||||
|
(prog1
|
||||||
|
(let ((value (car values)))
|
||||||
|
(push (cons (car names)
|
||||||
|
(unless (string-equal random-default value)
|
||||||
|
value))
|
||||||
|
result))
|
||||||
|
(setq values (cdr values)
|
||||||
|
names (cdr names))))
|
||||||
|
result)))
|
||||||
|
|
||||||
|
(defun exec-path-from-shell-getenv (name)
|
||||||
|
"Get the environment variable NAME from the user's shell.
|
||||||
|
|
||||||
|
Execute the shell as interactive login shell, have it output the
|
||||||
|
variable of NAME and return this output as string."
|
||||||
|
(cdr (assoc name (exec-path-from-shell-getenvs (list name)))))
|
||||||
|
|
||||||
|
(defun exec-path-from-shell-setenv (name value)
|
||||||
|
"Set the value of environment var NAME to VALUE.
|
||||||
|
Additionally, if NAME is \"PATH\" then also set corresponding
|
||||||
|
variables such as `exec-path'."
|
||||||
|
(setenv name value)
|
||||||
|
(when (string-equal "PATH" name)
|
||||||
|
(setq eshell-path-env value
|
||||||
|
exec-path (append (parse-colon-path value) (list exec-directory)))))
|
||||||
|
|
||||||
|
;;;###autoload
|
||||||
|
(defun exec-path-from-shell-copy-envs (names)
|
||||||
|
"Set the environment variables with NAMES from the user's shell.
|
||||||
|
|
||||||
|
As a special case, if the variable is $PATH, then `exec-path' and
|
||||||
|
`eshell-path-env' are also set appropriately. The result is an alist,
|
||||||
|
as described by `exec-path-from-shell-getenvs'."
|
||||||
|
(let ((pairs (exec-path-from-shell-getenvs names)))
|
||||||
|
(when exec-path-from-shell-check-startup-files
|
||||||
|
(exec-path-from-shell--maybe-warn-about-startup-files pairs))
|
||||||
|
(mapc (lambda (pair)
|
||||||
|
(exec-path-from-shell-setenv (car pair) (cdr pair)))
|
||||||
|
pairs)))
|
||||||
|
|
||||||
|
(defun exec-path-from-shell--maybe-warn-about-startup-files (pairs)
|
||||||
|
"Warn the user if the value of PAIRS seems to depend on interactive shell startup files."
|
||||||
|
(let ((without-minus-i (remove "-i" exec-path-from-shell-arguments)))
|
||||||
|
;; If the user is using "-i", we warn them if it is necessary.
|
||||||
|
(unless (eq exec-path-from-shell-arguments without-minus-i)
|
||||||
|
(let* ((exec-path-from-shell-arguments without-minus-i)
|
||||||
|
(alt-pairs (exec-path-from-shell-getenvs (mapcar 'car pairs)))
|
||||||
|
different)
|
||||||
|
(dolist (pair pairs)
|
||||||
|
(unless (equal pair (assoc (car pair) alt-pairs))
|
||||||
|
(push (car pair) different)))
|
||||||
|
(when different
|
||||||
|
(message "You appear to be setting environment variables %S in your .bashrc or .zshrc: those files are only read by interactive shells, so you should instead set environment variables in startup files like .profile, .bash_profile or .zshenv. Refer to your shell's man page for more info. Customize `exec-path-from-shell-arguments' to remove \"-i\" when done, or disable `exec-path-from-shell-check-startup-files' to disable this message." different))))))
|
||||||
|
|
||||||
|
;;;###autoload
|
||||||
|
(defun exec-path-from-shell-copy-env (name)
|
||||||
|
"Set the environment variable $NAME from the user's shell.
|
||||||
|
|
||||||
|
As a special case, if the variable is $PATH, then `exec-path' and
|
||||||
|
`eshell-path-env' are also set appropriately. Return the value
|
||||||
|
of the environment variable."
|
||||||
|
(interactive "sCopy value of which environment variable from shell? ")
|
||||||
|
(cdar (exec-path-from-shell-copy-envs (list name))))
|
||||||
|
|
||||||
|
;;;###autoload
|
||||||
|
(defun exec-path-from-shell-initialize ()
|
||||||
|
"Initialize environment from the user's shell.
|
||||||
|
|
||||||
|
The values of all the environment variables named in
|
||||||
|
`exec-path-from-shell-variables' are set from the corresponding
|
||||||
|
values used in the user's shell."
|
||||||
|
(interactive)
|
||||||
|
(exec-path-from-shell-copy-envs exec-path-from-shell-variables))
|
||||||
|
|
||||||
|
|
||||||
|
(provide 'exec-path-from-shell)
|
||||||
|
|
||||||
|
;; Local Variables:
|
||||||
|
;; coding: utf-8
|
||||||
|
;; indent-tabs-mode: nil
|
||||||
|
;; mangle-whitespace: t
|
||||||
|
;; require-final-newline: t
|
||||||
|
;; checkdoc-minor-mode: t
|
||||||
|
;; End:
|
||||||
|
|
||||||
|
;;; exec-path-from-shell.el ends here
|
|
@ -0,0 +1,77 @@
|
||||||
|
;;; hydra-autoloads.el --- automatically extracted autoloads
|
||||||
|
;;
|
||||||
|
;;; Code:
|
||||||
|
(add-to-list 'load-path (directory-file-name (or (file-name-directory #$) (car load-path))))
|
||||||
|
|
||||||
|
;;;### (autoloads nil "hydra" "hydra.el" (22942 51276 155994 337000))
|
||||||
|
;;; Generated autoloads from hydra.el
|
||||||
|
|
||||||
|
(autoload 'defhydra "hydra" "\
|
||||||
|
Create a Hydra - a family of functions with prefix NAME.
|
||||||
|
|
||||||
|
NAME should be a symbol, it will be the prefix of all functions
|
||||||
|
defined here.
|
||||||
|
|
||||||
|
BODY has the format:
|
||||||
|
|
||||||
|
(BODY-MAP BODY-KEY &rest BODY-PLIST)
|
||||||
|
|
||||||
|
DOCSTRING will be displayed in the echo area to identify the
|
||||||
|
Hydra. When DOCSTRING starts with a newline, special Ruby-style
|
||||||
|
substitution will be performed by `hydra--format'.
|
||||||
|
|
||||||
|
Functions are created on basis of HEADS, each of which has the
|
||||||
|
format:
|
||||||
|
|
||||||
|
(KEY CMD &optional HINT &rest PLIST)
|
||||||
|
|
||||||
|
BODY-MAP is a keymap; `global-map' is used quite often. Each
|
||||||
|
function generated from HEADS will be bound in BODY-MAP to
|
||||||
|
BODY-KEY + KEY (both are strings passed to `kbd'), and will set
|
||||||
|
the transient map so that all following heads can be called
|
||||||
|
though KEY only. BODY-KEY can be an empty string.
|
||||||
|
|
||||||
|
CMD is a callable expression: either an interactive function
|
||||||
|
name, or an interactive lambda, or a single sexp (it will be
|
||||||
|
wrapped in an interactive lambda).
|
||||||
|
|
||||||
|
HINT is a short string that identifies its head. It will be
|
||||||
|
printed beside KEY in the echo erea if `hydra-is-helpful' is not
|
||||||
|
nil. If you don't even want the KEY to be printed, set HINT
|
||||||
|
explicitly to nil.
|
||||||
|
|
||||||
|
The heads inherit their PLIST from BODY-PLIST and are allowed to
|
||||||
|
override some keys. The keys recognized are :exit and :bind.
|
||||||
|
:exit can be:
|
||||||
|
|
||||||
|
- nil (default): this head will continue the Hydra state.
|
||||||
|
- t: this head will stop the Hydra state.
|
||||||
|
|
||||||
|
:bind can be:
|
||||||
|
- nil: this head will not be bound in BODY-MAP.
|
||||||
|
- a lambda taking KEY and CMD used to bind a head.
|
||||||
|
|
||||||
|
It is possible to omit both BODY-MAP and BODY-KEY if you don't
|
||||||
|
want to bind anything. In that case, typically you will bind the
|
||||||
|
generated NAME/body command. This command is also the return
|
||||||
|
result of `defhydra'.
|
||||||
|
|
||||||
|
\(fn NAME BODY &optional DOCSTRING &rest HEADS)" nil t)
|
||||||
|
|
||||||
|
(function-put 'defhydra 'lisp-indent-function 'defun)
|
||||||
|
|
||||||
|
(function-put 'defhydra 'doc-string-elt '3)
|
||||||
|
|
||||||
|
;;;***
|
||||||
|
|
||||||
|
;;;### (autoloads nil nil ("hydra-examples.el" "hydra-ox.el" "hydra-pkg.el"
|
||||||
|
;;;;;; "lv.el") (22942 51276 167994 399000))
|
||||||
|
|
||||||
|
;;;***
|
||||||
|
|
||||||
|
;; Local Variables:
|
||||||
|
;; version-control: never
|
||||||
|
;; no-byte-compile: t
|
||||||
|
;; no-update-autoloads: t
|
||||||
|
;; End:
|
||||||
|
;;; hydra-autoloads.el ends here
|
|
@ -0,0 +1,386 @@
|
||||||
|
;;; hydra-examples.el --- Some applications for Hydra
|
||||||
|
|
||||||
|
;; Copyright (C) 2015 Free Software Foundation, Inc.
|
||||||
|
|
||||||
|
;; Author: Oleh Krehel
|
||||||
|
|
||||||
|
;; This file is part of GNU Emacs.
|
||||||
|
|
||||||
|
;; GNU Emacs 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 of the License, or
|
||||||
|
;; (at your option) any later version.
|
||||||
|
|
||||||
|
;; GNU Emacs 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. If not, see <http://www.gnu.org/licenses/>.
|
||||||
|
|
||||||
|
;;; Commentary:
|
||||||
|
;;
|
||||||
|
;; These are the sample Hydras.
|
||||||
|
;;
|
||||||
|
;; If you want to use them plainly, set `hydra-examples-verbatim' to t
|
||||||
|
;; before requiring this file. But it's probably better to only look
|
||||||
|
;; at them and use them as templates for building your own.
|
||||||
|
|
||||||
|
;;; Code:
|
||||||
|
|
||||||
|
(require 'hydra)
|
||||||
|
|
||||||
|
;;* Examples
|
||||||
|
;;** Example 1: text scale
|
||||||
|
(when (bound-and-true-p hydra-examples-verbatim)
|
||||||
|
(defhydra hydra-zoom (global-map "<f2>")
|
||||||
|
"zoom"
|
||||||
|
("g" text-scale-increase "in")
|
||||||
|
("l" text-scale-decrease "out")))
|
||||||
|
|
||||||
|
;; This example generates three commands:
|
||||||
|
;;
|
||||||
|
;; `hydra-zoom/text-scale-increase'
|
||||||
|
;; `hydra-zoom/text-scale-decrease'
|
||||||
|
;; `hydra-zoom/body'
|
||||||
|
;;
|
||||||
|
;; In addition, two of them are bound like this:
|
||||||
|
;;
|
||||||
|
;; (global-set-key (kbd "<f2> g") 'hydra-zoom/text-scale-increase)
|
||||||
|
;; (global-set-key (kbd "<f2> l") 'hydra-zoom/text-scale-decrease)
|
||||||
|
;;
|
||||||
|
;; Note that you can substitute `global-map' with e.g. `emacs-lisp-mode-map' if you need.
|
||||||
|
;; The functions generated will be the same, except the binding code will change to:
|
||||||
|
;;
|
||||||
|
;; (define-key emacs-lisp-mode-map [f2 103]
|
||||||
|
;; (function hydra-zoom/text-scale-increase))
|
||||||
|
;; (define-key emacs-lisp-mode-map [f2 108]
|
||||||
|
;; (function hydra-zoom/text-scale-decrease))
|
||||||
|
|
||||||
|
;;** Example 2: move window splitter
|
||||||
|
(when (bound-and-true-p hydra-examples-verbatim)
|
||||||
|
(defhydra hydra-splitter (global-map "C-M-s")
|
||||||
|
"splitter"
|
||||||
|
("h" hydra-move-splitter-left)
|
||||||
|
("j" hydra-move-splitter-down)
|
||||||
|
("k" hydra-move-splitter-up)
|
||||||
|
("l" hydra-move-splitter-right)))
|
||||||
|
|
||||||
|
;;** Example 3: jump to error
|
||||||
|
(when (bound-and-true-p hydra-examples-verbatim)
|
||||||
|
(defhydra hydra-error (global-map "M-g")
|
||||||
|
"goto-error"
|
||||||
|
("h" first-error "first")
|
||||||
|
("j" next-error "next")
|
||||||
|
("k" previous-error "prev")
|
||||||
|
("v" recenter-top-bottom "recenter")
|
||||||
|
("q" nil "quit")))
|
||||||
|
|
||||||
|
;; This example introduces only one new thing: since the command
|
||||||
|
;; passed to the "q" head is nil, it will quit the Hydra without doing
|
||||||
|
;; anything. Heads that quit the Hydra instead of continuing are
|
||||||
|
;; referred to as having blue :color. All the other heads have red
|
||||||
|
;; :color, unless other is specified.
|
||||||
|
|
||||||
|
;;** Example 4: toggle rarely used modes
|
||||||
|
(when (bound-and-true-p hydra-examples-verbatim)
|
||||||
|
(defvar whitespace-mode nil)
|
||||||
|
(global-set-key
|
||||||
|
(kbd "C-c C-v")
|
||||||
|
(defhydra hydra-toggle-simple (:color blue)
|
||||||
|
"toggle"
|
||||||
|
("a" abbrev-mode "abbrev")
|
||||||
|
("d" toggle-debug-on-error "debug")
|
||||||
|
("f" auto-fill-mode "fill")
|
||||||
|
("t" toggle-truncate-lines "truncate")
|
||||||
|
("w" whitespace-mode "whitespace")
|
||||||
|
("q" nil "cancel"))))
|
||||||
|
|
||||||
|
;; Note that in this case, `defhydra' returns the `hydra-toggle-simple/body'
|
||||||
|
;; symbol, which is then passed to `global-set-key'.
|
||||||
|
;;
|
||||||
|
;; Another new thing is that both the keymap and the body prefix are
|
||||||
|
;; skipped. This means that `defhydra' will bind nothing - that's why
|
||||||
|
;; `global-set-key' is necessary.
|
||||||
|
;;
|
||||||
|
;; One more new thing is that you can assign a :color to the body. All
|
||||||
|
;; heads will inherit this color. The code above is very much equivalent to:
|
||||||
|
;;
|
||||||
|
;; (global-set-key (kbd "C-c C-v a") 'abbrev-mode)
|
||||||
|
;; (global-set-key (kbd "C-c C-v d") 'toggle-debug-on-error)
|
||||||
|
;;
|
||||||
|
;; The differences are:
|
||||||
|
;;
|
||||||
|
;; * You get a hint immediately after "C-c C-v"
|
||||||
|
;; * You can cancel and call a command immediately, e.g. "C-c C-v C-n"
|
||||||
|
;; is equivalent to "C-n" with Hydra approach, while it will error
|
||||||
|
;; that "C-c C-v C-n" isn't bound with the usual approach.
|
||||||
|
|
||||||
|
;;** Example 5: mini-vi
|
||||||
|
(defun hydra-vi/pre ()
|
||||||
|
(set-cursor-color "#e52b50"))
|
||||||
|
|
||||||
|
(defun hydra-vi/post ()
|
||||||
|
(set-cursor-color "#ffffff"))
|
||||||
|
|
||||||
|
(when (bound-and-true-p hydra-examples-verbatim)
|
||||||
|
(global-set-key
|
||||||
|
(kbd "C-z")
|
||||||
|
(defhydra hydra-vi (:pre hydra-vi/pre :post hydra-vi/post :color amaranth)
|
||||||
|
"vi"
|
||||||
|
("l" forward-char)
|
||||||
|
("h" backward-char)
|
||||||
|
("j" next-line)
|
||||||
|
("k" previous-line)
|
||||||
|
("m" set-mark-command "mark")
|
||||||
|
("a" move-beginning-of-line "beg")
|
||||||
|
("e" move-end-of-line "end")
|
||||||
|
("d" delete-region "del" :color blue)
|
||||||
|
("y" kill-ring-save "yank" :color blue)
|
||||||
|
("q" nil "quit")))
|
||||||
|
(hydra-set-property 'hydra-vi :verbosity 1))
|
||||||
|
|
||||||
|
;; This example introduces :color amaranth. It's similar to red,
|
||||||
|
;; except while you can quit red with any binding which isn't a Hydra
|
||||||
|
;; head, you can quit amaranth only with a blue head. So you can quit
|
||||||
|
;; this mode only with "d", "y", "q" or "C-g".
|
||||||
|
;;
|
||||||
|
;; Another novelty are the :pre and :post handlers. :pre will be
|
||||||
|
;; called before each command, while :post will be called when the
|
||||||
|
;; Hydra quits. In this case, they're used to override the cursor
|
||||||
|
;; color while Hydra is active.
|
||||||
|
|
||||||
|
;;** Example 6: selective global bind
|
||||||
|
(when (bound-and-true-p hydra-examples-verbatim)
|
||||||
|
(defhydra hydra-next-error (global-map "C-x")
|
||||||
|
"next-error"
|
||||||
|
("`" next-error "next")
|
||||||
|
("j" next-error "next" :bind nil)
|
||||||
|
("k" previous-error "previous" :bind nil)))
|
||||||
|
|
||||||
|
;; This example will bind "C-x `" in `global-map', but it will not
|
||||||
|
;; bind "C-x j" and "C-x k".
|
||||||
|
;; You can still "C-x `jjk" though.
|
||||||
|
|
||||||
|
;;** Example 7: toggle with Ruby-style docstring
|
||||||
|
(defvar whitespace-mode nil)
|
||||||
|
(defhydra hydra-toggle (:color pink)
|
||||||
|
"
|
||||||
|
_a_ abbrev-mode: %`abbrev-mode
|
||||||
|
_d_ debug-on-error: %`debug-on-error
|
||||||
|
_f_ auto-fill-mode: %`auto-fill-function
|
||||||
|
_t_ truncate-lines: %`truncate-lines
|
||||||
|
_w_ whitespace-mode: %`whitespace-mode
|
||||||
|
|
||||||
|
"
|
||||||
|
("a" abbrev-mode nil)
|
||||||
|
("d" toggle-debug-on-error nil)
|
||||||
|
("f" auto-fill-mode nil)
|
||||||
|
("t" toggle-truncate-lines nil)
|
||||||
|
("w" whitespace-mode nil)
|
||||||
|
("q" nil "quit"))
|
||||||
|
;; Recommended binding:
|
||||||
|
;; (global-set-key (kbd "C-c C-v") 'hydra-toggle/body)
|
||||||
|
|
||||||
|
;; Here, using e.g. "_a_" translates to "a" with proper face.
|
||||||
|
;; More interestingly:
|
||||||
|
;;
|
||||||
|
;; "foobar %`abbrev-mode" means roughly (format "foobar %S" abbrev-mode)
|
||||||
|
;;
|
||||||
|
;; This means that you actually see the state of the mode that you're changing.
|
||||||
|
|
||||||
|
;;** Example 8: the whole menu for `Buffer-menu-mode'
|
||||||
|
(defhydra hydra-buffer-menu (:color pink
|
||||||
|
:hint nil)
|
||||||
|
"
|
||||||
|
^Mark^ ^Unmark^ ^Actions^ ^Search
|
||||||
|
^^^^^^^^----------------------------------------------------------------- (__)
|
||||||
|
_m_: mark _u_: unmark _x_: execute _R_: re-isearch (oo)
|
||||||
|
_s_: save _U_: unmark up _b_: bury _I_: isearch /------\\/
|
||||||
|
_d_: delete ^ ^ _g_: refresh _O_: multi-occur / | ||
|
||||||
|
_D_: delete up ^ ^ _T_: files only: % -28`Buffer-menu-files-only^^ * /\\---/\\
|
||||||
|
_~_: modified ^ ^ ^ ^ ^^ ~~ ~~
|
||||||
|
"
|
||||||
|
("m" Buffer-menu-mark)
|
||||||
|
("u" Buffer-menu-unmark)
|
||||||
|
("U" Buffer-menu-backup-unmark)
|
||||||
|
("d" Buffer-menu-delete)
|
||||||
|
("D" Buffer-menu-delete-backwards)
|
||||||
|
("s" Buffer-menu-save)
|
||||||
|
("~" Buffer-menu-not-modified)
|
||||||
|
("x" Buffer-menu-execute)
|
||||||
|
("b" Buffer-menu-bury)
|
||||||
|
("g" revert-buffer)
|
||||||
|
("T" Buffer-menu-toggle-files-only)
|
||||||
|
("O" Buffer-menu-multi-occur :color blue)
|
||||||
|
("I" Buffer-menu-isearch-buffers :color blue)
|
||||||
|
("R" Buffer-menu-isearch-buffers-regexp :color blue)
|
||||||
|
("c" nil "cancel")
|
||||||
|
("v" Buffer-menu-select "select" :color blue)
|
||||||
|
("o" Buffer-menu-other-window "other-window" :color blue)
|
||||||
|
("q" quit-window "quit" :color blue))
|
||||||
|
;; Recommended binding:
|
||||||
|
;; (define-key Buffer-menu-mode-map "." 'hydra-buffer-menu/body)
|
||||||
|
|
||||||
|
;;** Example 9: s-expressions in the docstring
|
||||||
|
;; You can inline s-expresssions into the docstring like this:
|
||||||
|
(defvar dired-mode-map)
|
||||||
|
(declare-function dired-mark "dired")
|
||||||
|
(when (bound-and-true-p hydra-examples-verbatim)
|
||||||
|
(require 'dired)
|
||||||
|
(defhydra hydra-marked-items (dired-mode-map "")
|
||||||
|
"
|
||||||
|
Number of marked items: %(length (dired-get-marked-files))
|
||||||
|
"
|
||||||
|
("m" dired-mark "mark")))
|
||||||
|
|
||||||
|
;; This results in the following dynamic docstring:
|
||||||
|
;;
|
||||||
|
;; (format "Number of marked items: %S\n"
|
||||||
|
;; (length (dired-get-marked-files)))
|
||||||
|
;;
|
||||||
|
;; You can use `format'-style width specs, e.g. % 10(length nil).
|
||||||
|
|
||||||
|
;;** Example 10: apropos family
|
||||||
|
(defhydra hydra-apropos (:color blue
|
||||||
|
:hint nil)
|
||||||
|
"
|
||||||
|
_a_propos _c_ommand
|
||||||
|
_d_ocumentation _l_ibrary
|
||||||
|
_v_ariable _u_ser-option
|
||||||
|
^ ^ valu_e_"
|
||||||
|
("a" apropos)
|
||||||
|
("d" apropos-documentation)
|
||||||
|
("v" apropos-variable)
|
||||||
|
("c" apropos-command)
|
||||||
|
("l" apropos-library)
|
||||||
|
("u" apropos-user-option)
|
||||||
|
("e" apropos-value))
|
||||||
|
;; Recommended binding:
|
||||||
|
;; (global-set-key (kbd "C-c h") 'hydra-apropos/body)
|
||||||
|
|
||||||
|
;;** Example 11: rectangle-mark-mode
|
||||||
|
(require 'rect)
|
||||||
|
(defhydra hydra-rectangle (:body-pre (rectangle-mark-mode 1)
|
||||||
|
:color pink
|
||||||
|
:post (deactivate-mark))
|
||||||
|
"
|
||||||
|
^_k_^ _d_elete _s_tring
|
||||||
|
_h_ _l_ _o_k _y_ank
|
||||||
|
^_j_^ _n_ew-copy _r_eset
|
||||||
|
^^^^ _e_xchange _u_ndo
|
||||||
|
^^^^ ^ ^ _p_aste
|
||||||
|
"
|
||||||
|
("h" rectangle-backward-char nil)
|
||||||
|
("l" rectangle-forward-char nil)
|
||||||
|
("k" rectangle-previous-line nil)
|
||||||
|
("j" rectangle-next-line nil)
|
||||||
|
("e" hydra-ex-point-mark nil)
|
||||||
|
("n" copy-rectangle-as-kill nil)
|
||||||
|
("d" delete-rectangle nil)
|
||||||
|
("r" (if (region-active-p)
|
||||||
|
(deactivate-mark)
|
||||||
|
(rectangle-mark-mode 1)) nil)
|
||||||
|
("y" yank-rectangle nil)
|
||||||
|
("u" undo nil)
|
||||||
|
("s" string-rectangle nil)
|
||||||
|
("p" kill-rectangle nil)
|
||||||
|
("o" nil nil))
|
||||||
|
|
||||||
|
;; Recommended binding:
|
||||||
|
;; (global-set-key (kbd "C-x SPC") 'hydra-rectangle/body)
|
||||||
|
|
||||||
|
;;** Example 12: org-agenda-view
|
||||||
|
(defun org-agenda-cts ()
|
||||||
|
(and (eq major-mode 'org-agenda-mode)
|
||||||
|
(let ((args (get-text-property
|
||||||
|
(min (1- (point-max)) (point))
|
||||||
|
'org-last-args)))
|
||||||
|
(nth 2 args))))
|
||||||
|
|
||||||
|
(defhydra hydra-org-agenda-view (:hint none)
|
||||||
|
"
|
||||||
|
_d_: ?d? day _g_: time grid=?g? _a_: arch-trees
|
||||||
|
_w_: ?w? week _[_: inactive _A_: arch-files
|
||||||
|
_t_: ?t? fortnight _f_: follow=?f? _r_: clock report=?r?
|
||||||
|
_m_: ?m? month _e_: entry text=?e? _D_: include diary=?D?
|
||||||
|
_y_: ?y? year _q_: quit _L__l__c_: log = ?l?"
|
||||||
|
("SPC" org-agenda-reset-view)
|
||||||
|
("d" org-agenda-day-view (if (eq 'day (org-agenda-cts)) "[x]" "[ ]"))
|
||||||
|
("w" org-agenda-week-view (if (eq 'week (org-agenda-cts)) "[x]" "[ ]"))
|
||||||
|
("t" org-agenda-fortnight-view (if (eq 'fortnight (org-agenda-cts)) "[x]" "[ ]"))
|
||||||
|
("m" org-agenda-month-view (if (eq 'month (org-agenda-cts)) "[x]" "[ ]"))
|
||||||
|
("y" org-agenda-year-view (if (eq 'year (org-agenda-cts)) "[x]" "[ ]"))
|
||||||
|
("l" org-agenda-log-mode (format "% -3S" org-agenda-show-log))
|
||||||
|
("L" (org-agenda-log-mode '(4)))
|
||||||
|
("c" (org-agenda-log-mode 'clockcheck))
|
||||||
|
("f" org-agenda-follow-mode (format "% -3S" org-agenda-follow-mode))
|
||||||
|
("a" org-agenda-archives-mode)
|
||||||
|
("A" (org-agenda-archives-mode 'files))
|
||||||
|
("r" org-agenda-clockreport-mode (format "% -3S" org-agenda-clockreport-mode))
|
||||||
|
("e" org-agenda-entry-text-mode (format "% -3S" org-agenda-entry-text-mode))
|
||||||
|
("g" org-agenda-toggle-time-grid (format "% -3S" org-agenda-use-time-grid))
|
||||||
|
("D" org-agenda-toggle-diary (format "% -3S" org-agenda-include-diary))
|
||||||
|
("!" org-agenda-toggle-deadlines)
|
||||||
|
("[" (let ((org-agenda-include-inactive-timestamps t))
|
||||||
|
(org-agenda-check-type t 'timeline 'agenda)
|
||||||
|
(org-agenda-redo)
|
||||||
|
(message "Display now includes inactive timestamps as well")))
|
||||||
|
("q" (message "Abort") :exit t)
|
||||||
|
("v" nil))
|
||||||
|
|
||||||
|
;; Recommended binding:
|
||||||
|
;; (define-key org-agenda-mode-map "v" 'hydra-org-agenda-view/body)
|
||||||
|
|
||||||
|
;;* Helpers
|
||||||
|
(require 'windmove)
|
||||||
|
|
||||||
|
(defun hydra-move-splitter-left (arg)
|
||||||
|
"Move window splitter left."
|
||||||
|
(interactive "p")
|
||||||
|
(if (let ((windmove-wrap-around))
|
||||||
|
(windmove-find-other-window 'right))
|
||||||
|
(shrink-window-horizontally arg)
|
||||||
|
(enlarge-window-horizontally arg)))
|
||||||
|
|
||||||
|
(defun hydra-move-splitter-right (arg)
|
||||||
|
"Move window splitter right."
|
||||||
|
(interactive "p")
|
||||||
|
(if (let ((windmove-wrap-around))
|
||||||
|
(windmove-find-other-window 'right))
|
||||||
|
(enlarge-window-horizontally arg)
|
||||||
|
(shrink-window-horizontally arg)))
|
||||||
|
|
||||||
|
(defun hydra-move-splitter-up (arg)
|
||||||
|
"Move window splitter up."
|
||||||
|
(interactive "p")
|
||||||
|
(if (let ((windmove-wrap-around))
|
||||||
|
(windmove-find-other-window 'up))
|
||||||
|
(enlarge-window arg)
|
||||||
|
(shrink-window arg)))
|
||||||
|
|
||||||
|
(defun hydra-move-splitter-down (arg)
|
||||||
|
"Move window splitter down."
|
||||||
|
(interactive "p")
|
||||||
|
(if (let ((windmove-wrap-around))
|
||||||
|
(windmove-find-other-window 'up))
|
||||||
|
(shrink-window arg)
|
||||||
|
(enlarge-window arg)))
|
||||||
|
|
||||||
|
(defvar rectangle-mark-mode)
|
||||||
|
(defun hydra-ex-point-mark ()
|
||||||
|
"Exchange point and mark."
|
||||||
|
(interactive)
|
||||||
|
(if rectangle-mark-mode
|
||||||
|
(rectangle-exchange-point-and-mark)
|
||||||
|
(let ((mk (mark)))
|
||||||
|
(rectangle-mark-mode 1)
|
||||||
|
(goto-char mk))))
|
||||||
|
|
||||||
|
(provide 'hydra-examples)
|
||||||
|
|
||||||
|
;; Local Variables:
|
||||||
|
;; no-byte-compile: t
|
||||||
|
;; End:
|
||||||
|
;;; hydra-examples.el ends here
|
|
@ -0,0 +1,127 @@
|
||||||
|
;;; hydra-ox.el --- Org mode export widget implemented in Hydra
|
||||||
|
|
||||||
|
;; Copyright (C) 2015 Free Software Foundation, Inc.
|
||||||
|
|
||||||
|
;; Author: Oleh Krehel
|
||||||
|
|
||||||
|
;; This file is part of GNU Emacs.
|
||||||
|
|
||||||
|
;; GNU Emacs 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 of the License, or
|
||||||
|
;; (at your option) any later version.
|
||||||
|
|
||||||
|
;; GNU Emacs 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. If not, see <http://www.gnu.org/licenses/>.
|
||||||
|
|
||||||
|
;;; Commentary:
|
||||||
|
;;
|
||||||
|
;; This shows how a complex dispatch menu can be built with Hydra.
|
||||||
|
|
||||||
|
;;; Code:
|
||||||
|
|
||||||
|
(require 'hydra)
|
||||||
|
(require 'org)
|
||||||
|
(declare-function org-html-export-as-html 'ox-html)
|
||||||
|
(declare-function org-html-export-to-html 'ox-html)
|
||||||
|
(declare-function org-latex-export-as-latex 'ox-latex)
|
||||||
|
(declare-function org-latex-export-to-latex 'ox-latex)
|
||||||
|
(declare-function org-latex-export-to-pdf 'ox-latex)
|
||||||
|
(declare-function org-ascii-export-as-ascii 'ox-ascii)
|
||||||
|
(declare-function org-ascii-export-to-ascii 'ox-ascii)
|
||||||
|
|
||||||
|
(defhydradio hydra-ox ()
|
||||||
|
(body-only "Export only the body.")
|
||||||
|
(export-scope "Export scope." [buffer subtree])
|
||||||
|
(async-export "When non-nil, export async.")
|
||||||
|
(visible-only "When non-nil, export visible only")
|
||||||
|
(force-publishing "Toggle force publishing"))
|
||||||
|
|
||||||
|
(defhydra hydra-ox-html (:color blue)
|
||||||
|
"ox-html"
|
||||||
|
("H" (org-html-export-as-html
|
||||||
|
hydra-ox/async-export
|
||||||
|
(eq hydra-ox/export-scope 'subtree)
|
||||||
|
hydra-ox/visible-only
|
||||||
|
hydra-ox/body-only)
|
||||||
|
"As HTML buffer")
|
||||||
|
("h" (org-html-export-to-html
|
||||||
|
hydra-ox/async-export
|
||||||
|
(eq hydra-ox/export-scope 'subtree)
|
||||||
|
hydra-ox/visible-only
|
||||||
|
hydra-ox/body-only) "As HTML file")
|
||||||
|
("o" (org-open-file
|
||||||
|
(org-html-export-to-html
|
||||||
|
hydra-ox/async-export
|
||||||
|
(eq hydra-ox/export-scope 'subtree)
|
||||||
|
hydra-ox/visible-only
|
||||||
|
hydra-ox/body-only)) "As HTML file and open")
|
||||||
|
("b" hydra-ox/body "back")
|
||||||
|
("q" nil "quit"))
|
||||||
|
|
||||||
|
(defhydra hydra-ox-latex (:color blue)
|
||||||
|
"ox-latex"
|
||||||
|
("L" org-latex-export-as-latex "As LaTeX buffer")
|
||||||
|
("l" org-latex-export-to-latex "As LaTeX file")
|
||||||
|
("p" org-latex-export-to-pdf "As PDF file")
|
||||||
|
("o" (org-open-file (org-latex-export-to-pdf)) "As PDF file and open")
|
||||||
|
("b" hydra-ox/body "back")
|
||||||
|
("q" nil "quit"))
|
||||||
|
|
||||||
|
(defhydra hydra-ox-text (:color blue)
|
||||||
|
"ox-text"
|
||||||
|
("A" (org-ascii-export-as-ascii
|
||||||
|
nil nil nil nil
|
||||||
|
'(:ascii-charset ascii))
|
||||||
|
"As ASCII buffer")
|
||||||
|
|
||||||
|
("a" (org-ascii-export-to-ascii
|
||||||
|
nil nil nil nil
|
||||||
|
'(:ascii-charset ascii))
|
||||||
|
"As ASCII file")
|
||||||
|
("L" (org-ascii-export-as-ascii
|
||||||
|
nil nil nil nil
|
||||||
|
'(:ascii-charset latin1))
|
||||||
|
"As Latin1 buffer")
|
||||||
|
("l" (org-ascii-export-to-ascii
|
||||||
|
nil nil nil nil
|
||||||
|
'(:ascii-charset latin1))
|
||||||
|
"As Latin1 file")
|
||||||
|
("U" (org-ascii-export-as-ascii
|
||||||
|
nil nil nil nil
|
||||||
|
'(:ascii-charset utf-8))
|
||||||
|
"As UTF-8 buffer")
|
||||||
|
("u" (org-ascii-export-to-ascii
|
||||||
|
nil nil nil nil
|
||||||
|
'(:ascii-charset utf-8))
|
||||||
|
"As UTF-8 file")
|
||||||
|
("b" hydra-ox/body "back")
|
||||||
|
("q" nil "quit"))
|
||||||
|
|
||||||
|
(defhydra hydra-ox ()
|
||||||
|
"
|
||||||
|
_C-b_ Body only: % -15`hydra-ox/body-only^^^ _C-v_ Visible only: %`hydra-ox/visible-only
|
||||||
|
_C-s_ Export scope: % -15`hydra-ox/export-scope _C-f_ Force publishing: %`hydra-ox/force-publishing
|
||||||
|
_C-a_ Async export: %`hydra-ox/async-export
|
||||||
|
|
||||||
|
"
|
||||||
|
("C-b" (hydra-ox/body-only) nil)
|
||||||
|
("C-v" (hydra-ox/visible-only) nil)
|
||||||
|
("C-s" (hydra-ox/export-scope) nil)
|
||||||
|
("C-f" (hydra-ox/force-publishing) nil)
|
||||||
|
("C-a" (hydra-ox/async-export) nil)
|
||||||
|
("h" hydra-ox-html/body "Export to HTML" :exit t)
|
||||||
|
("l" hydra-ox-latex/body "Export to LaTeX" :exit t)
|
||||||
|
("t" hydra-ox-text/body "Export to Plain Text" :exit t)
|
||||||
|
("q" nil "quit"))
|
||||||
|
|
||||||
|
(define-key org-mode-map (kbd "C-c C-,") 'hydra-ox/body)
|
||||||
|
|
||||||
|
(provide 'hydra-ox)
|
||||||
|
|
||||||
|
;;; hydra-ox.el ends here
|
|
@ -0,0 +1,7 @@
|
||||||
|
(define-package "hydra" "20170813.1058" "Make bindings that stick around."
|
||||||
|
'((cl-lib "0.5"))
|
||||||
|
:url "https://github.com/abo-abo/hydra" :keywords
|
||||||
|
'("bindings"))
|
||||||
|
;; Local Variables:
|
||||||
|
;; no-byte-compile: t
|
||||||
|
;; End:
|
File diff suppressed because it is too large
Load Diff
|
@ -0,0 +1,117 @@
|
||||||
|
;;; lv.el --- Other echo area
|
||||||
|
|
||||||
|
;; Copyright (C) 2015 Free Software Foundation, Inc.
|
||||||
|
|
||||||
|
;; Author: Oleh Krehel
|
||||||
|
|
||||||
|
;; This file is part of GNU Emacs.
|
||||||
|
|
||||||
|
;; GNU Emacs 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 of the License, or
|
||||||
|
;; (at your option) any later version.
|
||||||
|
|
||||||
|
;; GNU Emacs 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. If not, see <http://www.gnu.org/licenses/>.
|
||||||
|
|
||||||
|
;;; Commentary:
|
||||||
|
;;
|
||||||
|
;; This package provides `lv-message' intended to be used in place of
|
||||||
|
;; `message' when semi-permanent hints are needed, in order to not
|
||||||
|
;; interfere with Echo Area.
|
||||||
|
;;
|
||||||
|
;; "Я тихо-тихо пiдглядаю,
|
||||||
|
;; І тiшуся собi, як бачу то,
|
||||||
|
;; Шо страшить i не пiдпускає,
|
||||||
|
;; А iншi п’ють тебе, як воду пiсок."
|
||||||
|
;; -- Андрій Кузьменко, L.V.
|
||||||
|
|
||||||
|
;;; Code:
|
||||||
|
|
||||||
|
(defgroup lv nil
|
||||||
|
"The other echo area."
|
||||||
|
:group 'minibuffer
|
||||||
|
:group 'hydra)
|
||||||
|
|
||||||
|
(defcustom lv-use-separator nil
|
||||||
|
"Whether to draw a line between the LV window and the Echo Area."
|
||||||
|
:group 'lv
|
||||||
|
:type 'boolean)
|
||||||
|
|
||||||
|
(defface lv-separator
|
||||||
|
'((((class color) (background light)) :background "grey80")
|
||||||
|
(((class color) (background dark)) :background "grey30"))
|
||||||
|
"Face used to draw line between the lv window and the echo area.
|
||||||
|
This is only used if option `lv-use-separator' is non-nil.
|
||||||
|
Only the background color is significant."
|
||||||
|
:group 'lv)
|
||||||
|
|
||||||
|
(defvar lv-wnd nil
|
||||||
|
"Holds the current LV window.")
|
||||||
|
|
||||||
|
(defun lv-window ()
|
||||||
|
"Ensure that LV window is live and return it."
|
||||||
|
(if (window-live-p lv-wnd)
|
||||||
|
lv-wnd
|
||||||
|
(let ((ori (selected-window))
|
||||||
|
buf)
|
||||||
|
(prog1 (setq lv-wnd
|
||||||
|
(select-window
|
||||||
|
(let ((ignore-window-parameters t))
|
||||||
|
(split-window
|
||||||
|
(frame-root-window) -1 'below))))
|
||||||
|
(if (setq buf (get-buffer " *LV*"))
|
||||||
|
(switch-to-buffer buf)
|
||||||
|
(switch-to-buffer " *LV*")
|
||||||
|
(set-window-hscroll lv-wnd 0)
|
||||||
|
(setq window-size-fixed t)
|
||||||
|
(setq mode-line-format nil)
|
||||||
|
(setq cursor-type nil)
|
||||||
|
(set-window-dedicated-p lv-wnd t)
|
||||||
|
(set-window-parameter lv-wnd 'no-other-window t))
|
||||||
|
(select-window ori)))))
|
||||||
|
|
||||||
|
(defvar golden-ratio-mode)
|
||||||
|
|
||||||
|
(defvar lv-force-update nil
|
||||||
|
"When non-nil, `lv-message' will refresh even for the same string.")
|
||||||
|
|
||||||
|
(defun lv-message (format-string &rest args)
|
||||||
|
"Set LV window contents to (`format' FORMAT-STRING ARGS)."
|
||||||
|
(let* ((str (apply #'format format-string args))
|
||||||
|
(n-lines (cl-count ?\n str))
|
||||||
|
deactivate-mark
|
||||||
|
golden-ratio-mode)
|
||||||
|
(with-selected-window (lv-window)
|
||||||
|
(unless (and (string= (buffer-string) str)
|
||||||
|
(null lv-force-update))
|
||||||
|
(delete-region (point-min) (point-max))
|
||||||
|
(insert str)
|
||||||
|
(when (and (window-system) lv-use-separator)
|
||||||
|
(unless (looking-back "\n" nil)
|
||||||
|
(insert "\n"))
|
||||||
|
(insert
|
||||||
|
(propertize "__" 'face 'lv-separator 'display '(space :height (1)))
|
||||||
|
(propertize "\n" 'face 'lv-separator 'line-height t)))
|
||||||
|
(set (make-local-variable 'window-min-height) n-lines)
|
||||||
|
(setq truncate-lines (> n-lines 1))
|
||||||
|
(let ((window-resize-pixelwise t)
|
||||||
|
(window-size-fixed nil))
|
||||||
|
(fit-window-to-buffer nil nil 1)))
|
||||||
|
(goto-char (point-min)))))
|
||||||
|
|
||||||
|
(defun lv-delete-window ()
|
||||||
|
"Delete LV window and kill its buffer."
|
||||||
|
(when (window-live-p lv-wnd)
|
||||||
|
(let ((buf (window-buffer lv-wnd)))
|
||||||
|
(delete-window lv-wnd)
|
||||||
|
(kill-buffer buf))))
|
||||||
|
|
||||||
|
(provide 'lv)
|
||||||
|
|
||||||
|
;;; lv.el ends here
|
|
@ -0,0 +1,119 @@
|
||||||
|
;;; mc-cycle-cursors.el
|
||||||
|
|
||||||
|
;; Copyright (C) 2012-2016 Magnar Sveen
|
||||||
|
|
||||||
|
;; Author: Magnar Sveen <magnars@gmail.com>
|
||||||
|
;; Keywords: editing cursors
|
||||||
|
|
||||||
|
;; 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 of the License, 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 this program. If not, see <http://www.gnu.org/licenses/>.
|
||||||
|
|
||||||
|
;;; Commentary:
|
||||||
|
|
||||||
|
;; This scrolls the buffer to center each cursor in turn.
|
||||||
|
;; Scroll down with C-v, scroll up with M-v
|
||||||
|
;; This is nice when you have cursors that's outside of your view.
|
||||||
|
|
||||||
|
;;; Code:
|
||||||
|
|
||||||
|
(require 'multiple-cursors-core)
|
||||||
|
|
||||||
|
(defun mc/next-fake-cursor-after-point ()
|
||||||
|
(let ((pos (point))
|
||||||
|
(next-pos (1+ (point-max)))
|
||||||
|
next)
|
||||||
|
(mc/for-each-fake-cursor
|
||||||
|
(let ((cursor-pos (overlay-get cursor 'point)))
|
||||||
|
(when (and (< pos cursor-pos)
|
||||||
|
(< cursor-pos next-pos))
|
||||||
|
(setq next-pos cursor-pos)
|
||||||
|
(setq next cursor))))
|
||||||
|
next))
|
||||||
|
|
||||||
|
(defun mc/prev-fake-cursor-before-point ()
|
||||||
|
(let ((pos (point))
|
||||||
|
(prev-pos (1- (point-min)))
|
||||||
|
prev)
|
||||||
|
(mc/for-each-fake-cursor
|
||||||
|
(let ((cursor-pos (overlay-get cursor 'point)))
|
||||||
|
(when (and (> pos cursor-pos)
|
||||||
|
(> cursor-pos prev-pos))
|
||||||
|
(setq prev-pos cursor-pos)
|
||||||
|
(setq prev cursor))))
|
||||||
|
prev))
|
||||||
|
|
||||||
|
(defcustom mc/cycle-looping-behaviour 'continue
|
||||||
|
"What to do if asked to cycle beyond the last cursor or before the first cursor."
|
||||||
|
:type '(radio (const :tag "Loop around to beginning/end of document." continue)
|
||||||
|
(const :tag "Warn and then loop around." warn)
|
||||||
|
(const :tag "Signal an error." error)
|
||||||
|
(const :tag "Don't loop." stop))
|
||||||
|
:group 'multiple-cursors)
|
||||||
|
|
||||||
|
(defun mc/handle-loop-condition (error-message)
|
||||||
|
(cl-ecase mc/cycle-looping-behaviour
|
||||||
|
(error (error error-message))
|
||||||
|
(warn (message error-message))
|
||||||
|
(continue 'continue)
|
||||||
|
(stop 'stop)))
|
||||||
|
|
||||||
|
(defun mc/first-fake-cursor-after (point)
|
||||||
|
"Very similar to mc/furthest-cursor-before-point, but ignores (mark) and (point)."
|
||||||
|
(let* ((cursors (mc/all-fake-cursors))
|
||||||
|
(cursors-after-point (cl-remove-if (lambda (cursor)
|
||||||
|
(< (mc/cursor-beg cursor) point))
|
||||||
|
cursors))
|
||||||
|
(cursors-in-order (cl-sort cursors-after-point '< :key 'mc/cursor-beg)))
|
||||||
|
(car cursors-in-order)))
|
||||||
|
|
||||||
|
(defun mc/last-fake-cursor-before (point)
|
||||||
|
"Very similar to mc/furthest-cursor-before-point, but ignores (mark) and (point)."
|
||||||
|
(let* ((cursors (mc/all-fake-cursors))
|
||||||
|
(cursors-before-point (cl-remove-if (lambda (cursor)
|
||||||
|
(> (mc/cursor-end cursor) point))
|
||||||
|
cursors))
|
||||||
|
(cursors-in-order (cl-sort cursors-before-point '> :key 'mc/cursor-end)))
|
||||||
|
(car cursors-in-order)))
|
||||||
|
|
||||||
|
(cl-defun mc/cycle (next-cursor fallback-cursor loop-message)
|
||||||
|
(when (null next-cursor)
|
||||||
|
(when (eql 'stop (mc/handle-loop-condition loop-message))
|
||||||
|
(return-from mc/cycle nil))
|
||||||
|
(setf next-cursor fallback-cursor))
|
||||||
|
(mc/create-fake-cursor-at-point)
|
||||||
|
(mc/pop-state-from-overlay next-cursor)
|
||||||
|
(recenter))
|
||||||
|
|
||||||
|
(defun mc/cycle-forward ()
|
||||||
|
(interactive)
|
||||||
|
(mc/cycle (mc/next-fake-cursor-after-point)
|
||||||
|
(mc/first-fake-cursor-after (point-min))
|
||||||
|
"We're already at the last cursor."))
|
||||||
|
|
||||||
|
(defun mc/cycle-backward ()
|
||||||
|
(interactive)
|
||||||
|
(mc/cycle (mc/prev-fake-cursor-before-point)
|
||||||
|
(mc/last-fake-cursor-before (point-max))
|
||||||
|
"We're already at the last cursor"))
|
||||||
|
|
||||||
|
(define-key mc/keymap (kbd "C-v") 'mc/cycle-forward)
|
||||||
|
(define-key mc/keymap (kbd "M-v") 'mc/cycle-backward)
|
||||||
|
|
||||||
|
(provide 'mc-cycle-cursors)
|
||||||
|
|
||||||
|
|
||||||
|
;; Local Variables:
|
||||||
|
;; coding: utf-8
|
||||||
|
;; End:
|
||||||
|
|
||||||
|
;;; mc-cycle-cursors.el ends here
|
|
@ -0,0 +1,110 @@
|
||||||
|
;;; mc-edit-lines.el
|
||||||
|
|
||||||
|
;; Copyright (C) 2012-2016 Magnar Sveen
|
||||||
|
|
||||||
|
;; Author: Magnar Sveen <magnars@gmail.com>
|
||||||
|
;; Keywords: editing cursors
|
||||||
|
|
||||||
|
;; 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 of the License, 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 this program. If not, see <http://www.gnu.org/licenses/>.
|
||||||
|
|
||||||
|
;;; Commentary:
|
||||||
|
|
||||||
|
;; This file contains functions to add multiple cursors to consecutive lines
|
||||||
|
;; given an active region.
|
||||||
|
|
||||||
|
;; Please see multiple-cursors.el for more commentary.
|
||||||
|
|
||||||
|
;;; Code:
|
||||||
|
|
||||||
|
(require 'multiple-cursors-core)
|
||||||
|
|
||||||
|
(defcustom mc/edit-lines-empty-lines nil
|
||||||
|
"What should be done by `mc/edit-lines' when a line is not long enough."
|
||||||
|
:type '(radio (const :tag "Pad the line with spaces." pad)
|
||||||
|
(const :tag "Ignore the line." ignore)
|
||||||
|
(const :tag "Signal an error." error)
|
||||||
|
(const :tag "Nothing. Cursor is at end of line." nil))
|
||||||
|
:group 'multiple-cursors)
|
||||||
|
|
||||||
|
;;;###autoload
|
||||||
|
(defun mc/edit-lines (&optional arg)
|
||||||
|
"Add one cursor to each line of the active region.
|
||||||
|
Starts from mark and moves in straight down or up towards the
|
||||||
|
line point is on.
|
||||||
|
|
||||||
|
What is done with lines which are not long enough is governed by
|
||||||
|
`mc/edit-lines-empty-lines'. The prefix argument ARG can be used
|
||||||
|
to override this. If ARG is a symbol (when called from Lisp),
|
||||||
|
that symbol is used instead of `mc/edit-lines-empty-lines'.
|
||||||
|
Otherwise, if ARG negative, short lines will be ignored. Any
|
||||||
|
other non-nil value will cause short lines to be padded."
|
||||||
|
(interactive "P")
|
||||||
|
(when (not (and mark-active (/= (point) (mark))))
|
||||||
|
(error "Mark a set of lines first"))
|
||||||
|
(mc/remove-fake-cursors)
|
||||||
|
(let* ((col (current-column))
|
||||||
|
(point-line (line-number-at-pos))
|
||||||
|
(mark-line (progn (exchange-point-and-mark) (line-number-at-pos)))
|
||||||
|
(direction (if (< point-line mark-line) :up :down))
|
||||||
|
(style (cond
|
||||||
|
;; called from lisp
|
||||||
|
((and arg (symbolp arg))
|
||||||
|
arg)
|
||||||
|
;; negative argument
|
||||||
|
((< (prefix-numeric-value arg) 0)
|
||||||
|
'ignore)
|
||||||
|
(arg 'pad)
|
||||||
|
(t mc/edit-lines-empty-lines))))
|
||||||
|
(deactivate-mark)
|
||||||
|
(when (and (eq direction :up) (bolp))
|
||||||
|
(previous-logical-line 1 nil)
|
||||||
|
(move-to-column col))
|
||||||
|
;; Add the cursors
|
||||||
|
(while (not (eq (line-number-at-pos) point-line))
|
||||||
|
;; Pad the line
|
||||||
|
(when (eq style 'pad)
|
||||||
|
(while (< (current-column) col)
|
||||||
|
(insert " ")))
|
||||||
|
;; Error
|
||||||
|
(when (and (eq style 'error)
|
||||||
|
(not (equal col (current-column))))
|
||||||
|
(error "Short line encountered in `mc/edit-lines'"))
|
||||||
|
;; create the cursor
|
||||||
|
(unless (and (eq style 'ignore)
|
||||||
|
(not (equal col (current-column))))
|
||||||
|
(mc/create-fake-cursor-at-point))
|
||||||
|
;; proceed to next
|
||||||
|
(if (eq direction :up)
|
||||||
|
(previous-logical-line 1 nil)
|
||||||
|
(next-logical-line 1 nil))
|
||||||
|
(move-to-column col))
|
||||||
|
(multiple-cursors-mode)))
|
||||||
|
|
||||||
|
;;;###autoload
|
||||||
|
(defun mc/edit-ends-of-lines ()
|
||||||
|
"Add one cursor to the end of each line in the active region."
|
||||||
|
(interactive)
|
||||||
|
(mc/edit-lines)
|
||||||
|
(mc/execute-command-for-all-cursors 'end-of-line))
|
||||||
|
|
||||||
|
;;;###autoload
|
||||||
|
(defun mc/edit-beginnings-of-lines ()
|
||||||
|
"Add one cursor to the beginning of each line in the active region."
|
||||||
|
(interactive)
|
||||||
|
(mc/edit-lines)
|
||||||
|
(mc/execute-command-for-all-cursors 'beginning-of-line))
|
||||||
|
|
||||||
|
(provide 'mc-edit-lines)
|
||||||
|
|
||||||
|
;;; mc-edit-lines.el ends here
|
|
@ -0,0 +1,107 @@
|
||||||
|
;;; mc-hide-unmatched-lines.el
|
||||||
|
|
||||||
|
;; Copyright (C) 2014 Aleksey Fedotov
|
||||||
|
|
||||||
|
;; Author: Aleksey Fedotov <lexa@cfotr.com>
|
||||||
|
;; Keywords: editing cursors
|
||||||
|
|
||||||
|
;; 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 of the License, 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 this program. If not, see <http://www.gnu.org/licenses/>.
|
||||||
|
|
||||||
|
;;; Commentary:
|
||||||
|
|
||||||
|
;; This minor mode when enabled hides all lines where no cursors (and
|
||||||
|
;; also hum/lines-to-expand below and above) To make use of this mode
|
||||||
|
;; press "C-'" while multiple-cursor-mode is active. You can still
|
||||||
|
;; edit lines while you are in mc-hide-unmatched-lines mode. To leave
|
||||||
|
;; this mode press "<return>" or "C-g"
|
||||||
|
;;
|
||||||
|
|
||||||
|
;;; Code:
|
||||||
|
|
||||||
|
(require 'multiple-cursors-core)
|
||||||
|
(require 'mc-mark-more)
|
||||||
|
|
||||||
|
(defvar hum/hide-unmatched-lines-mode-map (make-sparse-keymap)
|
||||||
|
"Keymap for hide unmatched lines is mainly for rebinding C-g")
|
||||||
|
|
||||||
|
(define-key hum/hide-unmatched-lines-mode-map (kbd "C-g") 'hum/keyboard-quit)
|
||||||
|
(define-key hum/hide-unmatched-lines-mode-map (kbd "<return>") 'hum/keyboard-quit)
|
||||||
|
|
||||||
|
(defun hum/keyboard-quit ()
|
||||||
|
"Leave hide-unmatched-lines mode"
|
||||||
|
(interactive)
|
||||||
|
(mc-hide-unmatched-lines-mode 0))
|
||||||
|
|
||||||
|
;; used only in in multiple-cursors-mode-disabled-hook
|
||||||
|
(defun hum/disable-hum-mode ()
|
||||||
|
(mc-hide-unmatched-lines-mode 0))
|
||||||
|
|
||||||
|
;;;###autoload
|
||||||
|
(define-minor-mode mc-hide-unmatched-lines-mode
|
||||||
|
"Minor mode when enabled hides all lines where no cursors (and
|
||||||
|
also hum/lines-to-expand below and above) To make use of this
|
||||||
|
mode press \"C-'\" while multiple-cursor-mode is active. You can
|
||||||
|
still edit lines while you are in mc-hide-unmatched-lines
|
||||||
|
mode. To leave this mode press <return> or \"C-g\""
|
||||||
|
nil " hu"
|
||||||
|
hum/hide-unmatched-lines-mode-map
|
||||||
|
(if mc-hide-unmatched-lines-mode
|
||||||
|
;;just in case if mc mode will be disabled while hide-unmatched-lines is active
|
||||||
|
(progn
|
||||||
|
(hum/hide-unmatched-lines)
|
||||||
|
(add-hook 'multiple-cursors-mode-disabled-hook 'hum/disable-hum-mode t t))
|
||||||
|
(progn
|
||||||
|
(hum/unhide-unmatched-lines)
|
||||||
|
(remove-hook 'multiple-cursors-mode-disabled-hook 'hum/disable-hum-mode))))
|
||||||
|
|
||||||
|
(defconst hum/invisible-overlay-name 'hum/invisible-overlay-name)
|
||||||
|
|
||||||
|
(defcustom hum/lines-to-expand 2
|
||||||
|
"How many lines below and above cursor to show"
|
||||||
|
:type '(integer)
|
||||||
|
:group 'multiple-cursors)
|
||||||
|
|
||||||
|
(defcustom hum/placeholder "..."
|
||||||
|
"Placeholder which will be placed insted of hiden text"
|
||||||
|
:type '(string)
|
||||||
|
:group 'multiple-cursors)
|
||||||
|
|
||||||
|
(defun hum/add-invisible-overlay (begin end)
|
||||||
|
(let ((overlay (make-overlay begin
|
||||||
|
end
|
||||||
|
(current-buffer)
|
||||||
|
t
|
||||||
|
nil
|
||||||
|
)))
|
||||||
|
(overlay-put overlay hum/invisible-overlay-name t)
|
||||||
|
(overlay-put overlay 'invisible t)
|
||||||
|
(overlay-put overlay 'intangible t)
|
||||||
|
(overlay-put overlay 'evaporate t)
|
||||||
|
(overlay-put overlay 'after-string hum/placeholder)))
|
||||||
|
|
||||||
|
(defun hum/hide-unmatched-lines ()
|
||||||
|
(let ((begin (point-min)))
|
||||||
|
(mc/for-each-cursor-ordered
|
||||||
|
(save-excursion
|
||||||
|
(goto-char (mc/cursor-beg cursor))
|
||||||
|
(if (< begin (line-beginning-position (- hum/lines-to-expand)))
|
||||||
|
(hum/add-invisible-overlay begin (line-end-position (- hum/lines-to-expand))))
|
||||||
|
(setq begin (line-beginning-position (+ 2 hum/lines-to-expand)))))
|
||||||
|
(hum/add-invisible-overlay begin (point-max))))
|
||||||
|
|
||||||
|
(defun hum/unhide-unmatched-lines ()
|
||||||
|
(remove-overlays nil nil hum/invisible-overlay-name t))
|
||||||
|
|
||||||
|
(provide 'mc-hide-unmatched-lines-mode)
|
||||||
|
(define-key mc/keymap (kbd "C-'") 'mc-hide-unmatched-lines-mode)
|
|
@ -0,0 +1,709 @@
|
||||||
|
;;; mc-mark-more.el
|
||||||
|
|
||||||
|
;; Copyright (C) 2012-2016 Magnar Sveen
|
||||||
|
|
||||||
|
;; Author: Magnar Sveen <magnars@gmail.com>
|
||||||
|
;; Keywords: editing cursors
|
||||||
|
|
||||||
|
;; 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 of the License, 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 this program. If not, see <http://www.gnu.org/licenses/>.
|
||||||
|
|
||||||
|
;;; Commentary:
|
||||||
|
|
||||||
|
;; This file contains functions to mark more parts of the buffer.
|
||||||
|
;; See ./features/mark-more.feature for examples.
|
||||||
|
|
||||||
|
;; Please see multiple-cursors.el for more commentary.
|
||||||
|
|
||||||
|
;;; Code:
|
||||||
|
|
||||||
|
(require 'multiple-cursors-core)
|
||||||
|
(require 'thingatpt)
|
||||||
|
|
||||||
|
(defun mc/cursor-end (cursor)
|
||||||
|
(if (overlay-get cursor 'mark-active)
|
||||||
|
(max (overlay-get cursor 'point)
|
||||||
|
(overlay-get cursor 'mark))
|
||||||
|
(overlay-get cursor 'point)))
|
||||||
|
|
||||||
|
(defun mc/cursor-beg (cursor)
|
||||||
|
(if (overlay-get cursor 'mark-active)
|
||||||
|
(min (overlay-get cursor 'point)
|
||||||
|
(overlay-get cursor 'mark))
|
||||||
|
(overlay-get cursor 'point)))
|
||||||
|
|
||||||
|
(defun mc/furthest-region-end ()
|
||||||
|
(let ((end (max (mark) (point))))
|
||||||
|
(mc/for-each-fake-cursor
|
||||||
|
(setq end (max end (mc/cursor-end cursor))))
|
||||||
|
end))
|
||||||
|
|
||||||
|
(defun mc/first-region-start ()
|
||||||
|
(let ((beg (min (mark) (point))))
|
||||||
|
(mc/for-each-fake-cursor
|
||||||
|
(setq beg (min beg (mc/cursor-beg cursor))))
|
||||||
|
beg))
|
||||||
|
|
||||||
|
(defun mc/furthest-cursor-before-point ()
|
||||||
|
(let ((beg (if mark-active (min (mark) (point)) (point)))
|
||||||
|
furthest)
|
||||||
|
(mc/for-each-fake-cursor
|
||||||
|
(when (< (mc/cursor-beg cursor) beg)
|
||||||
|
(setq beg (mc/cursor-beg cursor))
|
||||||
|
(setq furthest cursor)))
|
||||||
|
furthest))
|
||||||
|
|
||||||
|
(defun mc/furthest-cursor-after-point ()
|
||||||
|
(let ((end (if mark-active (max (mark) (point)) (point)))
|
||||||
|
furthest)
|
||||||
|
(mc/for-each-fake-cursor
|
||||||
|
(when (> (mc/cursor-end cursor) end)
|
||||||
|
(setq end (mc/cursor-end cursor))
|
||||||
|
(setq furthest cursor)))
|
||||||
|
furthest))
|
||||||
|
|
||||||
|
(defun mc/fake-cursor-at-point (&optional point)
|
||||||
|
"Return the fake cursor with its point right at POINT (defaults
|
||||||
|
to (point)), or nil."
|
||||||
|
(setq point (or point (point)))
|
||||||
|
(let ((cursors (mc/all-fake-cursors))
|
||||||
|
(c nil))
|
||||||
|
(catch 'found
|
||||||
|
(while (setq c (pop cursors))
|
||||||
|
(when (eq (marker-position (overlay-get c 'point))
|
||||||
|
point)
|
||||||
|
(throw 'found c))))))
|
||||||
|
|
||||||
|
(defun mc/region-strings ()
|
||||||
|
(let ((strings (list (buffer-substring-no-properties (point) (mark)))))
|
||||||
|
(mc/for-each-fake-cursor
|
||||||
|
(add-to-list 'strings (buffer-substring-no-properties
|
||||||
|
(mc/cursor-beg cursor)
|
||||||
|
(mc/cursor-end cursor))))
|
||||||
|
strings))
|
||||||
|
|
||||||
|
(defvar mc/enclose-search-term nil
|
||||||
|
"How should mc/mark-more-* search for more matches?
|
||||||
|
|
||||||
|
Match everything: nil
|
||||||
|
Match only whole words: 'words
|
||||||
|
Match only whole symbols: 'symbols
|
||||||
|
|
||||||
|
Use like case-fold-search, don't recommend setting it globally.")
|
||||||
|
|
||||||
|
(defun mc/mark-more-like-this (skip-last direction)
|
||||||
|
(let ((case-fold-search nil)
|
||||||
|
(re (regexp-opt (mc/region-strings) mc/enclose-search-term))
|
||||||
|
(point-out-of-order (cl-ecase direction
|
||||||
|
(forwards (< (point) (mark)))
|
||||||
|
(backwards (not (< (point) (mark))))))
|
||||||
|
(furthest-cursor (cl-ecase direction
|
||||||
|
(forwards (mc/furthest-cursor-after-point))
|
||||||
|
(backwards (mc/furthest-cursor-before-point))))
|
||||||
|
(start-char (cl-ecase direction
|
||||||
|
(forwards (mc/furthest-region-end))
|
||||||
|
(backwards (mc/first-region-start))))
|
||||||
|
(search-function (cl-ecase direction
|
||||||
|
(forwards 'search-forward-regexp)
|
||||||
|
(backwards 'search-backward-regexp)))
|
||||||
|
(match-point-getter (cl-ecase direction
|
||||||
|
(forwards 'match-beginning)
|
||||||
|
(backwards 'match-end))))
|
||||||
|
(if (and skip-last (not furthest-cursor))
|
||||||
|
(error "No cursors to be skipped")
|
||||||
|
(mc/save-excursion
|
||||||
|
(goto-char start-char)
|
||||||
|
(when skip-last
|
||||||
|
(mc/remove-fake-cursor furthest-cursor))
|
||||||
|
(if (funcall search-function re nil t)
|
||||||
|
(progn
|
||||||
|
(push-mark (funcall match-point-getter 0))
|
||||||
|
(when point-out-of-order
|
||||||
|
(exchange-point-and-mark))
|
||||||
|
(mc/create-fake-cursor-at-point))
|
||||||
|
(error "no more matches found."))))))
|
||||||
|
|
||||||
|
;;;###autoload
|
||||||
|
(defun mc/mark-next-like-this (arg)
|
||||||
|
"Find and mark the next part of the buffer matching the currently active region
|
||||||
|
If no region is active add a cursor on the next line
|
||||||
|
With negative ARG, delete the last one instead.
|
||||||
|
With zero ARG, skip the last one and mark next."
|
||||||
|
(interactive "p")
|
||||||
|
(if (< arg 0)
|
||||||
|
(let ((cursor (mc/furthest-cursor-after-point)))
|
||||||
|
(if cursor
|
||||||
|
(mc/remove-fake-cursor cursor)
|
||||||
|
(error "No cursors to be unmarked")))
|
||||||
|
(if (region-active-p)
|
||||||
|
(mc/mark-more-like-this (= arg 0) 'forwards)
|
||||||
|
(mc/mark-lines arg 'forwards)))
|
||||||
|
(mc/maybe-multiple-cursors-mode))
|
||||||
|
|
||||||
|
;;;###autoload
|
||||||
|
(defun mc/mark-next-like-this-word (arg)
|
||||||
|
"Find and mark the next part of the buffer matching the currently active region
|
||||||
|
If no region is active, mark the word at the point and find the next match
|
||||||
|
With negative ARG, delete the last one instead.
|
||||||
|
With zero ARG, skip the last one and mark next."
|
||||||
|
(interactive "p")
|
||||||
|
(if (< arg 0)
|
||||||
|
(let ((cursor (mc/furthest-cursor-after-point)))
|
||||||
|
(if cursor
|
||||||
|
(mc/remove-fake-cursor cursor)
|
||||||
|
(error "No cursors to be unmarked")))
|
||||||
|
(if (region-active-p)
|
||||||
|
(mc/mark-more-like-this (= arg 0) 'forwards)
|
||||||
|
(mc--select-thing-at-point 'word)
|
||||||
|
(mc/mark-more-like-this (= arg 0) 'forwards)))
|
||||||
|
(mc/maybe-multiple-cursors-mode))
|
||||||
|
|
||||||
|
(defun mc/mark-next-like-this-symbol (arg)
|
||||||
|
"Find and mark the next part of the buffer matching the currently active region
|
||||||
|
If no region is active, mark the symbol at the point and find the next match
|
||||||
|
With negative ARG, delete the last one instead.
|
||||||
|
With zero ARG, skip the last one and mark next."
|
||||||
|
(interactive "p")
|
||||||
|
(if (< arg 0)
|
||||||
|
(let ((cursor (mc/furthest-cursor-after-point)))
|
||||||
|
(if cursor
|
||||||
|
(mc/remove-fake-cursor cursor)
|
||||||
|
(error "No cursors to be unmarked")))
|
||||||
|
(if (region-active-p)
|
||||||
|
(mc/mark-more-like-this (= arg 0) 'forwards)
|
||||||
|
(mc--select-thing-at-point 'symbol)
|
||||||
|
(mc/mark-more-like-this (= arg 0) 'forwards)))
|
||||||
|
(mc/maybe-multiple-cursors-mode))
|
||||||
|
|
||||||
|
|
||||||
|
;;;###autoload
|
||||||
|
(defun mc/mark-next-word-like-this (arg)
|
||||||
|
"Find and mark the next word of the buffer matching the currently active region
|
||||||
|
The matching region must be a whole word to be a match
|
||||||
|
If no region is active, mark the symbol at the point and find the next match
|
||||||
|
With negative ARG, delete the last one instead.
|
||||||
|
With zero ARG, skip the last one and mark next."
|
||||||
|
(interactive "p")
|
||||||
|
(let ((mc/enclose-search-term 'words))
|
||||||
|
(mc/mark-next-like-this arg)))
|
||||||
|
|
||||||
|
;;;###autoload
|
||||||
|
(defun mc/mark-next-symbol-like-this (arg)
|
||||||
|
"Find and mark the next symbol of the buffer matching the currently active region
|
||||||
|
The matching region must be a whole symbol to be a match
|
||||||
|
If no region is active, mark the symbol at the point and find the next match
|
||||||
|
With negative ARG, delete the last one instead.
|
||||||
|
With zero ARG, skip the last one and mark next."
|
||||||
|
(interactive "p")
|
||||||
|
(let ((mc/enclose-search-term 'symbols))
|
||||||
|
(mc/mark-next-like-this arg)))
|
||||||
|
|
||||||
|
;;;###autoload
|
||||||
|
(defun mc/mark-previous-like-this (arg)
|
||||||
|
"Find and mark the previous part of the buffer matching the currently active region
|
||||||
|
If no region is active add a cursor on the previous line
|
||||||
|
With negative ARG, delete the last one instead.
|
||||||
|
With zero ARG, skip the last one and mark next."
|
||||||
|
(interactive "p")
|
||||||
|
(if (< arg 0)
|
||||||
|
(let ((cursor (mc/furthest-cursor-before-point)))
|
||||||
|
(if cursor
|
||||||
|
(mc/remove-fake-cursor cursor)
|
||||||
|
(error "No cursors to be unmarked")))
|
||||||
|
(if (region-active-p)
|
||||||
|
(mc/mark-more-like-this (= arg 0) 'backwards)
|
||||||
|
(mc/mark-lines arg 'backwards)))
|
||||||
|
(mc/maybe-multiple-cursors-mode))
|
||||||
|
|
||||||
|
;;;###autoload
|
||||||
|
(defun mc/mark-previous-like-this-word (arg)
|
||||||
|
"Find and mark the previous part of the buffer matching the currently active region
|
||||||
|
If no region is active, mark the word at the point and find the previous match
|
||||||
|
With negative ARG, delete the last one instead.
|
||||||
|
With zero ARG, skip the last one and mark previous."
|
||||||
|
(interactive "p")
|
||||||
|
(if (< arg 0)
|
||||||
|
(let ((cursor (mc/furthest-cursor-after-point)))
|
||||||
|
(if cursor
|
||||||
|
(mc/remove-fake-cursor cursor)
|
||||||
|
(error "No cursors to be unmarked")))
|
||||||
|
(if (region-active-p)
|
||||||
|
(mc/mark-more-like-this (= arg 0) 'backwards)
|
||||||
|
(mc--select-thing-at-point 'word)
|
||||||
|
(mc/mark-more-like-this (= arg 0) 'backwards)))
|
||||||
|
(mc/maybe-multiple-cursors-mode))
|
||||||
|
|
||||||
|
(defun mc/mark-previous-like-this-symbol (arg)
|
||||||
|
"Find and mark the previous part of the buffer matching the currently active region
|
||||||
|
If no region is active, mark the symbol at the point and find the previous match
|
||||||
|
With negative ARG, delete the last one instead.
|
||||||
|
With zero ARG, skip the last one and mark previous."
|
||||||
|
(interactive "p")
|
||||||
|
(if (< arg 0)
|
||||||
|
(let ((cursor (mc/furthest-cursor-after-point)))
|
||||||
|
(if cursor
|
||||||
|
(mc/remove-fake-cursor cursor)
|
||||||
|
(error "No cursors to be unmarked")))
|
||||||
|
(if (region-active-p)
|
||||||
|
(mc/mark-more-like-this (= arg 0) 'backwards)
|
||||||
|
(mc--select-thing-at-point 'symbol)
|
||||||
|
(mc/mark-more-like-this (= arg 0) 'backwards)))
|
||||||
|
(mc/maybe-multiple-cursors-mode))
|
||||||
|
|
||||||
|
|
||||||
|
;;;###autoload
|
||||||
|
(defun mc/mark-previous-word-like-this (arg)
|
||||||
|
"Find and mark the previous part of the buffer matching the currently active region
|
||||||
|
The matching region must be a whole word to be a match
|
||||||
|
If no region is active add a cursor on the previous line
|
||||||
|
With negative ARG, delete the last one instead.
|
||||||
|
With zero ARG, skip the last one and mark next."
|
||||||
|
(interactive "p")
|
||||||
|
(let ((mc/enclose-search-term 'words))
|
||||||
|
(mc/mark-previous-like-this arg)))
|
||||||
|
|
||||||
|
;;;###autoload
|
||||||
|
(defun mc/mark-previous-symbol-like-this (arg)
|
||||||
|
"Find and mark the previous part of the buffer matching the currently active region
|
||||||
|
The matching region must be a whole symbol to be a match
|
||||||
|
If no region is active add a cursor on the previous line
|
||||||
|
With negative ARG, delete the last one instead.
|
||||||
|
With zero ARG, skip the last one and mark next."
|
||||||
|
(interactive "p")
|
||||||
|
(let ((mc/enclose-search-term 'symbols))
|
||||||
|
(mc/mark-previous-like-this arg)))
|
||||||
|
|
||||||
|
(defun mc/mark-lines (num-lines direction)
|
||||||
|
(dotimes (i (if (= num-lines 0) 1 num-lines))
|
||||||
|
(mc/save-excursion
|
||||||
|
(let ((furthest-cursor (cl-ecase direction
|
||||||
|
(forwards (mc/furthest-cursor-after-point))
|
||||||
|
(backwards (mc/furthest-cursor-before-point)))))
|
||||||
|
(when (overlayp furthest-cursor)
|
||||||
|
(goto-char (overlay-get furthest-cursor 'point))
|
||||||
|
(when (= num-lines 0)
|
||||||
|
(mc/remove-fake-cursor furthest-cursor))))
|
||||||
|
(cl-ecase direction
|
||||||
|
(forwards (next-logical-line 1 nil))
|
||||||
|
(backwards (previous-logical-line 1 nil)))
|
||||||
|
(mc/create-fake-cursor-at-point))))
|
||||||
|
|
||||||
|
;;;###autoload
|
||||||
|
(defun mc/mark-next-lines (arg)
|
||||||
|
(interactive "p")
|
||||||
|
(mc/mark-lines arg 'forwards)
|
||||||
|
(mc/maybe-multiple-cursors-mode))
|
||||||
|
|
||||||
|
;;;###autoload
|
||||||
|
(defun mc/mark-previous-lines (arg)
|
||||||
|
(interactive "p")
|
||||||
|
(mc/mark-lines arg 'backwards)
|
||||||
|
(mc/maybe-multiple-cursors-mode))
|
||||||
|
|
||||||
|
;;;###autoload
|
||||||
|
(defun mc/unmark-next-like-this ()
|
||||||
|
"Deselect next part of the buffer matching the currently active region."
|
||||||
|
(interactive)
|
||||||
|
(mc/mark-next-like-this -1))
|
||||||
|
|
||||||
|
;;;###autoload
|
||||||
|
(defun mc/unmark-previous-like-this ()
|
||||||
|
"Deselect prev part of the buffer matching the currently active region."
|
||||||
|
(interactive)
|
||||||
|
(mc/mark-previous-like-this -1))
|
||||||
|
|
||||||
|
;;;###autoload
|
||||||
|
(defun mc/skip-to-next-like-this ()
|
||||||
|
"Skip the current one and select the next part of the buffer matching the currently active region."
|
||||||
|
(interactive)
|
||||||
|
(mc/mark-next-like-this 0))
|
||||||
|
|
||||||
|
;;;###autoload
|
||||||
|
(defun mc/skip-to-previous-like-this ()
|
||||||
|
"Skip the current one and select the prev part of the buffer matching the currently active region."
|
||||||
|
(interactive)
|
||||||
|
(mc/mark-previous-like-this 0))
|
||||||
|
|
||||||
|
;;;###autoload
|
||||||
|
(defun mc/mark-all-like-this ()
|
||||||
|
"Find and mark all the parts of the buffer matching the currently active region"
|
||||||
|
(interactive)
|
||||||
|
(unless (region-active-p)
|
||||||
|
(error "Mark a region to match first."))
|
||||||
|
(mc/remove-fake-cursors)
|
||||||
|
(let ((master (point))
|
||||||
|
(case-fold-search nil)
|
||||||
|
(point-first (< (point) (mark)))
|
||||||
|
(re (regexp-opt (mc/region-strings) mc/enclose-search-term)))
|
||||||
|
(mc/save-excursion
|
||||||
|
(goto-char 0)
|
||||||
|
(while (search-forward-regexp re nil t)
|
||||||
|
(push-mark (match-beginning 0))
|
||||||
|
(when point-first (exchange-point-and-mark))
|
||||||
|
(unless (= master (point))
|
||||||
|
(mc/create-fake-cursor-at-point))
|
||||||
|
(when point-first (exchange-point-and-mark)))))
|
||||||
|
(if (> (mc/num-cursors) 1)
|
||||||
|
(multiple-cursors-mode 1)
|
||||||
|
(multiple-cursors-mode 0)))
|
||||||
|
|
||||||
|
(defun mc--select-thing-at-point (thing)
|
||||||
|
(let ((bound (bounds-of-thing-at-point thing)))
|
||||||
|
(when bound
|
||||||
|
(set-mark (car bound))
|
||||||
|
(goto-char (cdr bound))
|
||||||
|
bound)))
|
||||||
|
|
||||||
|
(defun mc--select-thing-at-point-or-bark (thing)
|
||||||
|
(unless (or (region-active-p) (mc--select-thing-at-point thing))
|
||||||
|
(error "Mark a region or set cursor on a %s." thing)))
|
||||||
|
|
||||||
|
;;;###autoload
|
||||||
|
(defun mc/mark-all-words-like-this ()
|
||||||
|
(interactive)
|
||||||
|
(mc--select-thing-at-point-or-bark 'word)
|
||||||
|
(let ((mc/enclose-search-term 'words))
|
||||||
|
(mc/mark-all-like-this)))
|
||||||
|
|
||||||
|
;;;###autoload
|
||||||
|
(defun mc/mark-all-symbols-like-this ()
|
||||||
|
(interactive)
|
||||||
|
(mc--select-thing-at-point-or-bark 'symbol)
|
||||||
|
(let ((mc/enclose-search-term 'symbols))
|
||||||
|
(mc/mark-all-like-this)))
|
||||||
|
|
||||||
|
;;;###autoload
|
||||||
|
(defun mc/mark-all-in-region (beg end &optional search)
|
||||||
|
"Find and mark all the parts in the region matching the given search"
|
||||||
|
(interactive "r")
|
||||||
|
(let ((search (or search (read-from-minibuffer "Mark all in region: ")))
|
||||||
|
(case-fold-search nil))
|
||||||
|
(if (string= search "")
|
||||||
|
(message "Mark aborted")
|
||||||
|
(progn
|
||||||
|
(mc/remove-fake-cursors)
|
||||||
|
(goto-char beg)
|
||||||
|
(while (search-forward search end t)
|
||||||
|
(push-mark (match-beginning 0))
|
||||||
|
(mc/create-fake-cursor-at-point))
|
||||||
|
(let ((first (mc/furthest-cursor-before-point)))
|
||||||
|
(if (not first)
|
||||||
|
(error "Search failed for %S" search)
|
||||||
|
(mc/pop-state-from-overlay first)))
|
||||||
|
(if (> (mc/num-cursors) 1)
|
||||||
|
(multiple-cursors-mode 1)
|
||||||
|
(multiple-cursors-mode 0))))))
|
||||||
|
|
||||||
|
;;;###autoload
|
||||||
|
(defun mc/mark-all-in-region-regexp (beg end)
|
||||||
|
"Find and mark all the parts in the region matching the given regexp."
|
||||||
|
(interactive "r")
|
||||||
|
(let ((search (read-regexp "Mark regexp in region: "))
|
||||||
|
(case-fold-search nil))
|
||||||
|
(if (string= search "")
|
||||||
|
(message "Mark aborted")
|
||||||
|
(progn
|
||||||
|
(mc/remove-fake-cursors)
|
||||||
|
(goto-char beg)
|
||||||
|
(let ((lastmatch))
|
||||||
|
(while (and (< (point) end) ; can happen because of (forward-char)
|
||||||
|
(search-forward-regexp search end t))
|
||||||
|
(push-mark (match-beginning 0))
|
||||||
|
(mc/create-fake-cursor-at-point)
|
||||||
|
(setq lastmatch (point))
|
||||||
|
(when (= (point) (match-beginning 0))
|
||||||
|
(forward-char)))
|
||||||
|
(unless lastmatch
|
||||||
|
(error "Search failed for %S" search)))
|
||||||
|
(goto-char (match-end 0))
|
||||||
|
(if (< (mc/num-cursors) 3)
|
||||||
|
(multiple-cursors-mode 0)
|
||||||
|
(mc/pop-state-from-overlay (mc/furthest-cursor-before-point))
|
||||||
|
(multiple-cursors-mode 1))))))
|
||||||
|
|
||||||
|
(when (not (fboundp 'set-temporary-overlay-map))
|
||||||
|
;; Backport this function from newer emacs versions
|
||||||
|
(defun set-temporary-overlay-map (map &optional keep-pred)
|
||||||
|
"Set a new keymap that will only exist for a short period of time.
|
||||||
|
The new keymap to use must be given in the MAP variable. When to
|
||||||
|
remove the keymap depends on user input and KEEP-PRED:
|
||||||
|
|
||||||
|
- if KEEP-PRED is nil (the default), the keymap disappears as
|
||||||
|
soon as any key is pressed, whether or not the key is in MAP;
|
||||||
|
|
||||||
|
- if KEEP-PRED is t, the keymap disappears as soon as a key *not*
|
||||||
|
in MAP is pressed;
|
||||||
|
|
||||||
|
- otherwise, KEEP-PRED must be a 0-arguments predicate that will
|
||||||
|
decide if the keymap should be removed (if predicate returns
|
||||||
|
nil) or kept (otherwise). The predicate will be called after
|
||||||
|
each key sequence."
|
||||||
|
|
||||||
|
(let* ((clearfunsym (make-symbol "clear-temporary-overlay-map"))
|
||||||
|
(overlaysym (make-symbol "t"))
|
||||||
|
(alist (list (cons overlaysym map)))
|
||||||
|
(clearfun
|
||||||
|
`(lambda ()
|
||||||
|
(unless ,(cond ((null keep-pred) nil)
|
||||||
|
((eq t keep-pred)
|
||||||
|
`(eq this-command
|
||||||
|
(lookup-key ',map
|
||||||
|
(this-command-keys-vector))))
|
||||||
|
(t `(funcall ',keep-pred)))
|
||||||
|
(remove-hook 'pre-command-hook ',clearfunsym)
|
||||||
|
(setq emulation-mode-map-alists
|
||||||
|
(delq ',alist emulation-mode-map-alists))))))
|
||||||
|
(set overlaysym overlaysym)
|
||||||
|
(fset clearfunsym clearfun)
|
||||||
|
(add-hook 'pre-command-hook clearfunsym)
|
||||||
|
|
||||||
|
(push alist emulation-mode-map-alists))))
|
||||||
|
|
||||||
|
;;;###autoload
|
||||||
|
(defun mc/mark-more-like-this-extended ()
|
||||||
|
"Like mark-more-like-this, but then lets you adjust with arrows key.
|
||||||
|
The adjustments work like this:
|
||||||
|
|
||||||
|
<up> Mark previous like this and set direction to 'up
|
||||||
|
<down> Mark next like this and set direction to 'down
|
||||||
|
|
||||||
|
If direction is 'up:
|
||||||
|
|
||||||
|
<left> Skip past the cursor furthest up
|
||||||
|
<right> Remove the cursor furthest up
|
||||||
|
|
||||||
|
If direction is 'down:
|
||||||
|
|
||||||
|
<left> Remove the cursor furthest down
|
||||||
|
<right> Skip past the cursor furthest down
|
||||||
|
|
||||||
|
The bindings for these commands can be changed. See `mc/mark-more-like-this-extended-keymap'."
|
||||||
|
(interactive)
|
||||||
|
(mc/mmlte--down)
|
||||||
|
(set-temporary-overlay-map mc/mark-more-like-this-extended-keymap t))
|
||||||
|
|
||||||
|
(defvar mc/mark-more-like-this-extended-direction nil
|
||||||
|
"When using mc/mark-more-like-this-extended are we working on the next or previous cursors?")
|
||||||
|
|
||||||
|
(make-variable-buffer-local 'mc/mark-more-like-this-extended)
|
||||||
|
|
||||||
|
(defun mc/mmlte--message ()
|
||||||
|
(if (eq mc/mark-more-like-this-extended-direction 'up)
|
||||||
|
(message "<up> to mark previous, <left> to skip, <right> to remove, <down> to mark next")
|
||||||
|
(message "<down> to mark next, <right> to skip, <left> to remove, <up> to mark previous")))
|
||||||
|
|
||||||
|
(defun mc/mmlte--up ()
|
||||||
|
(interactive)
|
||||||
|
(mc/mark-previous-like-this 1)
|
||||||
|
(setq mc/mark-more-like-this-extended-direction 'up)
|
||||||
|
(mc/mmlte--message))
|
||||||
|
|
||||||
|
(defun mc/mmlte--down ()
|
||||||
|
(interactive)
|
||||||
|
(mc/mark-next-like-this 1)
|
||||||
|
(setq mc/mark-more-like-this-extended-direction 'down)
|
||||||
|
(mc/mmlte--message))
|
||||||
|
|
||||||
|
(defun mc/mmlte--left ()
|
||||||
|
(interactive)
|
||||||
|
(if (eq mc/mark-more-like-this-extended-direction 'down)
|
||||||
|
(mc/unmark-next-like-this)
|
||||||
|
(mc/skip-to-previous-like-this))
|
||||||
|
(mc/mmlte--message))
|
||||||
|
|
||||||
|
(defun mc/mmlte--right ()
|
||||||
|
(interactive)
|
||||||
|
(if (eq mc/mark-more-like-this-extended-direction 'up)
|
||||||
|
(mc/unmark-previous-like-this)
|
||||||
|
(mc/skip-to-next-like-this))
|
||||||
|
(mc/mmlte--message))
|
||||||
|
|
||||||
|
(defvar mc/mark-more-like-this-extended-keymap (make-sparse-keymap))
|
||||||
|
|
||||||
|
(define-key mc/mark-more-like-this-extended-keymap (kbd "<up>") 'mc/mmlte--up)
|
||||||
|
(define-key mc/mark-more-like-this-extended-keymap (kbd "<down>") 'mc/mmlte--down)
|
||||||
|
(define-key mc/mark-more-like-this-extended-keymap (kbd "<left>") 'mc/mmlte--left)
|
||||||
|
(define-key mc/mark-more-like-this-extended-keymap (kbd "<right>") 'mc/mmlte--right)
|
||||||
|
|
||||||
|
(defvar mc--restrict-mark-all-to-symbols nil)
|
||||||
|
|
||||||
|
;;;###autoload
|
||||||
|
(defun mc/mark-all-like-this-dwim (arg)
|
||||||
|
"Tries to guess what you want to mark all of.
|
||||||
|
Can be pressed multiple times to increase selection.
|
||||||
|
|
||||||
|
With prefix, it behaves the same as original `mc/mark-all-like-this'"
|
||||||
|
(interactive "P")
|
||||||
|
(if arg
|
||||||
|
(mc/mark-all-like-this)
|
||||||
|
(if (and (not (use-region-p))
|
||||||
|
(derived-mode-p 'sgml-mode)
|
||||||
|
(mc--on-tag-name-p))
|
||||||
|
(mc/mark-sgml-tag-pair)
|
||||||
|
(let ((before (mc/num-cursors)))
|
||||||
|
(unless (eq last-command 'mc/mark-all-like-this-dwim)
|
||||||
|
(setq mc--restrict-mark-all-to-symbols nil))
|
||||||
|
(unless (use-region-p)
|
||||||
|
(mc--mark-symbol-at-point)
|
||||||
|
(setq mc--restrict-mark-all-to-symbols t))
|
||||||
|
(if mc--restrict-mark-all-to-symbols
|
||||||
|
(mc/mark-all-symbols-like-this-in-defun)
|
||||||
|
(mc/mark-all-like-this-in-defun))
|
||||||
|
(when (<= (mc/num-cursors) before)
|
||||||
|
(if mc--restrict-mark-all-to-symbols
|
||||||
|
(mc/mark-all-symbols-like-this)
|
||||||
|
(mc/mark-all-like-this)))
|
||||||
|
(when (<= (mc/num-cursors) before)
|
||||||
|
(mc/mark-all-like-this))))))
|
||||||
|
|
||||||
|
;;;###autoload
|
||||||
|
(defun mc/mark-all-dwim (arg)
|
||||||
|
"Tries even harder to guess what you want to mark all of.
|
||||||
|
|
||||||
|
If the region is active and spans multiple lines, it will behave
|
||||||
|
as if `mc/mark-all-in-region'. With the prefix ARG, it will call
|
||||||
|
`mc/edit-lines' instead.
|
||||||
|
|
||||||
|
If the region is inactive or on a single line, it will behave like
|
||||||
|
`mc/mark-all-like-this-dwim'."
|
||||||
|
(interactive "P")
|
||||||
|
(if (and (use-region-p)
|
||||||
|
(not (> (mc/num-cursors) 1))
|
||||||
|
(not (= (line-number-at-pos (region-beginning))
|
||||||
|
(line-number-at-pos (region-end)))))
|
||||||
|
(if arg
|
||||||
|
(call-interactively 'mc/edit-lines)
|
||||||
|
(call-interactively 'mc/mark-all-in-region))
|
||||||
|
(progn
|
||||||
|
(setq this-command 'mc/mark-all-like-this-dwim)
|
||||||
|
(mc/mark-all-like-this-dwim arg))))
|
||||||
|
|
||||||
|
(defun mc--in-defun ()
|
||||||
|
(bounds-of-thing-at-point 'defun))
|
||||||
|
|
||||||
|
;;;###autoload
|
||||||
|
(defun mc/mark-all-like-this-in-defun ()
|
||||||
|
"Mark all like this in defun."
|
||||||
|
(interactive)
|
||||||
|
(if (mc--in-defun)
|
||||||
|
(save-restriction
|
||||||
|
(widen)
|
||||||
|
(narrow-to-defun)
|
||||||
|
(mc/mark-all-like-this))
|
||||||
|
(mc/mark-all-like-this)))
|
||||||
|
|
||||||
|
;;;###autoload
|
||||||
|
(defun mc/mark-all-words-like-this-in-defun ()
|
||||||
|
"Mark all words like this in defun."
|
||||||
|
(interactive)
|
||||||
|
(mc--select-thing-at-point-or-bark 'word)
|
||||||
|
(if (mc--in-defun)
|
||||||
|
(save-restriction
|
||||||
|
(widen)
|
||||||
|
(narrow-to-defun)
|
||||||
|
(mc/mark-all-words-like-this))
|
||||||
|
(mc/mark-all-words-like-this)))
|
||||||
|
|
||||||
|
;;;###autoload
|
||||||
|
(defun mc/mark-all-symbols-like-this-in-defun ()
|
||||||
|
"Mark all symbols like this in defun."
|
||||||
|
(interactive)
|
||||||
|
(mc--select-thing-at-point-or-bark 'symbol)
|
||||||
|
(if (mc--in-defun)
|
||||||
|
(save-restriction
|
||||||
|
(widen)
|
||||||
|
(narrow-to-defun)
|
||||||
|
(mc/mark-all-symbols-like-this))
|
||||||
|
(mc/mark-all-symbols-like-this)))
|
||||||
|
|
||||||
|
(defun mc--mark-symbol-at-point ()
|
||||||
|
"Select the symbol under cursor"
|
||||||
|
(interactive)
|
||||||
|
(when (not (use-region-p))
|
||||||
|
(let ((b (bounds-of-thing-at-point 'symbol)))
|
||||||
|
(goto-char (car b))
|
||||||
|
(set-mark (cdr b)))))
|
||||||
|
|
||||||
|
(defun mc--get-nice-sgml-context ()
|
||||||
|
(car
|
||||||
|
(last
|
||||||
|
(progn
|
||||||
|
(when (looking-at "<") (forward-char 1))
|
||||||
|
(when (looking-back ">") (forward-char -1))
|
||||||
|
(sgml-get-context)))))
|
||||||
|
|
||||||
|
(defun mc--on-tag-name-p ()
|
||||||
|
(let* ((context (save-excursion (mc--get-nice-sgml-context)))
|
||||||
|
(tag-name-len (length (aref context 4)))
|
||||||
|
(beg (aref context 2))
|
||||||
|
(end (+ beg tag-name-len (if (eq 'open (aref context 1)) 1 3))))
|
||||||
|
(and context
|
||||||
|
(>= (point) beg)
|
||||||
|
(<= (point) end))))
|
||||||
|
|
||||||
|
;;;###autoload
|
||||||
|
(defun mc/toggle-cursor-on-click (event)
|
||||||
|
"Add a cursor where you click, or remove a fake cursor that is
|
||||||
|
already there."
|
||||||
|
(interactive "e")
|
||||||
|
(mouse-minibuffer-check event)
|
||||||
|
;; Use event-end in case called from mouse-drag-region.
|
||||||
|
;; If EVENT is a click, event-end and event-start give same value.
|
||||||
|
(let ((position (event-end event)))
|
||||||
|
(if (not (windowp (posn-window position)))
|
||||||
|
(error "Position not in text area of window"))
|
||||||
|
(select-window (posn-window position))
|
||||||
|
(let ((pt (posn-point position)))
|
||||||
|
(if (numberp pt)
|
||||||
|
;; is there a fake cursor with the actual *point* right where we are?
|
||||||
|
(let ((existing (mc/fake-cursor-at-point pt)))
|
||||||
|
(if existing
|
||||||
|
(mc/remove-fake-cursor existing)
|
||||||
|
(save-excursion
|
||||||
|
(goto-char pt)
|
||||||
|
(mc/create-fake-cursor-at-point))))))
|
||||||
|
(mc/maybe-multiple-cursors-mode)))
|
||||||
|
|
||||||
|
;;;###autoload
|
||||||
|
(defalias 'mc/add-cursor-on-click 'mc/toggle-cursor-on-click)
|
||||||
|
|
||||||
|
;;;###autoload
|
||||||
|
(defun mc/mark-sgml-tag-pair ()
|
||||||
|
"Mark the tag we're in and its pair for renaming."
|
||||||
|
(interactive)
|
||||||
|
(when (not (mc--inside-tag-p))
|
||||||
|
(error "Place point inside tag to rename."))
|
||||||
|
(let ((context (mc--get-nice-sgml-context)))
|
||||||
|
(if (looking-at "</")
|
||||||
|
(setq context (car (last (sgml-get-context)))))
|
||||||
|
(goto-char (aref context 2))
|
||||||
|
(let* ((tag-name (aref context 4))
|
||||||
|
(num-chars (length tag-name))
|
||||||
|
(master-start (1+ (point)))
|
||||||
|
(mirror-end (save-excursion
|
||||||
|
(sgml-skip-tag-forward 1)
|
||||||
|
(1- (point)))))
|
||||||
|
(goto-char (- mirror-end num-chars))
|
||||||
|
(set-mark mirror-end)
|
||||||
|
(mc/create-fake-cursor-at-point)
|
||||||
|
(goto-char master-start)
|
||||||
|
(set-mark (+ (point) num-chars))))
|
||||||
|
(mc/maybe-multiple-cursors-mode))
|
||||||
|
|
||||||
|
(defun mc--inside-tag-p ()
|
||||||
|
(save-excursion
|
||||||
|
(not (null (sgml-get-context)))))
|
||||||
|
|
||||||
|
(provide 'mc-mark-more)
|
||||||
|
|
||||||
|
;;; mc-mark-more.el ends here
|
|
@ -0,0 +1,22 @@
|
||||||
|
;;; mc-mark-pop.el --- Pop cursors off of the mark stack
|
||||||
|
|
||||||
|
(require 'multiple-cursors-core)
|
||||||
|
|
||||||
|
;;;###autoload
|
||||||
|
(defun mc/mark-pop ()
|
||||||
|
"Add a cursor at the current point, pop off mark ring and jump
|
||||||
|
to the popped mark."
|
||||||
|
(interactive)
|
||||||
|
;; If the mark happens to be at the current point, just pop that one off.
|
||||||
|
(while (eql (mark) (point))
|
||||||
|
(pop-mark))
|
||||||
|
(mc/create-fake-cursor-at-point)
|
||||||
|
(exchange-point-and-mark)
|
||||||
|
(pop-mark)
|
||||||
|
(mc/maybe-multiple-cursors-mode))
|
||||||
|
|
||||||
|
;; A good key binding for this feature is perhaps "C-S-p" ('p' for pop).
|
||||||
|
|
||||||
|
(provide 'mc-mark-pop)
|
||||||
|
|
||||||
|
;;; mc-mark-pop.el ends here
|
|
@ -0,0 +1,155 @@
|
||||||
|
;;; mc-separate-operations.el - functions that work differently on each cursor
|
||||||
|
|
||||||
|
;; Copyright (C) 2012-2016 Magnar Sveen
|
||||||
|
|
||||||
|
;; Author: Magnar Sveen <magnars@gmail.com>
|
||||||
|
;; Keywords: editing cursors
|
||||||
|
|
||||||
|
;; 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 of the License, 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 this program. If not, see <http://www.gnu.org/licenses/>.
|
||||||
|
|
||||||
|
;;; Commentary:
|
||||||
|
|
||||||
|
;; This file contains functions that work differently on each cursor,
|
||||||
|
;; instead of treating all of them the same.
|
||||||
|
|
||||||
|
;; Please see multiple-cursors.el for more commentary.
|
||||||
|
|
||||||
|
;;; Code:
|
||||||
|
|
||||||
|
(require 'multiple-cursors-core)
|
||||||
|
|
||||||
|
;;;###autoload
|
||||||
|
(defun mc/insert-numbers (arg)
|
||||||
|
"Insert increasing numbers for each cursor, starting at
|
||||||
|
`mc/insert-numbers-default' or ARG."
|
||||||
|
(interactive "P")
|
||||||
|
(setq mc--insert-numbers-number (or (and arg (prefix-numeric-value arg))
|
||||||
|
mc/insert-numbers-default))
|
||||||
|
(mc/for-each-cursor-ordered
|
||||||
|
(mc/execute-command-for-fake-cursor 'mc--insert-number-and-increase cursor)))
|
||||||
|
|
||||||
|
(defcustom mc/insert-numbers-default 0
|
||||||
|
"The default number at which to start counting for
|
||||||
|
`mc/insert-numbers'"
|
||||||
|
:type 'integer
|
||||||
|
:group 'multiple-cursors)
|
||||||
|
|
||||||
|
(defvar mc--insert-numbers-number 0)
|
||||||
|
|
||||||
|
(defun mc--insert-number-and-increase ()
|
||||||
|
(interactive)
|
||||||
|
(insert (number-to-string mc--insert-numbers-number))
|
||||||
|
(setq mc--insert-numbers-number (1+ mc--insert-numbers-number)))
|
||||||
|
|
||||||
|
(defun mc--ordered-region-strings ()
|
||||||
|
(let (strings)
|
||||||
|
(save-excursion
|
||||||
|
(mc/for-each-cursor-ordered
|
||||||
|
(setq strings (cons (buffer-substring-no-properties
|
||||||
|
(mc/cursor-beg cursor)
|
||||||
|
(mc/cursor-end cursor)) strings))))
|
||||||
|
(nreverse strings)))
|
||||||
|
|
||||||
|
;;;###autoload
|
||||||
|
(defun mc/insert-letters (arg)
|
||||||
|
"Insert increasing letters for each cursor, starting at 0 or ARG.
|
||||||
|
Where letter[0]=a letter[2]=c letter[26]=aa"
|
||||||
|
(interactive "P")
|
||||||
|
(setq mc--insert-letters-number (or (and arg (prefix-numeric-value arg))
|
||||||
|
0))
|
||||||
|
(mc/for-each-cursor-ordered
|
||||||
|
(mc/execute-command-for-fake-cursor 'mc--insert-letter-and-increase cursor)))
|
||||||
|
|
||||||
|
(defun mc--number-to-letters (number)
|
||||||
|
(let ((letter
|
||||||
|
(char-to-string
|
||||||
|
(+ (mod number 26) ?a)))
|
||||||
|
(number2 (/ number 26)))
|
||||||
|
(if (> number2 0)
|
||||||
|
(concat (mc--number-to-letters (- number2 1)) letter)
|
||||||
|
letter)))
|
||||||
|
|
||||||
|
(defvar mc--insert-letters-number 0)
|
||||||
|
|
||||||
|
(defun mc--insert-letter-and-increase ()
|
||||||
|
(interactive)
|
||||||
|
(insert (mc--number-to-letters mc--insert-letters-number))
|
||||||
|
(setq mc--insert-letters-number (1+ mc--insert-letters-number)))
|
||||||
|
|
||||||
|
(defvar mc--strings-to-replace nil)
|
||||||
|
|
||||||
|
(defun mc--replace-region-strings-1 ()
|
||||||
|
(interactive)
|
||||||
|
(delete-region (region-beginning) (region-end))
|
||||||
|
(save-excursion (insert (car mc--strings-to-replace)))
|
||||||
|
(setq mc--strings-to-replace (cdr mc--strings-to-replace)))
|
||||||
|
|
||||||
|
(defun mc--replace-region-strings ()
|
||||||
|
(mc/for-each-cursor-ordered
|
||||||
|
(mc/execute-command-for-fake-cursor 'mc--replace-region-strings-1 cursor)))
|
||||||
|
|
||||||
|
;;;###autoload
|
||||||
|
(defun mc/reverse-regions ()
|
||||||
|
(interactive)
|
||||||
|
(if (not multiple-cursors-mode)
|
||||||
|
(progn
|
||||||
|
(mc/mark-next-lines 1)
|
||||||
|
(mc/reverse-regions)
|
||||||
|
(multiple-cursors-mode 0))
|
||||||
|
(unless (use-region-p)
|
||||||
|
(mc/execute-command-for-all-cursors 'mark-sexp))
|
||||||
|
(setq mc--strings-to-replace (nreverse (mc--ordered-region-strings)))
|
||||||
|
(mc--replace-region-strings)))
|
||||||
|
|
||||||
|
;;;###autoload
|
||||||
|
(defun mc/sort-regions ()
|
||||||
|
(interactive)
|
||||||
|
(unless (use-region-p)
|
||||||
|
(mc/execute-command-for-all-cursors 'mark-sexp))
|
||||||
|
(setq mc--strings-to-replace (sort (mc--ordered-region-strings) 'string<))
|
||||||
|
(mc--replace-region-strings))
|
||||||
|
|
||||||
|
|
||||||
|
;;;###autoload
|
||||||
|
(defun mc/vertical-align (character)
|
||||||
|
"Aligns all cursors vertically with a given CHARACTER to the one with the
|
||||||
|
highest colum number (the rightest).
|
||||||
|
Might not behave as intended if more than one cursors are on the same line."
|
||||||
|
(interactive "c")
|
||||||
|
(let ((rightest-column (current-column)))
|
||||||
|
(mc/execute-command-for-all-cursors
|
||||||
|
(lambda () "get the rightest cursor"
|
||||||
|
(interactive)
|
||||||
|
(setq rightest-column (max (current-column) rightest-column))
|
||||||
|
))
|
||||||
|
(mc/execute-command-for-all-cursors
|
||||||
|
(lambda ()
|
||||||
|
(interactive)
|
||||||
|
(let ((missing-spaces (- rightest-column (current-column))))
|
||||||
|
(save-excursion (insert (make-string missing-spaces character)))
|
||||||
|
(forward-char missing-spaces)
|
||||||
|
)
|
||||||
|
))
|
||||||
|
)
|
||||||
|
)
|
||||||
|
|
||||||
|
;;;###autoload
|
||||||
|
(defun mc/vertical-align-with-space ()
|
||||||
|
"Aligns all cursors with whitespace like `mc/vertical-align' does"
|
||||||
|
(interactive)
|
||||||
|
(mc/vertical-align 32)
|
||||||
|
)
|
||||||
|
|
||||||
|
(provide 'mc-separate-operations)
|
||||||
|
;;; mc-separate-operations.el ends here
|
|
@ -0,0 +1,341 @@
|
||||||
|
;;; multiple-cursors-autoloads.el --- automatically extracted autoloads
|
||||||
|
;;
|
||||||
|
;;; Code:
|
||||||
|
(add-to-list 'load-path (directory-file-name (or (file-name-directory #$) (car load-path))))
|
||||||
|
|
||||||
|
;;;### (autoloads nil "mc-edit-lines" "mc-edit-lines.el" (22942 51258
|
||||||
|
;;;;;; 659903 701000))
|
||||||
|
;;; Generated autoloads from mc-edit-lines.el
|
||||||
|
|
||||||
|
(autoload 'mc/edit-lines "mc-edit-lines" "\
|
||||||
|
Add one cursor to each line of the active region.
|
||||||
|
Starts from mark and moves in straight down or up towards the
|
||||||
|
line point is on.
|
||||||
|
|
||||||
|
What is done with lines which are not long enough is governed by
|
||||||
|
`mc/edit-lines-empty-lines'. The prefix argument ARG can be used
|
||||||
|
to override this. If ARG is a symbol (when called from Lisp),
|
||||||
|
that symbol is used instead of `mc/edit-lines-empty-lines'.
|
||||||
|
Otherwise, if ARG negative, short lines will be ignored. Any
|
||||||
|
other non-nil value will cause short lines to be padded.
|
||||||
|
|
||||||
|
\(fn &optional ARG)" t nil)
|
||||||
|
|
||||||
|
(autoload 'mc/edit-ends-of-lines "mc-edit-lines" "\
|
||||||
|
Add one cursor to the end of each line in the active region.
|
||||||
|
|
||||||
|
\(fn)" t nil)
|
||||||
|
|
||||||
|
(autoload 'mc/edit-beginnings-of-lines "mc-edit-lines" "\
|
||||||
|
Add one cursor to the beginning of each line in the active region.
|
||||||
|
|
||||||
|
\(fn)" t nil)
|
||||||
|
|
||||||
|
;;;***
|
||||||
|
|
||||||
|
;;;### (autoloads nil "mc-hide-unmatched-lines-mode" "mc-hide-unmatched-lines-mode.el"
|
||||||
|
;;;;;; (22942 51258 691903 867000))
|
||||||
|
;;; Generated autoloads from mc-hide-unmatched-lines-mode.el
|
||||||
|
|
||||||
|
(autoload 'mc-hide-unmatched-lines-mode "mc-hide-unmatched-lines-mode" "\
|
||||||
|
Minor mode when enabled hides all lines where no cursors (and
|
||||||
|
also hum/lines-to-expand below and above) To make use of this
|
||||||
|
mode press \"C-'\" while multiple-cursor-mode is active. You can
|
||||||
|
still edit lines while you are in mc-hide-unmatched-lines
|
||||||
|
mode. To leave this mode press <return> or \"C-g\"
|
||||||
|
|
||||||
|
\(fn &optional ARG)" t nil)
|
||||||
|
|
||||||
|
;;;***
|
||||||
|
|
||||||
|
;;;### (autoloads nil "mc-mark-more" "mc-mark-more.el" (22942 51258
|
||||||
|
;;;;;; 711903 971000))
|
||||||
|
;;; Generated autoloads from mc-mark-more.el
|
||||||
|
|
||||||
|
(autoload 'mc/mark-next-like-this "mc-mark-more" "\
|
||||||
|
Find and mark the next part of the buffer matching the currently active region
|
||||||
|
If no region is active add a cursor on the next line
|
||||||
|
With negative ARG, delete the last one instead.
|
||||||
|
With zero ARG, skip the last one and mark next.
|
||||||
|
|
||||||
|
\(fn ARG)" t nil)
|
||||||
|
|
||||||
|
(autoload 'mc/mark-next-like-this-word "mc-mark-more" "\
|
||||||
|
Find and mark the next part of the buffer matching the currently active region
|
||||||
|
If no region is active, mark the word at the point and find the next match
|
||||||
|
With negative ARG, delete the last one instead.
|
||||||
|
With zero ARG, skip the last one and mark next.
|
||||||
|
|
||||||
|
\(fn ARG)" t nil)
|
||||||
|
|
||||||
|
(autoload 'mc/mark-next-word-like-this "mc-mark-more" "\
|
||||||
|
Find and mark the next word of the buffer matching the currently active region
|
||||||
|
The matching region must be a whole word to be a match
|
||||||
|
If no region is active, mark the symbol at the point and find the next match
|
||||||
|
With negative ARG, delete the last one instead.
|
||||||
|
With zero ARG, skip the last one and mark next.
|
||||||
|
|
||||||
|
\(fn ARG)" t nil)
|
||||||
|
|
||||||
|
(autoload 'mc/mark-next-symbol-like-this "mc-mark-more" "\
|
||||||
|
Find and mark the next symbol of the buffer matching the currently active region
|
||||||
|
The matching region must be a whole symbol to be a match
|
||||||
|
If no region is active, mark the symbol at the point and find the next match
|
||||||
|
With negative ARG, delete the last one instead.
|
||||||
|
With zero ARG, skip the last one and mark next.
|
||||||
|
|
||||||
|
\(fn ARG)" t nil)
|
||||||
|
|
||||||
|
(autoload 'mc/mark-previous-like-this "mc-mark-more" "\
|
||||||
|
Find and mark the previous part of the buffer matching the currently active region
|
||||||
|
If no region is active add a cursor on the previous line
|
||||||
|
With negative ARG, delete the last one instead.
|
||||||
|
With zero ARG, skip the last one and mark next.
|
||||||
|
|
||||||
|
\(fn ARG)" t nil)
|
||||||
|
|
||||||
|
(autoload 'mc/mark-previous-like-this-word "mc-mark-more" "\
|
||||||
|
Find and mark the previous part of the buffer matching the currently active region
|
||||||
|
If no region is active, mark the word at the point and find the previous match
|
||||||
|
With negative ARG, delete the last one instead.
|
||||||
|
With zero ARG, skip the last one and mark previous.
|
||||||
|
|
||||||
|
\(fn ARG)" t nil)
|
||||||
|
|
||||||
|
(autoload 'mc/mark-previous-word-like-this "mc-mark-more" "\
|
||||||
|
Find and mark the previous part of the buffer matching the currently active region
|
||||||
|
The matching region must be a whole word to be a match
|
||||||
|
If no region is active add a cursor on the previous line
|
||||||
|
With negative ARG, delete the last one instead.
|
||||||
|
With zero ARG, skip the last one and mark next.
|
||||||
|
|
||||||
|
\(fn ARG)" t nil)
|
||||||
|
|
||||||
|
(autoload 'mc/mark-previous-symbol-like-this "mc-mark-more" "\
|
||||||
|
Find and mark the previous part of the buffer matching the currently active region
|
||||||
|
The matching region must be a whole symbol to be a match
|
||||||
|
If no region is active add a cursor on the previous line
|
||||||
|
With negative ARG, delete the last one instead.
|
||||||
|
With zero ARG, skip the last one and mark next.
|
||||||
|
|
||||||
|
\(fn ARG)" t nil)
|
||||||
|
|
||||||
|
(autoload 'mc/mark-next-lines "mc-mark-more" "\
|
||||||
|
|
||||||
|
|
||||||
|
\(fn ARG)" t nil)
|
||||||
|
|
||||||
|
(autoload 'mc/mark-previous-lines "mc-mark-more" "\
|
||||||
|
|
||||||
|
|
||||||
|
\(fn ARG)" t nil)
|
||||||
|
|
||||||
|
(autoload 'mc/unmark-next-like-this "mc-mark-more" "\
|
||||||
|
Deselect next part of the buffer matching the currently active region.
|
||||||
|
|
||||||
|
\(fn)" t nil)
|
||||||
|
|
||||||
|
(autoload 'mc/unmark-previous-like-this "mc-mark-more" "\
|
||||||
|
Deselect prev part of the buffer matching the currently active region.
|
||||||
|
|
||||||
|
\(fn)" t nil)
|
||||||
|
|
||||||
|
(autoload 'mc/skip-to-next-like-this "mc-mark-more" "\
|
||||||
|
Skip the current one and select the next part of the buffer matching the currently active region.
|
||||||
|
|
||||||
|
\(fn)" t nil)
|
||||||
|
|
||||||
|
(autoload 'mc/skip-to-previous-like-this "mc-mark-more" "\
|
||||||
|
Skip the current one and select the prev part of the buffer matching the currently active region.
|
||||||
|
|
||||||
|
\(fn)" t nil)
|
||||||
|
|
||||||
|
(autoload 'mc/mark-all-like-this "mc-mark-more" "\
|
||||||
|
Find and mark all the parts of the buffer matching the currently active region
|
||||||
|
|
||||||
|
\(fn)" t nil)
|
||||||
|
|
||||||
|
(autoload 'mc/mark-all-words-like-this "mc-mark-more" "\
|
||||||
|
|
||||||
|
|
||||||
|
\(fn)" t nil)
|
||||||
|
|
||||||
|
(autoload 'mc/mark-all-symbols-like-this "mc-mark-more" "\
|
||||||
|
|
||||||
|
|
||||||
|
\(fn)" t nil)
|
||||||
|
|
||||||
|
(autoload 'mc/mark-all-in-region "mc-mark-more" "\
|
||||||
|
Find and mark all the parts in the region matching the given search
|
||||||
|
|
||||||
|
\(fn BEG END &optional SEARCH)" t nil)
|
||||||
|
|
||||||
|
(autoload 'mc/mark-all-in-region-regexp "mc-mark-more" "\
|
||||||
|
Find and mark all the parts in the region matching the given regexp.
|
||||||
|
|
||||||
|
\(fn BEG END)" t nil)
|
||||||
|
|
||||||
|
(autoload 'mc/mark-more-like-this-extended "mc-mark-more" "\
|
||||||
|
Like mark-more-like-this, but then lets you adjust with arrows key.
|
||||||
|
The adjustments work like this:
|
||||||
|
|
||||||
|
<up> Mark previous like this and set direction to 'up
|
||||||
|
<down> Mark next like this and set direction to 'down
|
||||||
|
|
||||||
|
If direction is 'up:
|
||||||
|
|
||||||
|
<left> Skip past the cursor furthest up
|
||||||
|
<right> Remove the cursor furthest up
|
||||||
|
|
||||||
|
If direction is 'down:
|
||||||
|
|
||||||
|
<left> Remove the cursor furthest down
|
||||||
|
<right> Skip past the cursor furthest down
|
||||||
|
|
||||||
|
The bindings for these commands can be changed. See `mc/mark-more-like-this-extended-keymap'.
|
||||||
|
|
||||||
|
\(fn)" t nil)
|
||||||
|
|
||||||
|
(autoload 'mc/mark-all-like-this-dwim "mc-mark-more" "\
|
||||||
|
Tries to guess what you want to mark all of.
|
||||||
|
Can be pressed multiple times to increase selection.
|
||||||
|
|
||||||
|
With prefix, it behaves the same as original `mc/mark-all-like-this'
|
||||||
|
|
||||||
|
\(fn ARG)" t nil)
|
||||||
|
|
||||||
|
(autoload 'mc/mark-all-dwim "mc-mark-more" "\
|
||||||
|
Tries even harder to guess what you want to mark all of.
|
||||||
|
|
||||||
|
If the region is active and spans multiple lines, it will behave
|
||||||
|
as if `mc/mark-all-in-region'. With the prefix ARG, it will call
|
||||||
|
`mc/edit-lines' instead.
|
||||||
|
|
||||||
|
If the region is inactive or on a single line, it will behave like
|
||||||
|
`mc/mark-all-like-this-dwim'.
|
||||||
|
|
||||||
|
\(fn ARG)" t nil)
|
||||||
|
|
||||||
|
(autoload 'mc/mark-all-like-this-in-defun "mc-mark-more" "\
|
||||||
|
Mark all like this in defun.
|
||||||
|
|
||||||
|
\(fn)" t nil)
|
||||||
|
|
||||||
|
(autoload 'mc/mark-all-words-like-this-in-defun "mc-mark-more" "\
|
||||||
|
Mark all words like this in defun.
|
||||||
|
|
||||||
|
\(fn)" t nil)
|
||||||
|
|
||||||
|
(autoload 'mc/mark-all-symbols-like-this-in-defun "mc-mark-more" "\
|
||||||
|
Mark all symbols like this in defun.
|
||||||
|
|
||||||
|
\(fn)" t nil)
|
||||||
|
|
||||||
|
(autoload 'mc/toggle-cursor-on-click "mc-mark-more" "\
|
||||||
|
Add a cursor where you click, or remove a fake cursor that is
|
||||||
|
already there.
|
||||||
|
|
||||||
|
\(fn EVENT)" t nil)
|
||||||
|
|
||||||
|
(defalias 'mc/add-cursor-on-click 'mc/toggle-cursor-on-click)
|
||||||
|
|
||||||
|
(autoload 'mc/mark-sgml-tag-pair "mc-mark-more" "\
|
||||||
|
Mark the tag we're in and its pair for renaming.
|
||||||
|
|
||||||
|
\(fn)" t nil)
|
||||||
|
|
||||||
|
;;;***
|
||||||
|
|
||||||
|
;;;### (autoloads nil "mc-mark-pop" "mc-mark-pop.el" (22942 51258
|
||||||
|
;;;;;; 679903 805000))
|
||||||
|
;;; Generated autoloads from mc-mark-pop.el
|
||||||
|
|
||||||
|
(autoload 'mc/mark-pop "mc-mark-pop" "\
|
||||||
|
Add a cursor at the current point, pop off mark ring and jump
|
||||||
|
to the popped mark.
|
||||||
|
|
||||||
|
\(fn)" t nil)
|
||||||
|
|
||||||
|
;;;***
|
||||||
|
|
||||||
|
;;;### (autoloads nil "mc-separate-operations" "mc-separate-operations.el"
|
||||||
|
;;;;;; (22942 51258 695903 888000))
|
||||||
|
;;; Generated autoloads from mc-separate-operations.el
|
||||||
|
|
||||||
|
(autoload 'mc/insert-numbers "mc-separate-operations" "\
|
||||||
|
Insert increasing numbers for each cursor, starting at
|
||||||
|
`mc/insert-numbers-default' or ARG.
|
||||||
|
|
||||||
|
\(fn ARG)" t nil)
|
||||||
|
|
||||||
|
(autoload 'mc/insert-letters "mc-separate-operations" "\
|
||||||
|
Insert increasing letters for each cursor, starting at 0 or ARG.
|
||||||
|
Where letter[0]=a letter[2]=c letter[26]=aa
|
||||||
|
|
||||||
|
\(fn ARG)" t nil)
|
||||||
|
|
||||||
|
(autoload 'mc/reverse-regions "mc-separate-operations" "\
|
||||||
|
|
||||||
|
|
||||||
|
\(fn)" t nil)
|
||||||
|
|
||||||
|
(autoload 'mc/sort-regions "mc-separate-operations" "\
|
||||||
|
|
||||||
|
|
||||||
|
\(fn)" t nil)
|
||||||
|
|
||||||
|
(autoload 'mc/vertical-align "mc-separate-operations" "\
|
||||||
|
Aligns all cursors vertically with a given CHARACTER to the one with the
|
||||||
|
highest colum number (the rightest).
|
||||||
|
Might not behave as intended if more than one cursors are on the same line.
|
||||||
|
|
||||||
|
\(fn CHARACTER)" t nil)
|
||||||
|
|
||||||
|
(autoload 'mc/vertical-align-with-space "mc-separate-operations" "\
|
||||||
|
Aligns all cursors with whitespace like `mc/vertical-align' does
|
||||||
|
|
||||||
|
\(fn)" t nil)
|
||||||
|
|
||||||
|
;;;***
|
||||||
|
|
||||||
|
;;;### (autoloads nil "multiple-cursors-core" "multiple-cursors-core.el"
|
||||||
|
;;;;;; (22942 51258 651903 661000))
|
||||||
|
;;; Generated autoloads from multiple-cursors-core.el
|
||||||
|
|
||||||
|
(autoload 'multiple-cursors-mode "multiple-cursors-core" "\
|
||||||
|
Mode while multiple cursors are active.
|
||||||
|
|
||||||
|
\(fn &optional ARG)" t nil)
|
||||||
|
|
||||||
|
;;;***
|
||||||
|
|
||||||
|
;;;### (autoloads nil "rectangular-region-mode" "rectangular-region-mode.el"
|
||||||
|
;;;;;; (22942 51258 667903 743000))
|
||||||
|
;;; Generated autoloads from rectangular-region-mode.el
|
||||||
|
|
||||||
|
(autoload 'set-rectangular-region-anchor "rectangular-region-mode" "\
|
||||||
|
Anchors the rectangular region at point.
|
||||||
|
|
||||||
|
Think of this one as `set-mark' except you're marking a rectangular region. It is
|
||||||
|
an exceedingly quick way of adding multiple cursors to multiple lines.
|
||||||
|
|
||||||
|
\(fn)" t nil)
|
||||||
|
|
||||||
|
(autoload 'rectangular-region-mode "rectangular-region-mode" "\
|
||||||
|
A mode for creating a rectangular region to edit
|
||||||
|
|
||||||
|
\(fn &optional ARG)" t nil)
|
||||||
|
|
||||||
|
;;;***
|
||||||
|
|
||||||
|
;;;### (autoloads nil nil ("mc-cycle-cursors.el" "multiple-cursors-pkg.el"
|
||||||
|
;;;;;; "multiple-cursors.el") (22942 51258 715903 992000))
|
||||||
|
|
||||||
|
;;;***
|
||||||
|
|
||||||
|
;; Local Variables:
|
||||||
|
;; version-control: never
|
||||||
|
;; no-byte-compile: t
|
||||||
|
;; no-update-autoloads: t
|
||||||
|
;; End:
|
||||||
|
;;; multiple-cursors-autoloads.el ends here
|
|
@ -0,0 +1,795 @@
|
||||||
|
;;; multiple-cursors-core.el --- An experiment in multiple cursors for emacs.
|
||||||
|
|
||||||
|
;; Copyright (C) 2012-2016 Magnar Sveen
|
||||||
|
|
||||||
|
;; Author: Magnar Sveen <magnars@gmail.com>
|
||||||
|
;; Keywords: editing cursors
|
||||||
|
|
||||||
|
;; 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 of the License, 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 this program. If not, see <http://www.gnu.org/licenses/>.
|
||||||
|
|
||||||
|
;;; Commentary:
|
||||||
|
|
||||||
|
;; This file contains the core functionality of multiple-cursors.
|
||||||
|
;; Please see multiple-cursors.el for more commentary.
|
||||||
|
|
||||||
|
;;; Code:
|
||||||
|
|
||||||
|
(require 'cl-lib)
|
||||||
|
(require 'rect)
|
||||||
|
|
||||||
|
(defvar mc--read-char)
|
||||||
|
|
||||||
|
(defface mc/cursor-face
|
||||||
|
'((t (:inverse-video t)))
|
||||||
|
"The face used for fake cursors"
|
||||||
|
:group 'multiple-cursors)
|
||||||
|
|
||||||
|
(defface mc/cursor-bar-face
|
||||||
|
`((t (:height 1 :background ,(face-attribute 'cursor :background))))
|
||||||
|
"The face used for fake cursors if the cursor-type is bar"
|
||||||
|
:group 'multiple-cursors)
|
||||||
|
|
||||||
|
(defface mc/region-face
|
||||||
|
'((t :inherit region))
|
||||||
|
"The face used for fake regions"
|
||||||
|
:group 'multiple-cursors)
|
||||||
|
|
||||||
|
(defmacro mc/add-fake-cursor-to-undo-list (&rest forms)
|
||||||
|
"Make sure point is in the right place when undoing"
|
||||||
|
(let ((uc (make-symbol "undo-cleaner")))
|
||||||
|
`(let ((,uc (cons 'apply (cons 'deactivate-cursor-after-undo (list id)))))
|
||||||
|
(setq buffer-undo-list (cons ,uc buffer-undo-list))
|
||||||
|
,@forms
|
||||||
|
(if (eq ,uc (car buffer-undo-list)) ;; if nothing has been added to the undo-list
|
||||||
|
(setq buffer-undo-list (cdr buffer-undo-list)) ;; then pop the cleaner right off again
|
||||||
|
(setq buffer-undo-list ;; otherwise add a function to activate this cursor
|
||||||
|
(cons (cons 'apply (cons 'activate-cursor-for-undo (list id))) buffer-undo-list))))))
|
||||||
|
|
||||||
|
(defun mc/all-fake-cursors (&optional start end)
|
||||||
|
(cl-remove-if-not 'mc/fake-cursor-p
|
||||||
|
(overlays-in (or start (point-min))
|
||||||
|
(or end (point-max)))))
|
||||||
|
|
||||||
|
(defmacro mc/for-each-fake-cursor (&rest forms)
|
||||||
|
"Runs the body for each fake cursor, bound to the name cursor"
|
||||||
|
`(mapc #'(lambda (cursor) ,@forms)
|
||||||
|
(mc/all-fake-cursors)))
|
||||||
|
|
||||||
|
(defmacro mc/save-excursion (&rest forms)
|
||||||
|
"Saves and restores all the state that multiple-cursors cares about."
|
||||||
|
(let ((cs (make-symbol "current-state")))
|
||||||
|
`(let ((,cs (mc/store-current-state-in-overlay
|
||||||
|
(make-overlay (point) (point) nil nil t))))
|
||||||
|
(overlay-put ,cs 'type 'original-cursor)
|
||||||
|
(save-excursion ,@forms)
|
||||||
|
(mc/pop-state-from-overlay ,cs))))
|
||||||
|
|
||||||
|
(defun mc--compare-by-overlay-start (o1 o2)
|
||||||
|
(< (overlay-start o1) (overlay-start o2)))
|
||||||
|
|
||||||
|
(defmacro mc/for-each-cursor-ordered (&rest forms)
|
||||||
|
"Runs the body for each cursor, fake and real, bound to the name cursor"
|
||||||
|
(let ((rci (make-symbol "real-cursor-id")))
|
||||||
|
`(let ((,rci (overlay-get (mc/create-fake-cursor-at-point) 'mc-id)))
|
||||||
|
(mapc #'(lambda (cursor)
|
||||||
|
(when (mc/fake-cursor-p cursor)
|
||||||
|
,@forms))
|
||||||
|
(sort (overlays-in (point-min) (point-max)) 'mc--compare-by-overlay-start))
|
||||||
|
(mc/pop-state-from-overlay (mc/cursor-with-id ,rci)))))
|
||||||
|
|
||||||
|
(defmacro mc/save-window-scroll (&rest forms)
|
||||||
|
"Saves and restores the window scroll position"
|
||||||
|
(let ((p (make-symbol "p"))
|
||||||
|
(s (make-symbol "start"))
|
||||||
|
(h (make-symbol "hscroll")))
|
||||||
|
`(let ((,p (set-marker (make-marker) (point)))
|
||||||
|
(,s (set-marker (make-marker) (window-start)))
|
||||||
|
(,h (window-hscroll)))
|
||||||
|
,@forms
|
||||||
|
(goto-char ,p)
|
||||||
|
(set-window-start nil ,s t)
|
||||||
|
(set-window-hscroll nil ,h)
|
||||||
|
(set-marker ,p nil)
|
||||||
|
(set-marker ,s nil))))
|
||||||
|
|
||||||
|
(defun mc/cursor-is-bar ()
|
||||||
|
"Return non-nil if the cursor is a bar."
|
||||||
|
(or (eq cursor-type 'bar)
|
||||||
|
(and (listp cursor-type)
|
||||||
|
(eq (car cursor-type) 'bar))))
|
||||||
|
|
||||||
|
(defun mc/make-cursor-overlay-at-eol (pos)
|
||||||
|
"Create overlay to look like cursor at end of line."
|
||||||
|
(let ((overlay (make-overlay pos pos nil nil nil)))
|
||||||
|
(if (mc/cursor-is-bar)
|
||||||
|
(overlay-put overlay 'before-string (propertize "|" 'face 'mc/cursor-bar-face))
|
||||||
|
(overlay-put overlay 'after-string (propertize " " 'face 'mc/cursor-face)))
|
||||||
|
overlay))
|
||||||
|
|
||||||
|
(defun mc/make-cursor-overlay-inline (pos)
|
||||||
|
"Create overlay to look like cursor inside text."
|
||||||
|
(let ((overlay (make-overlay pos (1+ pos) nil nil nil)))
|
||||||
|
(if (mc/cursor-is-bar)
|
||||||
|
(overlay-put overlay 'before-string (propertize "|" 'face 'mc/cursor-bar-face))
|
||||||
|
(overlay-put overlay 'face 'mc/cursor-face))
|
||||||
|
overlay))
|
||||||
|
|
||||||
|
(defun mc/make-cursor-overlay-at-point ()
|
||||||
|
"Create overlay to look like cursor.
|
||||||
|
Special case for end of line, because overlay over a newline
|
||||||
|
highlights the entire width of the window."
|
||||||
|
(if (eolp)
|
||||||
|
(mc/make-cursor-overlay-at-eol (point))
|
||||||
|
(mc/make-cursor-overlay-inline (point))))
|
||||||
|
|
||||||
|
(defun mc/make-region-overlay-between-point-and-mark ()
|
||||||
|
"Create overlay to look like active region."
|
||||||
|
(let ((overlay (make-overlay (mark) (point) nil nil t)))
|
||||||
|
(overlay-put overlay 'face 'mc/region-face)
|
||||||
|
(overlay-put overlay 'type 'additional-region)
|
||||||
|
overlay))
|
||||||
|
|
||||||
|
(defvar mc/cursor-specific-vars '(transient-mark-mode
|
||||||
|
kill-ring
|
||||||
|
kill-ring-yank-pointer
|
||||||
|
mark-ring
|
||||||
|
mark-active
|
||||||
|
yank-undo-function
|
||||||
|
autopair-action
|
||||||
|
autopair-wrap-action
|
||||||
|
er/history)
|
||||||
|
"A list of vars that need to be tracked on a per-cursor basis.")
|
||||||
|
|
||||||
|
(defun mc/store-current-state-in-overlay (o)
|
||||||
|
"Store relevant info about point and mark in the given overlay."
|
||||||
|
(overlay-put o 'point (set-marker (make-marker) (point)))
|
||||||
|
(overlay-put o 'mark (set-marker (make-marker) (mark)))
|
||||||
|
(dolist (var mc/cursor-specific-vars)
|
||||||
|
(when (boundp var) (overlay-put o var (symbol-value var))))
|
||||||
|
o)
|
||||||
|
|
||||||
|
(defun mc/restore-state-from-overlay (o)
|
||||||
|
"Restore point and mark from stored info in the given overlay."
|
||||||
|
(goto-char (overlay-get o 'point))
|
||||||
|
(set-marker (mark-marker) (overlay-get o 'mark))
|
||||||
|
(dolist (var mc/cursor-specific-vars)
|
||||||
|
(when (boundp var) (set var (overlay-get o var)))))
|
||||||
|
|
||||||
|
(defun mc/remove-fake-cursor (o)
|
||||||
|
"Delete overlay with state, including dependent overlays and markers."
|
||||||
|
(set-marker (overlay-get o 'point) nil)
|
||||||
|
(set-marker (overlay-get o 'mark) nil)
|
||||||
|
(mc/delete-region-overlay o)
|
||||||
|
(delete-overlay o))
|
||||||
|
|
||||||
|
(defun mc/pop-state-from-overlay (o)
|
||||||
|
"Restore the state stored in given overlay and then remove the overlay."
|
||||||
|
(mc/restore-state-from-overlay o)
|
||||||
|
(mc/remove-fake-cursor o))
|
||||||
|
|
||||||
|
(defun mc/delete-region-overlay (o)
|
||||||
|
"Remove the dependent region overlay for a given cursor overlay."
|
||||||
|
(ignore-errors
|
||||||
|
(delete-overlay (overlay-get o 'region-overlay))))
|
||||||
|
|
||||||
|
(defvar mc--current-cursor-id 0
|
||||||
|
"Var to store increasing id of fake cursors, used to keep track of them for undo.")
|
||||||
|
|
||||||
|
(defun mc/create-cursor-id ()
|
||||||
|
"Returns a unique cursor id"
|
||||||
|
(cl-incf mc--current-cursor-id))
|
||||||
|
|
||||||
|
(defvar mc--max-cursors-original nil
|
||||||
|
"This variable maintains the original maximum number of cursors.
|
||||||
|
When `mc/create-fake-cursor-at-point' is called and
|
||||||
|
`mc/max-cursors' is overridden, this value serves as a backup so
|
||||||
|
that `mc/max-cursors' can take on a new value. When
|
||||||
|
`mc/remove-fake-cursors' is called, the values are reset.")
|
||||||
|
|
||||||
|
(defcustom mc/max-cursors nil
|
||||||
|
"Safety ceiling for the number of active cursors.
|
||||||
|
If your emacs slows down or freezes when using too many cursors,
|
||||||
|
customize this value appropriately.
|
||||||
|
|
||||||
|
Cursors will be added until this value is reached, at which point
|
||||||
|
you can either temporarily override the value or abort the
|
||||||
|
operation entirely.
|
||||||
|
|
||||||
|
If this value is nil, there is no ceiling."
|
||||||
|
:type '(integer)
|
||||||
|
:group 'multiple-cursors)
|
||||||
|
|
||||||
|
(defun mc/create-fake-cursor-at-point (&optional id)
|
||||||
|
"Add a fake cursor and possibly a fake active region overlay based on point and mark.
|
||||||
|
Saves the current state in the overlay to be restored later."
|
||||||
|
(unless mc--max-cursors-original
|
||||||
|
(setq mc--max-cursors-original mc/max-cursors))
|
||||||
|
(when mc/max-cursors
|
||||||
|
(unless (< (mc/num-cursors) mc/max-cursors)
|
||||||
|
(if (yes-or-no-p (format "%d active cursors. Continue? " (mc/num-cursors)))
|
||||||
|
(setq mc/max-cursors (read-number "Enter a new, temporary maximum: "))
|
||||||
|
(mc/remove-fake-cursors)
|
||||||
|
(error "Aborted: too many cursors"))))
|
||||||
|
(let ((overlay (mc/make-cursor-overlay-at-point)))
|
||||||
|
(overlay-put overlay 'mc-id (or id (mc/create-cursor-id)))
|
||||||
|
(overlay-put overlay 'type 'fake-cursor)
|
||||||
|
(overlay-put overlay 'priority 100)
|
||||||
|
(mc/store-current-state-in-overlay overlay)
|
||||||
|
(when (use-region-p)
|
||||||
|
(overlay-put overlay 'region-overlay
|
||||||
|
(mc/make-region-overlay-between-point-and-mark)))
|
||||||
|
overlay))
|
||||||
|
|
||||||
|
(defun mc/execute-command (cmd)
|
||||||
|
"Run command, simulating the parts of the command loop that makes sense for fake cursors."
|
||||||
|
(setq this-command cmd)
|
||||||
|
(run-hooks 'pre-command-hook)
|
||||||
|
(unless (eq this-command 'ignore)
|
||||||
|
(call-interactively cmd))
|
||||||
|
(run-hooks 'post-command-hook)
|
||||||
|
(when deactivate-mark (deactivate-mark)))
|
||||||
|
|
||||||
|
(defvar mc--executing-command-for-fake-cursor nil)
|
||||||
|
|
||||||
|
(defun mc/execute-command-for-fake-cursor (cmd cursor)
|
||||||
|
(let ((mc--executing-command-for-fake-cursor t)
|
||||||
|
(id (overlay-get cursor 'mc-id))
|
||||||
|
(annoying-arrows-mode nil)
|
||||||
|
(smooth-scroll-margin 0))
|
||||||
|
(mc/add-fake-cursor-to-undo-list
|
||||||
|
(mc/pop-state-from-overlay cursor)
|
||||||
|
(ignore-errors
|
||||||
|
(mc/execute-command cmd)
|
||||||
|
(mc/create-fake-cursor-at-point id)))))
|
||||||
|
|
||||||
|
(defun mc/execute-command-for-all-fake-cursors (cmd)
|
||||||
|
"Calls CMD interactively for each cursor.
|
||||||
|
It works by moving point to the fake cursor, setting
|
||||||
|
up the proper environment, and then removing the cursor.
|
||||||
|
After executing the command, it sets up a new fake
|
||||||
|
cursor with updated info."
|
||||||
|
(mc/save-excursion
|
||||||
|
(mc/save-window-scroll
|
||||||
|
(mc/for-each-fake-cursor
|
||||||
|
(save-excursion
|
||||||
|
(mc/execute-command-for-fake-cursor cmd cursor)))))
|
||||||
|
(mc--reset-read-prompts))
|
||||||
|
|
||||||
|
(defun mc/execute-command-for-all-cursors (cmd)
|
||||||
|
"Calls CMD interactively for the real cursor and all fakes."
|
||||||
|
(call-interactively cmd)
|
||||||
|
(mc/execute-command-for-all-fake-cursors cmd))
|
||||||
|
|
||||||
|
;; Intercept some reading commands so you won't have to
|
||||||
|
;; answer them for every single cursor
|
||||||
|
|
||||||
|
(defvar mc--read-char nil)
|
||||||
|
(defvar multiple-cursors-mode nil)
|
||||||
|
(defadvice read-char (around mc-support activate)
|
||||||
|
(if (not multiple-cursors-mode)
|
||||||
|
ad-do-it
|
||||||
|
(unless mc--read-char
|
||||||
|
(setq mc--read-char ad-do-it))
|
||||||
|
(setq ad-return-value mc--read-char)))
|
||||||
|
|
||||||
|
(defvar mc--read-quoted-char nil)
|
||||||
|
(defadvice read-quoted-char (around mc-support activate)
|
||||||
|
(if (not multiple-cursors-mode)
|
||||||
|
ad-do-it
|
||||||
|
(unless mc--read-quoted-char
|
||||||
|
(setq mc--read-quoted-char ad-do-it))
|
||||||
|
(setq ad-return-value mc--read-quoted-char)))
|
||||||
|
|
||||||
|
(defun mc--reset-read-prompts ()
|
||||||
|
(setq mc--read-char nil)
|
||||||
|
(setq mc--read-quoted-char nil))
|
||||||
|
|
||||||
|
(mc--reset-read-prompts)
|
||||||
|
|
||||||
|
(defun mc/fake-cursor-p (o)
|
||||||
|
"Predicate to check if an overlay is a fake cursor"
|
||||||
|
(eq (overlay-get o 'type) 'fake-cursor))
|
||||||
|
|
||||||
|
(defun mc/cursor-with-id (id)
|
||||||
|
"Find the first cursor with the given id, or nil"
|
||||||
|
(cl-find-if #'(lambda (o) (and (mc/fake-cursor-p o)
|
||||||
|
(= id (overlay-get o 'mc-id))))
|
||||||
|
(overlays-in (point-min) (point-max))))
|
||||||
|
|
||||||
|
(defvar mc--stored-state-for-undo nil
|
||||||
|
"Variable to keep the state of the real cursor while undoing a fake one")
|
||||||
|
|
||||||
|
(defun activate-cursor-for-undo (id)
|
||||||
|
"Called when undoing to temporarily activate the fake cursor which action is being undone."
|
||||||
|
(let ((cursor (mc/cursor-with-id id)))
|
||||||
|
(when cursor
|
||||||
|
(setq mc--stored-state-for-undo (mc/store-current-state-in-overlay
|
||||||
|
(make-overlay (point) (point) nil nil t)))
|
||||||
|
(mc/pop-state-from-overlay cursor))))
|
||||||
|
|
||||||
|
(defun deactivate-cursor-after-undo (id)
|
||||||
|
"Called when undoing to reinstate the real cursor after undoing a fake one."
|
||||||
|
(when mc--stored-state-for-undo
|
||||||
|
(mc/create-fake-cursor-at-point id)
|
||||||
|
(mc/pop-state-from-overlay mc--stored-state-for-undo)
|
||||||
|
(setq mc--stored-state-for-undo nil)))
|
||||||
|
|
||||||
|
(defcustom mc/always-run-for-all nil
|
||||||
|
"Disables whitelisting and always executes commands for every fake cursor."
|
||||||
|
:type '(boolean)
|
||||||
|
:group 'multiple-cursors)
|
||||||
|
|
||||||
|
(defun mc/prompt-for-inclusion-in-whitelist (original-command)
|
||||||
|
"Asks the user, then adds the command either to the once-list or the all-list."
|
||||||
|
(let ((all-p (y-or-n-p (format "Do %S for all cursors?" original-command))))
|
||||||
|
(if all-p
|
||||||
|
(add-to-list 'mc/cmds-to-run-for-all original-command)
|
||||||
|
(add-to-list 'mc/cmds-to-run-once original-command))
|
||||||
|
(mc/save-lists)
|
||||||
|
all-p))
|
||||||
|
|
||||||
|
(defun mc/num-cursors ()
|
||||||
|
"The number of cursors (real and fake) in the buffer."
|
||||||
|
(1+ (cl-count-if 'mc/fake-cursor-p
|
||||||
|
(overlays-in (point-min) (point-max)))))
|
||||||
|
|
||||||
|
(defvar mc--this-command nil
|
||||||
|
"Used to store the original command being run.")
|
||||||
|
(make-variable-buffer-local 'mc--this-command)
|
||||||
|
|
||||||
|
(defun mc/make-a-note-of-the-command-being-run ()
|
||||||
|
"Used with pre-command-hook to store the original command being run.
|
||||||
|
Since that cannot be reliably determined in the post-command-hook.
|
||||||
|
|
||||||
|
Specifically, this-original-command isn't always right, because it could have
|
||||||
|
been remapped. And certain modes (cua comes to mind) will change their
|
||||||
|
remapping based on state. So a command that changes the state will afterwards
|
||||||
|
not be recognized through the command-remapping lookup."
|
||||||
|
(unless mc--executing-command-for-fake-cursor
|
||||||
|
(let ((cmd (or (command-remapping this-original-command)
|
||||||
|
this-original-command)))
|
||||||
|
(setq mc--this-command (and (not (eq cmd 'god-mode-self-insert))
|
||||||
|
cmd)))))
|
||||||
|
|
||||||
|
(defun mc/execute-this-command-for-all-cursors ()
|
||||||
|
"Wrap around `mc/execute-this-command-for-all-cursors-1' to protect hook."
|
||||||
|
(condition-case error
|
||||||
|
(mc/execute-this-command-for-all-cursors-1)
|
||||||
|
(error
|
||||||
|
(message "[mc] problem in `mc/execute-this-command-for-all-cursors': %s"
|
||||||
|
(error-message-string error)))))
|
||||||
|
|
||||||
|
;; execute-kbd-macro should never be run for fake cursors. The real cursor will
|
||||||
|
;; execute the keyboard macro, resulting in new commands in the command loop,
|
||||||
|
;; and the fake cursors can pick up on those instead.
|
||||||
|
(defadvice execute-kbd-macro (around skip-fake-cursors activate)
|
||||||
|
(unless mc--executing-command-for-fake-cursor
|
||||||
|
ad-do-it))
|
||||||
|
|
||||||
|
(defun mc/execute-this-command-for-all-cursors-1 ()
|
||||||
|
"Used with post-command-hook to execute supported commands for all cursors.
|
||||||
|
|
||||||
|
It uses two lists of commands to know what to do: the run-once
|
||||||
|
list and the run-for-all list. If a command is in neither of these lists,
|
||||||
|
it will prompt for the proper action and then save that preference.
|
||||||
|
|
||||||
|
Some commands are so unsupported that they are even prevented for
|
||||||
|
the original cursor, to inform about the lack of support."
|
||||||
|
(unless mc--executing-command-for-fake-cursor
|
||||||
|
|
||||||
|
(if (eq 1 (mc/num-cursors)) ;; no fake cursors? disable mc-mode
|
||||||
|
(multiple-cursors-mode 0)
|
||||||
|
(when this-original-command
|
||||||
|
(let ((original-command (or mc--this-command
|
||||||
|
(command-remapping this-original-command)
|
||||||
|
this-original-command)))
|
||||||
|
|
||||||
|
;; skip keyboard macros, since they will generate actual commands that are
|
||||||
|
;; also run in the command loop - we'll handle those later instead.
|
||||||
|
(when (functionp original-command)
|
||||||
|
|
||||||
|
;; if it's a lambda, we can't know if it's supported or not
|
||||||
|
;; - so go ahead and assume it's ok, because we're just optimistic like that
|
||||||
|
(if (or (not (symbolp original-command))
|
||||||
|
;; lambda registered by smartrep
|
||||||
|
(string-prefix-p "(" (symbol-name original-command)))
|
||||||
|
(mc/execute-command-for-all-fake-cursors original-command)
|
||||||
|
|
||||||
|
;; smartrep `intern's commands into own obarray to help
|
||||||
|
;; `describe-bindings'. So, let's re-`intern' here to
|
||||||
|
;; make the command comparable by `eq'.
|
||||||
|
(setq original-command (intern (symbol-name original-command)))
|
||||||
|
|
||||||
|
;; otherwise it's a symbol, and we can be more thorough
|
||||||
|
(if (get original-command 'mc--unsupported)
|
||||||
|
(message "%S is not supported with multiple cursors%s"
|
||||||
|
original-command
|
||||||
|
(get original-command 'mc--unsupported))
|
||||||
|
(when (and original-command
|
||||||
|
(not (memq original-command mc--default-cmds-to-run-once))
|
||||||
|
(not (memq original-command mc/cmds-to-run-once))
|
||||||
|
(or mc/always-run-for-all
|
||||||
|
(memq original-command mc--default-cmds-to-run-for-all)
|
||||||
|
(memq original-command mc/cmds-to-run-for-all)
|
||||||
|
(mc/prompt-for-inclusion-in-whitelist original-command)))
|
||||||
|
(mc/execute-command-for-all-fake-cursors original-command))))))))))
|
||||||
|
|
||||||
|
(defun mc/remove-fake-cursors ()
|
||||||
|
"Remove all fake cursors.
|
||||||
|
Do not use to conclude editing with multiple cursors. For that
|
||||||
|
you should disable multiple-cursors-mode."
|
||||||
|
(mc/for-each-fake-cursor
|
||||||
|
(mc/remove-fake-cursor cursor))
|
||||||
|
(when mc--max-cursors-original
|
||||||
|
(setq mc/max-cursors mc--max-cursors-original))
|
||||||
|
(setq mc--max-cursors-original nil))
|
||||||
|
|
||||||
|
(defun mc/keyboard-quit ()
|
||||||
|
"Deactivate mark if there are any active, otherwise exit multiple-cursors-mode."
|
||||||
|
(interactive)
|
||||||
|
(if (not (use-region-p))
|
||||||
|
(multiple-cursors-mode 0)
|
||||||
|
(deactivate-mark)))
|
||||||
|
|
||||||
|
(defvar mc/keymap nil
|
||||||
|
"Keymap while multiple cursors are active.
|
||||||
|
Main goal of the keymap is to rebind C-g and <return> to conclude
|
||||||
|
multiple cursors editing.")
|
||||||
|
(unless mc/keymap
|
||||||
|
(setq mc/keymap (make-sparse-keymap))
|
||||||
|
(define-key mc/keymap (kbd "C-g") 'mc/keyboard-quit)
|
||||||
|
(define-key mc/keymap (kbd "<return>") 'multiple-cursors-mode)
|
||||||
|
(when (fboundp 'phi-search)
|
||||||
|
(define-key mc/keymap (kbd "C-s") 'phi-search))
|
||||||
|
(when (fboundp 'phi-search-backward)
|
||||||
|
(define-key mc/keymap (kbd "C-r") 'phi-search-backward)))
|
||||||
|
|
||||||
|
(defun mc--all-equal (list)
|
||||||
|
"Are all the items in LIST equal?"
|
||||||
|
(let ((first (car list))
|
||||||
|
(all-equal t))
|
||||||
|
(while (and all-equal list)
|
||||||
|
(setq all-equal (equal first (car list)))
|
||||||
|
(setq list (cdr list)))
|
||||||
|
all-equal))
|
||||||
|
|
||||||
|
(defun mc--kill-ring-entries ()
|
||||||
|
"Return the latest kill-ring entry for each cursor.
|
||||||
|
The entries are returned in the order they are found in the buffer."
|
||||||
|
(let (entries)
|
||||||
|
(mc/for-each-cursor-ordered
|
||||||
|
(setq entries (cons (car (overlay-get cursor 'kill-ring)) entries)))
|
||||||
|
(reverse entries)))
|
||||||
|
|
||||||
|
(defun mc--maybe-set-killed-rectangle ()
|
||||||
|
"Add the latest kill-ring entry for each cursor to killed-rectangle.
|
||||||
|
So you can paste it in later with `yank-rectangle'."
|
||||||
|
(let ((entries (let (mc/max-cursors) (mc--kill-ring-entries))))
|
||||||
|
(unless (mc--all-equal entries)
|
||||||
|
(setq killed-rectangle entries))))
|
||||||
|
|
||||||
|
(defvar mc/unsupported-minor-modes '(company-mode auto-complete-mode flyspell-mode jedi-mode)
|
||||||
|
"List of minor-modes that does not play well with multiple-cursors.
|
||||||
|
They are temporarily disabled when multiple-cursors are active.")
|
||||||
|
|
||||||
|
(defvar mc/temporarily-disabled-minor-modes nil
|
||||||
|
"The list of temporarily disabled minor-modes.")
|
||||||
|
(make-variable-buffer-local 'mc/temporarily-disabled-minor-modes)
|
||||||
|
|
||||||
|
(defun mc/temporarily-disable-minor-mode (mode)
|
||||||
|
"If MODE is available and turned on, remember that and turn it off."
|
||||||
|
(when (and (boundp mode) (eval mode))
|
||||||
|
(add-to-list 'mc/temporarily-disabled-minor-modes mode)
|
||||||
|
(funcall mode -1)))
|
||||||
|
|
||||||
|
(defun mc/temporarily-disable-unsupported-minor-modes ()
|
||||||
|
(mapc 'mc/temporarily-disable-minor-mode mc/unsupported-minor-modes))
|
||||||
|
|
||||||
|
(defun mc/enable-minor-mode (mode)
|
||||||
|
(funcall mode 1))
|
||||||
|
|
||||||
|
(defun mc/enable-temporarily-disabled-minor-modes ()
|
||||||
|
(mapc 'mc/enable-minor-mode mc/temporarily-disabled-minor-modes)
|
||||||
|
(setq mc/temporarily-disabled-minor-modes nil))
|
||||||
|
|
||||||
|
(defcustom mc/mode-line
|
||||||
|
`(" mc:" (:eval (format ,(propertize "%d" 'face 'font-lock-warning-face)
|
||||||
|
(mc/num-cursors))))
|
||||||
|
"What to display in the mode line while multiple-cursors-mode is active."
|
||||||
|
:group 'multiple-cursors)
|
||||||
|
(put 'mc/mode-line 'risky-local-variable t)
|
||||||
|
|
||||||
|
;;;###autoload
|
||||||
|
(define-minor-mode multiple-cursors-mode
|
||||||
|
"Mode while multiple cursors are active."
|
||||||
|
nil mc/mode-line mc/keymap
|
||||||
|
(if multiple-cursors-mode
|
||||||
|
(progn
|
||||||
|
(mc/temporarily-disable-unsupported-minor-modes)
|
||||||
|
(add-hook 'pre-command-hook 'mc/make-a-note-of-the-command-being-run nil t)
|
||||||
|
(add-hook 'post-command-hook 'mc/execute-this-command-for-all-cursors t t)
|
||||||
|
(run-hooks 'multiple-cursors-mode-enabled-hook))
|
||||||
|
(remove-hook 'post-command-hook 'mc/execute-this-command-for-all-cursors t)
|
||||||
|
(remove-hook 'pre-command-hook 'mc/make-a-note-of-the-command-being-run t)
|
||||||
|
(setq mc--this-command nil)
|
||||||
|
(mc--maybe-set-killed-rectangle)
|
||||||
|
(mc/remove-fake-cursors)
|
||||||
|
(mc/enable-temporarily-disabled-minor-modes)
|
||||||
|
(run-hooks 'multiple-cursors-mode-disabled-hook)))
|
||||||
|
|
||||||
|
(add-hook 'after-revert-hook #'(lambda () (multiple-cursors-mode 0)))
|
||||||
|
|
||||||
|
(defun mc/maybe-multiple-cursors-mode ()
|
||||||
|
"Enable multiple-cursors-mode if there is more than one currently active cursor."
|
||||||
|
(if (> (mc/num-cursors) 1)
|
||||||
|
(multiple-cursors-mode 1)
|
||||||
|
(multiple-cursors-mode 0)))
|
||||||
|
|
||||||
|
(defmacro unsupported-cmd (cmd msg)
|
||||||
|
"Adds command to list of unsupported commands and prevents it
|
||||||
|
from being executed if in multiple-cursors-mode."
|
||||||
|
`(progn
|
||||||
|
(put (quote ,cmd) 'mc--unsupported ,msg)
|
||||||
|
(defadvice ,cmd (around unsupported-advice activate)
|
||||||
|
"command isn't supported with multiple cursors"
|
||||||
|
(unless (and multiple-cursors-mode (called-interactively-p 'any))
|
||||||
|
ad-do-it))))
|
||||||
|
|
||||||
|
;; Commands that does not work with multiple-cursors
|
||||||
|
(unsupported-cmd isearch-forward ". Feel free to add a compatible version.")
|
||||||
|
(unsupported-cmd isearch-backward ". Feel free to add a compatible version.")
|
||||||
|
|
||||||
|
;; Make sure pastes from other programs are added to all kill-rings when yanking
|
||||||
|
(defadvice current-kill (before interprogram-paste-for-all-cursors activate)
|
||||||
|
(let ((interprogram-paste (and (= n 0)
|
||||||
|
interprogram-paste-function
|
||||||
|
(funcall interprogram-paste-function))))
|
||||||
|
(when interprogram-paste
|
||||||
|
;; Add interprogram-paste to normal kill ring, just
|
||||||
|
;; like current-kill usually does for itself.
|
||||||
|
;; We have to do the work for it tho, since the funcall only returns
|
||||||
|
;; something once. It is not a pure function.
|
||||||
|
(let ((interprogram-cut-function nil))
|
||||||
|
(if (listp interprogram-paste)
|
||||||
|
(mapc 'kill-new (nreverse interprogram-paste))
|
||||||
|
(kill-new interprogram-paste))
|
||||||
|
;; And then add interprogram-paste to the kill-rings
|
||||||
|
;; of all the other cursors too.
|
||||||
|
(mc/for-each-fake-cursor
|
||||||
|
(let ((kill-ring (overlay-get cursor 'kill-ring))
|
||||||
|
(kill-ring-yank-pointer (overlay-get cursor 'kill-ring-yank-pointer)))
|
||||||
|
(if (listp interprogram-paste)
|
||||||
|
(mapc 'kill-new (nreverse interprogram-paste))
|
||||||
|
(kill-new interprogram-paste))
|
||||||
|
(overlay-put cursor 'kill-ring kill-ring)
|
||||||
|
(overlay-put cursor 'kill-ring-yank-pointer kill-ring-yank-pointer)))))))
|
||||||
|
|
||||||
|
(defcustom mc/list-file (locate-user-emacs-file ".mc-lists.el")
|
||||||
|
"The position of the file that keeps track of your preferences
|
||||||
|
for running commands with multiple cursors."
|
||||||
|
:type 'file
|
||||||
|
:group 'multiple-cursors)
|
||||||
|
|
||||||
|
(defun mc/dump-list (list-symbol)
|
||||||
|
"Insert (setq 'LIST-SYMBOL LIST-VALUE) to current buffer."
|
||||||
|
(cl-symbol-macrolet ((value (symbol-value list-symbol)))
|
||||||
|
(insert "(setq " (symbol-name list-symbol) "\n"
|
||||||
|
" '(")
|
||||||
|
(newline-and-indent)
|
||||||
|
(set list-symbol
|
||||||
|
(sort value (lambda (x y) (string-lessp (symbol-name x)
|
||||||
|
(symbol-name y)))))
|
||||||
|
(mapc #'(lambda (cmd) (insert (format "%S" cmd)) (newline-and-indent))
|
||||||
|
value)
|
||||||
|
(insert "))")
|
||||||
|
(newline)))
|
||||||
|
|
||||||
|
(defun mc/save-lists ()
|
||||||
|
"Saves preferences for running commands with multiple cursors to `mc/list-file'"
|
||||||
|
(with-temp-file mc/list-file
|
||||||
|
(emacs-lisp-mode)
|
||||||
|
(insert ";; This file is automatically generated by the multiple-cursors extension.")
|
||||||
|
(newline)
|
||||||
|
(insert ";; It keeps track of your preferences for running commands with multiple cursors.")
|
||||||
|
(newline)
|
||||||
|
(newline)
|
||||||
|
(mc/dump-list 'mc/cmds-to-run-for-all)
|
||||||
|
(newline)
|
||||||
|
(mc/dump-list 'mc/cmds-to-run-once)))
|
||||||
|
|
||||||
|
(defvar mc/cmds-to-run-once nil
|
||||||
|
"Commands to run only once in multiple-cursors-mode.")
|
||||||
|
|
||||||
|
(defvar mc--default-cmds-to-run-once nil
|
||||||
|
"Default set of commands to run only once in multiple-cursors-mode.")
|
||||||
|
|
||||||
|
(setq mc--default-cmds-to-run-once '(mc/edit-lines
|
||||||
|
mc/edit-ends-of-lines
|
||||||
|
mc/edit-beginnings-of-lines
|
||||||
|
mc/mark-next-like-this
|
||||||
|
mc/mark-next-like-this-word
|
||||||
|
mc/mark-next-like-this-symbol
|
||||||
|
mc/mark-next-word-like-this
|
||||||
|
mc/mark-next-symbol-like-this
|
||||||
|
mc/mark-previous-like-this
|
||||||
|
mc/mark-previous-like-this-word
|
||||||
|
mc/mark-previous-like-this-symbol
|
||||||
|
mc/mark-previous-word-like-this
|
||||||
|
mc/mark-previous-symbol-like-this
|
||||||
|
mc/mark-all-like-this
|
||||||
|
mc/mark-all-words-like-this
|
||||||
|
mc/mark-all-symbols-like-this
|
||||||
|
mc/mark-more-like-this-extended
|
||||||
|
mc/mark-all-like-this-in-defun
|
||||||
|
mc/mark-all-words-like-this-in-defun
|
||||||
|
mc/mark-all-symbols-like-this-in-defun
|
||||||
|
mc/mark-all-like-this-dwim
|
||||||
|
mc/mark-all-dwim
|
||||||
|
mc/mark-sgml-tag-pair
|
||||||
|
mc/insert-numbers
|
||||||
|
mc/insert-letters
|
||||||
|
mc/sort-regions
|
||||||
|
mc/reverse-regions
|
||||||
|
mc/cycle-forward
|
||||||
|
mc/cycle-backward
|
||||||
|
mc/add-cursor-on-click
|
||||||
|
mc/mark-pop
|
||||||
|
mc/add-cursors-to-all-matches
|
||||||
|
mc/mmlte--left
|
||||||
|
mc/mmlte--right
|
||||||
|
mc/mmlte--up
|
||||||
|
mc/mmlte--down
|
||||||
|
mc/unmark-next-like-this
|
||||||
|
mc/unmark-previous-like-this
|
||||||
|
mc/skip-to-next-like-this
|
||||||
|
mc/skip-to-previous-like-this
|
||||||
|
rrm/switch-to-multiple-cursors
|
||||||
|
mc-hide-unmatched-lines-mode
|
||||||
|
hum/keyboard-quit
|
||||||
|
hum/unhide-invisible-overlays
|
||||||
|
save-buffer
|
||||||
|
ido-exit-minibuffer
|
||||||
|
ivy-done
|
||||||
|
exit-minibuffer
|
||||||
|
minibuffer-complete-and-exit
|
||||||
|
execute-extended-command
|
||||||
|
undo
|
||||||
|
redo
|
||||||
|
undo-tree-undo
|
||||||
|
undo-tree-redo
|
||||||
|
universal-argument
|
||||||
|
universal-argument-more
|
||||||
|
universal-argument-other-key
|
||||||
|
negative-argument
|
||||||
|
digit-argument
|
||||||
|
top-level
|
||||||
|
recenter-top-bottom
|
||||||
|
describe-mode
|
||||||
|
describe-key-1
|
||||||
|
describe-function
|
||||||
|
describe-bindings
|
||||||
|
describe-prefix-bindings
|
||||||
|
view-echo-area-messages
|
||||||
|
other-window
|
||||||
|
kill-buffer-and-window
|
||||||
|
split-window-right
|
||||||
|
split-window-below
|
||||||
|
delete-other-windows
|
||||||
|
toggle-window-split
|
||||||
|
mwheel-scroll
|
||||||
|
scroll-up-command
|
||||||
|
scroll-down-command
|
||||||
|
mouse-set-point
|
||||||
|
mouse-drag-region
|
||||||
|
quit-window
|
||||||
|
toggle-read-only
|
||||||
|
windmove-left
|
||||||
|
windmove-right
|
||||||
|
windmove-up
|
||||||
|
windmove-down))
|
||||||
|
|
||||||
|
(defvar mc--default-cmds-to-run-for-all nil
|
||||||
|
"Default set of commands that should be mirrored by all cursors")
|
||||||
|
|
||||||
|
(setq mc--default-cmds-to-run-for-all '(mc/keyboard-quit
|
||||||
|
self-insert-command
|
||||||
|
quoted-insert
|
||||||
|
previous-line
|
||||||
|
next-line
|
||||||
|
newline
|
||||||
|
newline-and-indent
|
||||||
|
open-line
|
||||||
|
delete-blank-lines
|
||||||
|
transpose-chars
|
||||||
|
transpose-lines
|
||||||
|
transpose-paragraphs
|
||||||
|
transpose-regions
|
||||||
|
join-line
|
||||||
|
right-char
|
||||||
|
right-word
|
||||||
|
forward-char
|
||||||
|
forward-word
|
||||||
|
left-char
|
||||||
|
left-word
|
||||||
|
backward-char
|
||||||
|
backward-word
|
||||||
|
forward-paragraph
|
||||||
|
backward-paragraph
|
||||||
|
upcase-word
|
||||||
|
downcase-word
|
||||||
|
capitalize-word
|
||||||
|
forward-list
|
||||||
|
backward-list
|
||||||
|
hippie-expand
|
||||||
|
hippie-expand-lines
|
||||||
|
yank
|
||||||
|
yank-pop
|
||||||
|
append-next-kill
|
||||||
|
kill-word
|
||||||
|
kill-line
|
||||||
|
kill-whole-line
|
||||||
|
backward-kill-word
|
||||||
|
backward-delete-char-untabify
|
||||||
|
delete-char delete-forward-char
|
||||||
|
delete-backward-char
|
||||||
|
py-electric-backspace
|
||||||
|
c-electric-backspace
|
||||||
|
org-delete-backward-char
|
||||||
|
cperl-electric-backspace
|
||||||
|
python-indent-dedent-line-backspace
|
||||||
|
paredit-backward-delete
|
||||||
|
autopair-backspace
|
||||||
|
just-one-space
|
||||||
|
zap-to-char
|
||||||
|
end-of-line
|
||||||
|
set-mark-command
|
||||||
|
exchange-point-and-mark
|
||||||
|
cua-set-mark
|
||||||
|
cua-replace-region
|
||||||
|
cua-delete-region
|
||||||
|
move-end-of-line
|
||||||
|
beginning-of-line
|
||||||
|
move-beginning-of-line
|
||||||
|
kill-ring-save
|
||||||
|
back-to-indentation
|
||||||
|
subword-forward
|
||||||
|
subword-backward
|
||||||
|
subword-mark
|
||||||
|
subword-kill
|
||||||
|
subword-backward-kill
|
||||||
|
subword-transpose
|
||||||
|
subword-capitalize
|
||||||
|
subword-upcase
|
||||||
|
subword-downcase
|
||||||
|
er/expand-region
|
||||||
|
er/contract-region
|
||||||
|
smart-forward
|
||||||
|
smart-backward
|
||||||
|
smart-up
|
||||||
|
smart-down))
|
||||||
|
|
||||||
|
(defvar mc/cmds-to-run-for-all nil
|
||||||
|
"Commands to run for all cursors in multiple-cursors-mode")
|
||||||
|
|
||||||
|
;; load, but no errors if it does not exist yet please, and no message
|
||||||
|
;; while loading
|
||||||
|
(load mc/list-file 'noerror 'nomessage)
|
||||||
|
|
||||||
|
(provide 'multiple-cursors-core)
|
||||||
|
|
||||||
|
;; Local Variables:
|
||||||
|
;; coding: utf-8
|
||||||
|
;; End:
|
||||||
|
|
||||||
|
;;; multiple-cursors-core.el ends here
|
|
@ -0,0 +1,5 @@
|
||||||
|
(define-package "multiple-cursors" "20170813.38" "Multiple cursors for Emacs."
|
||||||
|
'((cl-lib "0.5")))
|
||||||
|
;; Local Variables:
|
||||||
|
;; no-byte-compile: t
|
||||||
|
;; End:
|
|
@ -0,0 +1,199 @@
|
||||||
|
;;; multiple-cursors.el --- Multiple cursors for emacs.
|
||||||
|
|
||||||
|
;; Copyright (C) 2012-2016 Magnar Sveen
|
||||||
|
|
||||||
|
;; Author: Magnar Sveen <magnars@gmail.com>
|
||||||
|
;; Version: 1.4.0
|
||||||
|
;; Keywords: editing cursors
|
||||||
|
|
||||||
|
;; 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 of the License, 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 this program. If not, see <http://www.gnu.org/licenses/>.
|
||||||
|
|
||||||
|
;;; Commentary:
|
||||||
|
|
||||||
|
;; Multiple cursors for Emacs. This is some pretty crazy functionality, so yes,
|
||||||
|
;; there are kinks. Don't be afraid tho, I've been using it since 2011 with
|
||||||
|
;; great success and much merriment.
|
||||||
|
|
||||||
|
;; ## Basic usage
|
||||||
|
|
||||||
|
;; Start out with:
|
||||||
|
|
||||||
|
;; (require 'multiple-cursors)
|
||||||
|
|
||||||
|
;; Then you have to set up your keybindings - multiple-cursors doesn't presume to
|
||||||
|
;; know how you'd like them laid out. Here are some examples:
|
||||||
|
|
||||||
|
;; When you have an active region that spans multiple lines, the following will
|
||||||
|
;; add a cursor to each line:
|
||||||
|
|
||||||
|
;; (global-set-key (kbd "C-S-c C-S-c") 'mc/edit-lines)
|
||||||
|
|
||||||
|
;; When you want to add multiple cursors not based on continuous lines, but based on
|
||||||
|
;; keywords in the buffer, use:
|
||||||
|
|
||||||
|
;; (global-set-key (kbd "C->") 'mc/mark-next-like-this)
|
||||||
|
;; (global-set-key (kbd "C-<") 'mc/mark-previous-like-this)
|
||||||
|
;; (global-set-key (kbd "C-c C-<") 'mc/mark-all-like-this)
|
||||||
|
|
||||||
|
;; First mark the word, then add more cursors.
|
||||||
|
|
||||||
|
;; To get out of multiple-cursors-mode, press `<return>` or `C-g`. The latter will
|
||||||
|
;; first disable multiple regions before disabling multiple cursors. If you want to
|
||||||
|
;; insert a newline in multiple-cursors-mode, use `C-j`.
|
||||||
|
|
||||||
|
;; ## Video
|
||||||
|
|
||||||
|
;; You can [watch an intro to multiple-cursors at Emacs Rocks](http://emacsrocks.com/e13.html).
|
||||||
|
|
||||||
|
;; ## Command overview
|
||||||
|
|
||||||
|
;; ### Mark one more occurrence
|
||||||
|
|
||||||
|
;; - `mc/mark-next-like-this`: Adds a cursor and region at the next part of the buffer forwards that matches the current region.
|
||||||
|
;; - `mc/mark-next-like-this-word`: Adds a cursor and region at the next part of the buffer forwards that matches the current region, if no region is selected it selects the word at the point.
|
||||||
|
;; - `mc/mark-next-like-this-symbol`: Adds a cursor and region at the next part of the buffer forwards that matches the current region, if no region is selected it selects the symbol at the point.
|
||||||
|
;; - `mc/mark-next-word-like-this`: Like `mc/mark-next-like-this` but only for whole words.
|
||||||
|
;; - `mc/mark-next-symbol-like-this`: Like `mc/mark-next-like-this` but only for whole symbols.
|
||||||
|
;; - `mc/mark-previous-like-this`: Adds a cursor and region at the next part of the buffer backwards that matches the current region.
|
||||||
|
;; - `mc/mark-previous-word-like-this`: Like `mc/mark-previous-like-this` but only for whole words.
|
||||||
|
;; - `mc/mark-previous-symbol-like-this`: Like `mc/mark-previous-like-this` but only for whole symbols.
|
||||||
|
;; - `mc/mark-more-like-this-extended`: Use arrow keys to quickly mark/skip next/previous occurances.
|
||||||
|
;; - `mc/add-cursor-on-click`: Bind to a mouse event to add cursors by clicking. See tips-section.
|
||||||
|
|
||||||
|
;; ### Mark many occurrences
|
||||||
|
|
||||||
|
;; - `mc/mark-all-like-this`: Marks all parts of the buffer that matches the current region.
|
||||||
|
;; - `mc/mark-all-words-like-this`: Like `mc/mark-all-like-this` but only for whole words.
|
||||||
|
;; - `mc/mark-all-symbols-like-this`: Like `mc/mark-all-like-this` but only for whole symbols.
|
||||||
|
;; - `mc/mark-all-in-region`: Prompts for a string to match in the region, adding cursors to all of them.
|
||||||
|
;; - `mc/mark-all-like-this-in-defun`: Marks all parts of the current defun that matches the current region.
|
||||||
|
;; - `mc/mark-all-words-like-this-in-defun`: Like `mc/mark-all-like-this-in-defun` but only for whole words.
|
||||||
|
;; - `mc/mark-all-symbols-like-this-in-defun`: Like `mc/mark-all-like-this-in-defun` but only for whole symbols.
|
||||||
|
;; - `mc/mark-all-like-this-dwim`: Tries to be smart about marking everything you want. Can be pressed multiple times.
|
||||||
|
|
||||||
|
;; ### Special
|
||||||
|
|
||||||
|
;; - `set-rectangular-region-anchor`: Think of this one as `set-mark` except you're marking a rectangular region.
|
||||||
|
;; - `mc/mark-sgml-tag-pair`: Mark the current opening and closing tag.
|
||||||
|
;; - `mc/insert-numbers`: Insert increasing numbers for each cursor, top to bottom.
|
||||||
|
;; - `mc/insert-letters`: Insert increasing letters for each cursor, top to bottom.
|
||||||
|
;; - `mc/sort-regions`: Sort the marked regions alphabetically.
|
||||||
|
;; - `mc/reverse-regions`: Reverse the order of the marked regions.
|
||||||
|
|
||||||
|
;; ## Tips and tricks
|
||||||
|
|
||||||
|
;; - To get out of multiple-cursors-mode, press `<return>` or `C-g`. The latter will
|
||||||
|
;; first disable multiple regions before disabling multiple cursors. If you want to
|
||||||
|
;; insert a newline in multiple-cursors-mode, use `C-j`.
|
||||||
|
;;
|
||||||
|
;; - Sometimes you end up with cursors outside of your view. You can
|
||||||
|
;; scroll the screen to center on each cursor with `C-v` and `M-v`.
|
||||||
|
;;
|
||||||
|
;; - Try pressing `mc/mark-next-like-this` with no region selected. It will just add a cursor
|
||||||
|
;; on the next line.
|
||||||
|
;;
|
||||||
|
;; - Try pressing `mc/mark-next-like-this-word` or
|
||||||
|
;; `mc/mark-next-like-this-symbol` with no region selected. It will
|
||||||
|
;; mark the symbol and add a cursor at the next occurance
|
||||||
|
;;
|
||||||
|
;; - Try pressing `mc/mark-all-like-this-dwim` on a tagname in html-mode.
|
||||||
|
;;
|
||||||
|
;; - Notice that the number of cursors active can be seen in the modeline.
|
||||||
|
;;
|
||||||
|
;; - If you get out of multiple-cursors-mode and yank - it will yank only
|
||||||
|
;; from the kill-ring of main cursor. To yank from the kill-rings of
|
||||||
|
;; every cursor use yank-rectangle, normally found at C-x r y.
|
||||||
|
;;
|
||||||
|
;; - You can use `mc/reverse-regions` with nothing selected and just one cursor.
|
||||||
|
;; It will then flip the sexp at point and the one below it.
|
||||||
|
;;
|
||||||
|
;; - If you would like to keep the global bindings clean, and get custom keybindings
|
||||||
|
;; when the region is active, you can try [region-bindings-mode](https://github.com/fgallina/region-bindings-mode).
|
||||||
|
;;
|
||||||
|
;; BTW, I highly recommend adding `mc/mark-next-like-this` to a key binding that's
|
||||||
|
;; right next to the key for `er/expand-region`.
|
||||||
|
|
||||||
|
;; ### Binding mouse events
|
||||||
|
|
||||||
|
;; To override a mouse event, you will likely have to also unbind the
|
||||||
|
;; `down-mouse` part of the event. Like this:
|
||||||
|
;;
|
||||||
|
;; (global-unset-key (kbd "M-<down-mouse-1>"))
|
||||||
|
;; (global-set-key (kbd "M-<mouse-1>") 'mc/add-cursor-on-click)
|
||||||
|
;;
|
||||||
|
;; Or you can do like me and find an unused, but less convenient, binding:
|
||||||
|
;;
|
||||||
|
;; (global-set-key (kbd "C-S-<mouse-1>") 'mc/add-cursor-on-click)
|
||||||
|
|
||||||
|
;; ## Unknown commands
|
||||||
|
|
||||||
|
;; Multiple-cursors uses two lists of commands to know what to do: the run-once list
|
||||||
|
;; and the run-for-all list. It comes with a set of defaults, but it would be beyond silly
|
||||||
|
;; to try and include all the known Emacs commands.
|
||||||
|
|
||||||
|
;; So that's why multiple-cursors occasionally asks what to do about a command. It will
|
||||||
|
;; then remember your choice by saving it in `~/.emacs.d/.mc-lists.el`. You can change
|
||||||
|
;; the location with:
|
||||||
|
|
||||||
|
;; (setq mc/list-file "/my/preferred/file")
|
||||||
|
|
||||||
|
;; ## Known limitations
|
||||||
|
|
||||||
|
;; * isearch-forward and isearch-backward aren't supported with multiple cursors.
|
||||||
|
;; You should feel free to add a simplified version that can work with it.
|
||||||
|
;; * Commands run with `M-x` won't be repeated for all cursors.
|
||||||
|
;; * All key bindings that refer to lambdas are always run for all cursors. If you
|
||||||
|
;; need to limit it, you will have to give it a name.
|
||||||
|
;; * Redo might screw with your cursors. Undo works very well.
|
||||||
|
|
||||||
|
;; ## Contribute
|
||||||
|
|
||||||
|
;; Yes, please do. There's a suite of tests, so remember to add tests for your
|
||||||
|
;; specific feature, or I might break it later.
|
||||||
|
|
||||||
|
;; You'll find the repo at:
|
||||||
|
|
||||||
|
;; https://github.com/magnars/multiple-cursors.el
|
||||||
|
|
||||||
|
;; To fetch the test dependencies:
|
||||||
|
|
||||||
|
;; $ cd /path/to/multiple-cursors
|
||||||
|
;; $ git submodule update --init
|
||||||
|
|
||||||
|
;; Run the tests with:
|
||||||
|
|
||||||
|
;; $ ./util/ecukes/ecukes --graphical
|
||||||
|
|
||||||
|
;; ## Contributors
|
||||||
|
|
||||||
|
;; * [Takafumi Arakaki](https://github.com/tkf) made .mc-lists.el diff friendly
|
||||||
|
;; * [Marco Baringer](https://github.com/segv) contributed looping to mc/cycle and adding cursors without region for mark-more.
|
||||||
|
;; * [Ivan Andrus](https://github.com/gvol) added showing number of cursors in mode-line
|
||||||
|
;; * [Fuco](https://github.com/Fuco1) added the first version of `mc/mark-all-like-this-dwim`
|
||||||
|
|
||||||
|
;; Thanks!
|
||||||
|
|
||||||
|
;;; Code:
|
||||||
|
|
||||||
|
(require 'mc-edit-lines)
|
||||||
|
(require 'mc-cycle-cursors)
|
||||||
|
(require 'mc-mark-more)
|
||||||
|
(require 'mc-mark-pop)
|
||||||
|
(require 'rectangular-region-mode)
|
||||||
|
(require 'mc-separate-operations)
|
||||||
|
(require 'mc-hide-unmatched-lines-mode)
|
||||||
|
|
||||||
|
(provide 'multiple-cursors)
|
||||||
|
|
||||||
|
;;; multiple-cursors.el ends here
|
|
@ -0,0 +1,125 @@
|
||||||
|
;;; rectangular-region-mode.el
|
||||||
|
|
||||||
|
;; Copyright (C) 2012-2016 Magnar Sveen
|
||||||
|
|
||||||
|
;; Author: Magnar Sveen <magnars@gmail.com>
|
||||||
|
;; Keywords: editing cursors
|
||||||
|
|
||||||
|
;; 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 of the License, 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 this program. If not, see <http://www.gnu.org/licenses/>.
|
||||||
|
|
||||||
|
;;; Commentary:
|
||||||
|
|
||||||
|
;; (global-set-key (kbd "H-SPC") 'set-rectangular-region-anchor)
|
||||||
|
|
||||||
|
;; Think of this one as `set-mark` except you're marking a rectangular region. It is
|
||||||
|
;; an exceedingly quick way of adding multiple cursors to multiple lines.
|
||||||
|
|
||||||
|
;;; Code:
|
||||||
|
|
||||||
|
(require 'multiple-cursors-core)
|
||||||
|
|
||||||
|
(defvar rrm/anchor (make-marker)
|
||||||
|
"The position in the buffer that anchors the rectangular region.")
|
||||||
|
|
||||||
|
(defvar rectangular-region-mode-map (make-sparse-keymap)
|
||||||
|
"Keymap for rectangular region is mainly for rebinding C-g")
|
||||||
|
|
||||||
|
(define-key rectangular-region-mode-map (kbd "C-g") 'rrm/keyboard-quit)
|
||||||
|
(define-key rectangular-region-mode-map (kbd "<return>") 'rrm/switch-to-multiple-cursors)
|
||||||
|
|
||||||
|
(defvar rectangular-region-mode nil)
|
||||||
|
|
||||||
|
(defun rrm/keyboard-quit ()
|
||||||
|
"Exit rectangular-region-mode."
|
||||||
|
(interactive)
|
||||||
|
(rectangular-region-mode 0)
|
||||||
|
(rrm/remove-rectangular-region-overlays)
|
||||||
|
(deactivate-mark))
|
||||||
|
|
||||||
|
;; Bind this to a key (for instance H-SPC) to start rectangular-region-mode
|
||||||
|
;;;###autoload
|
||||||
|
(defun set-rectangular-region-anchor ()
|
||||||
|
"Anchors the rectangular region at point.
|
||||||
|
|
||||||
|
Think of this one as `set-mark' except you're marking a rectangular region. It is
|
||||||
|
an exceedingly quick way of adding multiple cursors to multiple lines."
|
||||||
|
(interactive)
|
||||||
|
(set-marker rrm/anchor (point))
|
||||||
|
(push-mark (point))
|
||||||
|
(rectangular-region-mode 1))
|
||||||
|
|
||||||
|
(defun rrm/remove-rectangular-region-overlays ()
|
||||||
|
"Remove all rectangular-region overlays."
|
||||||
|
(mc/remove-fake-cursors)
|
||||||
|
(mapc #'(lambda (o)
|
||||||
|
(when (eq (overlay-get o 'type) 'additional-region)
|
||||||
|
(delete-overlay o)))
|
||||||
|
(overlays-in (point-min) (point-max))))
|
||||||
|
|
||||||
|
(defun rrm/repaint ()
|
||||||
|
"Start from the anchor and draw a rectangle between it and point."
|
||||||
|
(if (not rectangular-region-mode)
|
||||||
|
(remove-hook 'post-command-hook 'rrm/repaint t)
|
||||||
|
;; else
|
||||||
|
(rrm/remove-rectangular-region-overlays)
|
||||||
|
(let* ((annoying-arrows-mode nil)
|
||||||
|
(point-column (current-column))
|
||||||
|
(point-line (line-number-at-pos))
|
||||||
|
(anchor-column (save-excursion (goto-char rrm/anchor) (current-column)))
|
||||||
|
(anchor-line (save-excursion (goto-char rrm/anchor) (line-number-at-pos)))
|
||||||
|
(left-column (if (< point-column anchor-column) point-column anchor-column))
|
||||||
|
(right-column (if (> point-column anchor-column) point-column anchor-column))
|
||||||
|
(navigation-step (if (< point-line anchor-line) 1 -1)))
|
||||||
|
(move-to-column anchor-column)
|
||||||
|
(set-mark (point))
|
||||||
|
(move-to-column point-column)
|
||||||
|
(mc/save-excursion
|
||||||
|
(while (not (= anchor-line (line-number-at-pos)))
|
||||||
|
(forward-line navigation-step)
|
||||||
|
(move-to-column anchor-column)
|
||||||
|
(when (= anchor-column (current-column))
|
||||||
|
(set-mark (point))
|
||||||
|
(move-to-column point-column)
|
||||||
|
(when (= point-column (current-column))
|
||||||
|
(mc/create-fake-cursor-at-point))))))))
|
||||||
|
|
||||||
|
(defun rrm/switch-to-multiple-cursors (&rest forms)
|
||||||
|
"Switch from rectangular-region-mode to multiple-cursors-mode."
|
||||||
|
(interactive)
|
||||||
|
(rectangular-region-mode 0)
|
||||||
|
(multiple-cursors-mode 1))
|
||||||
|
|
||||||
|
(defadvice er/expand-region (before switch-from-rrm-to-mc activate)
|
||||||
|
(when rectangular-region-mode
|
||||||
|
(rrm/switch-to-multiple-cursors)))
|
||||||
|
|
||||||
|
(defadvice kill-ring-save (before switch-from-rrm-to-mc activate)
|
||||||
|
(when rectangular-region-mode
|
||||||
|
(rrm/switch-to-multiple-cursors)))
|
||||||
|
|
||||||
|
;;;###autoload
|
||||||
|
(define-minor-mode rectangular-region-mode
|
||||||
|
"A mode for creating a rectangular region to edit"
|
||||||
|
nil " rr" rectangular-region-mode-map
|
||||||
|
(if rectangular-region-mode
|
||||||
|
(progn
|
||||||
|
(add-hook 'after-change-functions 'rrm/switch-to-multiple-cursors t t)
|
||||||
|
(add-hook 'post-command-hook 'rrm/repaint t t))
|
||||||
|
(remove-hook 'after-change-functions 'rrm/switch-to-multiple-cursors t)
|
||||||
|
(remove-hook 'post-command-hook 'rrm/repaint t)
|
||||||
|
(set-marker rrm/anchor nil)))
|
||||||
|
|
||||||
|
(provide 'rectangular-region-mode)
|
||||||
|
|
||||||
|
;;; rectangular-region-mode.el ends here
|
|
@ -0,0 +1,77 @@
|
||||||
|
;;; page-break-lines-autoloads.el --- automatically extracted autoloads
|
||||||
|
;;
|
||||||
|
;;; Code:
|
||||||
|
(add-to-list 'load-path (directory-file-name (or (file-name-directory #$) (car load-path))))
|
||||||
|
|
||||||
|
;;;### (autoloads nil "page-break-lines" "page-break-lines.el" (22830
|
||||||
|
;;;;;; 24428 923863 486000))
|
||||||
|
;;; Generated autoloads from page-break-lines.el
|
||||||
|
|
||||||
|
(defvar page-break-lines-char 9472 "\
|
||||||
|
Character used to render page break lines.")
|
||||||
|
|
||||||
|
(custom-autoload 'page-break-lines-char "page-break-lines" t)
|
||||||
|
|
||||||
|
(defvar page-break-lines-lighter " PgLn" "\
|
||||||
|
Mode-line indicator for `page-break-lines-mode'.")
|
||||||
|
|
||||||
|
(custom-autoload 'page-break-lines-lighter "page-break-lines" t)
|
||||||
|
|
||||||
|
(defvar page-break-lines-modes '(emacs-lisp-mode lisp-mode scheme-mode compilation-mode outline-mode help-mode) "\
|
||||||
|
Modes in which to enable `page-break-lines-mode'.")
|
||||||
|
|
||||||
|
(custom-autoload 'page-break-lines-modes "page-break-lines" t)
|
||||||
|
|
||||||
|
(defface page-break-lines '((t :inherit font-lock-comment-face :bold nil :italic nil)) "\
|
||||||
|
Face used to colorize page break lines.
|
||||||
|
If using :bold or :italic, please ensure `page-break-lines-char'
|
||||||
|
is available in that variant of your font, otherwise it may be
|
||||||
|
displayed as a junk character." :group (quote page-break-lines))
|
||||||
|
|
||||||
|
(autoload 'page-break-lines-mode "page-break-lines" "\
|
||||||
|
Toggle Page Break Lines mode.
|
||||||
|
|
||||||
|
In Page Break mode, page breaks (^L characters) are displayed as a
|
||||||
|
horizontal line of `page-break-string-char' characters.
|
||||||
|
|
||||||
|
\(fn &optional ARG)" t nil)
|
||||||
|
|
||||||
|
(define-obsolete-function-alias 'turn-on-page-break-lines-mode 'page-break-lines-mode)
|
||||||
|
|
||||||
|
(autoload 'page-break-lines-mode-maybe "page-break-lines" "\
|
||||||
|
Enable `page-break-lines-mode' in the current buffer if desired.
|
||||||
|
When `major-mode' is listed in `page-break-lines-modes', then
|
||||||
|
`page-break-lines-mode' will be enabled.
|
||||||
|
|
||||||
|
\(fn)" nil nil)
|
||||||
|
|
||||||
|
(defvar global-page-break-lines-mode nil "\
|
||||||
|
Non-nil if Global Page-Break-Lines mode is enabled.
|
||||||
|
See the `global-page-break-lines-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 `global-page-break-lines-mode'.")
|
||||||
|
|
||||||
|
(custom-autoload 'global-page-break-lines-mode "page-break-lines" nil)
|
||||||
|
|
||||||
|
(autoload 'global-page-break-lines-mode "page-break-lines" "\
|
||||||
|
Toggle Page-Break-Lines mode in all buffers.
|
||||||
|
With prefix ARG, enable Global Page-Break-Lines mode if ARG is positive;
|
||||||
|
otherwise, disable it. If called from Lisp, enable the mode if
|
||||||
|
ARG is omitted or nil.
|
||||||
|
|
||||||
|
Page-Break-Lines mode is enabled in all buffers where
|
||||||
|
`page-break-lines-mode-maybe' would do it.
|
||||||
|
See `page-break-lines-mode' for more information on Page-Break-Lines mode.
|
||||||
|
|
||||||
|
\(fn &optional ARG)" t nil)
|
||||||
|
|
||||||
|
;;;***
|
||||||
|
|
||||||
|
;; Local Variables:
|
||||||
|
;; version-control: never
|
||||||
|
;; no-byte-compile: t
|
||||||
|
;; no-update-autoloads: t
|
||||||
|
;; End:
|
||||||
|
;;; page-break-lines-autoloads.el ends here
|
|
@ -0,0 +1,2 @@
|
||||||
|
;;; -*- no-byte-compile: t -*-
|
||||||
|
(define-package "page-break-lines" "20170517.235" "Display ugly ^L page breaks as tidy horizontal lines" 'nil :commit "82f9100312dcc922fb66ff289faf5d4795d8ca7a" :url "https://github.com/purcell/page-break-lines" :keywords '("convenience" "faces"))
|
|
@ -0,0 +1,169 @@
|
||||||
|
;;; page-break-lines.el --- Display ugly ^L page breaks as tidy horizontal lines
|
||||||
|
|
||||||
|
;; Copyright (C) 2012-2015 Steve Purcell
|
||||||
|
|
||||||
|
;; Author: Steve Purcell <steve@sanityinc.com>
|
||||||
|
;; URL: https://github.com/purcell/page-break-lines
|
||||||
|
;; Package-Version: 20170517.235
|
||||||
|
;; Package-X-Original-Version: DEV
|
||||||
|
;; Keywords: convenience, faces
|
||||||
|
|
||||||
|
;; 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 of the License, 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 this program. If not, see <http://www.gnu.org/licenses/>.
|
||||||
|
|
||||||
|
;;; Commentary:
|
||||||
|
|
||||||
|
;; This library provides a global mode which displays form feed
|
||||||
|
;; characters as horizontal rules.
|
||||||
|
|
||||||
|
;; Install from Melpa or Marmalade, or add to `load-path' and use
|
||||||
|
;; (require 'page-break-lines).
|
||||||
|
|
||||||
|
;; Use `page-break-lines-mode' to enable the mode in specific buffers,
|
||||||
|
;; or customize `page-break-lines-modes' and enable the mode globally with
|
||||||
|
;; `global-page-break-lines-mode'.
|
||||||
|
|
||||||
|
;; Issues and limitations:
|
||||||
|
|
||||||
|
;; If `page-break-lines-char' is displayed at a different width to
|
||||||
|
;; regular characters, the rule may be either too short or too long:
|
||||||
|
;; rules may then wrap if `truncate-lines' is nil. On some systems,
|
||||||
|
;; Emacs may erroneously choose a different font for the page break
|
||||||
|
;; symbol, which choice can be overridden using code such as:
|
||||||
|
|
||||||
|
;; (set-fontset-font "fontset-default"
|
||||||
|
;; (cons page-break-lines-char page-break-lines-char)
|
||||||
|
;; (face-attribute 'default :family))
|
||||||
|
|
||||||
|
;; Use `describe-char' on a page break char to determine whether this
|
||||||
|
;; is the case.
|
||||||
|
|
||||||
|
;; Additionally, the use of `text-scale-increase' or
|
||||||
|
;; `text-scale-decrease' will cause the rule width to be incorrect,
|
||||||
|
;; because the reported window width (in characters) will continue to
|
||||||
|
;; be the width in the frame's default font, not the scaled font used to
|
||||||
|
;; display the rule.
|
||||||
|
|
||||||
|
;; Adapted from code http://www.emacswiki.org/emacs/PageBreaks
|
||||||
|
|
||||||
|
;;; Code:
|
||||||
|
|
||||||
|
(defgroup page-break-lines nil
|
||||||
|
"Display ugly ^L page breaks as tidy horizontal lines."
|
||||||
|
:prefix "page-break-lines-"
|
||||||
|
:group 'faces)
|
||||||
|
|
||||||
|
;;;###autoload
|
||||||
|
(defcustom page-break-lines-char ?─
|
||||||
|
"Character used to render page break lines."
|
||||||
|
:type 'character
|
||||||
|
:group 'page-break-lines)
|
||||||
|
|
||||||
|
;;;###autoload
|
||||||
|
(defcustom page-break-lines-lighter " PgLn"
|
||||||
|
"Mode-line indicator for `page-break-lines-mode'."
|
||||||
|
:type '(choice (const :tag "No lighter" "") string)
|
||||||
|
:group 'page-break-lines)
|
||||||
|
|
||||||
|
;;;###autoload
|
||||||
|
(defcustom page-break-lines-modes
|
||||||
|
'(emacs-lisp-mode lisp-mode scheme-mode compilation-mode outline-mode help-mode)
|
||||||
|
"Modes in which to enable `page-break-lines-mode'."
|
||||||
|
:type '(repeat symbol)
|
||||||
|
:group 'page-break-lines)
|
||||||
|
|
||||||
|
;;;###autoload
|
||||||
|
(defface page-break-lines
|
||||||
|
'((t :inherit font-lock-comment-face :bold nil :italic nil))
|
||||||
|
"Face used to colorize page break lines.
|
||||||
|
If using :bold or :italic, please ensure `page-break-lines-char'
|
||||||
|
is available in that variant of your font, otherwise it may be
|
||||||
|
displayed as a junk character."
|
||||||
|
:group 'page-break-lines)
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
;;;###autoload
|
||||||
|
(define-minor-mode page-break-lines-mode
|
||||||
|
"Toggle Page Break Lines mode.
|
||||||
|
|
||||||
|
In Page Break mode, page breaks (^L characters) are displayed as a
|
||||||
|
horizontal line of `page-break-string-char' characters."
|
||||||
|
:lighter page-break-lines-lighter
|
||||||
|
:group 'page-break-lines
|
||||||
|
(page-break-lines--update-display-tables))
|
||||||
|
|
||||||
|
;;;###autoload
|
||||||
|
(define-obsolete-function-alias 'turn-on-page-break-lines-mode 'page-break-lines-mode)
|
||||||
|
|
||||||
|
(dolist (hook '(window-configuration-change-hook
|
||||||
|
window-size-change-functions
|
||||||
|
after-setting-font-hook))
|
||||||
|
(add-hook hook 'page-break-lines--update-display-tables))
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
(defun page-break-lines--update-display-table (window)
|
||||||
|
"Modify a display-table that displays page-breaks prettily.
|
||||||
|
If the buffer inside WINDOW has `page-break-lines-mode' enabled,
|
||||||
|
its display table will be modified as necessary."
|
||||||
|
(with-current-buffer (window-buffer window)
|
||||||
|
(if page-break-lines-mode
|
||||||
|
(progn
|
||||||
|
(unless buffer-display-table
|
||||||
|
(setq buffer-display-table (make-display-table)))
|
||||||
|
(let ((default-height (face-attribute 'default :height nil 'default)))
|
||||||
|
(set-face-attribute 'page-break-lines nil :height default-height)
|
||||||
|
(let* ((cwidth (char-width page-break-lines-char))
|
||||||
|
(wwidth (window-width window))
|
||||||
|
(width (if (zerop (% wwidth cwidth))
|
||||||
|
(1- (/ wwidth cwidth))
|
||||||
|
(/ wwidth cwidth)))
|
||||||
|
(glyph (make-glyph-code page-break-lines-char 'page-break-lines))
|
||||||
|
(new-display-entry (vconcat (make-list width glyph))))
|
||||||
|
(unless (equal new-display-entry (elt buffer-display-table ?\^L))
|
||||||
|
(aset buffer-display-table ?\^L new-display-entry)))))
|
||||||
|
(when (and (member major-mode page-break-lines-modes)
|
||||||
|
buffer-display-table)
|
||||||
|
(aset buffer-display-table ?\^L nil)))))
|
||||||
|
|
||||||
|
(defun page-break-lines--update-display-tables (&optional frame)
|
||||||
|
"Function called for updating display table in windows of FRAME."
|
||||||
|
(mapc 'page-break-lines--update-display-table (window-list frame 'no-minibuffer)))
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
;;;###autoload
|
||||||
|
(defun page-break-lines-mode-maybe ()
|
||||||
|
"Enable `page-break-lines-mode' in the current buffer if desired.
|
||||||
|
When `major-mode' is listed in `page-break-lines-modes', then
|
||||||
|
`page-break-lines-mode' will be enabled."
|
||||||
|
(if (and (not (minibufferp))
|
||||||
|
(apply 'derived-mode-p page-break-lines-modes))
|
||||||
|
(page-break-lines-mode 1)))
|
||||||
|
|
||||||
|
;;;###autoload
|
||||||
|
(define-global-minor-mode global-page-break-lines-mode
|
||||||
|
page-break-lines-mode page-break-lines-mode-maybe
|
||||||
|
:group 'page-break-lines)
|
||||||
|
|
||||||
|
|
||||||
|
(provide 'page-break-lines)
|
||||||
|
|
||||||
|
;; Local Variables:
|
||||||
|
;; coding: utf-8
|
||||||
|
;; byte-compile-warnings: (not cl-functions)
|
||||||
|
;; checkdoc-minor-mode: t
|
||||||
|
;; End:
|
||||||
|
|
||||||
|
;;; page-break-lines.el ends here
|
Loading…
Reference in New Issue