org-mode with a custom binding on S-Up and no shift-select

org-mode with a custom binding on S-Up and no shift-select

[Alain Ketterlin]

Hello,

I've just started using org-mode and have a small problem with <S-up>
and <S-down>. I don't use shift-select-mode. My .emacs has:

(global-set-key (kbd "S-<down>") `(lambda ()
                                    (interactive)
                                    (scroll-up 1)))

and similar for <S-up>. (BTW, is interactive of any use here? I copied
this somewhere, my elisp skills are almost non-existent.)

Org-mode has special use for <S-up> and <S-down>. I would like to keep
my own bindings, except on timestamps. I have customized
org-support-shift-select, with the hope that org-mode would revert to
default behavior, but it does not. Instead, it seems that it tries to
emulate shift-select-mode.

Is there any way to keep my own bindings? If not, is there any way to
have org-mode's on timestamps, scroll-up by 1 otherwise?

Thanks in advance for any help.

-- Alain.

Re: org-mode with a custom binding on S-Up and no shift-select

[Kevin Rodgers]

Alain Ketterlin wrote:
> I've just started using org-mode and have a small problem with <S-up>
> and <S-down>. I don't use shift-select-mode. My .emacs has:
> 
> (global-set-key (kbd "S-<down>") `(lambda ()
>                                     (interactive)
>                                     (scroll-up 1)))
> 
> and similar for <S-up>.

That's what can happen when you define keys that are not reserved for
the user.  Sticking to Control-C LETTER combinations is safest.

> (BTW, is interactive of any use here? I copied
> this somewhere, my elisp skills are almost non-existent.)

Yes, it is mandatory: only interactive functions can be bound to keys.

> Org-mode has special use for <S-up> and <S-down>. I would like to keep
> my own bindings, except on timestamps. I have customized
> org-support-shift-select, with the hope that org-mode would revert to
> default behavior, but it does not. Instead, it seems that it tries to
> emulate shift-select-mode.
> 
> Is there any way to keep my own bindings?

Use local-set-key within an org-mode hook function.

> If not, is there any way to
> have org-mode's on timestamps, scroll-up by 1 otherwise?

That's a bit trickier.

-- 
Kevin Rodgers
Denver, Colorado, USA

Re: org-mode with a custom binding on S-Up and no shift-select

[Vagn Johansen]

Alain Ketterlin <alain@dpt-info.u-strasbg.fr> writes:

> Hello,
>
> I've just started using org-mode and have a small problem with <S-up>
> and <S-down>. I don't use shift-select-mode. My .emacs has:
>
> (global-set-key (kbd "S-<down>") `(lambda ()
>                                     (interactive)
>                                     (scroll-up 1)))

I have the same bindings .. well it is (scroll-up 2) in my case.

> and similar for <S-up>. (BTW, is interactive of any use here? I copied
> this somewhere, my elisp skills are almost non-existent.)
>
> Org-mode has special use for <S-up> and <S-down>. I would like to keep
> my own bindings, except on timestamps. 

And the same problem. If often add priorities to tasks (#A,..) when I
want to scroll down.


I just cooked up the code below. I sets up the shift up/down to
scrolling. IF in org-mode and NOT at the beginning of the line then
the org shift functions are called.


(require 'org)

(global-set-key [S-up] 'vj-scroll-down-hook)
(global-set-key [S-down] 'vj-scroll-up-hook)

(defun vj-org-shift-keys-setup ()
  (interactive)
  (local-set-key [S-up] 'vj-scroll-down)
  (local-set-key [S-down] 'vj-scroll-up))


(add-hook 'org-mode-hook  'vj-org-shift-keys-setup)

(defun vj-scroll-up (&optional arg)
  "Vj scroll-up."
  (interactive)
  (if (and (equal major-mode 'org-mode) (not (bolp)))
    ;; In org-mode and not at beginning of line
    (org-shiftup arg)
    ;; else
    (scroll-up 2)))


(defun vj-scroll-down (&optional arg)
  "Vj scroll-down."
  (interactive)
  (if (and (equal major-mode 'org-mode) (not (bolp)))
    ;; In org-mode and not at beginning of line
    (org-shiftdown arg)
    ;; else
    (scroll-down 2)))

-- 
Vagn Johansen