davemq

;; org agenda bulk action for random scatter for deadlines
(defun drm:org-agenda-deadline ()
  (unless (org-agenda-check-type nil 'agenda 'todo)
    (user-error "Can't scatter tasks in \"%s\" agenda view" org-agenda-type))
  (let ((days (read-number "Scatter tasks across how many days: " 7)))
    (let ((distance (1+ (random days))))
      ;; Silently fail when try to replan a sexp entry.
      (ignore-errors
	(let* ((date (calendar-gregorian-from-absolute
		      (+ (org-today) distance)))

davemq

Item	Price
A	19
B	23
C	34
D	1
Subtotal	77
Tax 5%	3.85