[elpa] master 742b67a 19/76: Removed several network manager functions.

[Ian Dunn]

branch: master
commit 742b67a7fd3ee89079f222706328935cdfbefd1e
Author: Ian D <address@hidden>
Commit: Ian D <address@hidden>

    Removed several network manager functions.
---
 lisp/enwc-nm.el | 59 ---------------------------------------------------------
 1 file changed, 59 deletions(-)

diff --git a/lisp/enwc-nm.el b/lisp/enwc-nm.el
index fd882d3..8124a27 100644
--- a/lisp/enwc-nm.el
+++ b/lisp/enwc-nm.el
@@ -198,60 +198,6 @@ CONN is an object path to the connection."
 (defun enwc-nm-get-device-by-name (name)
   (enwc-nm-dbus-default-call-method "GetDeviceByIpIface" :string name))
 
-;; Settings, Connections
-(defun enwc-nm-get-uuid-by-ssid (ssid)
-  "Gets the uuid of the network with ssid SSID."
-  (let ((conns (enwc-nm-list-connections))
-        cur-conn cur-ssid uuid)
-    (while (and conns (not uuid))
-      (setq cur-conn (pop conns))
-      (let ((settings (enwc-nm-get-settings cur-conn)))
-        (when (assoc "802-11-wireless" settings)
-          (setq cur-ssid
-                (dbus-byte-array-to-string (car (cadr (assoc "ssid"
-                                                             (cadr (assoc 
"802-11-wireless"
-                                                                          
settings)))))))
-          (when (string= cur-ssid ssid)
-            (setq uuid
-                  (car (cadr (assoc "uuid"
-                                    (cadr (assoc "connection"
-                                                 settings))))))))))
-    uuid))
-
-(defun enwc-nm-get-uuid-by-id (id)
-  "Gets a network connection's uuid by the network's id.
-ID is a string that NetworkManager uses to identify this network."
-  (let ((conns (enwc-nm-list-connections))
-        cur-conn cur-id uuid)
-    (while (and conns (not uuid))
-      (setq cur-conn (pop conns))
-      (let ((settings (enwc-nm-get-settings cur-conn))
-            conn-set)
-        (when (assoc "connection" settings)
-          (setq conn-set (assoc "connection" settings))
-          (setq cur-id (car (cadr (assoc "id" (cadr conn-set)))))
-          (when (string= cur-id id)
-            (setq uuid (car (cadr (assoc "uuid" (cadr conn-set)))))))))))
-
-(defun enwc-nm-get-conn-by-uuid (uuid)
-  (enwc-nm-dbus-settings-call-method "GetConnectionByUuid"
-                                     uuid))
-
-;; Settings
-;; Not used.
-(defun enwc-nm-get-conn-by-ssid (ssid)
-  "Gets the connection path for the access point with ssid SSID."
-  (let ((uuid (enwc-nm-get-uuid-by-ssid ssid)))
-    (when uuid
-      (enwc-nm-get-conn-by-uuid uuid))))
-
-;; Not used.
-(defun enwc-nm-get-conn-by-id (id)
-  "Gets a connection object with the id ID.
-ID is the identifier used by Network Manager."
-  (let ((uuid (enwc-nm-get-uuid-by-id id)))
-    (enwc-nm-get-conn-by-uuid uuid)))
-
 ;;;;;;;;;;;;;;;;;
 ;; Get networks
 ;;;;;;;;;;;;;;;;;
@@ -436,11 +382,6 @@ STATE is the new state."
 (defun enwc-nm-is-wired ()
   enwc-nm-wired-p)
 
-(defun enwc-nm-get-sec-types (&optional wired)
-  "Get security types."
-  (unless wired
-    enwc-nm-sec-types))
-
 (defun enwc-nm-gen-uuid ()
   (random t)
   (let ((hex-nums