emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

lang/org: smarter smartparens in org src blocks

Browse source 
While point is in a babel src block, do not autoexpand emphasis markers.
This commit is contained in:
Undead Kernel 2019-08-29 15:43:53 +02:00
parent e498a7e2cb
commit 521ff7ac1a
1 changed files with 9 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

14
modules/lang/org/config.el
View file

@ -774,13 +774,17 @@ compelling reason, so..."
(skip-chars-backward "*") (skip-chars-backward "*")
(bolp)))) (bolp))))
(defun +org-sp-in-src-block-p (_id action _context)
(and (eq action 'insert)
(org-in-src-block-p)))
;; make delimiter auto-closing a little more conservative ;; make delimiter auto-closing a little more conservative
(sp-with-modes 'org-mode (sp-with-modes 'org-mode
(sp-local-pair "*" "*" :unless '(:add sp-point-before-word-p sp-in-math-p +org-sp-point-at-bol-p)) (sp-local-pair "*" "*" :unless '(:add sp-point-before-word-p sp-in-math-p +org-sp-point-at-bol-p +org-sp-in-src-block-p))
(sp-local-pair "_" "_" :unless '(:add sp-point-before-word-p sp-in-math-p)) (sp-local-pair "_" "_" :unless '(:add sp-point-before-word-p sp-in-math-p +org-sp-in-src-block-p))
(sp-local-pair "/" "/" :unless '(:add sp-point-before-word-p sp-in-math-p +org-sp-point-in-checkbox-p)) (sp-local-pair "/" "/" :unless '(:add sp-point-before-word-p sp-in-math-p +org-sp-point-in-checkbox-p +org-sp-in-src-block-p))
(sp-local-pair "~" "~" :unless '(:add sp-point-before-word-p)) (sp-local-pair "~" "~" :unless '(:add sp-point-before-word-p +org-sp-in-src-block-p))
(sp-local-pair "=" "=" :unless '(:add sp-point-before-word-p sp-in-math-p))))) (sp-local-pair "=" "=" :unless '(:add sp-point-before-word-p sp-in-math-p +org-sp-in-src-block-p)))))
;; ;;