From 65facea0e9a48fa1e21c4b51790f0ce4448dff7b Mon Sep 17 00:00:00 2001 From: Stefan Petrea Date: Wed, 10 Sep 2014 10:16:13 +0200 Subject: Feature addition: * recompute clocks in visual selection * open org-mode links in visual selection --- evil-org.el | 32 ++++++++++++++++++++++++++++++++ 1 file changed, 32 insertions(+) diff --git a/evil-org.el b/evil-org.el index 8abd7fc..9180645 100644 --- a/evil-org.el +++ b/evil-org.el @@ -53,6 +53,38 @@ (evil-append nil) ) +;; recompute clocks in visual selection +(evil-define-operator evil-org-recompute-clocks (beg end type register yank-handler) + :keep-visual t + :move-point nil + (interactive "") + (progn + (message "start!" ) + (save-excursion + (while (< (point) end) + (org-evaluate-time-range) + (next-line) + (message "at position %S" (point)) + )))) + +;; open org-mode links in visual selection +(evil-define-operator evil-org-open-links (beg end type register yank-handler) + :keep-visual t + :move-point nil + (interactive "") + (progn + (message "start of evil-org-open-links 2" ) + (save-excursion + (goto-char beg) + (beginning-of-line) + (catch 'break + (while (< (point) end) + (message "at position %S" (point)) + (org-next-link) + (when (not(< (point) end)) (throw 'break 0)) + (org-open-at-point) + ))))) + ;; normal state shortcuts (evil-define-key 'normal evil-org-mode-map "gh" 'outline-up-heading -- cgit v1.0