You can use cursor-sensor mode for this if you have emacs 26ish. The idea
is you set cursor-sensor functions on a region that do something depending
on whether you enter or leave the region. Below, I tie into the org font
lock mechanisms to add these properties so that when you enter, typo mode
gets turned off, and when you leave it gets turned back on. I use a similar
approach to put src-block specific key maps on src blocks. There are two
examples of functions that are "lightly tested". I can see why you would
want this disabled in src blocks, it never puts the right quote in!
(defvar scimax-src-block-cursor-sensor-functions '()
"List of functions to run in cursor-sensor mode. .")
(defun scimax-add-cursor-sensor-functions-to-src-blocks (limit)
"Function used in font-lock to add cursor-sensor functions."
(let ((case-fold-search t))
(while (re-search-forward org-babel-src-block-regexp limit t)
(let* ((beg (match-beginning 0))
(end (match-end 0))
(cursor-functions (or
(get-text-property beg 'cursor-sensor-functions)
`())))
(cl-loop for func in scimax-src-block-cursor-sensor-functions do
(when (not (memq func cursor-functions))
(pushnew func cursor-functions)))
(add-text-properties
beg end `(cursor-sensor-functions ,cursor-functions))))))
(define-minor-mode scimax-cursor-sensor-mode
"Minor mode to turn on cursor-sensor-mode for org src-blocks."
:init-value nil
(if scimax-cursor-sensor-mode
(progn
(add-hook 'org-font-lock-hook
#'scimax-add-cursor-sensor-functions-to-src-blocks t)
(add-to-list 'font-lock-extra-managed-props 'cursor-sensor-functions)
(cursor-sensor-mode +1))
(remove-hook 'org-font-lock-hook
#'scimax-add-cursor-sensor-functions-to-src-blocks)
(cursor-sensor-mode -1))
(font-lock-fontify-buffer))
(defun scimax-cs-message-1 (win prev-pos sym)
(message "%s %s %s"
win
prev-pos
sym))
(defun scimax-src-toggle-typo-mode (win prev-pos sym)
(if (eq sym 'entered)
(typo-mode -1)
(typo-mode +1)))
(add-to-list 'scimax-src-block-cursor-sensor-functions
'scimax-cs-message-1)
(add-to-list 'scimax-src-block-cursor-sensor-functions
'scimax-src-toggle-typo-mode)
John
-----------------------------------
Professor John Kitchin
Doherty Hall A207F
Department of Chemical Engineering
Carnegie Mellon University
Pittsburgh, PA 15213
412-268-7803
@johnkitchin
http://kitchingroup.cheme.cmu.edu
On Mon, Sep 2, 2019 at 8:21 AM <garj...@garjola.net> wrote:
> On Mon 02-Sep-2019 at 10:35:02 +02, Tim Cross <theophil...@gmail.com>
> wrote:
> > I think Eric is correct. There is also another reason. If you edit the
> > source blocks with C-', then any escaping needed (such as putting a ','
> > before '*') will also be automatically handled, plus of course you get
> > all the programing mode goodness.
> >
> > Fraga, Eric <e.fr...@ucl.ac.uk> writes:
> >
> >> On Monday, 2 Sep 2019 at 09:01, garj...@garjola.net wrote:
> >>> I am using typo-mode (https://github.com/jorgenschaefer/typoel) in my
> >>> org buffers (actually with a hook for text-mode), but I would like to
> >>> disable it in source code blocks.
> >>>
> >>> I have been unable to find a hook to do so (I understand that
> >>> org-src-mode-hook is used when editing with ‘C-c '’ but not in the org
> >>> buffer).
> >>
> >> I am not entirely sure what you want here. If it is that you want to
> >> turn off typo-mode when point moves into a src block but while still in
> >> the whole org buffer, then you cannot do this AFAIK. The best approach
> >> is to always edit src blocks using C-c ' (org-edit-special) and then you
> >> can use org-src-mode-hook to do what you want.
>
> Thanks to both of you. I usually edit in the separate buffer, but I
> don’t for one liners. It’s a pity that this is not possible, but I can
> live with that!
>
> Thanks again!
> --
>
>
