[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] master 141ad1b 65/76: Fixed NetworkManager connection bug.
From: |
Ian Dunn |
Subject: |
[elpa] master 141ad1b 65/76: Fixed NetworkManager connection bug. |
Date: |
Thu, 23 Feb 2017 19:42:55 -0500 (EST) |
branch: master
commit 141ad1b565f24e421ef2df15f6bab048c1dcaf28
Author: Ian Dunn <address@hidden>
Commit: Ian Dunn <address@hidden>
Fixed NetworkManager connection bug.
* enwc-nm.el (enwc-nm-wireless-connect): Connect using a connection object
rather than an access point object.
---
lisp/enwc-nm.el | 27 +++++++++++++++++++++++----
1 file changed, 23 insertions(+), 4 deletions(-)
diff --git a/lisp/enwc-nm.el b/lisp/enwc-nm.el
index b0b51f8..df42d1e 100644
--- a/lisp/enwc-nm.el
+++ b/lisp/enwc-nm.el
@@ -258,10 +258,29 @@ This gets the connection path from NW, and connects to
it."
(enwc-nm-wireless-connect nw)))
(defun enwc-nm-wireless-connect (nw)
- (enwc-nm-dbus-default-call-method "ActivateConnection"
- :object-path nw
- :object-path enwc-nm-wireless-dev
- :object-path nw))
+ (let ((ap-ssid (dbus-byte-array-to-string
+ (dbus-get-property :system
+ enwc-nm-dbus-service
+ nw
+
"org.freedesktop.NetworkManager.AccessPoint"
+ "Ssid")))
+ (profile-table (make-hash-table :test #'equal)))
+ ;; Create a hash table of connections, indexed by ssid
+ ;; TODO: Store this somewhere else
+ (dolist (conn (enwc-nm-list-connections))
+ (let ((settings (dbus-call-method :system
+ enwc-nm-dbus-service
+ conn
+
"org.freedesktop.NetworkManager.Settings.Connection"
+ "GetSettings")))
+ (map-put profile-table
+ (dbus-byte-array-to-string (caadr (assoc-string "ssid" (cadr
(assoc-string "802-11-wireless" settings)))))
+ conn)))
+ (when-let (conn (map-elt profile-table ap-ssid))
+ (enwc-nm-dbus-default-call-method "ActivateConnection"
+ :object-path conn
+ :object-path enwc-nm-wireless-dev
+ :object-path conn))))
(defun enwc-nm-wired-connect (nw)
(enwc-nm-dbus-default-call-method "ActivateConnection"
- [elpa] master bb68ed5 37/76: Added ignore rules for byte compiled files., (continued)
- [elpa] master bb68ed5 37/76: Added ignore rules for byte compiled files., Ian Dunn, 2017/02/23
- [elpa] master 6ed7137 43/76: Fix adding to global-mode-string., Ian Dunn, 2017/02/23
- [elpa] master 968e6f0 46/76: Added tag 2.0 for changeset cc2f7aa4ed36, Ian Dunn, 2017/02/23
- [elpa] master 2d5def6 36/76: (*-function): Removed., Ian Dunn, 2017/02/23
- [elpa] master d9cbdb9 39/76: Added some section headers., Ian Dunn, 2017/02/23
- [elpa] master 03a5464 57/76: Changed channel to an integer., Ian Dunn, 2017/02/23
- [elpa] master a6b2b03 61/76: Removed tag 2.0, Ian Dunn, 2017/02/23
- [elpa] master 3491895 14/76: Cleaned up code and consolidated front-end functions., Ian Dunn, 2017/02/23
- [elpa] master 14bcaf4 67/76: Fixed bug with NetworkManager loading, Ian Dunn, 2017/02/23
- [elpa] master 4e43aaf 53/76: Moved editing commands to separate file., Ian Dunn, 2017/02/23
- [elpa] master 141ad1b 65/76: Fixed NetworkManager connection bug.,
Ian Dunn <=
- [elpa] master 8f08bcb 58/76: Cleaned up network display., Ian Dunn, 2017/02/23
- [elpa] master c30c0d7 38/76: Fixed up a lot of security handling problems., Ian Dunn, 2017/02/23
- [elpa] master 710001f 75/76: Removed packages/enwc in preparation for subtree pull., Ian Dunn, 2017/02/23
- [elpa] master da7e3c6 76/76: Add 'packages/enwc/' from commit 'a3c59cce3482babc7c0518e7ff9da246158b9420', Ian Dunn, 2017/02/23