tec/org-mode
tec
/
org-mode
forked from mirrors/org-mode
1
0
Fork 0
Code Pull Requests Releases Activity

org-agenda: Bulk mark lines in region 

* lisp/org-agenda.el (org-agenda-bulk-mark): Added bulk mark for entries
  in region.  This is like in dired now.

* doc/org.texi (Agenda commands): Document bulk mark entries in region
This commit is contained in:
Marco Wahl 2017-10-25 15:13:13 +02:00
parent bebfd341af
commit 78c6a299d2
2 changed files with 16 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
doc/org.texi
View File

@ -9333,7 +9333,8 @@ drag forward by that many lines.
@vindex org-agenda-bulk-custom-functions
@orgcmd{m,org-agenda-bulk-mark}
Mark the entry at point for bulk action. With numeric prefix argument, mark
Mark the entry at point for bulk action. If there is an active region in the
agenda, mark the entries in the region. With numeric prefix argument, mark
that many successive entries.
@c
@orgcmd{*,org-agenda-bulk-mark-all}

15
lisp/org-agenda.el
View File

@ -9715,8 +9715,21 @@ This is a command that has to be installed in `calendar-mode-map'."
'org-marked-entry-overlay))
(defun org-agenda-bulk-mark (&optional arg)
"Mark the entry at point for future bulk action."
"Mark entries for future bulk action.
When ARG is nil or one and region is not active then mark the
entry at point.
When ARG is nil or one and region is active then mark the entries
in the region.
When ARG is greater than one mark ARG lines."
(interactive "p")
(when (and (or (not arg) (= arg 1)) (use-region-p))
(let ((start (caar (region-bounds)))
(end (cdar (region-bounds))))
(setq arg (count-lines start end))
(goto-char start)))
(dotimes (i (or arg 1))
(unless (org-get-at-bol 'org-agenda-diary-link)
(let* ((m (org-get-at-bol 'org-hd-marker))