task-count.el

  (defun sacha/org-count-tasks-by-status ()
    (interactive)
    (let ((counts (make-hash-table :test 'equal))
          (today (format-time-string "%Y-%m-%d" (current-time)))
          values)
      (org-map-entries
       (lambda ()
         (let* ((status (elt (org-heading-components) 2)))
           (when status
             (puthash status (1+ (or (gethash status counts) 0)) counts))))
       nil
       'agenda)
      (setq values (mapcar (lambda (x)
                             (or (gethash x counts) 0))
                           '("DONE" "STARTED" "TODO" "WAITING" "DELEGATED" "CANCELLED" "SOMEDAY")))
      (insert "| " today " | "
              (mapconcat 'number-to-string values " | ")
              " | "
              (number-to-string (apply '+ values))
              " | "
              (number-to-string
               (round (/ (* 100.0 (car values)) (apply '+ values))))
              "% |\n")))