From 8f131a0acf78ebb02a1bb44bc446817804769ae8 Mon Sep 17 00:00:00 2001 From: Jim Myhrberg Date: Mon, 16 Jan 2017 12:34:57 +0000 Subject: [PATCH] Add zone-choose function --- modules/siren-zone.el | 10 ++++++++++ 1 file changed, 10 insertions(+) diff --git a/modules/siren-zone.el b/modules/siren-zone.el index 354d9a2..c419333 100644 --- a/modules/siren-zone.el +++ b/modules/siren-zone.el @@ -9,5 +9,15 @@ (require 'zone) (zone-when-idle 120) +(defun zone-choose (pgm) + "Choose a PGM to run for `zone'." + (interactive + (list + (completing-read + "Program: " + (mapcar 'symbol-name zone-programs)))) + (let ((zone-programs (list (intern pgm)))) + (zone))) + (provide 'siren-zone) ;;; siren-zone.el ends here