From: "Eric Schulte" <schulte.eric@gmail.com>
To: Carsten Dominik <carsten.dominik@gmail.com>
Cc: emacs org-mode mailing list <emacs-orgmode@gnu.org>,
Jambunathan K <kjambunathan@gmail.com>
Subject: Re: Re: [BABEL] Speed keys
Date: Tue, 21 Sep 2010 07:05:29 -0600 [thread overview]
Message-ID: <87tyljdyhx.fsf@gmail.com> (raw)
In-Reply-To: 397180EF-5C84-4D4B-A163-1D4A1B4AB089@gmail.com
Yes,
I've had this marked for reply for some time now, I'll be sure to look
at it by the end of the week.
Best -- Eric
Carsten Dominik <carsten.dominik@gmail.com> writes:
> Hi Eric,
>
> could I ask you to take a look at this?
>
> Thanks
>
> - Carsten
>
> On Sep 7, 2010, at 12:57 AM, Jambunathan K wrote:
>
>>
>>>> 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 <kjambunathan@gmail.com>
>> 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
>>
>> _______________________________________________
>> Emacs-orgmode mailing list
>> Please use `Reply All' to send replies to the list.
>> Emacs-orgmode@gnu.org
>> http://lists.gnu.org/mailman/listinfo/emacs-orgmode
>
> - Carsten
next prev parent reply other threads:[~2010-09-21 13:21 UTC|newest]
Thread overview: 16+ messages / expand[flat|nested] mbox.gz Atom feed top
2010-09-04 12:39 [BABEL] Speed keys Jambunathan K
2010-09-04 13:14 ` Eric Schulte
2010-09-04 20:11 ` Jambunathan K
2010-09-04 20:13 ` ggggJambunathan K
2010-09-04 21:48 ` Carsten Dominik
2010-09-05 10:03 ` Jambunathan K
2010-09-06 22:57 ` Jambunathan K
2010-09-21 12:36 ` Carsten Dominik
2010-09-21 13:05 ` Eric Schulte [this message]
2010-09-23 19:51 ` Eric Schulte
2010-09-26 14:21 ` FSF Copyright Assignment Jambunathan K
2010-09-26 20:02 ` Eric Schulte
2010-10-01 13:31 ` Sébastien Vauban
2010-10-01 15:10 ` Eric Schulte
2010-10-01 15:41 ` Sébastien Vauban
2010-10-06 11:44 ` Dan Davison
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
List information: https://www.orgmode.org/
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=87tyljdyhx.fsf@gmail.com \
--to=schulte.eric@gmail.com \
--cc=carsten.dominik@gmail.com \
--cc=emacs-orgmode@gnu.org \
--cc=kjambunathan@gmail.com \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this public inbox
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).