Basic automatic character lookup for JA text

lisp/mitch-packages.el

@@ -19,15 +19,22 @@ NAME and ARGS are in `use-package'."
 (use-package diminish
   ;; :straight (:type built-in)
   )
-(use-package eldoc
+(use-feature eldoc
   :straight (:type built-in)
-  :custom (eldoc-echo-area-use-multiline-p nil)
+  :diminish
   :defer 1
-  :diminish)
 (use-package tramp
   :straight (:type built-in)
   :custom (tramp-mode nil))
 (use-package savehist
+  :custom (eldoc-echo-area-use-multiline-p nil)
+  :config
+  ;; eldoc for 日本語 -- taken from https://cce.whatthefuck.computer/japanese-study
+  (defun eldoc-jhk (&rest args)
+    (when (looking-at "[あ-ヿ]")
+      (get-char-code-property (string-to-char (thing-at-point 'char)) 'name)))
+  (add-hook 'eldoc-documentation-functions
+	    #'eldoc-jhk))
   :straight (:type built-in)
   :init (savehist-mode))
 (use-package whitespace