Mercurial > emacs

comparison lisp/org/org-colview.el @ 106022:b92e7ae35c75

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
2009-11-15 Carsten Dominik <carsten.dominik@gmail.com> * org-latex.el (org-export-as-latex): Add the :drawers property. 2009-11-15 Carsten Dominik <carsten.dominik@gmail.com> * org.el (org-speed-commands-user): Allow documentation headlines. (org-speed-commands-default): Organize the value of this constant with descriptive headlines. (org-print-speed-command): Output the headlines. 2009-11-15 Carsten Dominik <carsten.dominik@gmail.com> * org-agenda.el (org-agenda-show-outline-path): New option. (org-agenda-do-context-action): New function. (org-agenda-next-line, org-agenda-previous-line): Use `org-agenda-do-context-action'. * org.el (org-use-speed-commands): Allow function value. (org-speed-commands-default): Make headline motion safe, so that these commands always end on a headline. (org-speed-commands-default): New key `v' for `org-agenda'. (org-speed-move-safe): New function. (org-self-insert-command): Use the function value of `org-use-speed-commands'. (org-get-outline-path): Improve docstring. (org-format-outline-path): New function. (org-display-outline-path): New function. 2009-11-15 John Wiegley <jwiegley@gmail.com> * org-clock.el (org-clock-resolve): If `org-clock-into-string' is a string, use that to find the LOGBOOK drawer.
author Carsten Dominik <dominik@science.uva.nl>
date Sun, 15 Nov 2009 07:11:04 +0000
parents b7d8222914b4
children 83924fb4f59c
comparison
equal deleted inserted replaced
106021:1db0581a94d9 106022:b92e7ae35c75
4 ;; Free Software Foundation, Inc. 4 ;; Free Software Foundation, Inc.
5 5
6 ;; Author: Carsten Dominik <carsten at orgmode dot org> 6 ;; Author: Carsten Dominik <carsten at orgmode dot org>
7 ;; Keywords: outlines, hypermedia, calendar, wp 7 ;; Keywords: outlines, hypermedia, calendar, wp
8 ;; Homepage: http://orgmode.org 8 ;; Homepage: http://orgmode.org
9 ;; Version: 6.33 9 ;; Version: 6.33c
10 ;; 10 ;;
11 ;; This file is part of GNU Emacs. 11 ;; This file is part of GNU Emacs.
12 ;; 12 ;;
13 ;; GNU Emacs is free software: you can redistribute it and/or modify 13 ;; GNU Emacs is free software: you can redistribute it and/or modify
14 ;; it under the terms of the GNU General Public License as published by 14 ;; it under the terms of the GNU General Public License as published by
32 32
33 (eval-when-compile (require 'cl)) 33 (eval-when-compile (require 'cl))
34 (require 'org) 34 (require 'org)
35 35
36 (declare-function org-agenda-redo "org-agenda" ()) 36 (declare-function org-agenda-redo "org-agenda" ())
37 (declare-function org-agenda-show "org-agenda" (&optional full-entry)) 37 (declare-function org-agenda-do-context-action "org-agenda" ())
38 38
39 ;;; Column View 39 ;;; Column View
40 40
41 (defvar org-columns-overlays nil 41 (defvar org-columns-overlays nil
42 "Holds the list of current column overlays.") 42 "Holds the list of current column overlays.")
91 (let ((col (current-column))) 91 (let ((col (current-column)))
92 (beginning-of-line 2) 92 (beginning-of-line 2)
93 (while (and (org-invisible-p2) (not (eobp))) 93 (while (and (org-invisible-p2) (not (eobp)))
94 (beginning-of-line 2)) 94 (beginning-of-line 2))
95 (move-to-column col) 95 (move-to-column col)
96 (if (and (eq major-mode 'org-agenda-mode) 96 (if (eq major-mode 'org-agenda-mode)
97 (org-bound-and-true-p org-agenda-follow-mode) 97 (org-agenda-do-context-action)))))
98 (org-get-at-bol 'org-marker))
99 (org-agenda-show)))))
100 (org-defkey org-columns-map [up] 98 (org-defkey org-columns-map [up]
101 (lambda () (interactive) 99 (lambda () (interactive)
102 (let ((col (current-column))) 100 (let ((col (current-column)))
103 (beginning-of-line 0) 101 (beginning-of-line 0)
104 (while (and (org-invisible-p2) (not (bobp))) 102 (while (and (org-invisible-p2) (not (bobp)))
105 (beginning-of-line 0)) 103 (beginning-of-line 0))
106 (move-to-column col) 104 (move-to-column col)
107 (if (and (eq major-mode 'org-agenda-mode) 105 (if (eq major-mode 'org-agenda-mode)
108 (org-bound-and-true-p org-agenda-follow-mode) 106 (org-agenda-do-context-action)))))
109 (org-get-at-bol 'org-marker))
110 (org-agenda-show)))))
111 (org-defkey org-columns-map [(shift right)] 'org-columns-next-allowed-value) 107 (org-defkey org-columns-map [(shift right)] 'org-columns-next-allowed-value)
112 (org-defkey org-columns-map "n" 'org-columns-next-allowed-value) 108 (org-defkey org-columns-map "n" 'org-columns-next-allowed-value)
113 (org-defkey org-columns-map [(shift left)] 'org-columns-previous-allowed-value) 109 (org-defkey org-columns-map [(shift left)] 'org-columns-previous-allowed-value)
114 (org-defkey org-columns-map "p" 'org-columns-previous-allowed-value) 110 (org-defkey org-columns-map "p" 'org-columns-previous-allowed-value)
115 (org-defkey org-columns-map "<" 'org-columns-narrow) 111 (org-defkey org-columns-map "<" 'org-columns-narrow)