|
194 | 194 |
|
195 | 195 | (defun arduino-cli--board () |
196 | 196 | "Get connected Arduino board." |
197 | | - (let* ((usb-devices (arduino-cli--cmd-json "board list")) |
198 | | - (boards (seq-filter #'arduino-cli--arduino? usb-devices)) |
| 197 | + (let* ((output (arduino-cli--cmd-json "board list")) |
| 198 | + (ports (alist-get 'detected_ports output)) |
| 199 | + (boards (seq-filter #'arduino-cli--arduino? ports)) |
199 | 200 | (boards-info (seq-map (lambda (m) (thread-first (assoc 'boards m) cdr (seq-elt 0))) boards)) |
200 | 201 | (informed-boards (cl-mapcar (lambda (m n) (map-merge 'list m n)) boards boards-info)) |
201 | 202 | (selected-board (arduino-cli--dispatch-board informed-boards)) |
|
0 commit comments