80 lines
2.3 KiB
EmacsLisp
80 lines
2.3 KiB
EmacsLisp
;;; packages.el --- chinese Layer packages File for Spacemacs
|
|
;;
|
|
;; Copyright (c) 2012-2014 Sylvain Benner
|
|
;; Copyright (c) 2014-2015 Sylvain Benner & Contributors
|
|
;;
|
|
;; Author: Sylvain Benner <sylvain.benner@gmail.com>
|
|
;; URL: https://github.com/syl20bnr/spacemacs
|
|
;;
|
|
;; This file is not part of GNU Emacs.
|
|
;;
|
|
;;; License: GPLv3
|
|
|
|
;; List of all packages to install and/or initialize. Built-in packages
|
|
;; which require an initialization must be listed explicitly in the list.
|
|
(setq chinese-packages
|
|
'(
|
|
youdao-dictionary
|
|
chinese-pyim
|
|
find-by-pinyin-dired
|
|
ace-pinyin
|
|
chinese-wbim
|
|
))
|
|
|
|
(defun chinese/init-chinese-wbim ()
|
|
"Initialize chinese-wubi"
|
|
(use-package chinese-wbim
|
|
:if (eq 'wubi chinese-default-input-method)
|
|
:init
|
|
(progn
|
|
(autoload 'chinese-wbim-use-package "chinese-wubi" "Another emacs input method")
|
|
;; Tooptip is not good enough, so disable it here.
|
|
(setq chinese-wbim-use-tooltip nil)
|
|
|
|
(register-input-method
|
|
"chinese-wubi" "euc-cn" 'chinese-wbim-use-package
|
|
"五笔" "汉字五笔输入法" "wb.txt")
|
|
(require 'chinese-wbim-extra)
|
|
(global-set-key ";" 'chinese-wbim-insert-ascii)
|
|
(setq default-input-method 'chinese-wubi)
|
|
)))
|
|
|
|
(defun chinese/init-youdao-dictionary ()
|
|
(use-package youdao-dictionary
|
|
:config
|
|
(progn
|
|
;; Enable Cache
|
|
(setq url-automatic-caching t)
|
|
|
|
;; Set file path for saving search history
|
|
(setq youdao-dictionary-search-history-file (concat spacemacs-cache-directory ".youdao"))
|
|
|
|
;; Enable Chinese word segmentation support
|
|
(setq youdao-dictionary-use-chinese-word-segmentation t)
|
|
)))
|
|
|
|
(defun chinese/init-chinese-pyim ()
|
|
(use-package chinese-pyim
|
|
:if (eq 'pinyin chinese-default-input-method)
|
|
:init
|
|
(progn
|
|
(setq pyim-use-tooltip t)
|
|
(setq pyim-dicts-directory spacemacs-cache-directory)
|
|
(setq pyim-personal-file (concat spacemacs-cache-directory "pyim-personal.txt"))
|
|
(setq default-input-method "chinese-pyim")
|
|
(evilify pyim-dicts-manager-mode pyim-dicts-manager-mode-map)
|
|
)))
|
|
|
|
|
|
(defun chinese/init-find-by-pinyin-dired ()
|
|
(use-package find-by-pinyin-dired
|
|
:defer t
|
|
))
|
|
|
|
(defun chinese/init-ace-pinyin ()
|
|
(use-package ace-pinyin
|
|
:defer t
|
|
:init
|
|
(progn
|
|
(ace-pinyin-global-mode t)
|
|
(spacemacs|hide-lighter ace-pinyin-mode))))
|