diff options
| author | Simon Parri <simonparri@ganzeria.com> | 2025-11-22 12:00:21 -0600 |
|---|---|---|
| committer | Simon Parri <simonparri@ganzeria.com> | 2025-11-22 12:00:21 -0600 |
| commit | d46f8727bfb04ce1ae554adcca1edaf57dd7b335 (patch) | |
| tree | afd3da0f3602ffd03564206be5e739fe611f75d5 | |
| parent | 3b9a3badc04192b89bee320c0bffe6c4dd460956 (diff) | |
| download | dotfiles-d46f8727bfb04ce1ae554adcca1edaf57dd7b335.tar.gz dotfiles-d46f8727bfb04ce1ae554adcca1edaf57dd7b335.zip | |
Emacs/Mobile-Device: Use native Emacs DBus functions instead of qdbus
| -rw-r--r-- | common/.emacs.d/init.el | 34 |
1 files changed, 30 insertions, 4 deletions
diff --git a/common/.emacs.d/init.el b/common/.emacs.d/init.el index 6628184..51dd64f 100644 --- a/common/.emacs.d/init.el +++ b/common/.emacs.d/init.el @@ -4002,13 +4002,39 @@ instead." (winner-mode)) (progn ;; mobile-device-mode - (defun osk-toggle () + (defun onboard--call-method (method) + (dbus-call-method + :session + "org.onboard.Onboard" + "/org/onboard/Onboard/Keyboard" + "org.onboard.Onboard.Keyboard" + method)) + + (defun onboard--query-property (prop) + (dbus-get-property + :session + "org.onboard.Onboard" + "/org/onboard/Onboard/Keyboard" + "org.onboard.Onboard.Keyboard" + prop)) + + (defun onboard-visible-p () + (onboard--query-property "Visible")) + + (defun onboard-toggle () (interactive) - (call-process-shell-command - "qdbus org.onboard.Onboard /org/onboard/Onboard/Keyboard org.onboard.Onboard.Keyboard.ToggleVisible")) + (onboard--call-method "ToggleVisible")) + + (defun onboard-hide () + (interactive) + (onboard--call-method "Hide")) + + (defun onboard-show () + (interactive) + (onboard--call-method "Show")) (defvar-keymap mobile-device-mode-map - "<XF86PowerOff> <XF86PowerOff>" 'osk-toggle + "<XF86PowerOff> <XF86PowerOff>" 'onboard-toggle "<XF86PowerOff> <XF86AudioRaiseVolume>" 'mobile-device-volume-mode "<XF86PowerOff> <XF86AudioLowerVolume>" 'mobile-device-navigate-mode "<XF86AudioLowerVolume> <XF86PowerOff>" 'suspend |