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
