Show all clock entries in og-mode in agenda and timeline.
Special command as safe replacement for C-k.
This commit is contained in:
parent
e5eaacb55a
commit
bcacae20a2
|
@ -1,3 +1,10 @@
|
||||||
|
2008-01-31 Carsten Dominik <dominik@science.uva.nl>
|
||||||
|
|
||||||
|
* org.el (org-agenda-get-closed): List each clocking entry.
|
||||||
|
(org-set-tags): Only tabify before tags if indent-tabs-mode is t.
|
||||||
|
(org-special-ctrl-k): New option.
|
||||||
|
(org-kill-line): New function.
|
||||||
|
|
||||||
2008-01-26 Carsten Dominik <dominik@science.uva.nl>
|
2008-01-26 Carsten Dominik <dominik@science.uva.nl>
|
||||||
|
|
||||||
* org.el (org-archive-all-done): Fixed incorrect number of stars
|
* org.el (org-archive-all-done): Fixed incorrect number of stars
|
||||||
|
|
|
@ -66,55 +66,67 @@
|
||||||
|
|
||||||
*** Misc
|
*** Misc
|
||||||
|
|
||||||
- If an entry is clocked multiple times, it ill now show up
|
- There is a new variabls `org-special-ctrl-k'. When set,
|
||||||
several times in the agenda and timeline buffers, when
|
`C-k' will behave specially in headlines:
|
||||||
log-mode is on. This was a proposal by Jurgen Defurne.
|
|
||||||
|
|
||||||
- In `org-goto', typing characters now automatically starts
|
+ When the cursor is at the beginning of a headline, kill
|
||||||
isearch from the beginning of the buffer. The isearch is
|
the entire line and possible the folded subtree below the
|
||||||
special also because it only matches in headline. This goes
|
line.
|
||||||
some way toward saving org-goto from being removed from
|
+ When in the middle of the headline text, kill the
|
||||||
Org-mode. Thanks to Piotr Zielinski for the code, and sorry
|
headline up to the tags.
|
||||||
that it took me o long to ut it in. If you prefer to use
|
+ When after the headline text, kill the tags.
|
||||||
single letters n,p,f,b,u,q for navigation as before,
|
|
||||||
configure the variable `org-goto-auto-isearch'.
|
|
||||||
|
|
||||||
- The clock table accepts a new parameter =:step=. This
|
This is following a proposal by Piotr Zielinski.
|
||||||
parameter can be `day' or `week' and will result in separate
|
|
||||||
tables for each day or week in the requested time interval.
|
|
||||||
This was triggered by a proposal by Sacha Chua in her [[http://sachachua.com/wp/2007/12/30/clocking-time-with-emacs-org/][blog]].
|
|
||||||
|
|
||||||
- A time-stamp with a repeater now no longer refers to the
|
- If an entry is clocked multiple times, it ill now show up
|
||||||
date *closest* to the current day. Instead, it means either
|
several times in the agenda and timeline buffers, when
|
||||||
today or the most recent match. This change makes sure that
|
log-mode is on. This was a proposal by Jurgen Defurne.
|
||||||
overdue scheduled or deadline items never disappear from the
|
|
||||||
agenda. With the previous convention, an overdue sheduled
|
|
||||||
item would disappear. For example, a weekly item scheduled
|
|
||||||
for Sunday would appear as overdue until Wednesday, and the
|
|
||||||
suddenly disappear until next Sunday. Now the item will
|
|
||||||
show up as "Sched 7x" on Saturday. From Sunday on it will
|
|
||||||
be in the list as "Scheduled", i.e. old sins will be
|
|
||||||
forgiven. This follows a request by Warong, Dennis and
|
|
||||||
Bernt.
|
|
||||||
|
|
||||||
- Archving a subtree now creates an additional property,
|
- In `org-goto', typing characters now automatically starts
|
||||||
=ARCHIVE_OLPATH=. This property contains the "path" in the
|
isearch from the beginning of the buffer. The isearch is
|
||||||
outline tree to the archived entry, as it was in the
|
special also because it only matches in headline. This goes
|
||||||
original file. For example, archiving =Fix the door= in the
|
some way toward saving org-goto from being removed from
|
||||||
following hierarchy
|
Org-mode. Thanks to Piotr Zielinski for the code, and sorry
|
||||||
|
that it took me o long to ut it in. If you prefer to use
|
||||||
|
single letters n,p,f,b,u,q for navigation as before,
|
||||||
|
configure the variable `org-goto-auto-isearch'.
|
||||||
|
|
||||||
: * Tasks
|
- The clock table accepts a new parameter =:step=. This
|
||||||
: ** HOME
|
parameter can be `day' or `week' and will result in separate
|
||||||
: *** Garage
|
tables for each day or week in the requested time interval.
|
||||||
: **** Fix the door
|
This was triggered by a proposal by Sacha Chua in her [[http://sachachua.com/wp/2007/12/30/clocking-time-with-emacs-org/][blog]].
|
||||||
|
|
||||||
will file is with the following property
|
- A time-stamp with a repeater now no longer refers to the
|
||||||
|
date *closest* to the current day. Instead, it means either
|
||||||
|
today or the most recent match. This change makes sure that
|
||||||
|
overdue scheduled or deadline items never disappear from the
|
||||||
|
agenda. With the previous convention, an overdue sheduled
|
||||||
|
item would disappear. For example, a weekly item scheduled
|
||||||
|
for Sunday would appear as overdue until Wednesday, and the
|
||||||
|
suddenly disappear until next Sunday. Now the item will
|
||||||
|
show up as "Sched 7x" on Saturday. From Sunday on it will
|
||||||
|
be in the list as "Scheduled", i.e. old sins will be
|
||||||
|
forgiven. This follows a request by Warong, Dennis and
|
||||||
|
Bernt.
|
||||||
|
|
||||||
: :ARCHIVE_PATH: Task/HOME/Garage
|
- Archving a subtree now creates an additional property,
|
||||||
|
=ARCHIVE_OLPATH=. This property contains the "path" in the
|
||||||
|
outline tree to the archived entry, as it was in the
|
||||||
|
original file. For example, archiving =Fix the door= in the
|
||||||
|
following hierarchy
|
||||||
|
|
||||||
Note that you can configure (i.e. limit) the information
|
: * Tasks
|
||||||
that gets stored upon archiving with the variable
|
: ** HOME
|
||||||
`org-archive-save-context-info'.
|
: *** Garage
|
||||||
|
: **** Fix the door
|
||||||
|
|
||||||
|
will file is with the following property
|
||||||
|
|
||||||
|
: :ARCHIVE_PATH: Task/HOME/Garage
|
||||||
|
|
||||||
|
Note that you can configure (i.e. limit) the information
|
||||||
|
that gets stored upon archiving with the variable
|
||||||
|
`org-archive-save-context-info'.
|
||||||
|
|
||||||
* Version 5.19
|
* Version 5.19
|
||||||
|
|
||||||
|
|
34
org.el
34
org.el
|
@ -522,6 +522,18 @@ to the special positions."
|
||||||
(if (fboundp 'defvaralias)
|
(if (fboundp 'defvaralias)
|
||||||
(defvaralias 'org-special-ctrl-a 'org-special-ctrl-a/e))
|
(defvaralias 'org-special-ctrl-a 'org-special-ctrl-a/e))
|
||||||
|
|
||||||
|
(defcustom org-special-ctrl-k nil
|
||||||
|
"Non-nil means `C-k' will behave specially in headlines.
|
||||||
|
When nil, `C-k' will call the default `kill-line' command.
|
||||||
|
When t, the following will happen while the cursor is in the headline:
|
||||||
|
|
||||||
|
- When the cursor is at the beginning of a headline, kill the entire
|
||||||
|
line and possible the folded subtree below the line.
|
||||||
|
- When in the middle of the headline text, kill the headline up to the tags.
|
||||||
|
- When after the headline text, kill the tags."
|
||||||
|
:group 'org-edit-structure
|
||||||
|
:type 'boolean)
|
||||||
|
|
||||||
(defcustom org-odd-levels-only nil
|
(defcustom org-odd-levels-only nil
|
||||||
"Non-nil means, skip even levels and only use odd levels for the outline.
|
"Non-nil means, skip even levels and only use odd levels for the outline.
|
||||||
This has the effect that two stars are being added/taken away in
|
This has the effect that two stars are being added/taken away in
|
||||||
|
@ -5873,7 +5885,9 @@ Optional argument N means, put the headline into the Nth line of the window."
|
||||||
(org-defkey map [(down)] 'outline-next-visible-heading)
|
(org-defkey map [(down)] 'outline-next-visible-heading)
|
||||||
(org-defkey map [(up)] 'outline-previous-visible-heading)
|
(org-defkey map [(up)] 'outline-previous-visible-heading)
|
||||||
(if org-goto-auto-isearch
|
(if org-goto-auto-isearch
|
||||||
(define-key-after map [t] 'org-goto-local-auto-isearch)
|
(if (fboundp 'define-key-after)
|
||||||
|
(define-key-after map [t] 'org-goto-local-auto-isearch)
|
||||||
|
nil)
|
||||||
(org-defkey map "q" 'org-goto-quit)
|
(org-defkey map "q" 'org-goto-quit)
|
||||||
(org-defkey map "n" 'outline-next-visible-heading)
|
(org-defkey map "n" 'outline-next-visible-heading)
|
||||||
(org-defkey map "p" 'outline-previous-visible-heading)
|
(org-defkey map "p" 'outline-previous-visible-heading)
|
||||||
|
@ -15427,7 +15441,7 @@ With prefix ARG, realign all tags in headings in the current buffer."
|
||||||
(- (- org-tags-column) (length tags))))
|
(- (- org-tags-column) (length tags))))
|
||||||
rpl (concat (make-string (max 0 (- c1 c0)) ?\ ) tags)))
|
rpl (concat (make-string (max 0 (- c1 c0)) ?\ ) tags)))
|
||||||
(replace-match rpl t t)
|
(replace-match rpl t t)
|
||||||
(and (not (featurep 'xemacs)) c0 (tabify p0 (point)))
|
(and (not (featurep 'xemacs)) c0 indent-tabs-mode (tabify p0 (point)))
|
||||||
tags)
|
tags)
|
||||||
(t (error "Tags alignment failed")))
|
(t (error "Tags alignment failed")))
|
||||||
(move-to-column col)
|
(move-to-column col)
|
||||||
|
@ -27626,6 +27640,7 @@ work correctly."
|
||||||
|
|
||||||
;;;; Functions extending outline functionality
|
;;;; Functions extending outline functionality
|
||||||
|
|
||||||
|
|
||||||
(defun org-beginning-of-line (&optional arg)
|
(defun org-beginning-of-line (&optional arg)
|
||||||
"Go to the beginning of the current line. If that is invisible, continue
|
"Go to the beginning of the current line. If that is invisible, continue
|
||||||
to a visible line beginning. This makes the function of C-a more intuitive.
|
to a visible line beginning. This makes the function of C-a more intuitive.
|
||||||
|
@ -27690,6 +27705,21 @@ beyond the end of the headline."
|
||||||
(define-key org-mode-map "\C-a" 'org-beginning-of-line)
|
(define-key org-mode-map "\C-a" 'org-beginning-of-line)
|
||||||
(define-key org-mode-map "\C-e" 'org-end-of-line)
|
(define-key org-mode-map "\C-e" 'org-end-of-line)
|
||||||
|
|
||||||
|
(defun org-kill-line (&optional arg)
|
||||||
|
"Kill line, to tags or end of line."
|
||||||
|
(interactive "P")
|
||||||
|
(cond
|
||||||
|
((or (not org-special-ctrl-k)
|
||||||
|
(bolp)
|
||||||
|
(not (org-on-heading-p)))
|
||||||
|
(call-interactively 'kill-line))
|
||||||
|
((looking-at (org-re ".*?\\S-\\([ \t]+\\(:[[:alnum:]_@:]+:\\)\\)[ \t]*$"))
|
||||||
|
(kill-region (point) (match-beginning 1))
|
||||||
|
(org-set-tags nil t))
|
||||||
|
(t (kill-region (point) (point-at-eol)))))
|
||||||
|
|
||||||
|
(define-key org-mode-map "\C-k" 'org-kill-line)
|
||||||
|
|
||||||
(defun org-invisible-p ()
|
(defun org-invisible-p ()
|
||||||
"Check if point is at a character currently not visible."
|
"Check if point is at a character currently not visible."
|
||||||
;; Early versions of noutline don't have `outline-invisible-p'.
|
;; Early versions of noutline don't have `outline-invisible-p'.
|
||||||
|
|
Loading…
Reference in New Issue