mir/emacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Spruce up org-electric-pairs, see commit

Browse Source
This commit is contained in:
MitchMarq42 2022-11-02 13:59:22 -08:00
parent cb914734b1
commit 9fdb22ab8a
1 changed files with 13 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
lisp/mitch-packages.el
View File

@ -471,17 +471,20 @@ targets."
(add-hook 'after-save-hook (add-hook 'after-save-hook
#'(lambda () (if (equal major-mode 'org-mode) #'(lambda () (if (equal major-mode 'org-mode)
(org-babel-tangle)))) (org-babel-tangle))))
(defvar org-electric-pairs `( (defvar org-electric-pairs '(
(,(string-to-char "_") . ,(string-to-char "_")) (?_ . ?_)
(,(string-to-char "/") . ,(string-to-char "/")) (?/ . ?/)
(,(string-to-char "*") . ,(string-to-char "*")) (?* . ?*)
(,(string-to-char "+") . ,(string-to-char "+")) (?+ . ?+)
(,(string-to-char "+") . ,(string-to-char "+")) (?+ . ?+)
(,(string-to-char "=") . ,(string-to-char "=")))) (?= . ?=))
"Electric pairs for org-mode.
(dolist (pair org-electric-pairs) See https://emacs.stackexchange.com/questions/2538/how-to-define-additional-mode-specific-pairs-for-electric-pair-mode")
(add-to-list 'electric-pair-pairs (defun org-add-electric-pairs ()
pair)) (setq-local electric-pair-pairs (append electric-pair-pairs org-electric-pairs))
(setq-local electric-pair-text-pairs electric-pair-pairs))
(add-hook 'org-mode-hook 'org-add-electric-pairs)
(require 'mitch-orgstuff) (require 'mitch-orgstuff)
:hook :hook
(org-mode . turn-off-line-numbers) (org-mode . turn-off-line-numbers)