Re: [PATCH] lisp/org-agenda.el: Add header to agenda clock report table

[Nicolas Goaziou <mail@nicolasgoaziou.fr>]

Hello,

Samim Pezeshki <p.samim@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