Re: Easy insert of verbatim symbols

["Andreas Röhler" <andreas.roehler@easy-emacs.de>]

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/