From: Rainer Stengele <rainer.stengele@online.de>
To: emacs-orgmode@gnu.org
Subject: Re: error while creating agenda clocktable
Date: Fri, 27 Apr 2018 15:00:18 +0200 [thread overview]
Message-ID: <30c73220-22f9-51eb-46a2-f3582211efae@online.de> (raw)
In-Reply-To: <pbv3hc$mo1$1@blaine.gmane.org>
Hi Bastien,
I see that org-clocktable-write-default has been modified quite a bit.
I will copy the new function and modify it to fit my needs.
So please consider this case closed.
Thank you.
Regards, Rainer
Am 27.04.2018 um 14:05 schrieb Rainer Stengele:
> Hi Bastien,
>
> I am addressing you because I read that something changed with the agenda clocktables.
> Maybe related to that E-Mail:
>
> Subject: Re: agenda clockreport -- include tags?
> Date: Fri, 27 Apr 2018 01:34:50 +0200
>
> After updating today I cannot get the agenda clocktable anymore.
> I use my own formatter function rst/org-clocktable-write-default, which worked fine before.
>
> Can you please look into this?
>
> Error message see here:
>
>
> Debugger entered--Lisp error: (wrong-type-argument listp 15)
> assoc("CATEGORY" 15)
> (cdr (assoc p (nth 4 entry)))
> (or (cdr (assoc p (nth 4 entry))) "")
> (closure ((tcol) (narrow-cut-p) (content) (recalc) (headline . #("*Helbako-RO-BMW: Projektmanagement*" 0 1 (:org-clock-minutes 15
> wrap-prefix #("* " 0 2 (face org-indent)) line-prefix "" org-category "Helbako-RO-BMW" invisible org-link org-emphasis t font-lock-multiline
> t face (bold org-level-1) fontified t) 1 34 (:org-clock-minutes 15 wrap-prefix #("* " 0 2 (face org-indent)) line-prefix "" org-category
> "Helbako-RO-BMW" org-emphasis t font-lock-multiline t face (bold org-level-1) fontified t) 34 35 (:org-clock-minutes 15 wrap-prefix #("* " 0
> 2 (face org-indent)) line-prefix "" org-category "Helbako-RO-BMW" keymap (keymap (down-mouse-3 . org-mouse-move-tree-start) (drag-mouse-3 .
> org-mouse-move-tree) (C-down-mouse-1 . org-mouse-move-tree-start) (C-drag-mouse-1 . org-mouse-move-tree) (follow-link . mouse-face)
> (mouse-3) (mouse-2 . org-open-at-mouse)) mouse-face highlight invisible org-link org-emphasis t font-lock-multiline t face (bold
> org-level-1) fontified t))) (entry 1 #("*Helbako-RO-BMW: Projektmanagement*" 0 1 (:org-clock-minutes 15 wrap-prefix #("* " 0 2 (face
> org-indent)) line-prefix "" org-category "Helbako-RO-BMW" invisible org-link org-emphasis t font-lock-multiline t face (bold org-level-1)
> fontified t) 1 34 (:org-clock-minutes 15 wrap-prefix #("* " 0 2 (face org-indent)) line-prefix "" org-category "Helbako-RO-BMW" org-emphasis
> t font-lock-multiline t face (bold org-level-1) fontified t) 34 35 (:org-clock-minutes 15 wrap-prefix #("* " 0 2 (face org-indent))
> line-prefix "" org-category "Helbako-RO-BMW" keymap (keymap (down-mouse-3 . org-mouse-move-tree-start) (drag-mouse-3 . org-mouse-move-tree)
> (C-down-mouse-1 . org-mouse-move-tree-start) (C-drag-mouse-1 . org-mouse-move-tree) (follow-link . mouse-face) (mouse-3) (mouse-2 .
> org-open-at-mouse)) mouse-face highlight invisible org-link org-emphasis t font-lock-multiline t face (bold org-level-1) fontified t)) nil
> nil 15 (("CATEGORY" . "Helbako-RO-BMW"))) (entries (1 #("*Waltron: Projektmanagement*" 0 1 (:org-clock-minutes 75 wrap-prefix #("* " 0 2
> (face org-indent)) line-prefix "" org-category "Waltron" invisible org-link org-emphasis t font-lock-multiline t face (bold org-level-1)
> fontified t) 1 27 (:org-clock-minutes 75 wrap-prefix #("* " 0 2 (face org-indent)) line-prefix "" org-category "Waltron" org-emphasis t
> font-lock-multiline t face (bold org-level-1) fontified t) 27 28 (:org-clock-minutes 75 wrap-prefix #("* " 0 2 (face org-indent))
> line-prefix "" org-category "Waltron" keymap (keymap (down-mouse-3 . org-mouse-move-tree-start) (drag-mouse-3 . org-mouse-move-tree)
> (C-down-mouse-1 . org-mouse-move-tree-start) (C-drag-mouse-1 . org-mouse-move-tree) (follow-link . mouse-face) (mouse-3) (mouse-2 .
> org-open-at-mouse)) mouse-face highlight invisible org-link org-emphasis t font-lock-multiline t face (bold org-level-1) fontified t)) nil
> nil 75 (("CATEGORY" . "Waltron"))) (1 #("*00 - Project Managament - general*" 0 1 (:org-clock-minutes 15 wrap-prefix #("* " 0 2 (face
> org-indent)) line-prefix "" org-category "PM - daily" invisible org-link org-emphasis t font-lock-multiline t face (bold org-level-1)
> fontified t) 1 34 (:org-clock-minutes 15 wrap-prefix #("* " 0 2 (face org-indent)) line-prefix "" org-category "PM - daily" org-emphasis t
> font-lock-multiline t face (bold org-level-1) fontified t) 34 35 (:org-clock-minutes 15 wrap-prefix #("* " 0 2 (face org-indent))
> line-prefix "" org-category "PM - daily" keymap (keymap (down-mouse-3 . org-mouse-move-tree-start) (drag-mouse-3 . org-mouse-move-tree)
> (C-down-mouse-1 . org-mouse-move-tree-start) (C-drag-mouse-1 . org-mouse-move-tree) (follow-link . mouse-face) (mouse-3) (mouse-2 .
> org-open-at-mouse)) mouse-face highlight invisible org-link org-emphasis t font-lock-multiline t face (bold org-level-1) fontified t)) nil
> nil 15 (("CATEGORY" . "PM - daily"))) (1 #("*00 - PM Special*" 0 1 (:org-clock-minutes 60 wrap-prefix #("* " 0 2 (face org-indent))
> line-prefix "" org-category "PM - special" invisible org-link org-emphasis t font-lock-multiline t face (bold org-level-1) fontified t) 1 16
> (:org-clock-minutes 60 wrap-prefix #("* " 0 2 (face org-indent)) line-prefix "" org-category "PM - special" org-emphasis t
> font-lock-multiline t face (bold org-level-1) fontified t) 16 17 (:org-clock-minutes 60 wrap-prefix #("* " 0 2 (face org-indent))
> line-prefix "" org-category "PM - special" keymap (keymap (down-mouse-3 . org-mouse-move-tree-start) (drag-mouse-3 . org-mouse-move-tree)
> (C-down-mouse-1 . org-mouse-move-tree-start) (C-drag-mouse-1 . org-mouse-move-tree) (follow-link . mouse-face) (mouse-3) (mouse-2 .
> org-open-at-mouse)) mouse-face highlight invisible org-link org-emphasis t font-lock-multiline t face (bold org-level-1) fontified t)) nil
> nil 60 (("CATEGORY" . "PM - special")))) (file-time . 165) (pcol) (formula) (hlc . "") (level . 1) (tbl "~/org/DIPLAN/Projectmanagement.org"
> 165 ((1 #("*Helbako-RO-BMW: Projektmanagement*" 0 1 (:org-clock-minutes 15 wrap-prefix #("* " 0 2 ...) line-prefix "" org-category
> "Helbako-RO-BMW" invisible org-link org-emphasis t font-lock-multiline t face (bold org-level-1) fontified t) 1 34 (:org-clock-minutes 15
> wrap-prefix #("* " 0 2 ...) line-prefix "" org-category "Helbako-RO-BMW" org-emphasis t font-lock-multiline t face (bold org-level-1)
> fontified t) 34 35 (:org-clock-minutes 15 wrap-prefix #("* " 0 2 ...) line-prefix "" org-category "Helbako-RO-BMW" keymap (keymap ... ...
> ... ... ... ... ...) mouse-face highlight invisible org-link org-emphasis t font-lock-multiline t face (bold org-level-1) fontified t)) nil
> nil 15 (("CATEGORY" . "Helbako-RO-BMW"))) (1 #("*Waltron: Projektmanagement*" 0 1 (:org-clock-minutes 75 wrap-prefix #("* " 0 2 ...)
> line-prefix "" org-category "Waltron" invisible org-link org-emphasis t font-lock-multiline t face (bold org-level-1) fontified t) 1 27
> (:org-clock-minutes 75 wrap-prefix #("* " 0 2 ...) line-prefix "" org-category "Waltron" org-emphasis t font-lock-multiline t face (bold
> org-level-1) fontified t) 27 28 (:org-clock-minutes 75 wrap-prefix #("* " 0 2 ...) line-prefix "" org-category "Waltron" keymap (keymap ...
> ... ... ... ... ... ...) mouse-face highlight invisible org-link org-emphasis t font-lock-multiline t face (bold org-level-1) fontified t))
> nil nil 75 (("CATEGORY" . "Waltron"))) (1 #("*00 - Project Managament - general*" 0 1 (:org-clock-minutes 15 wrap-prefix #("* " 0 2 ...)
> line-prefix "" org-category "PM - daily" invisible org-link org-emphasis t font-lock-multiline t face (bold org-level-1) fontified t) 1 34
> (:org-clock-minutes 15 wrap-prefix #("* " 0 2 ...) line-prefix "" org-category "PM - daily" org-emphasis t font-lock-multiline t face (bold
> org-level-1) fontified t) 34 35 (:org-clock-minutes 15 wrap-prefix #("* " 0 2 ...) line-prefix "" org-category "PM - daily" keymap (keymap
> ... ... ... ... ... ... ...) mouse-face highlight invisible org-link org-emphasis t font-lock-multiline t face (bold org-level-1) fontified
> t)) nil nil 15 (("CATEGORY" . "PM - daily"))) (1 #("*00 - PM Special*" 0 1 (:org-clock-minutes 60 wrap-prefix #("* " 0 2 ...) line-prefix ""
> org-category "PM - special" invisible org-link org-emphasis t font-lock-multiline t face (bold org-level-1) fontified t) 1 16
> (:org-clock-minutes 60 wrap-prefix #("* " 0 2 ...) line-prefix "" org-category "PM - special" org-emphasis t font-lock-multiline t face
> (bold org-level-1) fontified t) 16 17 (:org-clock-minutes 60 wrap-prefix #("* " 0 2 ...) line-prefix "" org-category "PM - special" keymap
> (keymap ... ... ... ... ... ... ...) mouse-face highlight invisible org-link org-emphasis t font-lock-multiline t face (bold org-level-1)
> fontified t)) nil nil 60 (("CATEGORY" . "PM - special"))))) (total-time . 165) (range-text) (indent . t) (rm-file-column) (ntcol . 100)
> (properties "CATEGORY") (timestamp) (org-time-clocksum-use-effort-durations) (level-p) (emph) (maxlevel . 1) (link) (ms . 1) (ws . 1)
> (narrow . 80!) (header) (te . 736812) (ts . 736811) (sort) (block) (multifile . t) (lwords "de" "Datei" "E" "Zeitstempel" "Kopfzeile"
> "Dauer" "GESAMT" "Gesamtdauer" "Dateizeit" "Erstellt am") (hlchars (1 . "*") (2 . "/")) (params :maxlevel 1 :lang "de" :scope agenda :block
> nil :wstart 1 :mstart 1 :tstart 736811 :tend 736812 :step nil :stepskip0 t :fileskip0 t :tags nil :emphasize nil :link nil :narrow 80!
> :indent t :formula nil :timestamp nil :level nil :tcolumns nil :formatter rst/org-clocktable-write-default :name "clocktable" :properties
> ("CATEGORY") :indentation-column 0 :content ...) (tables ("~/org/DIPLAN/DIPLAN.org" 0 nil)) (ipos . 192) t) (p) (or (cdr (assoc p (nth 4
> entry))) ""))("CATEGORY")
> mapconcat((closure ((tcol) (narrow-cut-p) (content) (recalc) (headline . #("*Helbako-RO-BMW: Projektmanagement*" 0 1 (:org-clock-minutes
> 15 wrap-prefix #("* " 0 2 (face org-indent)) line-prefix "" org-category "Helbako-RO-BMW" invisible org-link org-emphasis t
> font-lock-multiline t face (bold org-level-1) fontified t) 1 34 (:org-clock-minutes 15 wrap-prefix #("* " 0 2 (face org-indent)) line-prefix
> "" org-category "Helbako-RO-BMW" org-emphasis t font-lock-multiline t face (bold org-level-1) fontified t) 34 35 (:org-clock-minutes 15
> wrap-prefix #("* " 0 2 (face org-indent)) line-prefix "" org-category "Helbako-RO-BMW" keymap (keymap (down-mouse-3 .
> org-mouse-move-tree-start) (drag-mouse-3 . org-mouse-move-tree) (C-down-mouse-1 . org-mouse-move-tree-start) (C-drag-mouse-1 .
> org-mouse-move-tree) (follow-link . mouse-face) (mouse-3) (mouse-2 . org-open-at-mouse)) mouse-face highlight invisible org-link
> org-emphasis t font-lock-multiline t face (bold org-level-1) fontified t))) (entry 1 #("*Helbako-RO-BMW: Projektmanagement*" 0 1
> (:org-clock-minutes 15 wrap-prefix #("* " 0 2 (face org-indent)) line-prefix "" org-category "Helbako-RO-BMW" invisible org-link
> org-emphasis t font-lock-multiline t face (bold org-level-1) fontified t) 1 34 (:org-clock-minutes 15 wrap-prefix #("* " 0 2 (face
> org-indent)) line-prefix "" org-category "Helbako-RO-BMW" org-emphasis t font-lock-multiline t face (bold org-level-1) fontified t) 34 35
> (:org-clock-minutes 15 wrap-prefix #("* " 0 2 (face org-indent)) line-prefix "" org-category "Helbako-RO-BMW" keymap (keymap (down-mouse-3 .
> org-mouse-move-tree-start) (drag-mouse-3 . org-mouse-move-tree) (C-down-mouse-1 . org-mouse-move-tree-start) (C-drag-mouse-1 .
> org-mouse-move-tree) (follow-link . mouse-face) (mouse-3) (mouse-2 . org-open-at-mouse)) mouse-face highlight invisible org-link
> org-emphasis t font-lock-multiline t face (bold org-level-1) fontified t)) nil nil 15 (("CATEGORY" . "Helbako-RO-BMW"))) (entries (1
> #("*Waltron: Projektmanagement*" 0 1 (:org-clock-minutes 75 wrap-prefix #("* " 0 2 (face org-indent)) line-prefix "" org-category "Waltron"
> invisible org-link org-emphasis t font-lock-multiline t face (bold org-level-1) fontified t) 1 27 (:org-clock-minutes 75 wrap-prefix #("* "
> 0 2 (face org-indent)) line-prefix "" org-category "Waltron" org-emphasis t font-lock-multiline t face (bold org-level-1) fontified t) 27 28
> (:org-clock-minutes 75 wrap-prefix #("* " 0 2 (face org-indent)) line-prefix "" org-category "Waltron" keymap (keymap (down-mouse-3 .
> org-mouse-move-tree-start) (drag-mouse-3 . org-mouse-move-tree) (C-down-mouse-1 . org-mouse-move-tree-start) (C-drag-mouse-1 .
> org-mouse-move-tree) (follow-link . mouse-face) (mouse-3) (mouse-2 . org-open-at-mouse)) mouse-face highlight invisible org-link
> org-emphasis t font-lock-multiline t face (bold org-level-1) fontified t)) nil nil 75 (("CATEGORY" . "Waltron"))) (1 #("*00 - Project
> Managament - general*" 0 1 (:org-clock-minutes 15 wrap-prefix #("* " 0 2 (face org-indent)) line-prefix "" org-category "PM - daily"
> invisible org-link org-emphasis t font-lock-multiline t face (bold org-level-1) fontified t) 1 34 (:org-clock-minutes 15 wrap-prefix #("* "
> 0 2 (face org-indent)) line-prefix "" org-category "PM - daily" org-emphasis t font-lock-multiline t face (bold org-level-1) fontified t) 34
> 35 (:org-clock-minutes 15 wrap-prefix #("* " 0 2 (face org-indent)) line-prefix "" org-category "PM - daily" keymap (keymap (down-mouse-3 .
> org-mouse-move-tree-start) (drag-mouse-3 . org-mouse-move-tree) (C-down-mouse-1 . org-mouse-move-tree-start) (C-drag-mouse-1 .
> org-mouse-move-tree) (follow-link . mouse-face) (mouse-3) (mouse-2 . org-open-at-mouse)) mouse-face highlight invisible org-link
> org-emphasis t font-lock-multiline t face (bold org-level-1) fontified t)) nil nil 15 (("CATEGORY" . "PM - daily"))) (1 #("*00 - PM
> Special*" 0 1 (:org-clock-minutes 60 wrap-prefix #("* " 0 2 (face org-indent)) line-prefix "" org-category "PM - special" invisible org-link
> org-emphasis t font-lock-multiline t face (bold org-level-1) fontified t) 1 16 (:org-clock-minutes 60 wrap-prefix #("* " 0 2 (face
> org-indent)) line-prefix "" org-category "PM - special" org-emphasis t font-lock-multiline t face (bold org-level-1) fontified t) 16 17
> (:org-clock-minutes 60 wrap-prefix #("* " 0 2 (face org-indent)) line-prefix "" org-category "PM - special" keymap (keymap (down-mouse-3 .
> org-mouse-move-tree-start) (drag-mouse-3 . org-mouse-move-tree) (C-down-mouse-1 . org-mouse-move-tree-start) (C-drag-mouse-1 .
> org-mouse-move-tree) (follow-link . mouse-face) (mouse-3) (mouse-2 . org-open-at-mouse)) mouse-face highlight invisible org-link
> org-emphasis t font-lock-multiline t face (bold org-level-1) fontified t)) nil nil 60 (("CATEGORY" . "PM - special")))) (file-time . 165)
> (pcol) (formula) (hlc . "") (level . 1) (tbl "~/org/DIPLAN/Projectmanagement.org" 165 ((1 #("*Helbako-RO-BMW: Projektmanagement*" 0 1
> (:org-clock-minutes 15 wrap-prefix #("* " 0 2 ...) line-prefix "" org-category "Helbako-RO-BMW" invisible org-link org-emphasis t
> font-lock-multiline t face (bold org-level-1) fontified t) 1 34 (:org-clock-minutes 15 wrap-prefix #("* " 0 2 ...) line-prefix ""
> org-category "Helbako-RO-BMW" org-emphasis t font-lock-multiline t face (bold org-level-1) fontified t) 34 35 (:org-clock-minutes 15
> wrap-prefix #("* " 0 2 ...) line-prefix "" org-category "Helbako-RO-BMW" keymap (keymap ... ... ... ... ... ... ...) mouse-face highlight
> invisible org-link org-emphasis t font-lock-multiline t face (bold org-level-1) fontified t)) nil nil 15 (("CATEGORY" . "Helbako-RO-BMW")))
> (1 #("*Waltron: Projektmanagement*" 0 1 (:org-clock-minutes 75 wrap-prefix #("* " 0 2 ...) line-prefix "" org-category "Waltron" invisible
> org-link org-emphasis t font-lock-multiline t face (bold org-level-1) fontified t) 1 27 (:org-clock-minutes 75 wrap-prefix #("* " 0 2 ...)
> line-prefix "" org-category "Waltron" org-emphasis t font-lock-multiline t face (bold org-level-1) fontified t) 27 28 (:org-clock-minutes 75
> wrap-prefix #("* " 0 2 ...) line-prefix "" org-category "Waltron" keymap (keymap ... ... ... ... ... ... ...) mouse-face highlight invisible
> org-link org-emphasis t font-lock-multiline t face (bold org-level-1) fontified t)) nil nil 75 (("CATEGORY" . "Waltron"))) (1 #("*00 -
> Project Managament - general*" 0 1 (:org-clock-minutes 15 wrap-prefix #("* " 0 2 ...) line-prefix "" org-category "PM - daily" invisible
> org-link org-emphasis t font-lock-multiline t face (bold org-level-1) fontified t) 1 34 (:org-clock-minutes 15 wrap-prefix #("* " 0 2 ...)
> line-prefix "" org-category "PM - daily" org-emphasis t font-lock-multiline t face (bold org-level-1) fontified t) 34 35 (:org-clock-minutes
> 15 wrap-prefix #("* " 0 2 ...) line-prefix "" org-category "PM - daily" keymap (keymap ... ... ... ... ... ... ...) mouse-face highlight
> invisible org-link org-emphasis t font-lock-multiline t face (bold org-level-1) fontified t)) nil nil 15 (("CATEGORY" . "PM - daily"))) (1
> #("*00 - PM Special*" 0 1 (:org-clock-minutes 60 wrap-prefix #("* " 0 2 ...) line-prefix "" org-category "PM - special" invisible org-link
> org-emphasis t font-lock-multiline t face (bold org-level-1) fontified t) 1 16 (:org-clock-minutes 60 wrap-prefix #("* " 0 2 ...)
> line-prefix "" org-category "PM - special" org-emphasis t font-lock-multiline t face (bold org-level-1) fontified t) 16 17
> (:org-clock-minutes 60 wrap-prefix #("* " 0 2 ...) line-prefix "" org-category "PM - special" keymap (keymap ... ... ... ... ... ... ...)
> mouse-face highlight invisible org-link org-emphasis t font-lock-multiline t face (bold org-level-1) fontified t)) nil nil 60 (("CATEGORY" .
> "PM - special"))))) (total-time . 165) (range-text) (indent . t) (rm-file-column) (ntcol . 100) (properties "CATEGORY") (timestamp)
> (org-time-clocksum-use-effort-durations) (level-p) (emph) (maxlevel . 1) (link) (ms . 1) (ws . 1) (narrow . 80!) (header) (te . 736812) (ts
> . 736811) (sort) (block) (multifile . t) (lwords "de" "Datei" "E" "Zeitstempel" "Kopfzeile" "Dauer" "GESAMT" "Gesamtdauer" "Dateizeit"
> "Erstellt am") (hlchars (1 . "*") (2 . "/")) (params :maxlevel 1 :lang "de" :scope agenda :block nil :wstart 1 :mstart 1 :tstart 736811
> :tend 736812 :step nil :stepskip0 t :fileskip0 t :tags nil :emphasize nil :link nil :narrow 80! :indent t :formula nil :timestamp nil :level
> nil :tcolumns nil :formatter rst/org-clocktable-write-default :name "clocktable" :properties ("CATEGORY") :indentation-column 0 :content
> ...) (tables ("~/org/DIPLAN/DIPLAN.org" 0 nil)) (ipos . 192) t) (p) (or (cdr (assoc p (nth 4 entry))) "")) ("CATEGORY") "|")
> (concat (mapconcat (function (lambda (p) (or (cdr (assoc p (nth 4 entry))) ""))) properties "|") "|")
> (if properties (concat (mapconcat (function (lambda (p) (or (cdr (assoc p ...)) ""))) properties "|") "|") "")
> (insert-before-markers "|" (if level-p (format "%d|" (car entry)) "") (if timestamp (concat (nth 2 entry) "|") "") (if properties (concat
> (mapconcat (function (lambda (p) (or (cdr ...) ""))) properties "|") "|") "") (if indent (org-clocktable-indent-string level) "")
> (make-string (min (1- ntcol) (or (- level 1))) 124) hlc (org-minutes-to-clocksum-string (nth 3 entry)) hlc "|\n")
> (while (setq entry (car-safe (prog1 entries (setq entries (cdr entries))))) (setq level (car entry) headline (nth 1 entry) hlc (if emph
> (or (cdr (assoc level hlchars)) "") "")) (if narrow-cut-p (progn (if (and (string-match (concat "\\`" org-bracket-link-regexp "\\'")
> headline) (match-end 3)) (setq headline (format "[[%s][%s]]" (match-string 1 headline) (org-shorten-string (match-string 3 headline)
> narrow))) (setq headline (org-shorten-string headline narrow))))) (insert-before-markers "|" (if level-p (format "%d|" (car entry)) "") (if
> timestamp (concat (nth 2 entry) "|") "") (if properties (concat (mapconcat (function (lambda (p) (or ... ""))) properties "|") "|") "") (if
> indent (org-clocktable-indent-string level) "") (make-string (min (1- ntcol) (or (- level 1))) 124) hlc (org-minutes-to-clocksum-string (nth
> 3 entry)) hlc "|\n"))
> (progn (insert-before-markers "|-\n") (if (and nil multifile) (progn (insert-before-markers (format (concat "| %s | %s%s" (format
> org-clock-file-time-cell-format (nth 8 lwords)) " | *%s*|\n") (if level-p "| " "") (if timestamp "| " "") (if properties (make-string
> (length properties) 124) "") (org-minutes-to-clocksum-string (nth 1 tbl)))))) (setq entries (nth 2 tbl)) (while (setq entry (car-safe (prog1
> entries (setq entries (cdr entries))))) (setq level (car entry) headline (nth 1 entry) hlc (if emph (or (cdr (assoc level hlchars)) "") ""))
> (if narrow-cut-p (progn (if (and (string-match (concat "\\`" org-bracket-link-regexp "\\'") headline) (match-end 3)) (setq headline (format
> "[[%s][%s]]" (match-string 1 headline) (org-shorten-string ... narrow))) (setq headline (org-shorten-string headline narrow)))))
> (insert-before-markers "|" (if level-p (format "%d|" (car entry)) "") (if timestamp (concat (nth 2 entry) "|") "") (if properties (concat
> (mapconcat (function (lambda ... ...)) properties "|") "|") "") (if indent (org-clocktable-indent-string level) "") (make-string (min (1-
> ntcol) (or (- level 1))) 124) hlc (org-minutes-to-clocksum-string (nth 3 entry)) hlc "|\n")))
> (if (or (and file-time (> file-time 0)) (not (plist-get params :fileskip0))) (progn (insert-before-markers "|-\n") (if (and nil
> multifile) (progn (insert-before-markers (format (concat "| %s | %s%s" (format org-clock-file-time-cell-format ...) " | *%s*|\n") (if
> level-p "| " "") (if timestamp "| " "") (if properties (make-string ... 124) "") (org-minutes-to-clocksum-string (nth 1 tbl)))))) (setq
> entries (nth 2 tbl)) (while (setq entry (car-safe (prog1 entries (setq entries (cdr entries))))) (setq level (car entry) headline (nth 1
> entry) hlc (if emph (or (cdr (assoc level hlchars)) "") "")) (if narrow-cut-p (progn (if (and (string-match ... headline) (match-end 3))
> (setq headline (format "[[%s][%s]]" ... ...)) (setq headline (org-shorten-string headline narrow))))) (insert-before-markers "|" (if level-p
> (format "%d|" (car entry)) "") (if timestamp (concat (nth 2 entry) "|") "") (if properties (concat (mapconcat (function ...) properties "|")
> "|") "") (if indent (org-clocktable-indent-string level) "") (make-string (min (1- ntcol) (or (- level 1))) 124) hlc
> (org-minutes-to-clocksum-string (nth 3 entry)) hlc "|\n"))))
> (while (setq tbl (car-safe (prog1 tables (setq tables (cdr tables))))) (setq file-time (nth 1 tbl)) (if (or (and file-time (> file-time
> 0)) (not (plist-get params :fileskip0))) (progn (insert-before-markers "|-\n") (if (and nil multifile) (progn (insert-before-markers (format
> (concat "| %s | %s%s" ... " | *%s*|\n") (if level-p "| " "") (if timestamp "| " "") (if properties ... "") (org-minutes-to-clocksum-string
> ...))))) (setq entries (nth 2 tbl)) (while (setq entry (car-safe (prog1 entries (setq entries ...)))) (setq level (car entry) headline (nth
> 1 entry) hlc (if emph (or (cdr ...) "") "")) (if narrow-cut-p (progn (if (and ... ...) (setq headline ...) (setq headline ...))))
> (insert-before-markers "|" (if level-p (format "%d|" (car entry)) "") (if timestamp (concat (nth 2 entry) "|") "") (if properties (concat
> (mapconcat ... properties "|") "|") "") (if indent (org-clocktable-indent-string level) "") (make-string (min (1- ntcol) (or ...)) 124) hlc
> (org-minutes-to-clocksum-string (nth 3 entry)) hlc "|\n")))))
> (progn (while (setq tbl (car-safe (prog1 tables (setq tables (cdr tables))))) (setq file-time (nth 1 tbl)) (if (or (and file-time (>
> file-time 0)) (not (plist-get params :fileskip0))) (progn (insert-before-markers "|-\n") (if (and nil multifile) (progn
> (insert-before-markers (format ... ... ... ... ...)))) (setq entries (nth 2 tbl)) (while (setq entry (car-safe (prog1 entries ...))) (setq
> level (car entry) headline (nth 1 entry) hlc (if emph (or ... "") "")) (if narrow-cut-p (progn (if ... ... ...))) (insert-before-markers "|"
> (if level-p (format "%d|" ...) "") (if timestamp (concat ... "|") "") (if properties (concat ... "|") "") (if indent
> (org-clocktable-indent-string level) "") (make-string (min ... ...) 124) hlc (org-minutes-to-clocksum-string (nth 3 entry)) hlc "|\n"))))))
> (if (and total-time (> total-time 0)) (progn (while (setq tbl (car-safe (prog1 tables (setq tables (cdr tables))))) (setq file-time (nth
> 1 tbl)) (if (or (and file-time (> file-time 0)) (not (plist-get params :fileskip0))) (progn (insert-before-markers "|-\n") (if (and nil
> multifile) (progn (insert-before-markers ...))) (setq entries (nth 2 tbl)) (while (setq entry (car-safe ...)) (setq level (car entry)
> headline (nth 1 entry) hlc (if emph ... "")) (if narrow-cut-p (progn ...)) (insert-before-markers "|" (if level-p ... "") (if timestamp ...
> "") (if properties ... "") (if indent ... "") (make-string ... 124) hlc (org-minutes-to-clocksum-string ...) hlc "|\n")))))))
> (let* ((hlchars (quote ((1 . "*") (2 . "/")))) (lwords (assoc (or (plist-get params :lang) (and (boundp (quote
> org-export-default-language)) org-export-default-language) "en") org-clock-clocktable-language-setup)) (multifile (plist-get params
> :multifile)) (block (plist-get params :block)) (sort (plist-get params :sort)) (ts (plist-get params :tstart)) (te (plist-get params :tend))
> (header (plist-get params :header)) (narrow (plist-get params :narrow)) (ws (or (plist-get params :wstart) 1)) (ms (or (plist-get params
> :mstart) 1)) (link (plist-get params :link)) (maxlevel (or (plist-get params :maxlevel) 3)) (emph (plist-get params :emphasize)) (level-p
> (plist-get params :level)) (org-time-clocksum-use-effort-durations (plist-get params :effort-durations)) (timestamp (plist-get params
> :timestamp)) (properties (plist-get params :properties)) (ntcol (max 1 (or (plist-get params :tcolumns) 100))) (rm-file-column (plist-get
> params :one-file-with-archives)) (indent (plist-get params :indent)) (case-fold-search t) range-text total-time tbl level hlc formula pcol
> file-time entries entry headline recalc content narrow-cut-p tcol) (if (integerp ntcol) nil (setq params (plist-put params :tcolumns (setq
> ntcol 100)))) (if block (progn (setq range-text (nth 2 (org-clock-special-range block nil t ws ms))))) (setq total-time (apply (quote +)
> (mapcar (quote cadr) tables))) (goto-char ipos) (insert-before-markers (or header (concat "#+CAPTION: " (nth 9 lwords) " [" (substring
> (format-time-string (cdr org-time-stamp-formats)) 1 -1) "]" (if block (concat ", for " range-text ".") "") "\n"))) (insert-before-markers
> "|" (if level-p (concat (nth 2 lwords) "|") "") (if timestamp (concat (nth 3 lwords) "|") "") (if properties (concat (mapconcat (quote
> identity) properties "|") "|") "") (concat (nth 5 lwords) "|\n")) (insert-before-markers "|" (if level-p "|" "") (if timestamp "|" "") (if
> properties (make-string (length properties) 124) "") (format org-clock-total-time-cell-format (org-minutes-to-clocksum-string (or total-time
> 0))) "|\n") (if (and total-time (> total-time 0)) (progn (while (setq tbl (car-safe (prog1 tables (setq tables ...)))) (setq file-time (nth
> 1 tbl)) (if (or (and file-time (> file-time 0)) (not (plist-get params :fileskip0))) (progn (insert-before-markers "|-\n") (if (and nil
> multifile) (progn ...)) (setq entries (nth 2 tbl)) (while (setq entry ...) (setq level ... headline ... hlc ...) (if narrow-cut-p ...)
> (insert-before-markers "|" ... ... ... ... ... hlc ... hlc "|\n"))))))) (let ((delete-active-region nil)) (backward-delete-char 1))
> (goto-char ipos) (skip-chars-forward "^|") (org-table-align) (if org-hide-emphasis-markers (progn (org-table-align))) (if sort (progn
> (save-excursion (org-table-goto-line 3) (org-table-goto-column (car sort)) (org-table-sort-lines nil (cdr sort))))) (if recalc (progn (if
> (eq formula (quote %)) (save-excursion (if (and narrow (not narrow-cut-p)) (beginning-of-line 2)) (org-table-goto-column pcol nil (quote
> force)) (insert "%"))) (org-table-recalculate (quote all)))) (if rm-file-column (progn (forward-char 1) (org-table-delete-column))) total-time)
> rst/org-clocktable-write-default(192 (("~/org/DIPLAN/Projectmanagement.org" 165 ((1 #("*Helbako-RO-BMW: Projektmanagement*" 0 1
> (:org-clock-minutes 15 wrap-prefix #("* " 0 2 (face org-indent)) line-prefix "" org-category "Helbako-RO-BMW" invisible org-link
> org-emphasis t font-lock-multiline t face (bold org-level-1) fontified t) 1 34 (:org-clock-minutes 15 wrap-prefix #("* " 0 2 (face
> org-indent)) line-prefix "" org-category "Helbako-RO-BMW" org-emphasis t font-lock-multiline t face (bold org-level-1) fontified t) 34 35
> (:org-clock-minutes 15 wrap-prefix #("* " 0 2 (face org-indent)) line-prefix "" org-category "Helbako-RO-BMW" keymap (keymap (down-mouse-3 .
> org-mouse-move-tree-start) (drag-mouse-3 . org-mouse-move-tree) (C-down-mouse-1 . org-mouse-move-tree-start) (C-drag-mouse-1 .
> org-mouse-move-tree) (follow-link . mouse-face) (mouse-3) (mouse-2 . org-open-at-mouse)) mouse-face highlight invisible org-link
> org-emphasis t font-lock-multiline t face (bold org-level-1) fontified t)) nil nil 15 (("CATEGORY" . "Helbako-RO-BMW"))) (1 #("*Waltron:
> Projektmanagement*" 0 1 (:org-clock-minutes 75 wrap-prefix #("* " 0 2 (face org-indent)) line-prefix "" org-category "Waltron" invisible
> org-link org-emphasis t font-lock-multiline t face (bold org-level-1) fontified t) 1 27 (:org-clock-minutes 75 wrap-prefix #("* " 0 2 (face
> org-indent)) line-prefix "" org-category "Waltron" org-emphasis t font-lock-multiline t face (bold org-level-1) fontified t) 27 28
> (:org-clock-minutes 75 wrap-prefix #("* " 0 2 (face org-indent)) line-prefix "" org-category "Waltron" keymap (keymap (down-mouse-3 .
> org-mouse-move-tree-start) (drag-mouse-3 . org-mouse-move-tree) (C-down-mouse-1 . org-mouse-move-tree-start) (C-drag-mouse-1 .
> org-mouse-move-tree) (follow-link . mouse-face) (mouse-3) (mouse-2 . org-open-at-mouse)) mouse-face highlight invisible org-link
> org-emphasis t font-lock-multiline t face (bold org-level-1) fontified t)) nil nil 75 (("CATEGORY" . "Waltron"))) (1 #("*00 - Project
> Managament - general*" 0 1 (:org-clock-minutes 15 wrap-prefix #("* " 0 2 (face org-indent)) line-prefix "" org-category "PM - daily"
> invisible org-link org-emphasis t font-lock-multiline t face (bold org-level-1) fontified t) 1 34 (:org-clock-minutes 15 wrap-prefix #("* "
> 0 2 (face org-indent)) line-prefix "" org-category "PM - daily" org-emphasis t font-lock-multiline t face (bold org-level-1) fontified t) 34
> 35 (:org-clock-minutes 15 wrap-prefix #("* " 0 2 (face org-indent)) line-prefix "" org-category "PM - daily" keymap (keymap (down-mouse-3 .
> org-mouse-move-tree-start) (drag-mouse-3 . org-mouse-move-tree) (C-down-mouse-1 . org-mouse-move-tree-start) (C-drag-mouse-1 .
> org-mouse-move-tree) (follow-link . mouse-face) (mouse-3) (mouse-2 . org-open-at-mouse)) mouse-face highlight invisible org-link
> org-emphasis t font-lock-multiline t face (bold org-level-1) fontified t)) nil nil 15 (("CATEGORY" . "PM - daily"))) (1 #("*00 - PM
> Special*" 0 1 (:org-clock-minutes 60 wrap-prefix #("* " 0 2 (face org-indent)) line-prefix "" org-category "PM - special" invisible org-link
> org-emphasis t font-lock-multiline t face (bold org-level-1) fontified t) 1 16 (:org-clock-minutes 60 wrap-prefix #("* " 0 2 (face
> org-indent)) line-prefix "" org-category "PM - special" org-emphasis t font-lock-multiline t face (bold org-level-1) fontified t) 16 17
> (:org-clock-minutes 60 wrap-prefix #("* " 0 2 (face org-indent)) line-prefix "" org-category "PM - special" keymap (keymap (down-mouse-3 .
> org-mouse-move-tree-start) (drag-mouse-3 . org-mouse-move-tree) (C-down-mouse-1 . org-mouse-move-tree-start) (C-drag-mouse-1 .
> org-mouse-move-tree) (follow-link . mouse-face) (mouse-3) (mouse-2 . org-open-at-mouse)) mouse-face highlight invisible org-link
> org-emphasis t font-lock-multiline t face (bold org-level-1) fontified t)) nil nil 60 (("CATEGORY" . "PM - special")))))
> ("~/org/DIPLAN/DIPLAN.org" 0 nil)) (:maxlevel 1 :lang "de" :scope agenda :block nil :wstart 1 :mstart 1 :tstart 736811 :tend 736812 :step
> nil :stepskip0 t :fileskip0 t :tags nil :emphasize nil :link nil :narrow 80! :indent t :formula nil :timestamp nil :level nil :tcolumns nil
> :formatter rst/org-clocktable-write-default :name "clocktable" :properties ("CATEGORY") :indentation-column 0 :content "\n" ...))
> org-dblock-write:clocktable((:name "clocktable" :maxlevel 1 :narrow 80! :indent t :fileskip0 t :stepskip0 t :properties ("CATEGORY")
> :formatter rst/org-clocktable-write-default :tstart 736811 :tend 736812 :scope agenda :indentation-column 0 :content "\n"))
> org-update-dblock()
> org-clock-get-clocktable(:maxlevel 1 :narrow 80! :indent t :fileskip0 t :stepskip0 t :properties ("CATEGORY") :formatter
> rst/org-clocktable-write-default :tstart 736811 :tend 736812 :scope agenda)
> apply(org-clock-get-clocktable (:maxlevel 1 :narrow 80! :indent t :fileskip0 t :stepskip0 t :properties ("CATEGORY") :formatter
> rst/org-clocktable-write-default :tstart 736811 :tend 736812 :scope agenda))
> org-agenda-list(nil)
> funcall-interactively(org-agenda-list nil)
> call-interactively(org-agenda-list)
> (let ((org-agenda-span (quote day)) (org-agenda-start-on-weekday 1) (org-agenda-include-diary nil) (org-agenda-overriding-header "Agenda
> clockings, available projects")) (call-interactively (quote org-agenda-list)))
> (let ((org-agenda-files org-agenda-files-aegis) (org-agenda-sorting-strategy (quote (time-up priority-down todo-state-up)))
> (org-agenda-start-with-log-mode (quote clockcheck)) (org-use-tag-inheritance nil) (org-agenda-remove-tags t) (org-agenda-clockreport-mode
> t)) (let ((org-agenda-span (quote day)) (org-agenda-start-on-weekday 1) (org-agenda-include-diary nil) (org-agenda-overriding-header "Agenda
> clockings, available projects")) (call-interactively (quote org-agenda-list))))
> eval((let ((org-agenda-files org-agenda-files-aegis) (org-agenda-sorting-strategy (quote (time-up priority-down todo-state-up)))
> (org-agenda-start-with-log-mode (quote clockcheck)) (org-use-tag-inheritance nil) (org-agenda-remove-tags t) (org-agenda-clockreport-mode
> t)) (let ((org-agenda-span (quote day)) (org-agenda-start-on-weekday 1) (org-agenda-include-diary nil) (org-agenda-overriding-header "Agenda
> clockings, available projects")) (call-interactively (quote org-agenda-list)))))
> org-let2(((org-agenda-files org-agenda-files-aegis) (org-agenda-sorting-strategy (quote (time-up priority-down todo-state-up)))
> (org-agenda-start-with-log-mode (quote clockcheck)) (org-use-tag-inheritance nil) (org-agenda-remove-tags t) (org-agenda-clockreport-mode
> t)) ((org-agenda-span (quote day)) (org-agenda-start-on-weekday 1) (org-agenda-include-diary nil) (org-agenda-overriding-header "Agenda
> clockings, available projects")) (call-interactively (quote org-agenda-list)))
> org-agenda-run-series("agenda - prio A,B todos - sorted prio up - today" (((agenda "todays agenda" ((org-agenda-span (quote day))
> (org-agenda-start-on-weekday 1) (org-agenda-include-diary nil) (org-agenda-overriding-header "Agenda clockings, available projects")))
> (tags-todo "ACTIVE" ((org-agenda-skip-function (quote (org-agenda-skip-entry-if (quote scheduled)))) (org-agenda-overriding-header "ACTIVE
> projects/todos: ") (org-agenda-sorting-strategy (quote (priority-up alpha-up)))))) ((org-agenda-files org-agenda-files-aegis)
> (org-agenda-sorting-strategy (quote (time-up priority-down todo-state-up))) (org-agenda-start-with-log-mode (quote clockcheck))
> (org-use-tag-inheritance nil) (org-agenda-remove-tags t) (org-agenda-clockreport-mode t))))
> org-agenda("a" "01")
> (if (get-buffer tmp-org-agenda-buffer-name) (if (string= (buffer-name) tmp-org-agenda-buffer-name) (progn (message "reloading agenda view
> ..") (org-agenda-goto-today) (org-agenda-redo)) (switch-to-buffer tmp-org-agenda-buffer-name) (delete-other-windows)) (org-agenda "a" "01"))
> (let ((tmp-org-agenda-buffer-name "*Org Agenda(01)*") (org-agenda-files org-agenda-files-aegis)) (if (get-buffer
> tmp-org-agenda-buffer-name) (if (string= (buffer-name) tmp-org-agenda-buffer-name) (progn (message "reloading agenda view ..")
> (org-agenda-goto-today) (org-agenda-redo)) (switch-to-buffer tmp-org-agenda-buffer-name) (delete-other-windows)) (org-agenda "a" "01")))
> rst-org-agenda-day()
> funcall-interactively(rst-org-agenda-day)
> call-interactively(rst-org-agenda-day nil nil)
> command-execute(rst-org-agenda-day)
>
> Thank you.
> Regards, Rainer
>
>
>
next prev parent reply other threads:[~2018-04-27 13:00 UTC|newest]
Thread overview: 5+ messages / expand[flat|nested] mbox.gz Atom feed top
2018-04-27 12:05 error while creating agenda clocktable Rainer Stengele
2018-04-27 13:00 ` Rainer Stengele [this message]
2018-04-27 13:47 ` Bastien
2018-04-27 14:06 ` Rainer Stengele
2018-04-28 6:37 ` Bastien
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
List information: https://www.orgmode.org/
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=30c73220-22f9-51eb-46a2-f3582211efae@online.de \
--to=rainer.stengele@online.de \
--cc=emacs-orgmode@gnu.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this public inbox
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).