27 lines
696 B
EmacsLisp
27 lines
696 B
EmacsLisp
|
#!/usr/bin/env -S emacs -x
|
|||
|
|
;; -*- lexical-binding: t -*-
|
|||
|
|
|
|||
|
|
(require 'cl-lib)
|
|||
|
|
(require 'server)
|
|||
|
|
(require 'dbus)
|
|||
|
|
|
|||
|
|
(cl-defun server-input-method-name (&optional (server "server"))
|
|||
|
|
(server-eval-at server 'current-input-method))
|
|||
|
|
|
|||
|
|
(cl-defun mozc-enabled-p (&optional (server "server"))
|
|||
|
|
(equal (server-input-method-name server) "japanese-mozc"))
|
|||
|
|
|
|||
|
|
(defun fcitx5-enabled-p ()
|
|||
|
|
(equal (dbus-call-method :session "org.fcitx.Fcitx5" "/controller"
|
|||
|
|
"org.fcitx.Fcitx.Controller1" "State")
|
|||
|
|
2))
|
|||
|
|
|
|||
|
|
(princ (if (or (mozc-enabled-p) (fcitx5-enabled-p))
|
|||
|
|
"あ"
|
|||
|
|
"Ａ"))
|
|||
|
|
(terpri)
|
|||
|
|
|
|||
|
|
;; Local Variables:
|
|||
|
|
;; flycheck-disabled-checkers: (emacs-lisp-checkdoc)
|
|||
|
|
;; End:
|