Add :input japanese module

modules/input/japanese/config.el

@@ -0,0 +1,55 @@
+;;; input/japanese/config.el -*- lexical-binding: t; -*-
+
+(def-package! migemo
+  :config
+  (setq migemo-command "cmigemo"
+        migemo-options '("-q" "--emacs" "-i" "\a")
+        migemo-user-dictionary nil
+        migemo-regex-dictionary nil
+        migemo-coding-system 'utf-8-unix
+        search-default-regexp-mode nil
+        migemo-dictionary "/usr/local/share/migemo/utf-8/migemo-dict")
+  (migemo-init)
+  (when (featurep! :completion helm)
+    (after! helm (helm-migemo-mode +1))))
+
+
+(use-package pangu-spacing
+  :init
+  ;; replacing `chinese-two-byte' by `japanese'
+  (setq pangu-spacing-chinese-before-english-regexp
+        "\\(?1:\\cj\\)\\(?2:[0-9A-Za-z]\\)"
+        pangu-spacing-chinese-after-english-regexp
+        "\\(?1:[0-9A-Za-z]\\)\\(?2:\\cj\\)")
+
+  ;; 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))
+
+
+(def-package! avy-migemo
+  :after avy
+  :config (avy-migemo-mode 1))
+
+
+(def-package! ddskk
+  :defer t
+  :bind (("C-x j" . skk-mode)))
+
+
+;;
+;;; Hacks
+
+(defun +japanese*org-html-paragraph (paragraph contents info)
+  "Join consecutive Japanese lines into a single long line without unwanted space
+when exporting org-mode to html."
+  (let* ((fix-regexp "[[:multibyte:]]")
+         (origin-contents contents)
+         (fixed-contents
+          (replace-regexp-in-string
+           (concat "\\(" fix-regexp "\\) *\n *\\(" fix-regexp "\\)")
+           "\\1\\2"
+           origin-contents)))
+    (list paragraph fixed-contents info)))
+(advice-add #'org-html-paragraph :filter-args #'+japanese*org-html-paragraph)