spacemacs 启用字典


原文链接: spacemacs 启用字典
(defconst jerry-packages
  '(
    chinese-pyim-greatdict
    ))

(defun jerry/init-chinese-pyim-greatdict ()
  (use-package chinese-pyim-greatdict)
  )
;;; init-chinese.el --- 中文输入法
;;; Commentary:
;;; Code:

;; chinese-fonts-setup -- 中文字体问题
(use-package chinese-fonts-setup
  ;; :disabled t
  :if (window-system)
  :demand t
  :config
  (chinese-fonts-setup-enable)
  (setq cfs-use-face-font-rescale t)
  )

;; chineas-pyim -- 中文输入
(use-package chinese-pyim
  :disabled t
  ;; :demand t
  :config
  ;; 使用basedict拼音词库
  (use-package chinese-pyim-basedict
	:demand t
	:config
	(chinese-pyim-basedict-enable)

	;; 开始真正配置
	(setq default-input-method "chinese-pyim")
	;; 全拼
	(setq pyim-default-scheme 'quanpin)

	;; 设置 pyim 探针设置,这是 pyim 高级功能设置,可以实现 *无痛* 中英文切换 :-)
	;; 我自己使用的中英文动态切换规则是:
	;; 1. 光标只有在注释里面时,才可以输入中文。
	;; 2. 光标前是汉字字符时,才能输入中文。
	;; 3. 使用 M-j 快捷键,强制将光标前的拼音字符串转换为中文。
	(setq-default pyim-english-input-switch-functions
				  '(pyim-probe-dynamic-english
					pyim-probe-isearch-mode
					pyim-probe-program-mode
					pyim-probe-org-structure-template))

	(setq-default pyim-punctuation-half-width-functions
				  '(pyim-probe-punctuation-line-beginning
					pyim-probe-punctuation-after-punctuation))

	;; 开启拼音搜索功能
	(setq pyim-isearch-enable-pinyin-search t)

	;; 使用 pupup-el 来绘制选词框
	(setq pyim-page-tooltip 'popup)

	;; 选词框显示5个候选词
	(setq pyim-page-length 5)

	;; 让 Emacs 启动时自动加载 pyim 词库
	(add-hook 'emacs-startup-hook
			  #'(lambda () (pyim-restart-1 t)))
	:bind
	(("M-j" . pyim-convert-code-at-point) ;与 pyim-probe-dynamic-english 配合
	 ("C-;" . pyim-delete-word-from-personal-buffer))
	)
  )

(provide 'init-chinese)
;;; init-chinese.el ends here
;; Auto generated by chinese-fonts-setup
;; <https://github.com/tumashu/chinese-fonts-setup>
(set-face-attribute
 'default nil
 :font (font-spec :name "-ADBO-Source Code Pro-normal-normal-normal-*-*-*-*-*-m-0-iso10646-1"
                  :weight 'normal
                  :slant 'normal
                  :size 11.5))
(dolist (charset '(kana han symbol cjk-misc bopomofo))
  (set-fontset-font
   (frame-parameter nil 'font)
   charset
   (font-spec :name "-WQYF-文泉驿等宽微米黑-normal-normal-normal-*-*-*-*-*-*-0-iso10646-1"
              :weight 'normal
              :slant 'normal
              :size 13.5)))
`