From mboxrd@z Thu Jan 1 00:00:00 1970 From: Seweryn Kokot Subject: Re: [REQUEST] orgtbl-ctrl-c-ctrl-c-hook Date: Wed, 17 Nov 2010 09:10:43 +0000 (UTC) Message-ID: References: <2F4D54FD-C457-4372-8871-2F1A022FF082@gmail.com> Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii Content-Transfer-Encoding: 7bit Return-path: Received: from [140.186.70.92] (port=46951 helo=eggs.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1PIe2c-0005qo-MB for emacs-orgmode@gnu.org; Wed, 17 Nov 2010 04:11:00 -0500 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1PIe2b-0001DW-Gs for emacs-orgmode@gnu.org; Wed, 17 Nov 2010 04:10:58 -0500 Received: from lo.gmane.org ([80.91.229.12]:57143) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1PIe2a-0001Cs-NL for emacs-orgmode@gnu.org; Wed, 17 Nov 2010 04:10:57 -0500 Received: from list by lo.gmane.org with local (Exim 4.69) (envelope-from ) id 1PIe2Y-0007rH-NG for emacs-orgmode@gnu.org; Wed, 17 Nov 2010 10:10:54 +0100 Received: from 139.191.131.39 ([139.191.131.39]) by main.gmane.org with esmtp (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Wed, 17 Nov 2010 10:10:54 +0100 Received: from sewkokot by 139.191.131.39 with local (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Wed, 17 Nov 2010 10:10:54 +0100 List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: emacs-orgmode@gnu.org Carsten Dominik gmail.com> writes: > > > On Nov 17, 2010, at 9:19 AM, Seweryn Kokot wrote: > > > Hi, > > > > It need to attach a function to C-c C-c keybinding when exporting a > > table in > > orgtbl-mode so would be nice to have orgtbl-ctrl-c-ctrl-c-hook > > similar to > > org-ctrl-c-ctrl-c-hook. > > This is a reasonable request - please make me a patch. See the following patch. It seems to work in my case, but please correct it if necessary because I don't know if (run-hook-with-args-until-success 'orgtbl- ctrl-c-ctrl-c-hook) line is in the right place. Regards, Seweryn --- h:/org-mode/lisp/org-table.el 2010-11-16 11:17:36.000000000 +0100 +++ h:/org-mode/lisp/org-table-new.el 2010-11-17 10:07:34.000000000 +0100 @@ -48,6 +48,15 @@ (defvar org-export-html-table-tag) ; defined in org-exp.el (defvar constants-unit-system) +(defvar orgtbl-ctrl-c-ctrl-c-hook nil + "Hook for functions attaching themselves to `C-c C-c'. +This can be used to add additional functionality to the C-c C-c key which +executes context-dependent commands. +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 +thing and then return a non-nil value. If the context is wrong, +just do nothing and return nil.") + (defcustom orgtbl-optimized (eq org-enable-table-editor 'optimized) "Non-nil means use the optimized table editor version for `orgtbl-mode'. In the optimized version, the table editor takes over all simple keys that @@ -3729,7 +3738,8 @@ (call-interactively 'org-table-recalculate) (org-table-maybe-recalculate-line)) (call-interactively 'org-table-align) - (orgtbl-send-table 'maybe)) + (orgtbl-send-table 'maybe) + (run-hook-with-args-until-success 'orgtbl-ctrl-c-ctrl-c-hook)) ((eq action 'recalc) (save-excursion (beginning-of-line 1) Diff finished. Wed Nov 17 10:08:00 2010