* Disable typo-mode in org source code blocks @ 2019-09-02 7:01 garjola 2019-09-02 8:02 ` Fraga, Eric 0 siblings, 1 reply; 7+ messages in thread From: garjola @ 2019-09-02 7:01 UTC (permalink / raw) To: emacs-orgmode@gnu.org Hi, 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). Can you help me with this? Thanks. G. -- ^ permalink raw reply [flat|nested] 7+ messages in thread
* Re: Disable typo-mode in org source code blocks 2019-09-02 7:01 Disable typo-mode in org source code blocks garjola @ 2019-09-02 8:02 ` Fraga, Eric 2019-09-02 8:35 ` Tim Cross 0 siblings, 1 reply; 7+ messages in thread From: Fraga, Eric @ 2019-09-02 8:02 UTC (permalink / raw) To: garjola@garjola.net; +Cc: emacs-orgmode@gnu.org On Monday, 2 Sep 2019 at 09:01, garjola@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. -- Eric S Fraga via Emacs 27.0.50, Org release_9.2.4-401-gfabd6d ^ permalink raw reply [flat|nested] 7+ messages in thread
* Re: Disable typo-mode in org source code blocks 2019-09-02 8:02 ` Fraga, Eric @ 2019-09-02 8:35 ` Tim Cross 2019-09-02 12:21 ` garjola 0 siblings, 1 reply; 7+ messages in thread From: Tim Cross @ 2019-09-02 8:35 UTC (permalink / raw) To: emacs-orgmode; +Cc: garjola@garjola.net 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.fraga@ucl.ac.uk> writes: > On Monday, 2 Sep 2019 at 09:01, garjola@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. -- Tim Cross ^ permalink raw reply [flat|nested] 7+ messages in thread
* Re: Disable typo-mode in org source code blocks 2019-09-02 8:35 ` Tim Cross @ 2019-09-02 12:21 ` garjola 2019-09-02 18:26 ` John Kitchin 0 siblings, 1 reply; 7+ messages in thread From: garjola @ 2019-09-02 12:21 UTC (permalink / raw) To: emacs-orgmode; +Cc: Tim Cross On Mon 02-Sep-2019 at 10:35:02 +02, Tim Cross <theophilusx@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.fraga@ucl.ac.uk> writes: > >> On Monday, 2 Sep 2019 at 09:01, garjola@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! -- ^ permalink raw reply [flat|nested] 7+ messages in thread
* Re: Disable typo-mode in org source code blocks 2019-09-02 12:21 ` garjola @ 2019-09-02 18:26 ` John Kitchin 2019-09-03 0:13 ` Tim Cross 2019-09-03 6:16 ` garjola 0 siblings, 2 replies; 7+ messages in thread From: John Kitchin @ 2019-09-02 18:26 UTC (permalink / raw) To: garjola; +Cc: Tim Cross, org-mode-email [-- Attachment #1: Type: text/plain, Size: 3968 bytes --] 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 <garjola@garjola.net> wrote: > On Mon 02-Sep-2019 at 10:35:02 +02, Tim Cross <theophilusx@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.fraga@ucl.ac.uk> writes: > > > >> On Monday, 2 Sep 2019 at 09:01, garjola@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! > -- > > [-- Attachment #2: Type: text/html, Size: 5355 bytes --] ^ permalink raw reply [flat|nested] 7+ messages in thread
* Re: Disable typo-mode in org source code blocks 2019-09-02 18:26 ` John Kitchin @ 2019-09-03 0:13 ` Tim Cross 2019-09-03 6:16 ` garjola 1 sibling, 0 replies; 7+ messages in thread From: Tim Cross @ 2019-09-03 0:13 UTC (permalink / raw) To: John Kitchin; +Cc: garjola, org-mode-email Hi John, this is a greet bit of info. My first thought when the question was asked was "Hmm, what you need is some sort of facility that could run a function when the cursor moves in and out of a region". I then discounted the idea because of the amount of supporting functionality which would need to be developed. The pointer to cursor-sensor sounds like exactly the supporting functionality I was thinking of. Should have guessed Emacs would have something already! Using org's font-lock mechanism as the 'trigger' is a great idea too. I can see some great uses for this package as I have some pretty ugly hacks which could be simplified if cursor-sensor works reliably. thanks for the pointer. Tim John Kitchin <jkitchin@andrew.cmu.edu> writes: > 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 <garjola@garjola.net> wrote: > >> On Mon 02-Sep-2019 at 10:35:02 +02, Tim Cross <theophilusx@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.fraga@ucl.ac.uk> writes: >> > >> >> On Monday, 2 Sep 2019 at 09:01, garjola@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! >> -- >> >> -- Tim Cross ^ permalink raw reply [flat|nested] 7+ messages in thread
* Re: Disable typo-mode in org source code blocks 2019-09-02 18:26 ` John Kitchin 2019-09-03 0:13 ` Tim Cross @ 2019-09-03 6:16 ` garjola 1 sibling, 0 replies; 7+ messages in thread From: garjola @ 2019-09-03 6:16 UTC (permalink / raw) To: John Kitchin; +Cc: org-mode-email On Mon 02-Sep-2019 at 20:26:22 +02, John Kitchin <jkitchin@andrew.cmu.edu> wrote: > 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! > […] Hi, Thanks for this! I will have to spend some time before I understand everything, but this is of great help. -- ^ permalink raw reply [flat|nested] 7+ messages in thread
end of thread, other threads:[~2019-09-03 6:16 UTC | newest] Thread overview: 7+ messages (download: mbox.gz / follow: Atom feed) -- links below jump to the message on this page -- 2019-09-02 7:01 Disable typo-mode in org source code blocks garjola 2019-09-02 8:02 ` Fraga, Eric 2019-09-02 8:35 ` Tim Cross 2019-09-02 12:21 ` garjola 2019-09-02 18:26 ` John Kitchin 2019-09-03 0:13 ` Tim Cross 2019-09-03 6:16 ` garjola
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).