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

Better org evil text-objects

Browse source
This commit is contained in:
Henrik Lissner 2015-11-12 05:40:38 -05:00
parent 533a307043
commit 0c261f9821
2 changed files with 18 additions and 39 deletions
Download patch file Download diff file Expand all files Collapse all files

45
modules/module-org.el
View file

@ -271,45 +271,12 @@
;; Add element delimiter text-objects so we can use evil-surround to
;; manipulate them.
(evil-define-text-object evil-inner-org-bold-element (count &optional beg end type)
:extend-selection nil (evil-select-quote ?* beg end type count))
(evil-define-text-object evil-a-org-bold-element (count &optional beg end type)
:extend-selection nil (evil-select-quote ?* beg end type count t))
(evil-define-text-object evil-inner-org-italic-element (count &optional beg end type)
:extend-selection nil (evil-select-quote ?/ beg end type count))
(evil-define-text-object evil-a-org-italic-element (count &optional beg end type)
:extend-selection nil (evil-select-quote ?/ beg end type count t))
(evil-define-text-object evil-inner-org-underline-element (count &optional beg end type)
:extend-selection nil (evil-select-quote ?_ beg end type count))
(evil-define-text-object evil-a-org-underline-element (count &optional beg end type)
:extend-selection nil (evil-select-quote ?_ beg end type count t))
(evil-define-text-object evil-inner-org-code-element (count &optional beg end type)
:extend-selection nil (evil-select-quote ?= beg end type count))
(evil-define-text-object evil-a-org-code-element (count &optional beg end type)
:extend-selection nil (evil-select-quote ?= beg end type count t))
(evil-define-text-object evil-inner-org-verbatim-element (count &optional beg end type)
:extend-selection nil (evil-select-quote ?~ beg end type count))
(evil-define-text-object evil-a-org-verbatim-element (count &optional beg end type)
:extend-selection nil (evil-select-quote ?~ beg end type count t))
(define-key evil-outer-text-objects-map "*" 'evil-a-org-bold-element)
(define-key evil-inner-text-objects-map "*" 'evil-inner-org-bold-element)
(define-key evil-outer-text-objects-map "/" 'evil-a-org-italic-element)
(define-key evil-inner-text-objects-map "/" 'evil-inner-org-italic-element)
(define-key evil-outer-text-objects-map "_" 'evil-a-org-underline-element)
(define-key evil-inner-text-objects-map "_" 'evil-inner-org-underline-element)
(define-key evil-outer-text-objects-map "=" 'evil-a-org-code-element)
(define-key evil-inner-text-objects-map "=" 'evil-inner-org-code-element)
(define-key evil-outer-text-objects-map "~" 'evil-a-org-verbatim-element)
(define-key evil-inner-text-objects-map "~" 'evil-inner-org-verbatim-element)
(define-text-object! "$" "\\$" "\\$")
(define-text-object! "*" "\\*" "\\*")
(define-text-object! "/" "/" "/")
(define-text-object! "_" "_" "_")
(define-text-object! "=" "=" "=")
(define-text-object! "~" "~" "~")
;; Keybinds
(bind! (:map org-mode-map