From mboxrd@z Thu Jan 1 00:00:00 1970 From: Rainer Stengele Subject: Re: error while creating agenda clocktable Date: Fri, 27 Apr 2018 15:00:18 +0200 Message-ID: <30c73220-22f9-51eb-46a2-f3582211efae@online.de> References: Mime-Version: 1.0 Content-Type: text/plain; charset=utf-8; format=flowed Content-Transfer-Encoding: 8bit Return-path: Received: from eggs.gnu.org ([2001:4830:134:3::10]:50419) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1fC2zG-0001CH-1Q for emacs-orgmode@gnu.org; Fri, 27 Apr 2018 09:00:41 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1fC2z8-000527-Nc for emacs-orgmode@gnu.org; Fri, 27 Apr 2018 09:00:30 -0400 Received: from mout.kundenserver.de ([217.72.192.74]:47325) by eggs.gnu.org with esmtps (TLS1.0:DHE_RSA_AES_128_CBC_SHA1:16) (Exim 4.71) (envelope-from ) id 1fC2z8-00051i-0c for emacs-orgmode@gnu.org; Fri, 27 Apr 2018 09:00:22 -0400 Received: from [10.7.6.236] ([213.182.136.2]) by mrelayeu.kundenserver.de (mreue101 [212.227.15.183]) with ESMTPSA (Nemesis) id 0MNL1F-1fILaE3tHt-006wuK for ; Fri, 27 Apr 2018 15:00:19 +0200 In-Reply-To: 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 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 > > >