[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: [Orgmode] Re: [BABEL] Speed keys
From: |
Eric Schulte |
Subject: |
Re: [Orgmode] Re: [BABEL] Speed keys |
Date: |
Thu, 23 Sep 2010 13:51:23 -0600 |
User-agent: |
Gnus/5.13 (Gnus v5.13) Emacs/23.1.90 (gnu/linux) |
Hi Jambunathan,
I've finally had a chance to test out this patch, and it's great! I'd
love to apply this to the core Org repository, however given the size I
have to ask, have you (or are you willing to) signed the FSF papers?
http://orgmode.org/worg/org-contribute.php
Cheers -- Eric
Jambunathan K <address@hidden> writes:
>>> 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)