Truncate the task name in emacs mode-line

Question

While org-clock-in a task, the task name will be shown on the mode-line. But some of my task names are too long. Is there any function to truncate the display name in the mode line?

Thanks.

Answer 1

You can tune this according to your taste:

(setq org-clock-heading-function
      (lambda ()
        (let ((str (nth 4 (org-heading-components))))
          (if (> (length str) 6)
              (substring str 0 6)))))