From mboxrd@z Thu Jan 1 00:00:00 1970 From: =?UTF-8?B?QW5kcmVhcyBSw7ZobGVy?= Subject: Re: Easy insert of verbatim symbols Date: Tue, 19 Oct 2010 14:35:18 +0200 Message-ID: <4CBD9086.9050408@easy-emacs.de> References: <80vd4ybgij.fsf@mundaneum.com> Mime-Version: 1.0 Content-Type: text/plain; charset=UTF-8; format=flowed Content-Transfer-Encoding: 8bit Return-path: Received: from [140.186.70.92] (port=39454 helo=eggs.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1P8BQQ-0002xG-T5 for emacs-orgmode@gnu.org; Tue, 19 Oct 2010 08:36:25 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1P8BQJ-0001Pr-Kp for emacs-orgmode@gnu.org; Tue, 19 Oct 2010 08:36:18 -0400 Received: from moutng.kundenserver.de ([212.227.126.187]:51098) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1P8BQJ-0001PV-9l for emacs-orgmode@gnu.org; Tue, 19 Oct 2010 08:36:11 -0400 In-Reply-To: <80vd4ybgij.fsf@mundaneum.com> List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: emacs-orgmode@gnu.org Am 19.10.2010 12:53, schrieb Sébastien Vauban: > Hello, > > I often find it tedious to add `=' signs before and after the words that you > want to be rendered in verbatim, moreover when you want to do that in your > text, once it already has been written. > > Adding this to your =.emacs=: > > #+begin_src emacs-lisp > (defun insert-one-equal-or-two () > (interactive) > (cond > ((or (bolp) (not (looking-back "="))) > ;; insert just one = > (self-insert-command 1)) > ((save-excursion > (backward-char) > ;; Skip symbol backwards. > (and (not (zerop (skip-syntax-backward "w_"))) > (not (looking-back "=")) > (or (insert-and-inherit "=") t)))) > (t > ;; insert == around following symbol > (delete-backward-char 1) > (unless (looking-back "=") (insert-and-inherit "=")) > (save-excursion > (skip-syntax-forward "w_") > (unless (looking-at "=") (insert-and-inherit "=")))))) > > (define-key org-mode-map (kbd "=") 'insert-one-equal-or-two) > #+end_src > > allows you to add just an equal sign at the end of the word, and the one is > front is automatically added... > > Best regards, > Seb > Hi Sébastien, very interesting, thanks a lot. As per chance exists a framework for just that kind of stuff, created a new class of functions `equalize' inside. Maybe have a look at thing-at-point-utils.el at https://code.launchpad.net/s-x-emacs-werkstatt/ Maybe try ar-equalize-alnum-atpt or ar-equalize-symbol-atpt Many more related commands exists. For your special needs that might be overkill. OTOH, should be more repeated editing remain around org-mode, we could reflect to single out some special org-mode editing tools from. Andreas -- https://code.launchpad.net/~a-roehler/python-mode/python-mode-components https://code.launchpad.net/s-x-emacs-werkstatt/