[Orgmode] Re: [BABEL] Speed keys

[Jambunathan K]

>> Is it possible Speed Keys (Refer Org Manual - Sec. 15.3) for Babel
>> blocks?

Attached patch extends the speed key functionality.

Usage notes:

After applying the patch, use variant-1 or variant-2 to enable speed
keys within a babel block.

variant-1:

  (defun org-babel-speed-command-hook (keys)
    (when (org-babel-where-is-src-block-head)
      (cdr (assoc keys org-babel-key-bindings))))

variant-2:

  (defun org-babel-speed-command-hook (keys)
    (when (and (bolp) (looking-at org-babel-src-block-regexp))
      (cdr (assoc keys org-babel-key-bindings))))

  (add-hook 'org-speed-command-hook 'org-babel-speed-command-hook 'append)


Use this hook with caution.

  (defun org-speed-command-catch-all-hook (keys)
    'ignore)

  (add-hook 'org-speed-command-hook 'org-babel-speed-command-hook 'append)

Jambunathan K.


>From 2fca952e923d44bec554b8b4e7dafc355e068f32 Mon Sep 17 00:00:00 2001
From: Jambunathan K <address@hidden>
Date: Tue, 7 Sep 2010 04:01:16 +0530
Subject: [PATCH 2/2] Support for user-extensible speed commands.

* lisp/org.el (org-speed-command-hook): New. Hook for installing
additional speed commands. Use this for enabling speed commands on
src blocks.
(org-speed-command-default-hook): The default hook for
org-speed-command-hook. Factored out from org-self-insert-command
and mimics existing behaviour.
(org-self-insert-command): Modified to use org-speed-command-hook.

TINYCHANGE.
---
 lisp/org.el |   38 +++++++++++++++++++++++++++++++-------
 1 files changed, 31 insertions(+), 7 deletions(-)

diff --git a/lisp/org.el b/lisp/org.el
index 09281cc..ead91a3 100644
--- a/lisp/org.el
+++ b/lisp/org.el
@@ -16494,6 +16494,34 @@ If not, return to the original position and throw an 
error."
 
 (defvar org-table-auto-blank-field) ; defined in org-table.el
 (defvar org-speed-command nil)
+
+(defun org-speed-command-default-hook (keys)
+  "Hook for activating single-letter speed commands.
+`org-speed-commands-default' specifies a minimal command set. Use
+`org-speed-commands-user' for further customization."
+  (when (or (and (bolp) (looking-at outline-regexp))
+           (and (functionp org-use-speed-commands)
+                (funcall org-use-speed-commands)))
+    (cdr (assoc keys (append org-speed-commands-user
+                            org-speed-commands-default)))))
+
+(defcustom org-speed-command-hook 'org-speed-command-default-hook
+  "Hook for activating speed commands at strategic locations.
+Hook functions are called in sequence until a valid handler is
+found.
+
+Each hook takes a single argument, a user-pressed command key
+which is also a `self-insert-command' from the global map.
+
+Within the hook, examine the cursor position and the command key
+and return nil or a valid handler as appropriate. Handler could
+be one of an interactive command, a function, or a form.
+
+Set `org-use-speed-commands' to non-nil value to enable this
+hook. The default setting is `org-speed-command-default-hook'."
+  :group 'org-structure
+  :type 'hook)
+
 (defun org-self-insert-command (N)
   "Like `self-insert-command', use overwrite-mode for whitespace in tables.
 If the cursor is in a table looking at whitespace, the whitespace is
@@ -16501,13 +16529,9 @@ overwritten, and the table is not marked as requiring 
realignment."
   (interactive "p")
   (cond
    ((and org-use-speed-commands
-        (or (and (bolp) (looking-at outline-regexp))
-            (and (functionp org-use-speed-commands)
-                 (funcall org-use-speed-commands)))
-        (setq
-         org-speed-command
-         (or (cdr (assoc (this-command-keys) org-speed-commands-user))
-             (cdr (assoc (this-command-keys) org-speed-commands-default)))))
+        (setq org-speed-command
+              (run-hook-with-args-until-success
+               'org-speed-command-hook (this-command-keys))))
     (cond
      ((commandp org-speed-command)
       (setq this-command org-speed-command)
-- 
1.7.0.4