branch: externals/bluetooth
commit fa3761da3cda33c59634faa90a16f74945efe10e
Author: Raffael Stocker <[email protected]>
Commit: Raffael Stocker <[email protected]>
add timer to periodically update the device table in discovery mode
* bluetooth.el (bluetooth-update-interval): new customization option
---
bluetooth.el | 26 +++++++++++++++++++++-----
1 file changed, 21 insertions(+), 5 deletions(-)
diff --git a/bluetooth.el b/bluetooth.el
index aafd77b98d..51b6e33840 100644
--- a/bluetooth.el
+++ b/bluetooth.el
@@ -58,6 +58,10 @@ This is usually `:system' if bluetoothd runs as a system
service, or
`:session' if it runs as a user service."
:type '(symbol))
+(defcustom bluetooth-update-interval 2
+ "Update interval of the device list view."
+ :type '(natnum))
+
(defgroup bluetooth-faces nil
"Faces used by Bluetooth mode."
:group 'faces)
@@ -221,17 +225,27 @@ profiles."
(command-execute #'bluetooth-disconnect)))
-(defmacro bluetooth-defun-method (method api docstring)
+(defmacro bluetooth-defun-method (method api docstring &rest body)
(declare (doc-string 3) (indent 2))
(let ((name (bluetooth--function-name method)))
`(defun ,(intern name) () ,docstring
(interactive)
- (bluetooth--dbus-method ,method ,api))))
+ (bluetooth--dbus-method ,method ,api)
+ ,@body)))
+
+(defvar bluetooth--update-timer nil
+ "The bluetooth device table update timer.")
(bluetooth-defun-method "StartDiscovery" :adapter
- "Start discovery mode.")
+ "Start discovery mode."
+ (setq bluetooth--update-timer
+ (run-at-time nil bluetooth-update-interval
+ #'bluetooth--update-list)))
+
(bluetooth-defun-method "StopDiscovery" :adapter
- "Stop discovery mode.")
+ "Stop discovery mode."
+ (cancel-timer bluetooth--update-timer))
+
(bluetooth-defun-method "Pair" :device
"Pair with device at point.")
@@ -539,11 +553,13 @@ This function only uses the first adapter reported by
Bluez."
"UnregisterAgent"
:object-path bluetooth--own-path)
(mapc #'dbus-unregister-object bluetooth--method-objects)
- (dbus-unregister-object bluetooth--adapter-signal)))
+ (dbus-unregister-object bluetooth--adapter-signal)
+ (cancel-timer bluetooth--update-timer)))
(defun bluetooth-unload-function ()
"Clean up when the bluetooth feature is unloaded."
(when (buffer-live-p (get-buffer bluetooth-buffer-name))
+ (cancel-timer bluetooth--update-timer)
(kill-buffer bluetooth-buffer-name))
nil)
