diff options
Diffstat (limited to 'view-conf.el')
-rw-r--r-- | view-conf.el | 96 |
1 files changed, 0 insertions, 96 deletions
diff --git a/view-conf.el b/view-conf.el index 65f5d9f..f1f015f 100644 --- a/view-conf.el +++ b/view-conf.el @@ -241,101 +241,6 @@ options to choose from." (concat "https://www.youtube.com/watch?v=" (substring-no-properties video-name -11)))))) -;;; Wifi and Bluetooth handling - -;;;###autoload -(defvar durand-wifi-on-p nil - "If WIFI is on or not. -This is defined in \"/Users/durand/.emacs.d/view-conf.el\"") - -;;;###autoload -(defvar durand-bluetooth-on-p nil - "If BLUETOOTH is on or not. -This is defined in \"/Users/durand/.emacs.d/view-conf.el\"") - -;;;###autoload -(defun durand-wifi-filter (proc output) - "Filter function to set the wifi variable. -This should only be used for the process \"durand-wifi\". -This is defined in \"/Users/durand/.emacs.d/view-conf.el\"" - (cond - ((string= (process-name proc) "durand-wifi")) - ((user-error "Filter function associated with a wrong process."))) - (setq durand-wifi-on-p (string-match "On$" output))) - -;;;###autoload -(defun durand-bluetooth-filter (proc output) - "Filter function to set the bluetooth variable. -This should only be used for the process \"durand-bluetooth\". -This is defined in \"/Users/durand/.emacs.d/view-conf.el\"" - (cond - ((string= (process-name proc) "durand-bluetooth")) - ((user-error "Filter function associated with a wrong process."))) - (setq durand-bluetooth-on-p (string-match "1" output))) - -;;;###autoload -(defun durand-wifi-or-bluetooth (&optional arg) - "Check if WIFI is enabled, then ask for confirmation to toggle WIFI. -If ARG is non-nil, do the same for Bluetooth." - (interactive "P") - (cond - ((null arg) - (make-process - :name "durand-wifi" - :buffer nil - :command '("networksetup" "-getairportpower" "en0") - :filter #'durand-wifi-filter - :sentinel #'ignore) - (accept-process-output (get-process "durand-wifi")) - (let* ((prompt (format "WIFI is %s. Do you want to turn WIFI %s" - (cond (durand-wifi-on-p "on") - ("off")) - (cond (durand-wifi-on-p "off?") - ("on?")))) - (decision (y-or-n-p prompt))) - (cond - (decision - (let ((new-state (cond (durand-wifi-on-p "off") - ("on")))) - (make-process - :name "durand-toggle-wifi" - :buffer nil - :command (list - "networksetup" "-setairportpower" - "en0" new-state) - :sentinel #'ignore - :filter #'ignore) - (message "WIFI turned %s" new-state)))))) - (t - (make-process - :name "durand-bluetooth" - :buffer nil - :command '("blueutil" "-p") - :filter #'durand-bluetooth-filter - :sentinel 'ignore) - (accept-process-output (get-process "durand-bluetooth")) - (let* ((prompt (format "BLUETOOTH is %s. Do you want to turn BLUETOOTH %s" - (cond (durand-bluetooth-on-p "on") - ("off")) - (cond (durand-bluetooth-on-p "off?") - ("on?")))) - (decision (y-or-n-p prompt))) - (cond - (decision - (let ((new-state (cond (durand-bluetooth-on-p "0") - ("1")))) - (make-process - :name "durand-toggle-bluetooth" - :buffer nil - :command (list "blueutil" "-p" new-state) - :sentinel 'ignore - :filter 'ignore) - (message "BLUETOOTH turned %s" - (cond (durand-bluetooth-on-p "off") - ("on")))))))))) - -(define-key global-map (vector 3 ?w) #'durand-wifi-or-bluetooth) - ;;; moving by paragraphs ;;;###autoload @@ -399,4 +304,3 @@ If ARG is non-nil, do the same for Bluetooth." (view-mode -1) (olivetti-mode -1) (text-scale-increase 0)))) - |