Rewrite mim2remap in elisp to properly parse *.mim files.
This commit is contained in:
Daiki Ueno
@ -1,73 +0,0 @@
|
||||
#!/usr/bin/env python
|
||||
|
||||
# Copyright (C) 2011 Daiki Ueno <ueno@unixuser.org>
|
||||
# Copyright (C) 2011 Red Hat, Inc.
|
||||
|
||||
# This library is free software; you can redistribute it and/or
|
||||
# modify it under the terms of the GNU Lesser General Public License
|
||||
# as published by the Free Software Foundation; either version 2 of
|
||||
# the License, or (at your option) any later version.
|
||||
|
||||
# This library is distributed in the hope that it will be useful, but
|
||||
# WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
|
||||
# Lesser General Public License for more details.
|
||||
|
||||
# You should have received a copy of the GNU Lesser General Public
|
||||
# License along with this library; if not, write to the Free Software
|
||||
# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
|
||||
# 02110-1301 USA
|
||||
|
||||
import json
|
||||
from gi.repository import Gdk
|
||||
import sys, os.path, re
|
||||
|
||||
class MapFile(object):
|
||||
MAPENTRY_PATTERN = re.compile(r'\A\s*\((?:\((.*?)\)|"(.*?)")\s*(?:"(.*?)"|\?(.*?))\)')
|
||||
|
||||
def __init__(self, path):
|
||||
self.__dict = dict()
|
||||
|
||||
with open(path, 'r') as fp:
|
||||
for line in fp:
|
||||
match = re.match(self.MAPENTRY_PATTERN, line)
|
||||
if match:
|
||||
if match.group(1):
|
||||
keyseq = re.sub(r'\\(.)', r'\1', match.group(1))
|
||||
# should check G-* and A-*
|
||||
else:
|
||||
keyseq = re.sub(r'\\(.)', r'\1', match.group(2))
|
||||
# combination of keys is not supported
|
||||
if len(keyseq) > 1:
|
||||
continue
|
||||
try:
|
||||
keyval = Gdk.unicode_to_keyval(ord(keyseq))
|
||||
keyseq = Gdk.keyval_name(keyval)
|
||||
except:
|
||||
pass
|
||||
if match.group(3):
|
||||
insert = match.group(3).decode('UTF-8')
|
||||
else:
|
||||
insert = match.group(4).decode('UTF-8')
|
||||
replace = {}
|
||||
if len(insert) > 1:
|
||||
replace = { 'name': insert,
|
||||
'label': insert }
|
||||
else:
|
||||
try:
|
||||
keyval = Gdk.unicode_to_keyval(ord(insert))
|
||||
name = Gdk.keyval_name(keyval)
|
||||
replace = { 'name': name,
|
||||
'label': insert,
|
||||
'xkeysym': keyval }
|
||||
except:
|
||||
replace = { 'name': insert,
|
||||
'label': insert }
|
||||
self.__dict[keyseq] = replace
|
||||
|
||||
def __str__(self):
|
||||
return json.dumps(self.__dict)
|
||||
|
||||
if __name__ == "__main__":
|
||||
mapfile = MapFile(sys.argv[1])
|
||||
print mapfile
|
||||
164
examples/eekxml/mim2remap.el
Normal file
164
examples/eekxml/mim2remap.el
Normal file
@ -0,0 +1,164 @@
|
||||
;; mim2remap.el -- generate eekxml remap file from m17n MIM file
|
||||
;; Copyright (C) 2011 Daiki Ueno <ueno@unixuser.org>
|
||||
;; Copyright (C) 2011 Red Hat, Inc.
|
||||
|
||||
;; This program is free software: you can redistribute it and/or modify
|
||||
;; it under the terms of the GNU General Public License as published by
|
||||
;; the Free Software Foundation, either version 3 of the License, or
|
||||
;; (at your option) any later version.
|
||||
|
||||
;; This program is distributed in the hope that it will be useful, but
|
||||
;; WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
|
||||
;; General Public License for more details.
|
||||
|
||||
;; You should have received a copy of the GNU General Public License
|
||||
;; along with this program. If not, see
|
||||
;; <http://www.gnu.org/licenses/>.
|
||||
|
||||
;;; Commentary:
|
||||
|
||||
;; emacs -Q -batch -l mim2remap.el -f batch-mim2remap \
|
||||
;; /usr/share/m17n/te-inscript.mim trans
|
||||
|
||||
;;; Code:
|
||||
|
||||
(require 'json)
|
||||
|
||||
(defconst mim2remap--char-to-keyname-alist
|
||||
'((32 . "space")
|
||||
(33 . "exclam")
|
||||
(34 . "quotedbl")
|
||||
(35 . "numbersign")
|
||||
(36 . "dollar")
|
||||
(37 . "percent")
|
||||
(38 . "ampersand")
|
||||
(39 . "apostrophe")
|
||||
(40 . "parenleft")
|
||||
(41 . "parenright")
|
||||
(42 . "asterisk")
|
||||
(43 . "plus")
|
||||
(44 . "comma")
|
||||
(45 . "minus")
|
||||
(46 . "period")
|
||||
(47 . "slash")
|
||||
(48 . "0")
|
||||
(49 . "1")
|
||||
(50 . "2")
|
||||
(51 . "3")
|
||||
(52 . "4")
|
||||
(53 . "5")
|
||||
(54 . "6")
|
||||
(55 . "7")
|
||||
(56 . "8")
|
||||
(57 . "9")
|
||||
(58 . "colon")
|
||||
(59 . "semicolon")
|
||||
(60 . "less")
|
||||
(61 . "equal")
|
||||
(62 . "greater")
|
||||
(63 . "question")
|
||||
(64 . "at")
|
||||
(65 . "A")
|
||||
(66 . "B")
|
||||
(67 . "C")
|
||||
(68 . "D")
|
||||
(69 . "E")
|
||||
(70 . "F")
|
||||
(71 . "G")
|
||||
(72 . "H")
|
||||
(73 . "I")
|
||||
(74 . "J")
|
||||
(75 . "K")
|
||||
(76 . "L")
|
||||
(77 . "M")
|
||||
(78 . "N")
|
||||
(79 . "O")
|
||||
(80 . "P")
|
||||
(81 . "Q")
|
||||
(82 . "R")
|
||||
(83 . "S")
|
||||
(84 . "T")
|
||||
(85 . "U")
|
||||
(86 . "V")
|
||||
(87 . "W")
|
||||
(88 . "X")
|
||||
(89 . "Y")
|
||||
(90 . "Z")
|
||||
(91 . "bracketleft")
|
||||
(92 . "backslash")
|
||||
(93 . "bracketright")
|
||||
(94 . "asciicircum")
|
||||
(95 . "underscore")
|
||||
(96 . "grave")
|
||||
(97 . "a")
|
||||
(98 . "b")
|
||||
(99 . "c")
|
||||
(100 . "d")
|
||||
(101 . "e")
|
||||
(102 . "f")
|
||||
(103 . "g")
|
||||
(104 . "h")
|
||||
(105 . "i")
|
||||
(106 . "j")
|
||||
(107 . "k")
|
||||
(108 . "l")
|
||||
(109 . "m")
|
||||
(110 . "n")
|
||||
(111 . "o")
|
||||
(112 . "p")
|
||||
(113 . "q")
|
||||
(114 . "r")
|
||||
(115 . "s")
|
||||
(116 . "t")
|
||||
(117 . "u")
|
||||
(118 . "v")
|
||||
(119 . "w")
|
||||
(120 . "x")
|
||||
(121 . "y")
|
||||
(122 . "z")
|
||||
(123 . "braceleft")
|
||||
(124 . "bar")
|
||||
(125 . "braceright")
|
||||
(126 . "asciitilde")))
|
||||
|
||||
(defun mim2remap--char-to-keyname (char)
|
||||
(let ((entry (assq char mim2remap--char-to-keyname-alist)))
|
||||
(if entry
|
||||
(cdr entry))))
|
||||
|
||||
(defun mim2remap (file map)
|
||||
(with-current-buffer (find-file-noselect file)
|
||||
(let (sexp)
|
||||
(goto-char (point-min))
|
||||
(while (and (null sexp) (not (eobp)))
|
||||
(setq sexp (read (current-buffer)))
|
||||
(if (eq (car sexp) 'map)
|
||||
(setq sexp (cdr sexp))
|
||||
(setq sexp nil)))
|
||||
(if sexp
|
||||
(setq sexp (assq map sexp)))
|
||||
(unless sexp
|
||||
(error "No map named %S in %s" map file))
|
||||
(json-encode
|
||||
(mapcar
|
||||
(lambda (entry)
|
||||
(let ((from (car entry))
|
||||
(to (car (cdr entry))))
|
||||
(cons (if (listp from)
|
||||
(car from)
|
||||
(or (mim2remap--char-to-keyname (aref from 0))
|
||||
(error "No keyname for %c" (aref from 0))))
|
||||
(if (characterp to)
|
||||
(list (cons :text (char-to-string to)))
|
||||
(list (cons :text to))))))
|
||||
(cdr sexp))))))
|
||||
|
||||
(defun batch-mim2remap ()
|
||||
(interactive)
|
||||
(let ((file (car command-line-args-left))
|
||||
(map (car (cdr command-line-args-left))))
|
||||
(princ (mim2remap file (intern map)))
|
||||
(setq command-line-args-left (nthcdr 2 command-line-args-left))))
|
||||
|
||||
;;; mim2remap.el ends here
|
||||
Reference in New Issue
Block a user