some progress (was: bidi support? (Hebrew))

[Uwe Brauer]

>> "Uwe" == Uwe Brauer <address@hidden> writes:

   > Hi

   > What do I miss?
Well the http://www.emacswiki.org/emacs/DisplayEngineForBiDi

Gives some hints, however I am missing interactive function turning bidi
on and off.

So the following is mostly trivial.
BTW where and how can I use bigger fonts for hebrew? (I am using  Laptop
with a 12 inch screen and the one emacs uses per default are small)

;; Basic setup for hebrew, using the bidi-engine, 
;; and an external hebrew-keyboard, (KDE with the phonetic option on)

(setq-default bidi-display-reordering t)


(defun my-turn-bidi-on ()
  "Just start with  to R2L."
  (interactive)
  (setq  bidi-paragraph-direction 'right-to-left)
  (message "R2L on!"))

(defun my-turn-bidi-off ()
  "Just start with  to L2R."
(interactive)
  (setq  bidi-paragraph-direction 'left-to-right)
  (message "R2L off!"))

;; this is from Xemacs, where (interactive "_") exists.

;; by Adrian Kubala Adrian Kubala <address@hidden>


(defun make-repeat-command (symbol command-list)
  "Command changes with each repetition.
SYMBOL is a symbol unique to this command."
  (if (eq last-command symbol)
      (set symbol (+ (eval symbol) 1))
    (set symbol 0))
  (if (>= (eval symbol) (length command-list))
      (set symbol 0))
  (call-interactively (nth (eval symbol) command-list))
  (setq this-command symbol))


(defun my-toggle-bidi ()
;  (interactive "_")
  (interactive)
  (make-repeat-command 'my-toggle-bidi '(my-turn-bidi-on
                                  my-turn-bidi-off)))


(global-set-key [(control right)] 'my-turn-bidi-on)
(global-set-key [(control left)] 'my-turn-bidi-off)
(global-set-key [(control down)] 'my-toggle-bidi)


(provide 'my-hebew-init)

smime.p7s
Description: S/MIME cryptographic signature