--- /dev/null
+;;; enwc.el --- The Emacs Network Client
+
+;; Copyright (C) 2012,2013 Free Software Foundation
+
+;; Author: Ian Dunn
+;; Keywords: enwc, network, wicd, manager, nm
+
+;; This file is part of ENWC
+
+;; ENWC is free software; you can redistribute it and/or modify it
+;; under the terms of the GNU General Public License as published by
+;; the Free Software Foundation; either version 3, or (at your option)
+;; any later version.
+
+;; ENWC is distributed in the hope that it will be useful, but WITHOUT
+;; ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
+;; or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public
+;; License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with ENWC; see the file COPYING. If not, write to the Free
+;; Software Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA
+;; 02110-1301, USA.
+
+;; connect
+;; disconnect
+;; scan
+;; get-prop
+;; save-profile
+;; get-networks
+;; check-connecting
+;; get-current-nw-id
+
+;;; Commentary:
+;; In order to use this, add
+;;
+;; (require 'enwc-setup)
+;; (enwc-setup)
+;;
+;; to your .emacs file.
+
+(require 'dbus)
+(require 'wid-edit)
+(require 'tabulated-list)
+
+;;; Code:
+
+(eval-when-compile
+ (require 'cl))
+
+(defgroup enwc nil
+ "*The Emacs Network Client"
+ :prefix "ewnc-"
+ :group 'applications)
+
+(defcustom enwc-wireless-device "wlan0"
+ "The wireless device to use for ENWC."
+ :group 'enwc
+ :type 'string)
+
+(defcustom enwc-wired-device "eth0"
+ "The wired device to use for ENWC."
+ :group 'enwc
+ :type 'string)
+
+(defcustom enwc-backends '(wicd nm)
+ "The list of backends to be used by ENWC.
+These will be checked in the order designated here,
+and the first active backend found will be used."
+ :group 'enwc
+ :type 'list)
+
+;;; The function variables for the abstract layer.
+
+(defvar enwc-scan-func nil
+ "The function variable for the scan function.
+This variable is set during setup.")
+
+(defvar enwc-get-nw-func nil
+ "A function variable to be used in `enwc-get-nw'.
+This is redefined during setup to be the function to get the network
+ list.")
+
+(defvar enwc-get-wireless-nw-prop-func nil
+ "A function variable to be used in `enwc-get-wireless-nw-prop'.
+This is redefined during setup to be the function to get
+a wireless network property.")
+
+(defvar enwc-get-wireless-nw-props-func nil)
+
+(defvar enwc-get-encryption-type-func nil
+ "A function variable to be used in `enwc-get-encryption-type'.
+This is redefined during setup to be the function to get the encryption
+type for the selected backend.")
+
+(defvar enwc-wireless-connect-func nil
+ "The function variable for the wireless connect function.
+This is redefined during setup to be the function to connect
+for the selected backend.")
+
+(defvar enwc-get-current-nw-id-func nil
+ "The function variable to be used in `enwc-get-current-nw-id'.
+This is redefined during setup to be the function to get
+the current network id.")
+
+(defvar enwc-check-connecting-func nil
+ "The function variable to be used in `enwc-check-connecting'.
+This is redefined during setup to be the function to
+check whether or not ENWC is connecting.")
+
+(defvar enwc-wireless-disconnect-func nil
+ "The function variable for the wireless disconnect function.
+This is redefined during setup to be the function to
+disconnect from the wireless network.")
+
+(defvar enwc-get-wired-profiles-func nil
+ "The function variable to be used in `enwc-get-wired-profiles'.
+This is redefined during setup to be the function to
+get the list of wired network profiles.")
+
+(defvar enwc-wired-connect-func nil
+ "The function variable for the wired connect function.
+This is redefined during setup to be the function
+to connect to a wired network.")
+
+(defvar enwc-wired-disconnect-func nil
+ "The function variable for the wired disconnect function.
+This is redefined during setup to be the function
+to disconnect from a wired network.")
+
+(defvar enwc-is-wired-func nil
+ "The function variable to be used in `enwc-is-wired'.
+This is redefined during setup to be the function to
+check whether or not a wired connection is active.")
+
+(defvar enwc-get-wired-nw-prop-func nil
+ "The function variable to be used in `enwc-get-wired-nw-prop'.
+This is redefined during setup to be the function to get
+a network property from a wired network.")
+
+(defvar enwc-get-sec-types-func nil
+ "The function variable to be used in `enwc-get-sec-types'.
+This is redefined during setup to be the function to get
+the security types for a given network.")
+
+(defvar enwc-get-ip-addr-func nil
+ "The function variable to be used in `enwc-get-ip-addr'.
+This is redefined during setup to be the function to get
+the IP Address of a given network.")
+
+(defvar enwc-get-netmask-func nil
+ "The function variable to be used in `enwc-get-netmask'.
+This is redefined during setup to be the function to get
+the Netmask of a given network.")
+
+(defvar enwc-get-gateway-func nil
+ "The function variable to be used in `enwc-get-gateway'.
+This is redefined during setup to be the function to get
+the Gateway of a given network.")
+
+(defvar enwc-get-dns-func nil
+ "The function variable to be used in `enwc-get-dns'.
+This is redefined during setup to be the function to get
+the DNS Server Addresses for a given network.")
+
+(defvar enwc-get-nw-info-func nil)
+
+(defvar enwc-save-nw-settings-func nil
+ "The function variable to be used in `enwc-save-nw-settings'.
+This is redefined during setup to be the function to save
+the network settings of a given network.")
+
+(defvar enwc-details-list nil
+ "The network details list.
+
+This is redefined during setup to be the details list
+for the selected backend.
+
+This usually includes signal strength, essid, encryption type,
+bssid, mode, and channel.")
+
+(defvar enwc-display-string " [0%] "
+ "The mode line display string.
+This is altered every second to display the current network strength
+in `enwc-update-mode-line'.")
+
+;; (setq tabulated-list-format (vector `("ID" ,enwc-id-width sort) ...))
+;; (setq tabulated-list-entries `((,id [id str essid encrypt ...]) ...))
+;; (tabulated-list-init-header)
+;; (tabulated-list-print)
+
+(defvar enwc-wireless-headers '("ID" "STR" "ESSID"
+ "ENCRYPT" "BSSID" "MODE" "CHNL")
+ "The list of headers to be displayed in the ENWC buffer.
+These correspond to the details in `enwc-details-list'.")
+
+(defvar enwc-id-width 3
+ "The width of the id column.")
+(defvar enwc-str-width 5
+ "The width of the strength column.")
+(defvar enwc-essid-width 5
+ "The initial width of the essid column.
+This is reset in wicd-scan-internal.")
+(defvar enwc-encrypt-width 10
+ "The width of the encryption column.")
+(defvar enwc-bssid-width 18
+ "The width of the bssid column.")
+(defvar enwc-mode-width 16
+ "The width of the mode column.")
+(defvar enwc-chnl-width 3
+ "The width of the channel column.")
+
+(defvar enwc-last-scan nil
+ "The most recent scan results.")
+
+(defvar enwc-access-points nil
+ "The most recent access point list.")
+
+(defvar enwc-using-wired nil
+ "Whether or not wired mode is active.
+
+This is `non-NIL' if ENWC is using wired connections.
+Note that this is NOT the same as `enwc-is-wired'. This checks
+whether or not ENWC is in wired mode.")
+
+(defvar enwc-scan-done nil
+ "Whether or not a scan is finished.")
+
+(defvar enwc-edit-id nil
+ "This is the network id of the network being edited.")
+
+(defvar enwc-scan-requested nil)
+
+(defvar enwc-scan-interactive nil)
+
+(make-local-variable 'enwc-edit-id)
+;; The Fonts
+
+(defface enwc-header-face
+ '((((class color) (background light))
+ (:foreground "Blue"))
+ (((class color) (background dark))
+ (:foreground "Blue"))
+ (t (:background "Blue")))
+ "The face for the headers."
+ :group 'enwc)
+
+(defface enwc-connected-face
+ '((((class color) (background dark))
+ (:foreground "Green"))
+ (((class color) (background light))
+ (:foreground "Green"))
+ (t (:background "Green")))
+ "The face for the connected network."
+ :group 'enwc)
+
+
+;; Small helper function.
+
+(defun enwc-detail-to-ident (detail)
+ "Converts detail DETAIL to a constant identifier."
+ (case (intern detail)
+ ((essid Ssid) "essid")
+ ((bssid HwAddress) "bssid")
+ ((quality Strength) "quality")
+ ((encryption Flags) "encryption")
+ ((mode Mode) "mode")
+ ((channel Frequency) "channel")))
+
+;;;;;;;;;;;;;;;;;;;;
+;; ENWC functions
+;;;;;;;;;;;;;;;;;;;;
+
+(defun enwc-do-scan ()
+ "Runs a backend scan."
+ (funcall enwc-scan-func))
+
+(defun enwc-get-nw ()
+ "Gets the identifiers for the access points
+from a previous scan."
+ (funcall enwc-get-nw-func))
+
+(defun enwc-get-current-nw-id ()
+ "Gets the id of the current network id,
+or `nil' if there isn't one."
+ (funcall enwc-get-current-nw-id-func enwc-using-wired))
+
+(defun enwc-check-connecting-p ()
+ "Checks to see if there is a connection
+in progress. Returns `non-NIL' if there is one,
+`NIL' otherwise."
+ (funcall enwc-check-connecting-func))
+
+(defun enwc-get-wireless-nw-prop (id prop)
+ "Gets property PROP from wireless network with id
+ID and returns it."
+ (funcall enwc-get-wireless-nw-prop-func id prop))
+
+(defun enwc-get-wireless-nw-props (id)
+ (funcall enwc-get-wireless-nw-props-func id))
+
+(defun enwc-get-encryption-type (id)
+ "Gets the encryption type used by the wireless
+network with id ID."
+ (funcall enwc-get-encryption-type-func id))
+
+(defun enwc-get-wired-profiles ()
+ "Gets the list of wired profiles."
+ (funcall enwc-get-wired-profiles-func))
+
+(defun enwc-wireless-connect (id)
+ "Begins a connection to wireless network with
+id ID."
+ (funcall enwc-wireless-connect-func id))
+
+(defun enwc-wireless-disconnect ()
+ "Disconnects the wireless."
+ (funcall enwc-wireless-disconnect-func))
+
+(defun enwc-wired-connect (id)
+ "Connects to the wired profile with id ID."
+ (funcall enwc-wired-connect-func id))
+
+(defun enwc-wired-disconnect ()
+ "Disconnects from the current network."
+ (funcall enwc-wired-disconnect-func))
+
+(defun enwc-is-wired-p ()
+ "Checks whether or not ENWC is connected to
+a wired network.
+Note that this is NOT the same as `enwc-using-wired'.
+This checks for an active wired connection."
+ (funcall enwc-is-wired-func))
+
+(defun enwc-get-sec-types (wired)
+ "Gets the security types for network.
+WIRED is set to indicate whether or not this is
+a wired network."
+ (funcall enwc-get-sec-types-func wired))
+
+(defun enwc-get-network-ent (wired id ent)
+ "Gets network entry ENT from the network with network id ID.
+WIRED is set to indicate whether or not this is
+a wired network."
+ (if wired
+ nil
+ (enwc-get-wireless-nw-prop id ent)))
+
+(defun enwc-get-wired-nw-prop (id prop)
+ "Gets network property PROP from
+ the wired network with network id ID."
+ (funcall enwc-get-wired-nw-prop-func id prop))
+
+(defun enwc-get-ip-addr (wired id)
+ "Gets the IP Address from the network with network id ID.
+WIRED is set to indicate whether or not this is
+a wired network."
+ (funcall enwc-get-ip-addr-func wired id))
+
+(defun enwc-get-netmask (wired id)
+ "Gets the Netmask from the network with network id ID.
+WIRED is set to indicate whether or not this is
+a wired network."
+ (funcall enwc-get-netmask-func wired id))
+
+(defun enwc-get-gateway (wired id)
+ "Gets the Gateway from the network with network id ID.
+WIRED is set to indicate whether or not this is
+a wired network."
+ (funcall enwc-get-gateway-func wired id))
+
+(defun enwc-get-dns (wired id)
+ "Gets the DNS Servers from the network with network id ID.
+WIRED is set to indicate whether or not this is
+a wired network."
+ (funcall enwc-get-dns-func wired id))
+
+(defun enwc-get-nw-info (wired id)
+ (funcall enwc-get-nw-info-func wired id))
+
+(defun enwc-save-nw-settings (wired id settings)
+ "Saves network settings SETTINGS to the network profile with
+network id ID.
+SETTINGS is an association list with entries for the IP Address,
+Netmask, Gateway, DNS Servers, and Security.
+WIRED is set to indicate whether or not this is
+a wired network."
+ (funcall enwc-save-nw-settings-func wired id settings))
+
+;;;;;;;;;;;;;;;;;;;;;
+;; Actual Functions
+;;;;;;;;;;;;;;;;;;;;;
+
+(defun enwc-is-valid-nw-id (id)
+ "Confirms that ID is a valid network id."
+ (<= 0 id))
+
+(defun enwc-get-nw-prop (wired id prop)
+ "Small function to get network property PROP from the network
+with network id ID.
+WIRED indicates whether or not this is a wired connection."
+ (if wired
+ (enwc-get-wired-nw-prop id prop)
+ (enwc-get-wireless-nw-prop id prop)))
+
+(defun enwc-update-mode-line ()
+ "Updates the mode line with the current network strength.
+If no network is connected, then prints 0%.
+If wired is active, then prints 100%.
+If ENWC is in the process of connecting, then prints *%.
+This is initiated during setup, and runs once every second."
+ (let ((cur-id (enwc-get-current-nw-id))
+ (conn (enwc-check-connecting-p))
+ str)
+ (setq str
+ (if (enwc-is-wired-p)
+ 100
+ (if (and
+ (enwc-is-valid-nw-id cur-id)
+ enwc-last-scan)
+ (cdr (assoc "quality" (nth cur-id enwc-last-scan)))
+ 0)))
+ (setq enwc-display-string (concat " ["
+ (if conn
+ "*"
+ (number-to-string str))
+ "%] "))))
+
+;;;;;;;;;;;;;;;;;;
+;; Scan internal
+;;;;;;;;;;;;;;;;;;
+
+(defun enwc-scan-internal-wireless ()
+ "The initial scan routine.
+This initiates a scan using D-Bus, then exits,
+waiting for the callback."
+ (message "Scanning...")
+ (setq enwc-scan-requested t)
+ (setq enwc-scan-done nil)
+ (enwc-do-scan))
+
+(defun enwc-process-scan (&rest args)
+ "The scanning callback.
+After a scan has been performed, this processes and displays
+the scan results."
+ (if (or enwc-using-wired (not enwc-scan-requested))
+ nil
+ (setq enwc-scan-requested nil)
+ (let ((cur-id 0))
+ (message "Scanning... Done")
+ (setq enwc-access-points (enwc-get-nw)
+ enwc-essid-width 5)
+ (setq enwc-last-scan
+ (mapcar (lambda (x)
+ (let ((ret-itm (cons (cons "id" cur-id) nil))
+ (prop-list (enwc-get-wireless-nw-props x)))
+ (setq cur-id (1+ cur-id))
+ (dolist (det enwc-details-list)
+ (let ((cur-item (cdr (assoc det prop-list)))
+ (ident (enwc-detail-to-ident det))
+ pos-len)
+ (if (string= ident "essid")
+ (progn
+ (setq pos-len (length cur-item))
+ (setq enwc-essid-width
+ (max enwc-essid-width
+ pos-len))))
+ (if (string= ident "encryption")
+ (setq cur-item
+ (if cur-item
+ (enwc-get-encryption-type x)
+ "Unsecured")))
+ (setq ret-itm (append ret-itm
+ (cons (cons ident
+ cur-item)
+ nil)))))
+ ret-itm))
+ (number-sequence 0 (1- (length enwc-access-points))))))
+ (setq enwc-essid-width (1+ enwc-essid-width))
+ (setq enwc-scan-done t)
+ (if enwc-scan-interactive
+ (progn
+ (enwc-display-wireless-networks enwc-last-scan)
+ ;;(goto-char 0)
+ ;;(forward-line)
+ ))))
+
+(defun enwc-scan-internal-wired ()
+ "The scanning routine for a wired connection.
+This gets the list of wired network profiles."
+ (message "Updating Profiles...")
+ (let ((profs (enwc-get-wired-profiles))
+ cur-prof fin-profs)
+ (while profs
+ (setq cur-prof (pop profs))
+ (if cur-prof
+ (setq fin-profs (cons cur-prof
+ fin-profs))))
+ (message "Updating Profiles... Done")
+ (setq enwc-access-points fin-profs)
+ (setq enwc-last-scan fin-profs)
+ fin-profs))
+
+(defun enwc-scan-internal ()
+ "The entry point for the internal scan routines.
+This checks whether or not wired is being used,
+ and runs the appropriate function."
+ (if enwc-using-wired
+ (enwc-scan-internal-wired)
+ (enwc-scan-internal-wireless)))
+
+;;;;;;;;;;;;;;;;;;;;;
+;; Display Networks
+;;;;;;;;;;;;;;;;;;;;;
+
+(defun enwc-display-wired-networks (networks)
+ "Displays the wired networks specified in the list NETWORKS.
+NETWORKS must be in the form returned from
+`enwc-scan-internal-wired'."
+ (if (not (listp networks))
+ (error "NETWORKS must be a list of networks."))
+ (let ((inhibit-read-only t))
+ (erase-buffer)
+ (insert (propertize "Profile" 'face 'enwc-header-face))
+ (insert "\n")
+ (dolist (pr networks)
+ (insert pr)
+ (insert "\n"))))
+
+(defun enwc-insert-ent (ent width)
+ "Small function to insert a network property entry.
+ENT is the entry, and WIDTH is the column width."
+ (insert ent)
+ (insert-char 32 (- width (length ent))))
+
+(defun enwc-display-wireless-networks (networks)
+ "Displays the networks in the list NETWORKS in the current buffer.
+NETWORKS must be in the format returned by
+`enwc-scan-internal-wireless'."
+ (if (not (eq major-mode 'enwc-mode))
+ (enwc-setup-buffer))
+ (if (not (listp networks))
+ (error "NETWORKS must be a list of association lists."))
+ (let (;;(inhibit-read-only t)
+ (cur-id (enwc-get-current-nw-id))
+ entries)
+ ;;(erase-buffer)
+ (let ((header enwc-wireless-headers)
+ (pos 0))
+
+ (setq tabulated-list-format
+ (vector '("ID" 2)
+ '("STR" 4)
+ `("ESSID" ,enwc-essid-width)
+ '("ENCRYPT" 9)
+ '("BSSID" 17)
+ '("MODE" 15)
+ '("CHNL" 2)))
+
+ ;; (dolist (hd header)
+ ;; (insert (propertize hd 'face 'enwc-header-face))
+ ;; (setq pos (length hd))
+ ;; (insert-char 32 (- (symbol-value (intern (concat "enwc-"
+ ;; (downcase hd)
+ ;; "-width")))
+ ;; pos)))
+ )
+ ;;(insert "\n")
+
+ ;;TODO: Setup faces.
+ (dolist (nw networks)
+ (let ((id (cdr (assoc "id" nw)))
+ entry)
+ (setq entry (list nil
+ (vector
+ (number-to-string (cdr (assoc "id" nw)))
+ (concat (number-to-string (cdr (assoc "quality" nw)))
+ "%")
+ (cdr (assoc "essid" nw))
+ (cdr (assoc "encryption" nw))
+ (cdr (assoc "bssid" nw))
+ (cdr (assoc "mode" nw))
+ (cdr (assoc "channel" nw)))))
+ (setq entries (cons entry entries))))
+
+ (setq tabulated-list-entries (nreverse entries))
+ (tabulated-list-init-header)
+
+ ;; (dolist (nw networks)
+ ;; (let* ((id (propertize (number-to-string (cdr (assoc "id" nw)))
+ ;; 'width enwc-id-width))
+ ;; (str (propertize (concat (number-to-string (cdr (assoc "quality"
+ ;; nw)))
+ ;; "%")
+ ;; 'width enwc-str-width))
+ ;; (essid (propertize (cdr (assoc "essid" nw))
+ ;; 'width enwc-essid-width))
+ ;; (encrypt (propertize (cdr (assoc "encryption" nw))
+ ;; 'width enwc-encrypt-width))
+ ;; (bssid (propertize (cdr (assoc "bssid" nw))
+ ;; 'width enwc-bssid-width))
+ ;; (mode (propertize (cdr (assoc "mode" nw))
+ ;; 'width enwc-mode-width))
+ ;; (chnl (propertize (cdr (assoc "channel" nw))
+ ;; 'width enwc-chnl-width))
+ ;; props)
+
+ ;; (setq props (list id str essid encrypt bssid mode chnl))
+
+ ;; (dolist (ent props)
+ ;; (if (eq (string-to-number id) cur-id)
+ ;; (setq ent (propertize ent 'face 'enwc-connected-face)))
+ ;; (enwc-insert-ent ent (get-text-property 0 'width ent)))
+ ;; (insert "\n")))
+ (tabulated-list-print)
+ ))
+
+(defun enwc-display-networks (networks)
+ "Displays the network in NETWORKS. This is an entry to the display
+functions, and checks whether or not ENWC is using wired."
+ (if (not (eq major-mode 'enwc-mode))
+ (enwc-setup-buffer))
+ (if (not (listp networks))
+ (error "NETWORKS must be a list."))
+ (if enwc-using-wired
+ (enwc-display-wired-networks networks)
+ (enwc-display-wireless-networks networks)))
+
+(defun enwc-scan ()
+ "The frontend of the scanning routine. Sets up and moves to
+the ENWC buffer if necessary, and scans and displays the networks."
+ (interactive)
+ (setq enwc-scan-interactive t)
+ (if (not (eq major-mode 'enwc-mode))
+ (switch-to-buffer "*ENWC*"))
+ (if enwc-using-wired
+ (progn
+ (enwc-scan-internal)
+ ;;(enwc-display-networks enwc-last-scan)
+ (goto-char 0)
+ (forward-line))
+ (enwc-scan-internal)))
+
+(defun enwc-find-network (essid &optional networks)
+ "Checks through NETWORKS for the network with essid ESSID,
+and returns the network identifier. Uses `enwc-last-scan' if
+NETWORKS is nil. If the network is not found, then it returns nil.
+
+ When called interactively, this only prints out what it finds.
+Otherwise, it actually returns it."
+ (interactive "sNetwork ESSID: ")
+ (if (not (or networks enwc-last-scan))
+ (progn
+ (setq enwc-scan-interactive nil)
+ (enwc-scan-internal)))
+ (let ((nets (or networks enwc-last-scan))
+ need-break cur-net)
+ (if (not nets)
+ (setq nets enwc-last-scan))
+ (while (and nets (not need-break))
+ (let (cur-essid)
+ (setq cur-net (pop nets))
+ (setq cur-essid (cdr (assoc "essid" cur-net)))
+ (if (string= cur-essid essid)
+ (setq need-break t))))
+ (if need-break
+ (if (called-interactively-p 'any)
+ (message (number-to-string (cdr (assoc "id" cur-net))))
+ (cdr (assoc "id" cur-net)))
+ (if (called-interactively-p 'any)
+ (message "Network not found.")
+ nil))))
+
+;;;;;;;;;;;;;;;;;;;;
+;; Connect Network
+;;;;;;;;;;;;;;;;;;;;
+
+(defun enwc-connect-network (id)
+ "Connect to network with id ID.
+This is an entry point for the internal connection functions,
+and checks whether or not ENWC is using wired."
+ (let (cur-net)
+ (if enwc-using-wired
+ (progn
+ (enwc-wired-connect id)
+ (setq cur-net (nth id (enwc-get-wired-profiles))))
+ (enwc-wireless-connect id)
+ (if enwc-last-scan
+ (setq cur-net (cdr (assoc "essid" (nth id enwc-last-scan)))))
+ cur-net)))
+
+(defun enwc-connect-to-network (net-id)
+ "Connects the the network with network id NET-ID.
+Confirms that NET-ID is a valid network id.
+This calls `enwc-connect-network' as a subroutine."
+ (interactive "nNetwork ID: ")
+ (if (not (numberp net-id))
+ (error "NET-ID must be a number"))
+ (let ((num-ids (length enwc-last-scan))
+ cur-net)
+ (if (or (< net-id 0) (>= net-id num-ids))
+ (error "Invalid network id."))
+ (setq cur-net (enwc-connect-network net-id))
+ (message (concat "Connecting to " cur-net))))
+
+(defun enwc-connect-to-network-essid (essid)
+ "Connects to the network with essid ESSID."
+ (interactive "sNetwork ESSID: ")
+ (let ((net-id (enwc-find-network essid)))
+ (if net-id
+ (enwc-connect-to-network net-id)
+ (message "Network not found."))))
+
+(defun enwc-connect-to-network-at-point ()
+ "Connects to the network at the current line number.
+Moves to the enwc buffer if necessary."
+ (interactive)
+ (if (not (eq major-mode 'enwc-mode))
+ (enwc-setup-buffer))
+ (let ((id (- (line-number-at-pos) 1)))
+ (enwc-connect-to-network id)))
+
+(defun enwc-disconnect ()
+ "Disconnects from the network, if any."
+ (interactive)
+ (if (not (eq major-mode 'enwc-mode))
+ (enwc-setup-buffer))
+ (if enwc-using-wired
+ (enwc-wired-disconnect)
+ (enwc-wireless-disconnect)))
+
+(defun enwc-toggle-wired ()
+ "Toggle the display and mode between wireless and wired.
+This function also sets the variable `enwc-using-wired'."
+ (interactive)
+ (if (not (eq major-mode 'enwc-mode))
+ (enwc-setup-buffer))
+ (let ((inhibit-read-only t))
+ (erase-buffer)
+ (setq enwc-using-wired (not enwc-using-wired))
+ (enwc-scan)))
+
+(defun enwc ()
+ "The main front-end to ENWC.
+This sets up the buffer and scans for networks.
+In order to use this, one must have already run
+`enwc-setup'.
+
+\\{enwc-mode-map}"
+ (interactive)
+ (enwc-setup-buffer)
+ (enwc-scan))
+
+;; Settings for access point AP
+;;
+;; IPv4 Settings:
+;; Address =
+;; Netmask =
+;; Gateway =
+;;
+;; DNS 1 =
+;; DNS 2 =
+;;
+;; Security:
+;; Type =
+;;
+
+(defun enwc-edit-view-entry ()
+ "View the text of the entry at point.
+This is mostly useful to view the text of the hidden entries."
+ (interactive)
+ (if (not (get-buffer "*ENWC Edit*"))
+ (error "Not editing a network entry."))
+ (if (not (eq (current-buffer) (get-buffer "*ENWC Edit*")))
+ (switch-to-buffer "*ENWC Edit*"))
+ (if (not (widget-at))
+ (error "No widget at point"))
+ (message (widget-field-value-get (widget-at))))
+
+(defun enwc-display-sec-reqs (widget &rest stuff)
+ "Display the security requirements.
+This is a callback to the security selection widget.
+WIDGET is always the menu drop-down of security types."
+ (let (reqs
+ (inhibit-read-only t)
+ type-wid-list)
+ ;; First, erase any of the old ones.
+ (goto-char (1+ (widget-get widget :to)))
+ (widget-forward 1)
+ (while (>= (point) (widget-get widget :to))
+ (widget-delete (widget-at))
+ (widget-forward 1))
+ (goto-char (point-max))
+ ;; Then check to see if widget-value is None
+ (if (string= (widget-value widget) "None")
+ nil
+ (setq type-wid-list
+ (cadr (assoc "reqs"
+ (cdr (assoc (widget-value widget)
+ (enwc-get-sec-types enwc-using-wired))))))
+ (setq reqs
+ (mapcar (lambda (x)
+ (if (not (eq (length (cdr x)) 0))
+ (widget-create 'editable-field
+ :format (concat " "
+ (cdr x)
+ ": %v")
+ :secret ?*
+ :keymap 'enwc-edit-field-map
+ :value (or (enwc-get-nw-prop enwc-using-wired
+ enwc-edit-id
+ (car x))
+ ""))))
+ type-wid-list))
+ (widget-setup)
+ reqs)))
+
+(defun enwc-setup-edit-buffer ()
+ "Setup the edit buffer. This removes the old one if neccessary,
+and redisplays the settings from the network profile
+ with id `enwc-edit-id', which is set in `enwc-edit-entry-at-point'."
+ (if (get-buffer "*ENWC Edit*")
+ (kill-buffer "*ENWC Edit*"))
+ (with-current-buffer (get-buffer-create "*ENWC Edit*")
+ (let ((sec-types (enwc-get-sec-types enwc-using-wired))
+ (nw-info (enwc-get-nw-info enwc-using-wired enwc-edit-id))
+ ip-addr netmask gateway dns-1 dns-2
+ addr-wid net-wid gate-wid
+ dns-1-wid dns-2-wid dns-list
+ type-wid type-wid-list)
+
+ (widget-insert (concat "Settings for access point "
+ (cdr (assoc "essid"
+ (nth enwc-edit-id
+ enwc-last-scan)))
+ "\n"))
+ (widget-insert "\n")
+ ;; ip
+ (widget-insert "IPv4 Settings:\n")
+ (setq addr-wid (widget-create 'editable-field
+ :format " Address: %v"
+ :value (or (assoc "addr" nw-info) "")))
+ ;; netmask
+ (setq net-wid (widget-create 'editable-field
+ :format " Netmask: %v"
+ :value (or (assoc "netmask" nw-info) "")))
+
+ ;; gateway
+ (setq gate-wid (widget-create 'editable-field
+ :format " Gateway: %v"
+ :value (or (assoc "gateway" nw-info) "")))
+ ;; dns1
+ (widget-insert "\n")
+ ;;(setq dns-list (enwc-get-dns enwc-using-wired enwc-edit-id))
+ (setq dns-1-wid (widget-create 'editable-field
+ :format " DNS 1: %v"
+ :value (or (assoc "dns1" nw-info) "")))
+
+ ;; dns2
+ (setq dns-2-wid (widget-create 'editable-field
+ :format " DNS 2: %v"
+ :value (or (assoc "dns2" nw-info) "")))
+
+ (widget-insert "\n")
+ (widget-insert "Security:\n")
+ (setq type-wid (apply 'widget-create
+ 'menu-choice
+ :tag "Type "
+ :value (or (assoc "enctype" nw-info) "None")
+ :notify 'enwc-display-sec-reqs
+ '(item :tag "No Encryption"
+ :value "None")
+ (mapcar (lambda (x)
+ `(item :format "%t\n"
+ :value ,(car x)
+ :tag ,(cdr (assoc "Name" (cdr x)))))
+ sec-types)))
+ (enwc-display-sec-reqs type-wid)
+ (use-local-map enwc-edit-map)
+ (widget-setup)))
+
+ (switch-to-buffer "*ENWC Edit*"))
+
+(defun enwc-edit-save ()
+ "Save the network settings."
+ ;; Basically, just iterate through the widgets,
+ ;; retrieving values from each.
+ (interactive)
+ (if (not (get-buffer "*ENWC Edit*"))
+ (error "Not editing a network entry."))
+ (if (not (eq (current-buffer) (get-buffer "*ENWC Edit*")))
+ (switch-to-buffer "*ENWC Edit*"))
+ (goto-char 0)
+ (let (settings start-pos type-wid-list)
+
+ (widget-forward 1)
+ (setq settings
+ (append settings
+ (cons (cons "addr"
+ (widget-field-value-get (widget-at)))
+ nil)))
+ (widget-forward 1)
+ (setq settings
+ (append settings
+ (cons (cons "netmask"
+ (widget-field-value-get (widget-at)))
+ nil)))
+ (widget-forward 1)
+ (setq settings
+ (append settings
+ (cons (cons "gateway"
+ (widget-field-value-get (widget-at)))
+ nil)))
+ (widget-forward 1)
+ (setq settings
+ (append settings
+ (cons (cons "dns1"
+ (widget-field-value-get (widget-at)))
+ nil)))
+ (widget-forward 1)
+ (setq settings
+ (append settings
+ (cons (cons "dns2"
+ (widget-field-value-get (widget-at)))
+ nil)))
+ (widget-forward 1)
+ (setq settings
+ (append settings
+ (cons (cons "enctype"
+ (widget-value (widget-at)))
+ nil)))
+ (setq start-pos (widget-get (widget-at) :to))
+ (if (not (string= (widget-value (widget-at)) "None"))
+ (setq type-wid-list
+ (cadr (assoc "reqs"
+ (cdr (assoc (widget-value (widget-at))
+ (enwc-get-sec-types enwc-using-wired)))))))
+ (dolist (x type-wid-list)
+ (widget-forward 1)
+ (if (not (string= (widget-field-value-get (widget-at)) ""))
+ (setq settings
+ (append settings
+ (cons (cons (car x)
+ (widget-field-value-get (widget-at)))
+ nil)))))
+ (print settings)
+
+ (enwc-save-nw-settings enwc-using-wired enwc-edit-id settings)))
+
+(defun enwc-edit-entry-at-point ()
+ "Edit the current network entry."
+ (interactive)
+ (setq enwc-edit-id (- (line-number-at-pos) 1))
+ (select-window (split-window))
+ (enwc-setup-edit-buffer))
+
+(defvar enwc-mode-map
+ (let ((map (make-sparse-keymap)))
+ (define-key map (kbd "R") 'enwc-scan)
+ (define-key map (kbd "C") 'enwc-connect-to-network-essid)
+ (define-key map (kbd "D") 'enwc-disconnect)
+ (define-key map (kbd "W") 'enwc-toggle-wired)
+ (define-key map (kbd "E") 'enwc-edit-entry-at-point)
+ (define-key map (kbd "RET") 'enwc-connect-to-network-at-point)
+ map)
+ "The keymap for network display in ENWC.")
+
+(defvar enwc-edit-map
+ (let ((map (copy-keymap widget-keymap)))
+ (define-key map (kbd "C-x C-s") 'enwc-edit-save)
+ map)
+ "The keymap for editing network profiles with ENWC.")
+
+(defvar enwc-edit-field-map
+ (let ((map (copy-keymap widget-field-keymap)))
+ (define-key map (kbd "C-x C-a") 'enwc-edit-view-entry)
+ map)
+ "The keymap for editable fields within the ENWC edit buffer.")
+
+(define-derived-mode enwc-mode tabulated-list-mode "enwc"
+ "Mode for working with network connections.
+\\{enwc-mode-map}"
+ ;;(setq buffer-read-only t)
+ (add-hook 'tabulated-list-revert-hook 'enwc-scan nil t)
+ )
+
+(defun enwc-setup-buffer ()
+ "Sets up the ENWC buffer.
+This first checks to see that it exists,
+and if it doesn't, then create it."
+ (if (not (get-buffer "*ENWC*"))
+ (with-current-buffer (get-buffer-create "*ENWC*")
+ ;;(use-local-map enwc-mode-map)
+ ;;(setq major-mode 'enwc-mode
+ ;; mode-name "enwc")
+ (enwc-mode)
+ ;;(setq buffer-read-only t)
+ ))
+ (switch-to-buffer "*ENWC*"))
+
+(provide 'enwc)
+
+;;; enwc.el ends here