Permalink
Cannot retrieve contributors at this time
Fetching contributors…

;;; org-mode-expansions.el --- Expansions for expand-region to be used in org-mode | |
;; Copyright (C) 2012 Magnar Sveen | |
;; Author: Magnar Sveen | |
;; Based on text-mode-expansions by: Ivan Andrus | |
;; Keywords: marking region | |
;; This program is free software; you can redistribute it and/or modify | |
;; it under the terms of the GNU General Public License as published by | |
;; the Free Software Foundation, either version 3 of the License, or | |
;; (at your option) any later version. | |
;; This program is distributed in the hope that it will be useful, | |
;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
;; GNU General Public License for more details. | |
;; You should have received a copy of the GNU General Public License | |
;; along with this program. If not, see <http://www.gnu.org/licenses/>. | |
;;; Commentary: | |
;; Feel free to contribute any other expansions for org-mode at | |
;; | |
;; https://github.com/magnars/expand-region.el | |
;;; Code: | |
(require 'expand-region-core) | |
(defun er/mark-sentence () | |
"Marks one sentence." | |
(interactive) | |
(forward-char 1) | |
(backward-sentence 1) | |
(set-mark (point)) | |
(forward-sentence 1) | |
(exchange-point-and-mark)) | |
(defun er/mark-paragraph () | |
"Marks one paragraph." | |
(interactive) | |
(mark-paragraph) | |
(exchange-point-and-mark) | |
(skip-chars-backward er--space-str) | |
(exchange-point-and-mark) | |
(skip-chars-forward er--space-str)) | |
(defun er/add-org-mode-expansions () | |
"Adds org-specific expansions for buffers in org-mode" | |
(set (make-local-variable 'er/try-expand-list) (append | |
er/try-expand-list | |
'(org-mark-subtree | |
er/mark-sentence | |
er/mark-paragraph)))) | |
(add-hook 'org-mode-hook 'er/add-org-mode-expansions) | |
(provide 'org-mode-expansions) |