diff options
author | Michaƫl Cadilhac <michael@cadilhac.name> | 2019-03-10 19:05:10 +0000 |
---|---|---|
committer | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2019-09-05 18:56:28 +0200 |
commit | 9586db1248d9bba753af402acfa05d80358d45c5 (patch) | |
tree | 0fc94b711de75a5fc96c5251795f89048067b716 | |
parent | 876a4419dd776dd8ce262af93a7abc9daa3fcb25 (diff) | |
download | org-mode-9586db1248d9bba753af402acfa05d80358d45c5.tar.gz |
org-clock: Add an option to not show the file column in clock report
* lisp/org-clock.el (org-clocktable-defaults): Add `hidefiles'.
(org-dblock-write:clocktable): Implement not showing files when
`hidefiles' is true.
* lisp/org-pcomplete.el: Add `hidefiles'.
-rw-r--r-- | lisp/org-clock.el | 6 | ||||
-rw-r--r-- | lisp/org-pcomplete.el | 5 |
2 files changed, 8 insertions, 3 deletions
diff --git a/lisp/org-clock.el b/lisp/org-clock.el index 9e64645..a6eb49e 100644 --- a/lisp/org-clock.el +++ b/lisp/org-clock.el @@ -307,6 +307,7 @@ string as argument." :link nil :narrow '40! :indent t + :hidefiles nil :formula nil :timestamp nil :level nil @@ -2406,6 +2407,7 @@ the currently selected interval size." (ws (plist-get params :wstart)) (ms (plist-get params :mstart)) (step (plist-get params :step)) + (hide-files (plist-get params :hidefiles)) (formatter (or (plist-get params :formatter) org-clock-clocktable-formatter 'org-clocktable-write-default)) @@ -2460,7 +2462,9 @@ the currently selected interval size." ;; Even though `file-with-archives' can consist of ;; multiple files, we consider this is one extended file ;; instead. - (and (consp files) (not (eq scope 'file-with-archives))))) + (and (not hide-files) + (consp files) + (not (eq scope 'file-with-archives))))) (funcall formatter origin diff --git a/lisp/org-pcomplete.el b/lisp/org-pcomplete.el index 5a7fb57..e557b1a 100644 --- a/lisp/org-pcomplete.el +++ b/lisp/org-pcomplete.el @@ -429,8 +429,9 @@ switches." ":tstart" ":tend" ":block" ":step" ":stepskip0" ":fileskip0" ":emphasize" ":link" ":narrow" ":indent" - ":tcolumns" ":level" ":compact" ":timestamp" - ":formula" ":formatter" ":wstart" ":mstart")))) + ":hidefiles" ":tcolumns" ":level" ":compact" + ":timestamp" ":formula" ":formatter" + ":wstart" ":mstart")))) ;;; Finish up |