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

Merge pull request #1732 from UndeadKernel/feature_sp-org

Browse source 
lang/org: smarter smartparens in org src blocks
This commit is contained in:
Henrik Lissner 2019-09-02 00:46:44 -04:00 • committed by GitHub
commit 05ab672ef9
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23
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 "*")
(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
(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))
(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-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-point-at-bol-p +org-sp-in-src-block-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 +org-sp-in-src-block-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 +org-sp-in-src-block-p)))))
;;