27 lines
696 B
EmacsLisp
Executable File
27 lines
696 B
EmacsLisp
Executable File
#!/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:
|