Skip to content

Instantly share code, notes, and snippets.

@pmiddend
Created February 1, 2016 09:08
Show Gist options
  • Select an option

  • Save pmiddend/6f301d5bcc7f1f0d1153 to your computer and use it in GitHub Desktop.

Select an option

Save pmiddend/6f301d5bcc7f1f0d1153 to your computer and use it in GitHub Desktop.
(setq org-clock-heading-function
(lambda ()
(let ((str (nth 4 (org-heading-components))) (lenlimit 20))
(if (> (length str) lenlimit)
(substring (replace-regexp-in-string
"\\[\\[.*?\\]\\[\\(.*?\\)\\]\\]" "\\1"
str) 0 lenlimit)
(concat "" str)))))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment