Browse Source

New keys for switching the agenda through time.

The new keys are b and f.  This used to be on the cursor keys, but
they do now again do cursor motion.

This is a significant change in the UI, I hope this will not cause too
many problems.
Carsten Dominik 16 years ago
parent
commit
fa36f186b2
5 changed files with 29 additions and 22 deletions
  1. 6 1
      doc/ChangeLog
  2. 12 12
      doc/org.texi
  3. 3 3
      doc/orgcard.tex
  4. 2 0
      lisp/ChangeLog
  5. 6 6
      lisp/org-agenda.el

+ 6 - 1
doc/ChangeLog

@@ -1,6 +1,11 @@
 2009-08-27  Carsten Dominik  <carsten.dominik@gmail.com>
 2009-08-27  Carsten Dominik  <carsten.dominik@gmail.com>
 
 
-	* orgcard.tex: DOcument the `E' key in the agenda.
+	* orgcard.tex: Document the new keys for agenda time motion.
+
+	* org.texi (Agenda commands): Document the new keys fro agenda
+	time motion.
+
+	* orgcard.tex: Document the `E' key in the agenda.
 
 
 	* org.texi (Agenda commands): Document entry text mode.
 	* org.texi (Agenda commands): Document entry text mode.
 
 

+ 12 - 12
doc/org.texi

@@ -6908,8 +6908,8 @@ Go to the original location of the item in another window.  Under Emacs
 @itemx @key{RET}
 @itemx @key{RET}
 Go to the original location of the item and delete other windows.
 Go to the original location of the item and delete other windows.
 @c
 @c
-@kindex f
-@item f
+@kindex F
+@item F
 @vindex org-agenda-start-with-follow-mode
 @vindex org-agenda-start-with-follow-mode
 Toggle Follow mode.  In Follow mode, as you move the cursor through
 Toggle Follow mode.  In Follow mode, as you move the cursor through
 the agenda buffer, the other window always shows the corresponding
 the agenda buffer, the other window always shows the corresponding
@@ -6917,8 +6917,8 @@ location in the Org file.  The initial setting for this mode in new
 agenda buffers can be set with the variable
 agenda buffers can be set with the variable
 @code{org-agenda-start-with-follow-mode}.
 @code{org-agenda-start-with-follow-mode}.
 @c
 @c
-@kindex b
-@item b
+@kindex C-c C-x b
+@item C-c C-x b
 Display the entire subtree of the current item in an indirect buffer.  With a
 Display the entire subtree of the current item in an indirect buffer.  With a
 numeric prefix argument N, go up to level N and then take that tree.  If N is
 numeric prefix argument N, go up to level N and then take that tree.  If N is
 negative, go up that many levels.  With a @kbd{C-u} prefix, do not remove the
 negative, go up that many levels.  With a @kbd{C-u} prefix, do not remove the
@@ -6957,16 +6957,16 @@ argument as well.  For example, @kbd{200712 w} will jump to week 12 in
 2007.  If such a year specification has only one or two digits, it will
 2007.  If such a year specification has only one or two digits, it will
 be mapped to the interval 1938-2037.
 be mapped to the interval 1938-2037.
 @c
 @c
-@kindex @key{right}
-@item @key{right}
+@kindex f
+@item f
 @vindex org-agenda-ndays
 @vindex org-agenda-ndays
-Display the following @code{org-agenda-ndays} days.  For example, if
-the display covers a week, switch to the following week.  With prefix
-arg, go forward that many times @code{org-agenda-ndays} days.
+Go forward in time to display the following @code{org-agenda-ndays} days.
+For example, if the display covers a week, switch to the following week.
+With prefix arg, go forward that many times @code{org-agenda-ndays} days.
 @c
 @c
-@kindex @key{left}
-@item @key{left}
-Display the previous dates.
+@kindex b
+@item b
+Go backward in time to display earlier dates.
 @c
 @c
 @kindex .
 @kindex .
 @item .
 @item .

+ 3 - 3
doc/orgcard.tex

@@ -626,8 +626,8 @@ after  ``{\tt :}'', and dictionary words elsewhere.
 \key{goto original location in other window}{TAB/mouse-2}
 \key{goto original location in other window}{TAB/mouse-2}
 %\key{... also available with}{mouse-2}
 %\key{... also available with}{mouse-2}
 \key{goto original location, delete other windows}{RET}
 \key{goto original location, delete other windows}{RET}
-\key{show subtree in indirect buffer, ded.\ frame}{b}
-\key{toggle follow-mode}{f}
+\key{show subtree in indirect buffer, ded.\ frame}{C-c C-x b}
+\key{toggle follow-mode}{F}
 
 
 {\bf Change display}
 {\bf Change display}
 
 
@@ -641,7 +641,7 @@ after  ``{\tt :}'', and dictionary words elsewhere.
 \key{refresh agenda buffer with any changes}{r / g}
 \key{refresh agenda buffer with any changes}{r / g}
 \key{filter with repect to a tag}{/}
 \key{filter with repect to a tag}{/}
 \key{save all org-mode buffers}{s}
 \key{save all org-mode buffers}{s}
