[elpa] 14/39: Initial checkin.

[Phillip Lord]

phillord pushed a commit to branch externals/pabbrev
in repository elpa.

commit e0b4d8fa8d4adb428c2774cfde00b0d2036752b4
Author: Phillip Lord <address@hidden>
Date:   Sat Sep 21 14:29:27 2013 +0100

    Initial checkin.
---
 paredit-pause.el |   81 ++++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 files changed, 81 insertions(+), 0 deletions(-)

diff --git a/paredit-pause.el b/paredit-pause.el
new file mode 100644
index 0000000..ad8bad0
--- /dev/null
+++ b/paredit-pause.el
@@ -0,0 +1,81 @@
+;;; paredit-pause.el -- Easily pause and unpause paredit
+
+;; This file is not part of Emacs
+
+;; Author: Phillip Lord <address@hidden>
+;; Maintainer: Phillip Lord <address@hidden>
+;; Keywords: paredit
+;; Version: 1.0
+
+
+;; COPYRIGHT NOTICE
+;;
+;; 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 2, 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; see the file COPYING.  If not, write to the
+;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+;; Boston, MA 02111-1307, USA.
+
+;;; Commentary:
+;;
+;; You know how it is. You're wandering happily through your syntax tree, all
+;; your sexps are balanced, your code is looking lovely. Then, suddenly it
+;; happens, your fixing one of your functions, and bang, your barf one sexp
+;; too many, with C-left. Oh no! So, you C-right before realising that it's
+;; not the opposite. Half your file gets slurped, and probably several other
+;; files that you haven't even opened. You try splitting, wrapping, raising,
+;; it's just gets worse and worse. Randomly symbols get spewed across your
+;; source code, empty forms, and strings everywhere; you look at the hideous
+;; ruin of your work; look at you works, ye mighty, and despair.
+
+;; The solution, is M-x paredit-mode, fix stuff, and them M-x paredit-mode.
+;; But this takes too long, and is painful, hence paredit-pause was born.
+
+;; Paredit allows you to toggle paredit-mode on and off with a single
+;; keypress. When paredit-mode is off, it is replaced with paredit-pause-mode,
+;; which you allows you to toggle paredit-mode back on again.
+
+;;; Installation:
+;;
+;; Add (require 'paredit-pause) to your .emacs. Of if you autoload paredit,
+;; then
+;;
+;; (eval-after-load "paredit.el"
+;;    '(require 'paredit-menu))
+;;
+;; will achieve the same effect.
+
+(require 'paredit)
+
+;;; Code:
+
+(defun paredit-pause-unpause ()
+  "Disable command `paredit-mode' and enable command `paredit-pause-mode'."
+  (interactive)
+  (paredit-mode 1)
+  (paredit-pause-mode 0))
+
+(defun paredit-pause-pause ()
+  "Disable mode command `paredit-pause-mode' and enable command 
`paredit-mode'."
+  (interactive)
+  (paredit-mode 0)
+  (paredit-pause-mode 1))
+
+(define-key paredit-mode-map "\C-c!" 'paredit-pause-pause)
+
+(define-minor-mode paredit-pause-mode
+  "A minor mode which allows easy re-enabling of paredit."
+  nil " paredit-pause"
+  '(("\C-c!" . paredit-pause-unpause)))
+
+(provide 'paredit-pause)
+;;; paredit-pause.el ends here