diff options
author | Kyle Meyer <kyle@kyleam.com> | 2020-05-05 22:38:00 -0400 |
---|---|---|
committer | Kyle Meyer <kyle@kyleam.com> | 2020-05-05 22:38:00 -0400 |
commit | b171ff02f6e69bcce0dec56ea23e11c75e558704 (patch) | |
tree | 99d7ce659923c5aaa8ec5220df4f42d94b727ce1 | |
parent | ea6a9bd6fa3b75e7d822d3ed5cd3acda22eb278e (diff) | |
parent | f4fed7ea0cd9c2b8f97bcc2088ddb2941183cd6d (diff) | |
download | org-mode-b171ff02f6e69bcce0dec56ea23e11c75e558704.tar.gz |
Merge branch 'maint'
-rw-r--r-- | doc/org-manual.org | 30 | ||||
-rw-r--r-- | doc/orgcard.tex | 4 | ||||
-rw-r--r-- | lisp/org-clock.el | 5 | ||||
-rw-r--r-- | lisp/org-colview.el | 5 | ||||
-rw-r--r-- | lisp/org.el | 11 |
5 files changed, 37 insertions, 18 deletions
diff --git a/doc/org-manual.org b/doc/org-manual.org index 87bcfc3..57b1564 100644 --- a/doc/org-manual.org +++ b/doc/org-manual.org @@ -5700,13 +5700,17 @@ This dynamic block has the following parameters: The following commands insert or update the dynamic block: -- {{{kbd(C-c C-x i)}}} (~org-insert-columns-dblock~) :: +- ~org-columns-insert-dblock~ :: - #+kindex: C-c C-x i - #+findex: org-insert-columns-dblock + #+kindex: C-c C-x x + #+findex: org-columns-insert-dblock Insert a dynamic block capturing a column view. Prompt for the scope or ID of the view. + This command can be invoked by calling + ~org-dynamic-block-insert-dblock~ ({{{kbd(C-c C-x x)}}}) and + selecting "columnview" (see [[*Dynamic Blocks]]). + - {{{kbd(C-c C-c)}}} {{{kbd(C-c C-x C-u)}}} (~org-dblock-update~) :: #+kindex: C-c C-c @@ -6545,13 +6549,19 @@ Org mode can produce quite complex reports based on the time clocking information. Such a report is called a /clock table/, because it is formatted as one or several Org tables. -You can insert, or update, a clock table through Org dynamic blocks -insert command (see [[*Dynamic Blocks]]), by pressing {{{kbd(C-c C-x -x c l o c k t a b l e RET)}}}. When called with a prefix argument, -jump to the first clock table in the current document and update it. -The clock table includes archived trees. - #+attr_texinfo: :sep , +- ~org-clock-report~ :: + + #+kindex: C-c C-x x + #+findex: org-clock-report + Insert or update a clock table. When called with a prefix argument, + jump to the first clock table in the current document and update it. + The clock table includes archived trees. + + This command can be invoked by calling + ~org-dynamic-block-insert-dblock~ ({{{kbd(C-c C-x x)}}}) and + selecting "clocktable" (see [[*Dynamic Blocks]]). + - {{{kbd(C-c C-c)}}} or {{{kbd(C-c C-x C-u)}}} (~org-dblock-update~) :: #+kindex: C-c C-c @@ -6576,7 +6586,7 @@ The clock table includes archived trees. =:block= is =today=, it is shifted to =today-1=, etc. Here is an example of the frame for a clock table as it is inserted -into the buffer with the {{{kbd(C-c C-x C-r)}}} command: +into the buffer by ~org-clock-report~: #+cindex: @samp{BEGIN clocktable} #+begin_example diff --git a/doc/orgcard.tex b/doc/orgcard.tex index fa233b6..f04110c 100644 --- a/doc/orgcard.tex +++ b/doc/orgcard.tex @@ -513,7 +513,7 @@ after ``{\tt :}'', and dictionary words elsewhere. \key{special commands in property lines}{C-c C-c} \key{next/previous allowed value}{S-LEFT/RIGHT} \key{turn on column view}{C-c C-x C-c} -\key{capture columns view in dynamic block}{C-c C-x i} +\key{capture columns view in dynamic block}{C-c C-x x} \key{quit column view}{q} \key{show full value}{v} @@ -556,7 +556,7 @@ after ``{\tt :}'', and dictionary words elsewhere. \key{stop/cancel clock on current item}{C-c C-x C-o/x} \key{display total subtree times}{C-c C-x C-d} \key{remove displayed times}{C-c C-c} -\key{insert/update table with clock report}{C-c C-x C-r} +\key{insert/update table with clock report}{C-c C-x C-x} \section{Agenda Views} diff --git a/lisp/org-clock.el b/lisp/org-clock.el index 20d4261..3417909 100644 --- a/lisp/org-clock.el +++ b/lisp/org-clock.el @@ -2133,7 +2133,10 @@ in the buffer and update it." (start (goto-char start))) (org-update-dblock)) -(org-dynamic-block-define "clocktable" #'org-clock-report) +;;;###autoload +(eval-after-load 'org + '(progn + (org-dynamic-block-define "clocktable" #'org-clock-report))) (defun org-day-of-week (day month year) "Return the day of the week as an integer." diff --git a/lisp/org-colview.el b/lisp/org-colview.el index 56ca80a..f1768f5 100644 --- a/lisp/org-colview.el +++ b/lisp/org-colview.el @@ -1567,7 +1567,10 @@ PARAMS is a property list of parameters: (id))))) (org-update-dblock)) -(org-dynamic-block-define "columnview" #'org-columns-insert-dblock) +;;;###autoload +(eval-after-load 'org + '(progn + (org-dynamic-block-define "columnview" #'org-columns-insert-dblock))) ;;; Column view in the agenda diff --git a/lisp/org.el b/lisp/org.el index 28e40e2..63de730 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -9111,15 +9111,18 @@ block of such type." (`nil (push (cons type func) org-dynamic-block-alist)) (def (setcdr def func)))) -(defun org-dynamic-block-insert-dblock (type) +(defun org-dynamic-block-insert-dblock (type &optional interactive-p) "Insert a dynamic block of type TYPE. When used interactively, select the dynamic block types among -defined types, per `org-dynamic-block-define'." +defined types, per `org-dynamic-block-define'. If INTERACTIVE-P +is non-nil, call the dynamic block function interactively." (interactive (list (completing-read "Dynamic block: " - (org-dynamic-block-types)))) + (org-dynamic-block-types)) + t)) (pcase (org-dynamic-block-function type) (`nil (error "No such dynamic block: %S" type)) - ((and f (pred functionp)) (funcall f)) + ((and f (pred functionp)) + (if interactive-p (call-interactively f) (funcall f))) (_ (error "Invalid function for dynamic block %S" type)))) (defun org-dblock-update (&optional arg) |