summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJSDurand <mmemmew@gmail.com>2021-05-20 18:40:57 +0800
committerJSDurand <mmemmew@gmail.com>2021-05-20 18:40:57 +0800
commit2655155da480004b4bcb33e277d3ca68dd16c3f2 (patch)
treec3d0b7e417298865c8d5bc246283e323fc530a32
parentbb3b3229afdad13662342ead7c3440766c6a3f64 (diff)
Refactor WIFI list command.
* wifi-bluetooth-conf.el (durand-wifi-list-ports): The default behaviour should only list the currently connected WIFI port, instead of listing every available port. (durand-wifi-list-sentinel): The sentinel should report if WIFI is not enabled.
-rw-r--r--wifi-bluetooth-conf.el10
1 files changed, 6 insertions, 4 deletions
diff --git a/wifi-bluetooth-conf.el b/wifi-bluetooth-conf.el
index d02bb77..a32af96 100644
--- a/wifi-bluetooth-conf.el
+++ b/wifi-bluetooth-conf.el
@@ -139,13 +139,13 @@ If ARG is non-nil, then list the currently connected port."
(make-process
:name "durand-wifi-list-ports"
:buffer durand-wifi-bluetooth-buffer
- :command (list durand-wifi-executable "-s")
+ :command (list durand-wifi-executable "-I")
:sentinel #'durand-wifi-list-sentinel))
((make-process
:name "durand-wifi-list-ports"
:buffer durand-wifi-bluetooth-buffer
- :command (list durand-wifi-executable "-I")
- :sentinel #'durand-wifi-list-sentinel))))
+ :command (list durand-wifi-executable "-s")
+ :sentinel #'durand-wifi-list-sentinel) )))
;;;###autoload
(defun durand-wifi-join-port (port &optional pwd)
@@ -179,7 +179,9 @@ This only does something when STATUS is the string \"finished\\n\"."
(cond ((string-equal status "finished\n")
(with-current-buffer durand-wifi-bluetooth-buffer
(goto-char (point-min))
- (cond ((re-search-forward "\\s-+SSID" (line-end-position) t)
+ (cond ((re-search-forward "AirPort: Off" nil t)
+ (message "Wifi is not enabled."))
+ ((re-search-forward "\\s-+SSID" (line-end-position) t)
(setq first-var t)
(forward-line 1)
(let ((start 0) list-of-ssids)