New hooks for commands attaching themselves to the TAB key.
Three new hooks are available for commands to attach themselves to the TAB key.
This commit is contained in:
Carsten Dominik
parent
187dac5f8e
commit
9c2436713c
|
|
@ -1,3 +1,12 @@
|
||||||
|
2009-04-21 Carsten Dominik <carsten.dominik@gmail.com>
|
||||||
|
|
||||||
|
* org.el (org-tab-first-hook)
|
||||||
|
(org-tab-after-check-for-table-hook)
|
||||||
|
(org-tab-after-check-for-cycling-hook): New hooks.
|
||||||
|
(org-cycle-internal-global, org-cycle-internal-local): New
|
||||||
|
functions, split out from `org-cycle'.
|
||||||
|
(org-cycle): Call the new hooks.
|
||||||
|
|
||||||
2009-04-19 Carsten Dominik <carsten.dominik@gmail.com>
|
2009-04-19 Carsten Dominik <carsten.dominik@gmail.com>
|
||||||
|
|
||||||
* org-exp.el (org-export-preprocess-string): Reset the list of
|
* org-exp.el (org-export-preprocess-string): Reset the list of
|
||||||
|
|
|
||||||
394
lisp/org.el
394
lisp/org.el
|
|
@ -4560,19 +4560,26 @@ If KWD is a number, get the corresponding match group."
|
||||||
;;;###autoload
|
;;;###autoload
|
||||||
|
|
||||||
(defvar org-inlinetask-min-level)
|
(defvar org-inlinetask-min-level)
|
||||||
|
|
||||||
(defun org-cycle (&optional arg)
|
(defun org-cycle (&optional arg)
|
||||||
"Visibility cycling for Org-mode.
|
"TAB-action and visibility cycling for Org-mode.
|
||||||
|
|
||||||
|
This is the command invoked in Org-moe by the TAB key. It's main purpose
|
||||||
|
is outine visibility cycling, but it also invokes other actions
|
||||||
|
in special contexts.
|
||||||
|
|
||||||
- When this function is called with a prefix argument, rotate the entire
|
- When this function is called with a prefix argument, rotate the entire
|
||||||
buffer through 3 states (global cycling)
|
buffer through 3 states (global cycling)
|
||||||
1. OVERVIEW: Show only top-level headlines.
|
1. OVERVIEW: Show only top-level headlines.
|
||||||
2. CONTENTS: Show all headlines of all levels, but no body text.
|
2. CONTENTS: Show all headlines of all levels, but no body text.
|
||||||
3. SHOW ALL: Show everything.
|
3. SHOW ALL: Show everything.
|
||||||
When called with two C-u C-u prefixes, switch to the startup visibility,
|
When called with two `C-u C-u' prefixes, switch to the startup visibility,
|
||||||
determined by the variable `org-startup-folded', and by any VISIBILITY
|
determined by the variable `org-startup-folded', and by any VISIBILITY
|
||||||
properties in the buffer.
|
properties in the buffer.
|
||||||
When called with three C-u C-u C-u prefixed, show the entire buffer,
|
When called with three `C-u C-u C-u' prefixed, show the entire buffer,
|
||||||
including drawers.
|
including any drawers.
|
||||||
|
|
||||||
|
- When inside a table, re-align the table and move to the next field.
|
||||||
|
|
||||||
- When point is at the beginning of a headline, rotate the subtree started
|
- When point is at the beginning of a headline, rotate the subtree started
|
||||||
by this line through 3 different states (local cycling)
|
by this line through 3 different states (local cycling)
|
||||||
|
|
@ -4595,186 +4602,200 @@ If KWD is a number, get the corresponding match group."
|
||||||
But only if also the variable `org-cycle-global-at-bob' is t."
|
But only if also the variable `org-cycle-global-at-bob' is t."
|
||||||
(interactive "P")
|
(interactive "P")
|
||||||
(org-load-modules-maybe)
|
(org-load-modules-maybe)
|
||||||
(let* ((limit-level
|
(unless (run-hook-with-args-until-success 'org-tab-first-hook)
|
||||||
(or org-cycle-max-level
|
(let* ((limit-level
|
||||||
(and (boundp 'org-inlinetask-min-level)
|
(or org-cycle-max-level
|
||||||
org-inlinetask-min-level
|
(and (boundp 'org-inlinetask-min-level)
|
||||||
(1- org-inlinetask-min-level))))
|
org-inlinetask-min-level
|
||||||
(nstars (and limit-level
|
(1- org-inlinetask-min-level))))
|
||||||
|
(nstars (and limit-level
|
||||||
(if org-odd-levels-only
|
(if org-odd-levels-only
|
||||||
(and limit-level (1- (* limit-level 2)))
|
(and limit-level (1- (* limit-level 2)))
|
||||||
limit-level)))
|
limit-level)))
|
||||||
(outline-regexp
|
(outline-regexp
|
||||||
(cond
|
(cond
|
||||||
((not (org-mode-p)) outline-regexp)
|
((not (org-mode-p)) outline-regexp)
|
||||||
(org-cycle-include-plain-lists
|
(org-cycle-include-plain-lists
|
||||||
(concat "\\(?:\\*"
|
(concat "\\(?:\\*"
|
||||||
(if nstars (format "\\{1,%d\\} " nstars) "+")
|
(if nstars (format "\\{1,%d\\} " nstars) "+")
|
||||||
" \\|\\([ \t]*\\)\\([-+*]\\|[0-9]+[.)]\\) \\)"))
|
" \\|\\([ \t]*\\)\\([-+*]\\|[0-9]+[.)]\\) \\)"))
|
||||||
(t (concat "\\*" (if nstars (format "\\{1,%d\\} " nstars) "+ ")))))
|
(t (concat "\\*" (if nstars (format "\\{1,%d\\} " nstars) "+ ")))))
|
||||||
(bob-special (and org-cycle-global-at-bob (bobp)
|
(bob-special (and org-cycle-global-at-bob (bobp)
|
||||||
(not (looking-at outline-regexp))))
|
(not (looking-at outline-regexp))))
|
||||||
(org-cycle-hook
|
(org-cycle-hook
|
||||||
(if bob-special
|
(if bob-special
|
||||||
(delq 'org-optimize-window-after-visibility-change
|
(delq 'org-optimize-window-after-visibility-change
|
||||||
(copy-sequence org-cycle-hook))
|
(copy-sequence org-cycle-hook))
|
||||||
org-cycle-hook))
|
org-cycle-hook))
|
||||||
(pos (point)))
|
(pos (point)))
|
||||||
|
|
||||||
(if (or bob-special (equal arg '(4)))
|
(if (or bob-special (equal arg '(4)))
|
||||||
;; special case: use global cycling
|
;; special case: use global cycling
|
||||||
(setq arg t))
|
(setq arg t))
|
||||||
|
|
||||||
(cond
|
|
||||||
|
|
||||||
((equal arg '(16))
|
|
||||||
(org-set-startup-visibility)
|
|
||||||
(message "Startup visibility, plus VISIBILITY properties"))
|
|
||||||
|
|
||||||
((equal arg '(64))
|
|
||||||
(show-all)
|
|
||||||
(message "Entire buffer visible, including drawers"))
|
|
||||||
|
|
||||||
((org-at-table-p 'any)
|
|
||||||
;; Enter the table or move to the next field in the table
|
|
||||||
(or (org-table-recognize-table.el)
|
|
||||||
(progn
|
|
||||||
(if arg (org-table-edit-field t)
|
|
||||||
(org-table-justify-field-maybe)
|
|
||||||
(call-interactively 'org-table-next-field)))))
|
|
||||||
|
|
||||||
((eq arg t) ;; Global cycling
|
|
||||||
|
|
||||||
(cond
|
(cond
|
||||||
((and (eq last-command this-command)
|
|
||||||
(eq org-cycle-global-status 'overview))
|
|
||||||
;; We just created the overview - now do table of contents
|
|
||||||
;; This can be slow in very large buffers, so indicate action
|
|
||||||
(run-hook-with-args 'org-pre-cycle-hook 'contents)
|
|
||||||
(message "CONTENTS...")
|
|
||||||
(org-content)
|
|
||||||
(message "CONTENTS...done")
|
|
||||||
(setq org-cycle-global-status 'contents)
|
|
||||||
(run-hook-with-args 'org-cycle-hook 'contents))
|
|
||||||
|
|
||||||
((and (eq last-command this-command)
|
((equal arg '(16))
|
||||||
(eq org-cycle-global-status 'contents))
|
(org-set-startup-visibility)
|
||||||
;; We just showed the table of contents - now show everything
|
(message "Startup visibility, plus VISIBILITY properties"))
|
||||||
(run-hook-with-args 'org-pre-cycle-hook 'all)
|
|
||||||
|
((equal arg '(64))
|
||||||
(show-all)
|
(show-all)
|
||||||
(message "SHOW ALL")
|
(message "Entire buffer visible, including drawers"))
|
||||||
(setq org-cycle-global-status 'all)
|
|
||||||
(run-hook-with-args 'org-cycle-hook 'all))
|
|
||||||
|
|
||||||
(t
|
((org-at-table-p 'any)
|
||||||
;; Default action: go to overview
|
;; Enter the table or move to the next field in the table
|
||||||
(run-hook-with-args 'org-pre-cycle-hook 'overview)
|
(or (org-table-recognize-table.el)
|
||||||
(org-overview)
|
(progn
|
||||||
(message "OVERVIEW")
|
(if arg (org-table-edit-field t)
|
||||||
(setq org-cycle-global-status 'overview)
|
(org-table-justify-field-maybe)
|
||||||
(run-hook-with-args 'org-cycle-hook 'overview))))
|
(call-interactively 'org-table-next-field)))))
|
||||||
|
|
||||||
((and org-drawers org-drawer-regexp
|
((run-hook-with-args-until-success
|
||||||
(save-excursion
|
'org-tab-after-check-for-table-hook))
|
||||||
(beginning-of-line 1)
|
|
||||||
(looking-at org-drawer-regexp)))
|
((eq arg t) ;; Global cycling
|
||||||
;; Toggle block visibility
|
(org-cycle-internal-global))
|
||||||
(org-flag-drawer
|
|
||||||
(not (get-char-property (match-end 0) 'invisible))))
|
((and org-drawers org-drawer-regexp
|
||||||
|
(save-excursion
|
||||||
((integerp arg)
|
(beginning-of-line 1)
|
||||||
;; Show-subtree, ARG levels up from here.
|
(looking-at org-drawer-regexp)))
|
||||||
(save-excursion
|
;; Toggle block visibility
|
||||||
(org-back-to-heading)
|
(org-flag-drawer
|
||||||
(outline-up-heading (if (< arg 0) (- arg)
|
(not (get-char-property (match-end 0) 'invisible))))
|
||||||
(- (funcall outline-level) arg)))
|
|
||||||
(org-show-subtree)))
|
((integerp arg)
|
||||||
|
;; Show-subtree, ARG levels up from here.
|
||||||
((and (save-excursion (beginning-of-line 1) (looking-at outline-regexp))
|
|
||||||
(or (bolp) (not (eq org-cycle-emulate-tab 'exc-hl-bol))))
|
|
||||||
;; At a heading: rotate between three different views
|
|
||||||
(org-back-to-heading)
|
|
||||||
(let ((goal-column 0) eoh eol eos)
|
|
||||||
;; First, some boundaries
|
|
||||||
(save-excursion
|
(save-excursion
|
||||||
(org-back-to-heading)
|
(org-back-to-heading)
|
||||||
(save-excursion
|
(outline-up-heading (if (< arg 0) (- arg)
|
||||||
(beginning-of-line 2)
|
(- (funcall outline-level) arg)))
|
||||||
(while (and (not (eobp)) ;; this is like `next-line'
|
(org-show-subtree)))
|
||||||
(get-char-property (1- (point)) 'invisible))
|
|
||||||
(beginning-of-line 2)) (setq eol (point)))
|
((and (save-excursion (beginning-of-line 1) (looking-at outline-regexp))
|
||||||
(outline-end-of-heading) (setq eoh (point))
|
(or (bolp) (not (eq org-cycle-emulate-tab 'exc-hl-bol))))
|
||||||
(org-end-of-subtree t)
|
|
||||||
(unless (eobp)
|
(org-cycle-internal-local))
|
||||||
(skip-chars-forward " \t\n")
|
|
||||||
(beginning-of-line 1) ; in case this is an item
|
;; TAB emulation and template completion
|
||||||
)
|
(buffer-read-only (org-back-to-heading))
|
||||||
(setq eos (1- (point))))
|
|
||||||
;; Find out what to do next and set `this-command'
|
((run-hook-with-args-until-success
|
||||||
(cond
|
'org-tab-after-check-for-cycling-hook))
|
||||||
((= eos eoh)
|
|
||||||
;; Nothing is hidden behind this heading
|
((org-try-structure-completion))
|
||||||
(run-hook-with-args 'org-pre-cycle-hook 'empty)
|
|
||||||
(message "EMPTY ENTRY")
|
((org-try-cdlatex-tab))
|
||||||
(setq org-cycle-subtree-status nil)
|
|
||||||
(save-excursion
|
((and (eq org-cycle-emulate-tab 'exc-hl-bol)
|
||||||
(goto-char eos)
|
(or (not (bolp))
|
||||||
(outline-next-heading)
|
(not (looking-at outline-regexp))))
|
||||||
(if (org-invisible-p) (org-flag-heading nil))))
|
(call-interactively (global-key-binding "\t")))
|
||||||
((or (>= eol eos)
|
|
||||||
(not (string-match "\\S-" (buffer-substring eol eos))))
|
((if (and (memq org-cycle-emulate-tab '(white whitestart))
|
||||||
;; Entire subtree is hidden in one line: open it
|
(save-excursion (beginning-of-line 1) (looking-at "[ \t]*"))
|
||||||
(run-hook-with-args 'org-pre-cycle-hook 'children)
|
(or (and (eq org-cycle-emulate-tab 'white)
|
||||||
(org-show-entry)
|
(= (match-end 0) (point-at-eol)))
|
||||||
(show-children)
|
(and (eq org-cycle-emulate-tab 'whitestart)
|
||||||
(message "CHILDREN")
|
(>= (match-end 0) pos))))
|
||||||
(save-excursion
|
t
|
||||||
(goto-char eos)
|
(eq org-cycle-emulate-tab t))
|
||||||
(outline-next-heading)
|
(call-interactively (global-key-binding "\t")))
|
||||||
(if (org-invisible-p) (org-flag-heading nil)))
|
|
||||||
(setq org-cycle-subtree-status 'children)
|
(t (save-excursion
|
||||||
(run-hook-with-args 'org-cycle-hook 'children))
|
(org-back-to-heading)
|
||||||
((and (eq last-command this-command)
|
(org-cycle)))))))
|
||||||
(eq org-cycle-subtree-status 'children))
|
|
||||||
;; We just showed the children, now show everything.
|
|
||||||
(run-hook-with-args 'org-pre-cycle-hook 'subtree)
|
|
||||||
(org-show-subtree)
|
|
||||||
(message "SUBTREE")
|
|
||||||
(setq org-cycle-subtree-status 'subtree)
|
|
||||||
(run-hook-with-args 'org-cycle-hook 'subtree))
|
|
||||||
(t
|
|
||||||
;; Default action: hide the subtree.
|
|
||||||
(run-hook-with-args 'org-pre-cycle-hook 'folded)
|
|
||||||
(hide-subtree)
|
|
||||||
(message "FOLDED")
|
|
||||||
(setq org-cycle-subtree-status 'folded)
|
|
||||||
(run-hook-with-args 'org-cycle-hook 'folded)))))
|
|
||||||
|
|
||||||
;; TAB emulation and template completion
|
(defun org-cycle-internal-global ()
|
||||||
(buffer-read-only (org-back-to-heading))
|
"Do the global cycling action."
|
||||||
|
(cond
|
||||||
|
((and (eq last-command this-command)
|
||||||
|
(eq org-cycle-global-status 'overview))
|
||||||
|
;; We just created the overview - now do table of contents
|
||||||
|
;; This can be slow in very large buffers, so indicate action
|
||||||
|
(run-hook-with-args 'org-pre-cycle-hook 'contents)
|
||||||
|
(message "CONTENTS...")
|
||||||
|
(org-content)
|
||||||
|
(message "CONTENTS...done")
|
||||||
|
(setq org-cycle-global-status 'contents)
|
||||||
|
(run-hook-with-args 'org-cycle-hook 'contents))
|
||||||
|
|
||||||
|
((and (eq last-command this-command)
|
||||||
|
(eq org-cycle-global-status 'contents))
|
||||||
|
;; We just showed the table of contents - now show everything
|
||||||
|
(run-hook-with-args 'org-pre-cycle-hook 'all)
|
||||||
|
(show-all)
|
||||||
|
(message "SHOW ALL")
|
||||||
|
(setq org-cycle-global-status 'all)
|
||||||
|
(run-hook-with-args 'org-cycle-hook 'all))
|
||||||
|
|
||||||
|
(t
|
||||||
|
;; Default action: go to overview
|
||||||
|
(run-hook-with-args 'org-pre-cycle-hook 'overview)
|
||||||
|
(org-overview)
|
||||||
|
(message "OVERVIEW")
|
||||||
|
(setq org-cycle-global-status 'overview)
|
||||||
|
(run-hook-with-args 'org-cycle-hook 'overview))))
|
||||||
|
|
||||||
((org-try-structure-completion))
|
(defun org-cycle-internal-local ()
|
||||||
|
"Do the local cycling action."
|
||||||
((org-try-cdlatex-tab))
|
(org-back-to-heading)
|
||||||
|
(let ((goal-column 0) eoh eol eos)
|
||||||
((and (eq org-cycle-emulate-tab 'exc-hl-bol)
|
;; First, some boundaries
|
||||||
(or (not (bolp))
|
(save-excursion
|
||||||
(not (looking-at outline-regexp))))
|
(org-back-to-heading)
|
||||||
(call-interactively (global-key-binding "\t")))
|
(save-excursion
|
||||||
|
(beginning-of-line 2)
|
||||||
((if (and (memq org-cycle-emulate-tab '(white whitestart))
|
(while (and (not (eobp)) ;; this is like `next-line'
|
||||||
(save-excursion (beginning-of-line 1) (looking-at "[ \t]*"))
|
(get-char-property (1- (point)) 'invisible))
|
||||||
(or (and (eq org-cycle-emulate-tab 'white)
|
(beginning-of-line 2)) (setq eol (point)))
|
||||||
(= (match-end 0) (point-at-eol)))
|
(outline-end-of-heading) (setq eoh (point))
|
||||||
(and (eq org-cycle-emulate-tab 'whitestart)
|
(org-end-of-subtree t)
|
||||||
(>= (match-end 0) pos))))
|
(unless (eobp)
|
||||||
t
|
(skip-chars-forward " \t\n")
|
||||||
(eq org-cycle-emulate-tab t))
|
(beginning-of-line 1) ; in case this is an item
|
||||||
(call-interactively (global-key-binding "\t")))
|
)
|
||||||
|
(setq eos (1- (point))))
|
||||||
(t (save-excursion
|
;; Find out what to do next and set `this-command'
|
||||||
(org-back-to-heading)
|
(cond
|
||||||
(org-cycle))))))
|
((= eos eoh)
|
||||||
|
;; Nothing is hidden behind this heading
|
||||||
|
(run-hook-with-args 'org-pre-cycle-hook 'empty)
|
||||||
|
(message "EMPTY ENTRY")
|
||||||
|
(setq org-cycle-subtree-status nil)
|
||||||
|
(save-excursion
|
||||||
|
(goto-char eos)
|
||||||
|
(outline-next-heading)
|
||||||
|
(if (org-invisible-p) (org-flag-heading nil))))
|
||||||
|
((or (>= eol eos)
|
||||||
|
(not (string-match "\\S-" (buffer-substring eol eos))))
|
||||||
|
;; Entire subtree is hidden in one line: open it
|
||||||
|
(run-hook-with-args 'org-pre-cycle-hook 'children)
|
||||||
|
(org-show-entry)
|
||||||
|
(show-children)
|
||||||
|
(message "CHILDREN")
|
||||||
|
(save-excursion
|
||||||
|
(goto-char eos)
|
||||||
|
(outline-next-heading)
|
||||||
|
(if (org-invisible-p) (org-flag-heading nil)))
|
||||||
|
(setq org-cycle-subtree-status 'children)
|
||||||
|
(run-hook-with-args 'org-cycle-hook 'children))
|
||||||
|
((and (eq last-command this-command)
|
||||||
|
(eq org-cycle-subtree-status 'children))
|
||||||
|
;; We just showed the children, now show everything.
|
||||||
|
(run-hook-with-args 'org-pre-cycle-hook 'subtree)
|
||||||
|
(org-show-subtree)
|
||||||
|
(message "SUBTREE")
|
||||||
|
(setq org-cycle-subtree-status 'subtree)
|
||||||
|
(run-hook-with-args 'org-cycle-hook 'subtree))
|
||||||
|
(t
|
||||||
|
;; Default action: hide the subtree.
|
||||||
|
(run-hook-with-args 'org-pre-cycle-hook 'folded)
|
||||||
|
(hide-subtree)
|
||||||
|
(message "FOLDED")
|
||||||
|
(setq org-cycle-subtree-status 'folded)
|
||||||
|
(run-hook-with-args 'org-cycle-hook 'folded)))))
|
||||||
|
|
||||||
;;;###autoload
|
;;;###autoload
|
||||||
(defun org-global-cycle (&optional arg)
|
(defun org-global-cycle (&optional arg)
|
||||||
|
|
@ -13925,7 +13946,32 @@ executes context-dependent commands.
|
||||||
Each function will be called with no arguments. The function must check
|
Each function will be called with no arguments. The function must check
|
||||||
if the context is appropriate for it to act. If yes, it should do its
|
if the context is appropriate for it to act. If yes, it should do its
|
||||||
thing and then return a non-nil value. If the context is wrong,
|
thing and then return a non-nil value. If the context is wrong,
|
||||||
just do nothing.")
|
just do nothing and return nil.")
|
||||||
|
|
||||||
|
(defvar org-tab-first-hook nil
|
||||||
|
"Hook for functions to attach themselves to TAB.
|
||||||
|
See `org-ctrl-c-ctrl-c-hook' for more information.
|
||||||
|
This hook runs as the first action when TAB is pressed, even before
|
||||||
|
`org-cycle' messes around with the `outline-regexp' to cater for
|
||||||
|
inline tasks and plain list item folding.
|
||||||
|
If any function in this hook returns t, not other actions like table
|
||||||
|
field motion visibility cycling will be done.")
|
||||||
|
|
||||||
|
(defvar org-tab-after-check-for-table-hook nil
|
||||||
|
"Hook for functions to attach themselves to TAB.
|
||||||
|
See `org-ctrl-c-ctrl-c-hook' for more information.
|
||||||
|
This hook runs after it has been established that the cursor is not in a
|
||||||
|
table, but before checking if the cursor is in a headline or if global cycling
|
||||||
|
should be done.
|
||||||
|
If any function in this hook returns t, not other actions like visibility
|
||||||
|
cycling will be done.")
|
||||||
|
|
||||||
|
(defvar org-tab-after-check-for-cycling-hook nil
|
||||||
|
"Hook for functions to attach themselves to TAB.
|
||||||
|
See `org-ctrl-c-ctrl-c-hook' for more information.
|
||||||
|
This hook runs after it has been established that not table field motion and
|
||||||
|
not visibility should be done because of current context. This is probably
|
||||||
|
the place where a package like yasnippets can hook in.")
|
||||||
|
|
||||||
(defvar org-metaleft-hook nil
|
(defvar org-metaleft-hook nil
|
||||||
"Hook for functions attaching themselves to `M-left'.
|
"Hook for functions attaching themselves to `M-left'.
|
||||||
|
|
|
||||||
Loading…
Reference in New Issue