※前回掲載したものは、windowsのIMEが機能しなかったので、修正版として掲載します。
※OSに合わせて、日本語設定を切り替える部分をleafらしく再修正しました。
※leaf-keywordの範囲（閉じ括弧）をお手本通りに修正、パッケージにleaf-convert-insert-templateで情報（:doc、: req等）を付け加えた。文字化けがあったので日本語フォントの指定を行った。再々修正しました。
※6/2修正分
which-keyも含めました。また、leafの定義（最初の5行）が抜けていましたので追加しました。
init.elをleaf.elで書き直しました。
今後のパッケージ管理は、leaf.elが主流になりそうなので、書き換えました。
あと、WindowsとUbuntu(linux系でmozcであればOK）の両方で、日本語入力ができるようになりました。
WindowsとUbuntuを判定して、日本語設定を変えるようにしています。
;;;; init.el
;; 動作確認:
;; Windows10 バージョン 21H2
;; Ubuntu 20.04.4 LTS Release: 20.04
;; GNU Emacs 28.1 (build 52, x86_64-w64-mingw32) of 2022-04-05
;; 修正日: 2022.06.02
;; tr-emacs-ime-module README.md を参照して作成
;; package、Windwos IME設定
;; 初めての package-initialize または
;; 何もパッケージがインストールされていない場合のみ
;; package.elをロードさせるため package-initialize を実行してください。
(eval-and-compile
(when (or load-file-name byte-compile-current-file)
(setq user-emacs-directory
(expand-file-name
(file-name-directory (or load-file-name byte-compile-current-file))))))
(eval-and-compile
(customize-set-variable
'package-archives '(("melpa" . "https://melpa.org/packages/")
("melpa-stable" . "https://stable.melpa.org/packages/")
("gnu" . "https://elpa.gnu.org/packages/")))
(package-initialize)
(unless (package-installed-p 'leaf)
(package-refresh-contents)
(package-install 'leaf))
(leaf leaf-keywords
:doc "Additional leaf.el keywords for external packages"
:req "emacs-24.4" "leaf-3.5.0"
:tag "settings" "lisp" "emacs>=24.4"
:url "https://github.com/conao3/leaf-keywords.el"
:added "2022-05-23"
:emacs>= 24.4
:ensure t
:init
;; optional packages if you want to use :hydra, :el-get, :blackout,,,
(leaf hydra
:doc "Make bindings that stick around."
:req "cl-lib-0.5" "lv-0"
:tag "bindings"
:url "https://github.com/abo-abo/hydra"
:added "2022-05-23"
:ensure t)
(leaf el-get
:doc "Manage the external elisp bits and pieces you depend upon"
:tag "emacswiki" "http-tar" "http" "pacman" "fink" "apt-get" "hg" "darcs" "svn" "cvs" "bzr" "git-svn" "git" "elpa" "install" "elisp" "package" "emacs"
:url "http://www.emacswiki.org/emacs/el-get"
:added "2022-05-23"
:ensure t)
(leaf blackout
:doc "Better mode lighter overriding"
:req "emacs-26"
:tag "extensions" "emacs>=26"
:url "https://github.com/radian-software/blackout"
:added "2022-05-23"
:emacs>= 26
:ensure t)
:config
;; initialize leaf-keywords.el
(leaf-keywords-init)))
(leaf leaf
:config
(leaf leaf-convert
:doc "Convert many format to leaf format"
:req "emacs-26.1" "leaf-3.6.0" "leaf-keywords-1.1.0" "ppp-2.1"
:tag "tools" "emacs>=26.1"
:url "https://github.com/conao3/leaf-convert.el"
:added "2022-05-23"
:emacs>= 26.1
:ensure t)
(leaf leaf-tree
:doc "Interactive side-bar feature for init.el using leaf"
:req "emacs-25.1" "imenu-list-0.8"
:tag "leaf" "convenience" "emacs>=25.1"
:url "https://github.com/conao3/leaf-tree.el"
:added "2022-05-23"
:emacs>= 25.1
:ensure t
:custom ((imenu-list-size . 30)
(imenu-list-position . 'left))))
(leaf macrostep
:doc "interactive macro expander"
:req "cl-lib-0.5"
:tag "debugging" "macro" "languages" "lisp"
:url "https://github.com/joddie/macrostep"
:added "2022-05-23"
:ensure t
:bind (("C-c e" . macrostep-expand)))
(leaf all-the-icons
:doc "A library for inserting Developer icons"
:req "emacs-24.3"
:tag "lisp" "convenient" "emacs>=24.3"
:url "https://github.com/domtronn/all-the-icons.el"
:added "2022-05-23"
:emacs>= 24.3
:when (display-graphic-p)
:ensure t)
(leaf ime
:config
(set-language-environment "Japanese")
;; OS によって設定を切り替える
;; Windows 日本語設定
(leaf windows
:when (eq system-type 'windows-nt) ; Windows
;; (setenv "PATH" (concat "C:\\Programs\\msys64\\usr\\bin;" (getenv "PATH"))) ; msys2 の PATH 設定を追加
;; tr-imeのDLLを自動でダウンロードしてくれる
:config
(leaf tr-ime
:doc "Emulator of IME patch for Windows"
:req "emacs-27.1" "w32-ime-0.0.1"
:tag "emacs>=27.1"
:url "https://github.com/trueroad/tr-emacs-ime-module"
:added "2022-05-22"
:emacs>= 27.1
:ensure t
:config
(tr-ime-standard-install)
)
(set-language-environment "Japanese")
;; IM のデフォルトを IME に設定
(setq default-input-method "W32-IME")
;; IME のモードライン表示設定
(setq-default w32-ime-mode-line-state-indicator "[--]")
(setq w32-ime-mode-line-state-indicator-list '("[--]" "[あ]" "[--]"))
;; IME 初期化
(w32-ime-initialize)
(w32-ime-wrap-function-to-control-ime 'universal-argument)
(w32-ime-wrap-function-to-control-ime 'read-string)
(w32-ime-wrap-function-to-control-ime 'read-char)
(w32-ime-wrap-function-to-control-ime 'read-from-minibuffer)
(w32-ime-wrap-function-to-control-ime 'y-or-n-p)
(w32-ime-wrap-function-to-control-ime 'yes-or-no-p)
(w32-ime-wrap-function-to-control-ime 'map-y-or-n-p)
(w32-ime-wrap-function-to-control-ime 'register-read-with-preview)
(set-frame-font "MS Gothic-12" nil t)
(modify-all-frames-parameters
'((ime-font . "MS Gothic-12")))
(add-hook 'isearch-mode-hook
(lambda nil
(setq w32-ime-composition-window (minibuffer-window))))
(add-hook 'isearch-mode-end-hook
(lambda nil
(setq w32-ime-composition-window nil)))
)
;; Mac OS X 日本語設定
;; (leaf mac
;; :when (eq system-type 'darwin) ; Mac OS X
;; :config
;; (exec-path-from-shell-initialize)) ; PATH 設定を引き継ぐ
;; linux OS 日本語設定
(leaf linux
:when (eq system-type 'gnu/linux) ; linux
:config
(leaf mozc
:doc "minor mode to input Japanese with Mozc"
:tag "input method" "multilingual" "mule"
:added "2022-05-22"
:ensure t
:config
(set-language-environment "Japanese")
(setq default-input-method "japanese-mozc")
(prefer-coding-system 'utf-8)
(setq mozc-candidate-style 'echo-area)
(setq quail-japanese-use-double-n t))
)
)
(leaf vertico-setting
:config
(leaf consult
:doc "Consulting completing-read"
:req "emacs-27.1" "compat-28.1"
:tag "emacs>=27.1"
:url "https://github.com/minad/consult"
:added "2022-05-22"
:emacs>= 27.1
:ensure t
:bind (("C-c h" . consult-history)
("C-c m" . consult-mode-command)
("C-c b" . consult-bookmark)
("C-c k" . consult-kmacro)
("C-x M-:" . consult-complex-command)
("C-x b" . consult-buffer)
("C-x 4 b" . consult-buffer-other-window)
("C-x 5 b" . consult-buffer-other-frame)
("M-#" . consult-register-load)
("M-'" . consult-register-store)
("C-M-#" . consult-register)
("M-y" . consult-yank-pop)
(" a" . consult-apropos)
("M-g e" . consult-compile-error)
("M-g f" . consult-flymake)
("M-g g" . consult-goto-line)
("M-g M-g" . consult-goto-line)
("M-g o" . consult-outline)
("M-g m" . consult-mark)
("M-g k" . consult-global-mark)
("M-g i" . consult-imenu)
("M-g I" . consult-imenu-multi)
("M-s f" . consult-find)
("M-s F" . consult-locate)
("M-s g" . consult-grep)
("M-s G" . consult-git-grep)
("M-s r" . consult-ripgrep)
("M-s l" . consult-line)
("M-s L" . consult-line-multi)
("M-s m" . consult-multi-occur)
("M-s k" . consult-keep-lines)
("M-s u" . consult-focus-lines)
("M-s e" . consult-isearch)
(isearch-mode-map
("M-e" . consult-isearch)
("M-s e" . consult-isearch)
("M-s l" . consult-line)
("M-s L" . consult-line-multi)))
)
(leaf orderless
:doc "Completion style for matching regexps in any order"
:req "emacs-26.1"
:tag "extensions" "emacs>=26.1"
:url "https://github.com/oantolin/orderless"
:added "2021-09-04"
:emacs>= 26.1
:setq ((completion-styles quote
(orderless)))
:ensure t)
(leaf vertico
:doc "VERTical Interactive COmpletion"
:req "emacs-27.1"
:tag "emacs>=27.1"
:url "https://github.com/minad/vertico"
:added "2021-09-04"
:emacs>= 27.1
:setq ((vertico-count . 10))
:ensure t)
(leaf marginalia
:doc "Enrich existing commands with completion annotations"
:req "emacs-27.1"
:tag "emacs>=27.1"
:url "https://github.com/minad/marginalia"
:added "2022-05-22"
:emacs>= 27.1
:ensure t)
(leaf init_hook
:preface
(defun after-init-hook nil
(vertico-mode)
(marginalia-mode)
(savehist-mode))
:hook ((after-init-hook . after-init-hook)))
(leaf embark
:doc "Conveniently act on minibuffer completions"
:req "emacs-26.1"
:tag "convenience" "emacs>=26.1"
:url "https://github.com/oantolin/embark"
:added "2021-09-04"
:emacs>= 26.1
:ensure t)
(leaf embark-consult
:doc "Consult integration for Embark"
:req "emacs-25.1" "embark-0.9" "consult-0.1"
:tag "convenience" "emacs>=25.1"
:url "https://github.com/oantolin/embark"
:added "2021-09-04"
:emacs>= 25.1
:ensure t
:after embark consult)
)
(leaf which-key
:doc "Display available keybindings in popup"
:req "emacs-24.4"
:tag "emacs>=24.4"
:url "https://github.com/justbur/emacs-which-key"
:added "2022-05-22"
:emacs>= 24.4
:ensure t
:config
(which-key-mode);; (which-key-setup-minibuffer)
)
(provide 'init)
