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

[Vagn Johansen <gonz808@hotmail.com>]

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