A lo largo de los años he ido automatizando mi casa, y unos de los dispositivos que más uso es un enchufe inteligente. Para controlarlos uso scripts o la aplicación de SmartThings. Pero me he dado cuenta que me resultaría más cómodo tener un widget en Emacs. Así que me he puesto a ello.
Y este es el resultado.
- Cuando pulso Enter sobre la bola de color, o hago clic con el ratón, se enciende o apaga el enchufe.
- Muestra visualmente su estado: Rojo si esta apagado y verde si esta encendido.
- Se ejecuta en un buffer independiente.
- Uso herramientas nativas de Emacs, sin dependencias externas.
Es fantástico lo que puedes lograr con Emacs.
Primero debes ser consciente que yo estoy usando un enchufe inteligente compatible con SmartThings, y que además tengo instalado el cliente de SmartThings en mi sistema con la identificación configurada. Quiero decir que ya tengo un comando que me permite obtener el estado del enchufe y otro que me permite cambiarlo. Es un requisito previo e indispensable.
Con ello creo una función que me indique el estado actual de uno de mis enchufes. Lo necesitaremos para que el widget se inicie con el estado correcto.
(defun status-plug ()
"Get the status of the plug."
(interactive)
(let* ((response (json-parse-string (shell-command-to-string "smartthings devices:status xxxxxxxxxxxxxxxxxxx")))
(status (gethash "value" (gethash "switch" (gethash "switch" (gethash "main" (gethash "components" (json-parse-string (shell-command-to-string "/home/andros/applications/smartthings devices:status xxxxxxxxxxxxxxxxx")))))))))
(string= status "on")))
Devolverá t si el enchufe está encendido y nil si está apagado.
Ahora creo una función que me permita cambiar el estado del enchufe.
(defun turn-plug (state)
"Turn the plug on or off."
(interactive)
(shell-command (concat "smartthings devices:commands xxxxxxxxxxxxxxxxx switch:" (if state "on" "off"))))
Si state es t encenderá el enchufe, si es nil lo apagará.
Ahora creo un widget con un switch que me permita controlar el enchufe.
(defvar plug-on "🟢")
(defvar plug-off "🔴")
(widget-create 'toggle
:help-echo "Plug control"
:on plug-on
:on-glyph '
:off plug-off
:off-glyph '
:value (status-plug)
:notify (lambda (widget &rest ignore)
(turn-plug (widget-value widget))))
Si quieres aprender más sobre los widgets disponibles, puedes realizar mi curso gratuito sobre crear interfaces gráficas en Emacs. O leer la documentación oficial sobre widget.
Finalmente creo un fichero, llamado plug-controller.el que me permita lanzar el widget con todo lo anterior.
;; -*- coding: utf-8 -*-
;; Imports
(require 'widget)
(eval-when-compile
(require 'wid-edit))
;; Variables
(defvar buffer-name "*Plug controller*")
;; Functions
(defun status-plug ()
"Get the status of the plug."
(interactive)
(let* ((response (json-parse-string (shell-command-to-string "smartthings devices:status xxxxxxxxxxxxxxxxxxx")))
(status (gethash "value" (gethash "switch" (gethash "switch" (gethash "main" (gethash "components" (json-parse-string (shell-command-to-string "smartthings devices:status xxxxxxxxxxxxxxxxx")))))))))
(string= status "on")))
(defun turn-plug (state)
"Turn the plug on or off."
(interactive)
(shell-command (concat "smartthings devices:commands xxxxxxxxxxxxxxxxx switch:" (if state "on" "off"))))
(defun plug-controller ()
"Make widgets for the main layout."
(interactive)
;; Create the buffer
(switch-to-buffer buffer-name)
;; Clear the buffer
(kill-all-local-variables)
(let ((inhibit-read-only t))
(erase-buffer))
(remove-overlays)
;; Title
(widget-insert "Monitor")
;; Widget
(widget-insert "\n\n🔌 Plug control: ")
(defvar plug-on "🟢")
(defvar plug-off "🔴")
(widget-create 'toggle
:help-echo "Plug control"
:on plug-on
:on-glyph '
:off plug-off
:off-glyph '
:value (status-plug)
:notify (lambda (widget &rest ignore)
(turn-plug (widget-value widget))))
;; Display the buffer
(use-local-map widget-keymap)
(widget-setup)
;; Focus on the first link
(widget-forward 1))
Para lanzarlo usa M-x plug-controller.
Y ya tienes un widget para controlar tu enchufe inteligente desde Emacs.
{{ comments.length }} comentarios