Easy insert of verbatim symbols

Easy insert of verbatim symbols

[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

-- 
Sébastien Vauban


_______________________________________________
Emacs-orgmode mailing list
Please use `Reply All' to send replies to the list.
Emacs-orgmode-mXXj517/zsQ@public.gmane.org
http://lists.gnu.org/mailman/listinfo/emacs-orgmode

Re: Easy insert of verbatim symbols

[Andreas Röhler]

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/