From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: PJ Weisberg Newsgroups: gmane.emacs.help,gmane.emacs.devel Subject: Re: Free cursor positioning. Date: Thu, 11 Aug 2011 15:26:52 -0700 Message-ID: References: <201108052115.19994.vvmarko@gmail.com> NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=ISO-8859-1 Content-Transfer-Encoding: quoted-printable X-Trace: dough.gmane.org 1313101636 7193 80.91.229.12 (11 Aug 2011 22:27:16 GMT) X-Complaints-To: usenet@dough.gmane.org NNTP-Posting-Date: Thu, 11 Aug 2011 22:27:16 +0000 (UTC) Cc: Emacs-Devel devel To: help-gnu-emacs Original-X-From: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Fri Aug 12 00:27:12 2011 Return-path: Envelope-to: geh-help-gnu-emacs@m.gmane.org Original-Received: from lists.gnu.org ([140.186.70.17]) by lo.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1QrdiZ-0000Xc-PO for geh-help-gnu-emacs@m.gmane.org; Fri, 12 Aug 2011 00:27:12 +0200 Original-Received: from localhost ([::1]:60416 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1QrdiZ-0000OQ-Aj for geh-help-gnu-emacs@m.gmane.org; Thu, 11 Aug 2011 18:27:11 -0400 Original-Received: from eggs.gnu.org ([140.186.70.92]:56891) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1QrdiT-0000OE-Uo for Help-gnu-emacs@gnu.org; Thu, 11 Aug 2011 18:27:06 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1QrdiR-0005qH-U5 for Help-gnu-emacs@gnu.org; Thu, 11 Aug 2011 18:27:05 -0400 Original-Received: from p3plsmtpa01-09.prod.phx3.secureserver.net ([72.167.82.89]:59106) by eggs.gnu.org with smtp (Exim 4.71) (envelope-from ) id 1QrdiR-0005pf-Kn for Help-gnu-emacs@gnu.org; Thu, 11 Aug 2011 18:27:03 -0400 Original-Received: (qmail 9461 invoked from network); 11 Aug 2011 22:26:54 -0000 Original-Received: from unknown (209.85.161.41) by p3plsmtpa01-09.prod.phx3.secureserver.net (72.167.82.89) with ESMTP; 11 Aug 2011 22:26:54 -0000 Original-Received: by fxg9 with SMTP id 9so2376740fxg.0 for ; Thu, 11 Aug 2011 15:26:52 -0700 (PDT) Original-Received: by 10.223.26.69 with SMTP id d5mr197538fac.136.1313101612431; Thu, 11 Aug 2011 15:26:52 -0700 (PDT) Original-Received: by 10.223.83.194 with HTTP; Thu, 11 Aug 2011 15:26:52 -0700 (PDT) In-Reply-To: X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.6 (newer, 3) X-Received-From: 72.167.82.89 X-BeenThere: help-gnu-emacs@gnu.org X-Mailman-Version: 2.1.14 Precedence: list List-Id: Users list for the GNU Emacs text editor List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Original-Sender: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.help:81933 gmane.emacs.devel:143150 Archived-At: On Mon, Aug 8, 2011 at 9:53 PM, Kevin Rodgers w= rote: > On 8/5/11 5:03 PM, PJ Weisberg wrote: >> The thing is, when you're in picture mode, you're *not* in C mode, >> perl mode, or whatever mode you really want to be in. =A0He just wants a >> few features of picture mode to be on all the time. =A0Something like: >> >> (require 'picture) >> (global-set-key (kbd "") 'picture-forward-column) >> (global-set-key (kbd "") 'picture-move-up) >> (global-set-key (kbd "") 'picture-move-down) >> (add-hook 'before-save-hook 'delete-trailing-whitespace) > > Wrap it in define-global-minor-mode, and/or change the global bindings an= d > hook > to locals and wrap that in define-minor-mode. The problem with that is that the keybindings don't go away when you turn off the minor mode. And local-set-key actually affects every buffer that uses the same keymap as the current buffer (probably every buffer with the same major mode). IMO, this is something that would make sense as a built-in minor mode, something like this. (Excuse the Git patch format; I've never gotten around to learning Bazaar.) =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D >From d54542c54d1319844df3a4d9cdb1375ca6edffdc Mon Sep 17 00:00:00 2001 From: "Peter J. Weisberg" Date: Thu, 11 Aug 2011 13:53:25 -0700 Subject: [PATCH] lisp/textmodes/picture.el (quarter-plane-mode): New minor mode to use quarter-plane movement functions outside of picture mode --- lisp/textmodes/picture.el | 39 +++++++++++++++++++++++++++++++++++---- 1 files changed, 35 insertions(+), 4 deletions(-) diff --git a/lisp/textmodes/picture.el b/lisp/textmodes/picture.el index 8148378..337ee91 100644 --- a/lisp/textmodes/picture.el +++ b/lisp/textmodes/picture.el @@ -101,7 +101,7 @@ If scan reaches end of buffer, stop there without error= ." (defun picture-forward-column (arg &optional interactive) "Move cursor right, making whitespace if necessary. With argument, move that many columns." - (interactive "p\nd") + (interactive "^p\nd") (let (deactivate-mark) (picture-update-desired-column interactive) (setq picture-desired-column (max 0 (+ picture-desired-column arg))) @@ -115,14 +115,14 @@ With argument, move that many columns." (defun picture-backward-column (arg &optional interactive) "Move cursor left, making whitespace if necessary. With argument, move that many columns." - (interactive "p\nd") + (interactive "^p\nd") (picture-update-desired-column interactive) (picture-forward-column (- arg))) (defun picture-move-down (arg) "Move vertically down, making whitespace if necessary. With argument, move that many lines." - (interactive "p") + (interactive "^p") (let (deactivate-mark) (picture-update-desired-column nil) (picture-newline arg) @@ -139,7 +139,7 @@ With argument, move that many lines." (defun picture-move-up (arg) "Move vertically up, making whitespace if necessary. With argument, move that many lines." - (interactive "p") + (interactive "^p") (picture-update-desired-column nil) (picture-move-down (- arg))) @@ -786,6 +786,37 @@ Runs `picture-mode-exit-hook' at the end." (force-mode-line-update) (run-hooks 'picture-mode-exit-hook))) +(defvar quarter-plane-mode-map + (let ((map (make-sparse-keymap))) + (define-key map [remap right-char] 'picture-forward-column) + (define-key map [remap forward-char] 'picture-forward-column) + (define-key map [remap previous-line] 'picture-move-up) + (define-key map [remap next-line] 'picture-move-down) + (define-key map [remap mouse-set-point] 'picture-mouse-set-point) + map)) + +;;;###autoload +(define-minor-mode quarter-plane-mode + "Toggle Quarter-Plane mode on or off. +Interactively, with no prefix argument, toggle the mode. +With universal prefix ARG turn mode on. +With zero or negative ARG turn mode off. + +Use point movement commands that act as if the text extended +infinitely down and to the right, inserting spaces as necessary. +Excess whitespace is trimmed when saving or exiting Quarter-Plane mode. +\\{quarter-plane-mode-map}" + :lighter " Plane" + :group 'picture + :keymap quarter-plane-mode-map + (if quarter-plane-mode + (add-hook 'before-save-hook 'quarter-plane-delete-whitespace nil t) + (remove-hook 'before-save-hook 'quarter-plane-delete-whitespace t))) + +(defalias 'quarter-plane-delete-whitespace 'delete-trailing-whitespace) + +(add-hook 'quarter-plane-mode-off-hook 'delete-trailing-whitespace) + (provide 'picture) ;;; picture.el ends here -- 1.7.6.553.g917d7 -PJ