From mboxrd@z Thu Jan 1 00:00:00 1970 From: Rainer Stengele Subject: error while creating agenda clocktable Date: Fri, 27 Apr 2018 14:05:04 +0200 Message-ID: Mime-Version: 1.0 Content-Type: text/plain; charset=utf-8; format=flowed Content-Transfer-Encoding: 7bit Return-path: Received: from eggs.gnu.org ([2001:4830:134:3::10]:39729) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1fC27u-0001Cq-H8 for emacs-orgmode@gnu.org; Fri, 27 Apr 2018 08:05:27 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1fC27l-0003aO-EV for emacs-orgmode@gnu.org; Fri, 27 Apr 2018 08:05:22 -0400 Received: from [195.159.176.226] (port=57725 helo=blaine.gmane.org) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16) (Exim 4.71) (envelope-from ) id 1fC27k-0003ZZ-UP for emacs-orgmode@gnu.org; Fri, 27 Apr 2018 08:05:13 -0400 Received: from list by blaine.gmane.org with local (Exim 4.84_2) (envelope-from ) id 1fC25b-00030D-Qg for emacs-orgmode@gnu.org; Fri, 27 Apr 2018 14:02:59 +0200 Content-Language: de-DE-1901 List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Sender: "Emacs-orgmode" To: emacs-orgmode@gnu.org 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