-\key{display next/previous day,week,...}{RIGHT/LEFT}
+\key{display next/previous day,week,...}{f / b}
 \key{goto today / some date (prompt)}{. / j}
 \key{goto today / some date (prompt)}{. / j}
 
 
 {\bf Remote editing}
 {\bf Remote editing}

+ 2 - 0
lisp/ChangeLog

@@ -1,5 +1,7 @@
 2009-08-27  Carsten Dominik  <carsten.dominik@gmail.com>
 2009-08-27  Carsten Dominik  <carsten.dominik@gmail.com>
 
 
+	* org-agenda.el (org-agenda-mode-map): New keys for time motion.
+
 	* org-table.el (org-table-align): Change the order of reinsertion
 	* org-table.el (org-table-align): Change the order of reinsertion
 	and deletion, to avoid problems with overlays following the table.
 	and deletion, to avoid problems with overlays following the table.
 
 

+ 6 - 6
lisp/org-agenda.el

@@ -1374,7 +1374,7 @@ The following commands are available:
   (while l (org-defkey org-agenda-mode-map
   (while l (org-defkey org-agenda-mode-map
 	     (int-to-string (pop l)) 'digit-argument)))
 	     (int-to-string (pop l)) 'digit-argument)))
 
 
-(org-defkey org-agenda-mode-map "f" 'org-agenda-follow-mode)
+(org-defkey org-agenda-mode-map "F" 'org-agenda-follow-mode)
 (org-defkey org-agenda-mode-map "R" 'org-agenda-clockreport-mode)
 (org-defkey org-agenda-mode-map "R" 'org-agenda-clockreport-mode)
 (org-defkey org-agenda-mode-map "E" 'org-agenda-entry-text-mode)
 (org-defkey org-agenda-mode-map "E" 'org-agenda-entry-text-mode)
 (org-defkey org-agenda-mode-map "l" 'org-agenda-log-mode)
 (org-defkey org-agenda-mode-map "l" 'org-agenda-log-mode)
@@ -1419,8 +1419,8 @@ The following commands are available:
 (org-defkey org-agenda-mode-map [(shift down)] 'org-agenda-priority-down)
 (org-defkey org-agenda-mode-map [(shift down)] 'org-agenda-priority-down)
 (org-defkey org-agenda-mode-map [?\C-c ?\C-x (up)] 'org-agenda-priority-up)
 (org-defkey org-agenda-mode-map [?\C-c ?\C-x (up)] 'org-agenda-priority-up)
 (org-defkey org-agenda-mode-map [?\C-c ?\C-x (down)] 'org-agenda-priority-down)
 (org-defkey org-agenda-mode-map [?\C-c ?\C-x (down)] 'org-agenda-priority-down)
-(org-defkey org-agenda-mode-map [(right)] 'org-agenda-later)
-(org-defkey org-agenda-mode-map [(left)] 'org-agenda-earlier)
+(org-defkey org-agenda-mode-map "f" 'org-agenda-later)
+(org-defkey org-agenda-mode-map "b" 'org-agenda-earlier)
 (org-defkey org-agenda-mode-map "\C-c\C-x\C-c" 'org-agenda-columns)
 (org-defkey org-agenda-mode-map "\C-c\C-x\C-c" 'org-agenda-columns)
 (org-defkey org-agenda-mode-map "\C-c\C-x>" 'org-agenda-remove-restriction-lock)
 (org-defkey org-agenda-mode-map "\C-c\C-x>" 'org-agenda-remove-restriction-lock)
 
 
@@ -5132,11 +5132,11 @@ With prefix ARG, go backward that many times the current span."
       (?m (call-interactively 'org-agenda-month-view))
       (?m (call-interactively 'org-agenda-month-view))
       (?y (call-interactively 'org-agenda-year-view))
       (?y (call-interactively 'org-agenda-year-view))
       (?l (call-interactively 'org-agenda-log-mode))
       (?l (call-interactively 'org-agenda-log-mode))
-      (?f (call-interactively 'org-agenda-follow-mode))
+      ((?F ?f) (call-interactively 'org-agenda-follow-mode))
       (?a (call-interactively 'org-agenda-archives-mode))
       (?a (call-interactively 'org-agenda-archives-mode))
       (?A (org-agenda-archives-mode 'files))
       (?A (org-agenda-archives-mode 'files))
-      (?R (call-interactively 'org-agenda-clockreport-mode))
-      (?E (call-interactively 'org-agenda-entry-text-mode))
+      ((?R ?r) (call-interactively 'org-agenda-clockreport-mode))
+      ((?E ?e) (call-interactively 'org-agenda-entry-text-mode))
       (?G (call-interactively 'org-agenda-toggle-time-grid))
       (?G (call-interactively 'org-agenda-toggle-time-grid))
       (?D (call-interactively 'org-agenda-toggle-diary))
       (?D (call-interactively 'org-agenda-toggle-diary))
       (?\[ (let ((org-agenda-include-inactive-timestamps t))
       (?\[ (let ((org-agenda-include-inactive-timestamps t))