* error while creating agenda clocktable
@ 2018-04-27 12:05 Rainer Stengele
2018-04-27 13:00 ` Rainer Stengele
0 siblings, 1 reply; 5+ messages in thread
From: Rainer Stengele @ 2018-04-27 12:05 UTC (permalink / raw)
To: emacs-orgmode
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
^ permalink raw reply [flat|nested] 5+ messages in thread
* Re: error while creating agenda clocktable
2018-04-27 12:05 error while creating agenda clocktable Rainer Stengele
@ 2018-04-27 13:00 ` Rainer Stengele
2018-04-27 13:47 ` Bastien
0 siblings, 1 reply; 5+ messages in thread
From: Rainer Stengele @ 2018-04-27 13:00 UTC (permalink / raw)
To: emacs-orgmode
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
>
>
>
^ permalink raw reply [flat|nested] 5+ messages in thread
* Re: error while creating agenda clocktable
2018-04-27 13:00 ` Rainer Stengele
@ 2018-04-27 13:47 ` Bastien
2018-04-27 14:06 ` Rainer Stengele
0 siblings, 1 reply; 5+ messages in thread
From: Bastien @ 2018-04-27 13:47 UTC (permalink / raw)
To: Rainer Stengele; +Cc: emacs-orgmode
Hi Rainer,
Rainer Stengele <rainer.stengele@online.de> writes:
> I will copy the new function and modify it to fit my needs.
Thanks for this - please share your experience so that we can better
guide people in updating their code.
The only backward-incompatible change is that :tags is now :match
and :tags can now be nil or t to allow to insert tags.
You might also want to test the new feature.
Thanks,
--
Bastien
^ permalink raw reply [flat|nested] 5+ messages in thread
* Re: error while creating agenda clocktable
2018-04-27 13:47 ` Bastien
@ 2018-04-27 14:06 ` Rainer Stengele
2018-04-28 6:37 ` Bastien
0 siblings, 1 reply; 5+ messages in thread
From: Rainer Stengele @ 2018-04-27 14:06 UTC (permalink / raw)
To: Bastien; +Cc: emacs-orgmode
Am 27.04.2018 um 15:47 schrieb Bastien:
> Hi Rainer,
>
> Rainer Stengele <rainer.stengele@online.de> writes:
>
>> I will copy the new function and modify it to fit my needs.
>
> Thanks for this - please share your experience so that we can better
> guide people in updating their code.
>
> The only backward-incompatible change is that :tags is now :match
> and :tags can now be nil or t to allow to insert tags.
>
> You might also want to test the new feature.
>
> Thanks,
>
Hi Bastien,
thanks for the request, I am glad to do do.
What I really want is a very simple clocktable in my agenda view:
Only 2 columns, CATEGORY, the total clocked time and the sum of clocked time for each CATEGORY in the agenda view.
Using the standard org-clocktable-write-default I see this:
|-----------------------+-----------+-----------------------------------+------|
| | GESAMT | *Gesamtdauer* | *2:45* |
|-----------------------+-----------+-----------------------------------+------|
| Projectmanagement.org | *Dateizeit* | * | * |
| | project 1 | *project 1: Projektmanagement* | 0:15 |
| | project 2 | *project 2: Projektmanagement* | 1:15 |
..
..
my goal is to end up with column 2 and 4:
|-----------+------|
| CATEGORY | *2:45* |
|-----------+------|
| *Dateizeit* | * |
| project 1 | 0:15 |
| project 2 | 1:15 |
as I only use 1 project org file and only 1 headline under which I clock my project time.
I would of course be more than happy to have new clocktable options to inhibit the filename column and also the headline lock column, not
sure how that is named in the code.
In the past I just copied the org-clocktable-write-default and modified it brutally in order to just output my 2 needed columns.
That of course makes it sensitive to code changes..
Thank you.
Regards, Rainer
^ permalink raw reply [flat|nested] 5+ messages in thread
* Re: error while creating agenda clocktable
2018-04-27 14:06 ` Rainer Stengele
@ 2018-04-28 6:37 ` Bastien
0 siblings, 0 replies; 5+ messages in thread
From: Bastien @ 2018-04-28 6:37 UTC (permalink / raw)
To: Rainer Stengele; +Cc: emacs-orgmode
Hi Rainer,
The presence of the file column in the clocktable depends on the scope.
Removing the headline column is not an option, I don't see many cases
were it would be useful, except corner-cases.
Rainer Stengele <rainer.stengele@online.de> writes:
> In the past I just copied the org-clocktable-write-default and
> modified it brutally in order to just output my 2 needed columns.
You can still do this.
> That of course makes it sensitive to code changes..
For this code change, it's just a matter of adapting :tags and :match
in your code, that should not be too difficult (crossing fingers).
HTH,
--
Bastien
^ permalink raw reply [flat|nested] 5+ messages in thread
end of thread, other threads:[~2018-04-28 6:37 UTC | newest]
Thread overview: 5+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2018-04-27 12:05 error while creating agenda clocktable Rainer Stengele
2018-04-27 13:00 ` Rainer Stengele
2018-04-27 13:47 ` Bastien
2018-04-27 14:06 ` Rainer Stengele
2018-04-28 6:37 ` Bastien
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).