Re: [O] Call speed-commands with prefix-arg?
Aaron Ecay writes: Hi Aaron, > 2014ko irailak 23an, Aaron Ecay-ek idatzi zuen: >>> 2. when not edebugging, C-u 4 : seems to work in both Org and Outshine >>> >>> -> "All tags realigned to column 0" >> >> Good. :) > > I pushed this patch to the master branch. Thanks for testing it out. Thank you for the patch, its nice that this works now. -- cheers, Thorsten
Re: [O] Call speed-commands with prefix-arg?
Hi Thorsten, 2014ko irailak 23an, Aaron Ecay-ek idatzi zuen: >> 2. when not edebugging, C-u 4 : seems to work in both Org and Outshine >> >> -> "All tags realigned to column 0" > > Good. :) I pushed this patch to the master branch. Thanks for testing it out. -- Aaron Ecay
Re: [O] Call speed-commands with prefix-arg?
Hi Thorsten, 2014ko irailak 23an, Thorsten Jolitz-ek idatzi zuen: > > I get 3 different results trying speed-command ':' with prefix: > > 1. in Org, when edebugging 'org-set-tags-command', C-u : and C-u 4 : > both result in speed-command " " That’s because of the use of last-command-keys-vector, which will get overwritten in edebug (the “ ” is the space that you used to step through the function...) > > , > | Result: [32] > | > | Result: 1 (#o1, #x1, ?\C-a) > | > | Result: 0 (#o0, #x0, ?\C-@) > | > | Result: 32 (#o40, #x20, ? ) > | > | Result: " " > | > | Result: org-display-outline-path > ` > > 2. when not edebugging, C-u 4 : seems to work in both Org and Outshine > > -> "All tags realigned to column 0" Good. :) > > 3. when doing C-u 4 t in outshine, with > > ,[ C-h f outshine-todo RET ] > | outshine-todo is an interactive Lisp function in `outshine.el'. > | > | It is bound to M-# M-t. > | > | (outshine-todo &optional ARG) > | > | Call outorg to trigger `org-todo'. > ` > > , > | User-defined Speed commands > | === > | t outshine-todo > ` > > I get: > > , > | ;; * ELISP SCRATCH > ` > > strange ... Sounds like maybe the patch is not too well integrated into outshine. I get expected behavior under these conditions in org. -- Aaron Ecay PhD candidate, Linguistics University of Pennsylvania
Re: [O] Call speed-commands with prefix-arg?
Aaron Ecay writes: > Hi Thorsten, > > 2014ko irailak 23an, Thorsten Jolitz-ek idatzi zuen: >> >> well, here is some positive feedback - thanks for tackling this! >> I tried to port this to outshine.el right away, but can't make it to >> work. But this might well be due to the fact that I'm on the console, no >> X11. >> >> When I do C-u 4 t (with t for todo in the outshine speed cmds) I simply >> get: >> >> , >> | ;; ** DONE err >> ` >> >> Since outshine-self-insert-command is a one-to-one copy of >> org-self-insert-command, I guess if the patch works for you, it must be >> a console problem that I have. Does your patch work for you on the >> console too? > > It seems to, yes. Can you test org mode (not outshine) in the console, > and verify that the original patch works for you there? If it doesn’t, > that needs to be resolved before the patch can be merged. I get 3 different results trying speed-command ':' with prefix: 1. in Org, when edebugging 'org-set-tags-command', C-u : and C-u 4 : both result in speed-command " " , | Result: [32] | | Result: 1 (#o1, #x1, ?\C-a) | | Result: 0 (#o0, #x0, ?\C-@) | | Result: 32 (#o40, #x20, ? ) | | Result: " " | | Result: org-display-outline-path ` 2. when not edebugging, C-u 4 : seems to work in both Org and Outshine -> "All tags realigned to column 0" 3. when doing C-u 4 t in outshine, with ,[ C-h f outshine-todo RET ] | outshine-todo is an interactive Lisp function in `outshine.el'. | | It is bound to M-# M-t. | | (outshine-todo &optional ARG) | | Call outorg to trigger `org-todo'. ` , | User-defined Speed commands | === | t outshine-todo ` I get: , | ;; * ELISP SCRATCH ` strange ... -- cheers, Thorsten
Re: [O] Call speed-commands with prefix-arg?
Hi Thorsten, 2014ko irailak 23an, Thorsten Jolitz-ek idatzi zuen: > > well, here is some positive feedback - thanks for tackling this! > I tried to port this to outshine.el right away, but can't make it to > work. But this might well be due to the fact that I'm on the console, no > X11. > > When I do C-u 4 t (with t for todo in the outshine speed cmds) I simply > get: > > , > | ;; ** DONE err > ` > > Since outshine-self-insert-command is a one-to-one copy of > org-self-insert-command, I guess if the patch works for you, it must be > a console problem that I have. Does your patch work for you on the > console too? It seems to, yes. Can you test org mode (not outshine) in the console, and verify that the original patch works for you there? If it doesn’t, that needs to be resolved before the patch can be merged. Thanks, -- Aaron Ecay
Re: [O] Call speed-commands with prefix-arg?
Aaron Ecay writes: Hi Aaron, > 2014ko irailak 18an, Thorsten Jolitz-ek idatzi zuen: >> >> Hi List, >> >> is there a way to call Org speed-commands [fn:1] with a prefix-arg? >> Does not work for me ... > > The attached patch should allow this. You can use C-u N X or C-N X (where > N is some digits and X a speed command key). I’ll commit it to master in a > few days (along with an entry in ORG-NEWS), unless there is any > feedback. well, here is some positive feedback - thanks for tackling this! I tried to port this to outshine.el right away, but can't make it to work. But this might well be due to the fact that I'm on the console, no X11. When I do C-u 4 t (with t for todo in the outshine speed cmds) I simply get: , | ;; ** DONE err ` Since outshine-self-insert-command is a one-to-one copy of org-self-insert-command, I guess if the patch works for you, it must be a console problem that I have. Does your patch work for you on the console too? > It might be cool to also allow digits 0-9 and hyphen (for minus) to work > as prefix args when in speed command position. But that’s more > complicated. > > From f4abc5c57764fc36d7405be6b6c2f5cd63396d8d Mon Sep 17 00:00:00 2001 > From: Aaron Ecay > Date: Tue, 23 Sep 2014 13:54:47 -0400 > Subject: [PATCH] allow speed commands to have prefix args > > * lisp/org.el (org-self-insert-command): Allow speed commands to be > invoked with prefix args. > --- > lisp/org.el | 8 +--- > 1 file changed, 5 insertions(+), 3 deletions(-) > > diff --git a/lisp/org.el b/lisp/org.el > index b09e72d..9815eb4 100755 > --- a/lisp/org.el > +++ b/lisp/org.el > @@ -19693,9 +19693,11 @@ overwritten, and the table is not marked as > requiring realignment." >(org-check-before-invisible-edit 'insert) >(cond > ((and org-use-speed-commands > - (setq org-speed-command > -(run-hook-with-args-until-success > - 'org-speed-command-hook (this-command-keys > + (let ((kv (this-command-keys-vector))) > +(setq org-speed-command > + (run-hook-with-args-until-success > + 'org-speed-command-hook > + (make-string 1 (aref kv (1- (length kv > (cond > ((commandp org-speed-command) >(setq this-command org-speed-command) > -- > 2.1.0 -- cheers, Thorsten
Re: [O] Call speed-commands with prefix-arg?
Hi Thorsten, 2014ko irailak 18an, Thorsten Jolitz-ek idatzi zuen: > > Hi List, > > is there a way to call Org speed-commands [fn:1] with a prefix-arg? > Does not work for me ... The attached patch should allow this. You can use C-u N X or C-N X (where N is some digits and X a speed command key). I’ll commit it to master in a few days (along with an entry in ORG-NEWS), unless there is any feedback. It might be cool to also allow digits 0-9 and hyphen (for minus) to work as prefix args when in speed command position. But that’s more complicated. >From f4abc5c57764fc36d7405be6b6c2f5cd63396d8d Mon Sep 17 00:00:00 2001 From: Aaron Ecay Date: Tue, 23 Sep 2014 13:54:47 -0400 Subject: [PATCH] allow speed commands to have prefix args * lisp/org.el (org-self-insert-command): Allow speed commands to be invoked with prefix args. --- lisp/org.el | 8 +--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/lisp/org.el b/lisp/org.el index b09e72d..9815eb4 100755 --- a/lisp/org.el +++ b/lisp/org.el @@ -19693,9 +19693,11 @@ overwritten, and the table is not marked as requiring realignment." (org-check-before-invisible-edit 'insert) (cond ((and org-use-speed-commands - (setq org-speed-command - (run-hook-with-args-until-success - 'org-speed-command-hook (this-command-keys + (let ((kv (this-command-keys-vector))) + (setq org-speed-command + (run-hook-with-args-until-success + 'org-speed-command-hook + (make-string 1 (aref kv (1- (length kv (cond ((commandp org-speed-command) (setq this-command org-speed-command) -- 2.1.0 -- Aaron Ecay
[O] Call speed-commands with prefix-arg?
Hi List, is there a way to call Org speed-commands [fn:1] with a prefix-arg? Does not work for me ... * Footnotes [fn:1] see M-x org-speed-command-help -- cheers, Thorsten