Commit 00951eab authored by Duncan Bayne's avatar Duncan Bayne

Add helper to run Bluetooth utilities

parent 16d8e1af
......@@ -93,3 +93,12 @@
"Opens the file named in the currently selected region."
(interactive)
(find-file (utils:region-string)))
(defun utils:ensure-bluetooth-running ()
"Ensures the bluetooth applet is running."
(interactive)
(if (not (member "*bluetooth*" (utils:term-buffer-names)))
(progn
(utils:create-or-switch-to-term "bluetooth")
(cd "~")
(mapcar #'term-send-raw-string '("cd ~\n"
"blueman-applet\n")))))
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment