* Easy insert of verbatim symbols
@ 2010-10-19 10:53 Sébastien Vauban
2010-10-19 12:35 ` Andreas Röhler
0 siblings, 1 reply; 2+ messages in thread
From: Sébastien Vauban @ 2010-10-19 10:53 UTC (permalink / raw)
To: emacs-orgmode-mXXj517/zsQ
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
^ permalink raw reply [flat|nested] 2+ messages in thread* Re: Easy insert of verbatim symbols
2010-10-19 10:53 Easy insert of verbatim symbols Sébastien Vauban
@ 2010-10-19 12:35 ` Andreas Röhler
0 siblings, 0 replies; 2+ messages in thread
From: Andreas Röhler @ 2010-10-19 12:35 UTC (permalink / raw)
To: emacs-orgmode
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/
^ permalink raw reply [flat|nested] 2+ messages in thread
end of thread, other threads:[~2010-10-19 12:36 UTC | newest]
Thread overview: 2+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2010-10-19 10:53 Easy insert of verbatim symbols Sébastien Vauban
2010-10-19 12:35 ` Andreas Röhler
Code repositories for project(s) associated with this public inbox
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).