ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

C-u B S now scatters tasks across weekdays only

This commit is contained in:
John Wiegley 2010-12-06 00:22:29 -05:00
parent 01a2e1a545
commit 4d575c8a03
1 changed files with 21 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
lisp/org-agenda.el
View File

@ -7874,8 +7874,27 @@ The prefix arg is passed through to the command if possible."
(fmakunbound 'read-string)))))))
((eq action '?S)
(let ((days (read-number "Scatter tasks across how many days: " 7)))
(setq cmd `(org-agenda-date-later (random ,(1+ days))))))
(let ((days (read-number
(format "Scatter tasks across how many %sdays: "
(if arg "week" "")) 7)))
(setq cmd
`(let ((distance (random ,(1+ days))))
(if arg
(let ((dist distance)
(day-of-week
(calendar-day-of-week
(calendar-gregorian-from-absolute (org-today)))))
(dotimes (i (1+ dist))
(while (member day-of-week org-agenda-weekend-days)
(incf distance)
(incf day-of-week)
(if (= day-of-week 7)
(setq day-of-week 0)))
(incf day-of-week)
(if (= day-of-week 7)
(setq day-of-week 0)))))
(org-agenda-date-later distance)))))
(t (error "Invalid bulk action")))
;; Sort the markers, to make sure that parents are handled before children