blob: 8bb25fdf8c83c5218533e1f3508b99ac304f66d3 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
|
;;; rime-conf.el --- Configurations of rime -*- lexical-binding: t; -*-
;;; Author: Durand
;;; Version: 0.0.1
;;; Commentary:
;;; My configurations of rime.
;;; Code:
(use-package "dash.el" 'dash)
(use-package "emacs-rime" 'rime
(define-key global-map (vector ?\s-i) #'toggle-input-method)
(setq rime-librime-root "~/elisp_packages/librime/dist")
(add-to-list 'rime-translate-keybindings "RET")
(add-to-list 'rime-translate-keybindings "[")
(add-to-list 'rime-translate-keybindings "]")
(setq default-input-method "rime"
;; rime-show-candidate 'posframe
rime-user-data-dir (expand-file-name "rime" load-file-directory))
;;; HACK: Fix a function
(defun durand-rime-send-keybinding-a ()
"Fix a weird function."
(let* ((parsed (rime--parse-key-event last-input-event))
(key-raw (car parsed))
(key (if (numberp key-raw)
key-raw
(pcase key-raw
('home 65360)
('left 65361)
('up 65362)
('right 65363)
('down 65364)
('prior 65365)
('next 65366)
('delete 65535)
(_ key-raw))))
(mask (cdr parsed)))
(unless (numberp key)
(error "Can't send this keybinding to librime"))
(rime-lib-process-key key mask)
(rime--redisplay)
(rime--refresh-mode-state)))
(advice-add 'rime-send-keybinding :override #'durand-rime-send-keybinding-a))
(provide 'rime-conf)
;; rime-conf.el ends here
|
