Hello, Samim Pezeshki <p.sa...@gmail.com> writes:
> +(defcustom org-agenda-clock-report-header nil > + "Header for org agenda clock report mode" > + :group 'org-agenda > + :type 'string) Please add :package-version and :safe keywords to the definition. Also, type does not match the default value. You probably mean (choice (string :tag "Header") (const :tag "No header" nil)) > + > (defun org-agenda-time-of-day-to-ampm (time) > "Convert TIME of a string like \"13:45\" to an AM/PM style time string." > (let* ((hour-number (string-to-number (substring time 0 -3))) > @@ -4473,6 +4478,10 @@ items if they have an hour specification like [h]h:mm." > (setq p (plist-put p :tend clocktable-end)) > (setq p (plist-put p :scope 'agenda)) > (setq tbl (apply #'org-clock-get-clocktable p)) > + (when org-agenda-clock-report-header > + (put-text-property 0 (length org-agenda-clock-report-header) 'face > 'org-agenda-structure > + org-agenda-clock-report-header) > + (insert org-agenda-clock-report-header)) Maybe: (insert (propertize org-agenda-clock-report-header 'face 'org-agenda-structure)) Could you send an updated patch? Regards, -- Nicolas Goaziou