Commit 88816018 authored by Daiki Ueno's avatar Daiki Ueno
Browse files

Rewrite mim2remap in elisp to properly parse *.mim files.

parent 06e7e2af
#!/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
;; 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
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment