Emacs, Linux और अंतरराष्ट्रीय कीबोर्ड लेआउट

Question

क्या आप एक अंग्रेजी (रूसी) कीबोर्ड लेआउट का उपयोग करते समय Emacs कुंजी-बाइंडिंग का उपयोग करने का कोई आसान तरीका है?

जब भी कोई अंतरराष्ट्रीय लेआउट चालू होता है, तो सभी कीस्ट्रोक का अर्थ शाब्दिक रूप से किया जाता है, एम-ए के बजाय एम-एफ। नतीजतन मैं कमांड का उपयोग नहीं कर सकता।

यह भी अच्छा होगा अगर लिनक्स एक अंतरराष्ट्रीय लेआउट के अनुसार, गैर-प्रीफिक्स्ड और शिफ्ट-प्रीफिक्स्ड चाबियों की व्याख्या कर सकता है, जबकि बाकी अंग्रेजी रखता है।

Answer 1

आप

M-x set-input-method RET cyrillic-yawerty RET 

या

M-x set-input-method RET cyrillic-jcuken RET 

---

टाइपिंग यह स्थायी रूप से स्टोर करने के लिए द्वारा इनपुट पद्धति (प्रशंसा kindahero करने के लिए जाना) सेट कर सकते हैं, जोड़ने

(setq default-input-method "cyrillic-yawerty") 

से ~/.emacs कॉन्फ़िगरेशन (और कीबोर्ड लेआउट के बीच स्विच करने के लिए सी- \ का उपयोग करें)।

Answer 2

आप Emacs (बजाय का उपयोग Emacs के स्वयं के इनपुट विधि) में रूसी लेआउट का उपयोग कर रखना चाहते हैं, तो एक ही रास्ता मैं अब के लिए के बारे में पता फार्म की बाइंडिंग को जोड़ने के लिए है:

(define-key function-key-map [?\M-ф] [?\M-a]) 

हो जाएगा ताकि Emacs को बताएं कि यदि एम-एफ बाध्य नहीं है, तो उसे इसके बजाय मा को देखने का प्रयास करना चाहिए। अफसोस की बात है, आपको इन बाईंडिंग्स की बहुत आवश्यकता होगी। अगर कोई पैच/पैकेज लिखता है जो स्वचालित रूप से इन सभी बाइंडिंग प्रदान कर सकता है, तो मुझे इसे Emacs में शामिल करने में खुशी होगी।

Answer 3

सुनिश्चित नहीं है, sabof को 150 बिलियन मिले।

(loop 
for from across "йцукенгшщзхъфывапролджэячсмитьбюЙЦУКЕНГШЩЗХЪФЫВАПРОЛДЖ\ЭЯЧСМИТЬБЮ№" 
for to across "qwertyuiop[]asdfghjkl;'zxcvbnm,.QWERTYUIOP{}ASDFGHJKL:\"ZXCVBNM<>#" 
do 
(eval `(define-key key-translation-map (kbd ,(concat "C-" (string from))) (kbd ,(concat  "C-" (string to))))) 
(eval `(define-key key-translation-map (kbd ,(concat "M-" (string from))) (kbd ,(concat  "M-" (string to)))))) 

यह केवल 128 संयोजन है: मैं इस कोड (धन्यवाद यूरी खान को, EmacsWiki से लिया गया) भाग गया। दुर्भाग्य से, सी-एक्स बी जैसे एकल अक्षरों के साथ संयोजन काम नहीं करते हैं। मैं अभी भी एक बेहतर समाधान खोजने की कोशिश कर रहा हूँ।

Answer 4

यहां एक वैकल्पिक समाधान है जो सिंडिकैट के उत्तर के आधार पर ओएस भाषा का उपयोग करता है।

कुछ प्रमुख अनुवाद गायब हैं, लेकिन उन्हें जोड़ना आसान होना चाहिए।

;; USAGE: 
;; Put in your .emacs: 
;; 
;; (translate-keystrokes-ru->en) 
;; (add-hook 'text-mode-hook 
;;   (lambda() (literal-insert-mode 1))) 
;; 
;; Only buffers with literal-insert-mode active will be sensitive to the 
;; environment language. Prefixed keybindings will still be usable. 

(defun translate-keystrokes-ru->en() 
    "Make emacs output english characters, regardless whether 
the OS keyboard is english or russian" 
    (flet ((make-key-stroke (prefix char) 
      (eval `(kbd ,(if (and (string-match "^C-" prefix) 
           (string-match "[A-Z]" (string char))) 
          (concat "S-" prefix (string (downcase char))) 
          (concat prefix (string char))))))) 
    (let ((case-fold-search nil) 
      (keys-pairs (mapcar* 'cons 
           "йцукенгшщзхъфывапролджэячсмитьбюЙЦУКЕНГШЩЗХЪФЫВАПРОЛДЖ\ЭЯЧСМИТЬБЮ№" 
           "qwertyuiop[]asdfghjkl;'zxcvbnm,.QWERTYUIOP{}ASDFGHJKL:\"ZXCVBNM<>#")) 
      (prefixes '("" "s-" "M-" "M-s-" 
         "C-" "C-s-" "C-M-" "C-M-s-"))) 
     (mapc (lambda (prefix) 
       (mapc (lambda (pair) 
         (define-key key-translation-map 
          (make-key-stroke prefix (car pair)) 
         (make-key-stroke prefix (cdr pair)))) 
        keys-pairs)) 
      prefixes)))) 

(defun literal-insert() 
    (interactive) 
    (insert-char last-input-event 1)) 

(define-minor-mode literal-insert-mode 
    "Make emacs output characters corresponging to the OS keyboard, 
ignoring the key-translation-map" 
    :keymap (let ((new-map (make-sparse-keymap)) 
       (english-chars "qwertyuiop[]asdfghjkl;'zxcvbnm,.QWERTYUIOP{}ASDFGHJKL:\"ZXCVBNM<>#")) 
      (mapc (lambda (char) 
        (define-key new-map (string char) 
         'literal-insert)) 
        english-chars) 
      new-map))