Function: org-timer--get-timer-title

org-timer--get-timer-title is a byte-compiled function defined in org-timer.el.gz.

Signature

(org-timer--get-timer-title)

Documentation

Construct timer title.

Try to use an Org header, otherwise use the buffer name.

Source Code

;; Defined in /usr/src/emacs/lisp/org/org-timer.el.gz
(defun org-timer--get-timer-title ()
  "Construct timer title.
Try to use an Org header, otherwise use the buffer name."
  (cond
   ((derived-mode-p 'org-agenda-mode)
    (let* ((marker (or (get-text-property (point) 'org-marker)))
	   (hdmarker (or (get-text-property (point) 'org-hd-marker)
			 marker)))
      (when (and marker (marker-buffer marker))
	(with-current-buffer (marker-buffer marker)
	  (org-with-wide-buffer
	   (goto-char hdmarker)
	   (or (ignore-errors (org-get-heading))
	       (buffer-name (buffer-base-buffer))))))))
   ((derived-mode-p 'org-mode)
    (ignore-errors (org-get-heading)))
   (t (buffer-name (buffer-base-buffer)))))