TakeV/spacemacs
Archived
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity
This repository has been archived on 2024-10-22. You can view files and clone it, but cannot push or open issues or pull requests.
spacemacs/layers/+intl/japanese/packages.el

96 lines
3.3 KiB
EmacsLisp
Raw Normal View History

Add Japanese Layer
2016-09-07 10:58:09 +00:00
;;; packages.el --- Japanese Layer packages File for Spacemacs
;;
Update header for year 2021
2021-03-22 20:11:29 +00:00
;; Copyright (c) 2012-2021 Sylvain Benner & Contributors
Add Japanese Layer
2016-09-07 10:58:09 +00:00
;;
;; Author: Kenji Miyazaki <kenjimyzk@gmail.com>
;; URL: https://github.com/kenjimyzk/
;;
;; This file is not part of GNU Emacs.
;;
;;; License: GPLv3
Unify packages list parentheses style problem: some layer packages lists have the open and closing parentheses on the same line as the first and last listed package, but most seem to have them on a separate lines. solution: put the open and close parentheses on separate lines, except for lists with only a single package, they are written on the same line as the variable name and parentheses. fix the lists indentation
2018-11-20 19:55:37 +00:00
Add Japanese Layer
2016-09-07 10:58:09 +00:00
;; List of all packages to install and/or initialize. Built-in packages
;; which require an initialization must be listed explicitly in the list.
(setq japanese-packages
Unify packages list parentheses style problem: some layer packages lists have the open and closing parentheses on the same line as the first and last listed package, but most seem to have them on a separate lines. solution: put the open and close parentheses on separate lines, except for lists with only a single package, they are written on the same line as the variable name and parentheses. fix the lists indentation
2018-11-20 19:55:37 +00:00
'(
evil-tutor-ja
Add Japanese Layer
2016-09-07 10:58:09 +00:00
migemo
avy-migemo
ddskk
japanese-holidays
pangu-spacing
Unify packages list parentheses style problem: some layer packages lists have the open and closing parentheses on the same line as the first and last listed package, but most seem to have them on a separate lines. solution: put the open and close parentheses on separate lines, except for lists with only a single package, they are written on the same line as the variable name and parentheses. fix the lists indentation
2018-11-20 19:55:37 +00:00
org
))
Add Japanese Layer
2016-09-07 10:58:09 +00:00
(defun japanese/init-evil-tutor-ja ()
(use-package evil-tutor-ja
Revert "Defer packages by default using use-package-always-defer" This reverts commit 29c78ce841ee5a99bb4077a2862afc96c8136107 and all other fixes that have been made afterwards. The motivation is that use-package is seen by many as a replacement for `require`. Is use-package always defer the loading of packages then is breaks this use case, this does not respect POLA so even if it was making Spacemacs loading faster (up to 3s faster on some startup on my machine) we just cannot use it, it would be irresponsible. Spacemacs should be easy to use, loading performance will come with time but it is not a priority.
2018-03-04 04:37:53 +00:00
:defer t))
Add Japanese Layer
2016-09-07 10:58:09 +00:00
(defun japanese/init-migemo ()
(use-package migemo
:config
(setq migemo-command "cmigemo")
(setq migemo-options '("-q" "--emacs" "-i" "\a"))
(setq migemo-user-dictionary nil)
(setq migemo-regex-dictionary nil)
(setq migemo-coding-system 'utf-8-unix)
(setq search-default-regexp-mode nil)
[japanese] Fix doc
2019-08-22 01:50:29 +00:00
(cond
((eq system-type 'darwin)
(setq migemo-dictionary "/usr/local/share/migemo/utf-8/migemo-dict"))
((eq system-type 'gnu/linux)
(setq migemo-dictionary "/usr/share/cmigemo/utf-8/migemo-dict"))))
(migemo-init))
Add Japanese Layer
2016-09-07 10:58:09 +00:00
(defun japanese/init-avy-migemo ()
(use-package avy-migemo
:config (avy-migemo-mode 1)))
(defun japanese/init-ddskk ()
(use-package ddskk
Revert "Defer packages by default using use-package-always-defer" This reverts commit 29c78ce841ee5a99bb4077a2862afc96c8136107 and all other fixes that have been made afterwards. The motivation is that use-package is seen by many as a replacement for `require`. Is use-package always defer the loading of packages then is breaks this use case, this does not respect POLA so even if it was making Spacemacs loading faster (up to 3s faster on some startup on my machine) we just cannot use it, it would be irresponsible. Spacemacs should be easy to use, loading performance will come with time but it is not a priority.
2018-03-04 04:37:53 +00:00
:defer t
Add Japanese Layer
2016-09-07 10:58:09 +00:00
:bind (("C-x j" . skk-mode))))
(defun japanese/init-japanese-holidays ()
(use-package japanese-holidays
:config
(with-eval-after-load "holidays"
(setq calendar-holidays
(append japanese-holidays holiday-local-holidays holiday-other-holidays))
(setq mark-holidays-in-calendar t)
(setq japanese-holiday-weekend '(0 6)
japanese-holiday-weekend-marker
'(holiday nil nil nil nil nil japanese-holiday-saturday))
(add-hook 'calendar-today-visible-hook 'japanese-holiday-mark-weekend)
(add-hook 'calendar-today-invisible-hook 'japanese-holiday-mark-weekend)
(add-hook 'calendar-today-visible-hook 'calendar-mark-today))))
(defun japanese/init-pangu-spacing ()
(use-package pangu-spacing
:init
(progn ;; replacing `chinese-two-byte' by `japanese'
(setq pangu-spacing-chinese-before-english-regexp
(rx (group-n 1 (category japanese))
(group-n 2 (in "a-zA-Z0-9"))))
(setq pangu-spacing-chinese-after-english-regexp
(rx (group-n 1 (in "a-zA-Z0-9"))
(group-n 2 (category japanese))))
(spacemacs|hide-lighter pangu-spacing-mode)
;; Always insert `real' space in text-mode including org-mode.
(setq pangu-spacing-real-insert-separtor t)
;; (global-pangu-spacing-mode 1)
(add-hook 'text-mode-hook 'pangu-spacing-mode))))
(defun japanese/post-init-org ()
(defadvice org-html-paragraph (before org-html-paragraph-advice
(paragraph contents info) activate)
"Join consecutive Japanese lines into a single long line without
unwanted space when exporting org-mode to html."
(let* ((origin-contents (ad-get-arg 1))
(fix-regexp "[[:multibyte:]]")
(fixed-contents
(replace-regexp-in-string
(concat
"\\(" fix-regexp "\\) *\n *\\(" fix-regexp "\\)") "\\1\\2" origin-contents)))
(ad-set-arg 1 fixed-contents))))
Reference in a new issue Copy permalink