added config option for blinky device name

1 files changed, 15 insertions, 1 deletions

diff --git a/plugin/blinkyfications.pl b/plugin/blinkyfications.pl
index 172e9b3..6736e87 100644
--- a/plugin/blinkyfications.pl
+++ b/plugin/blinkyfications.pl
@@ -29,7 +29,8 @@ use Purple;
   author => "Christian Pointner <equinox\@spreadspace.org>",
   url => "https://git.spreadspace.org/blinkyfications.git",
   load => "plugin_load",
-  unload => "plugin_unload"
+  unload => "plugin_unload",
+  prefs_info => "prefs_info_cb"
 );
 
 sub plugin_init {
@@ -39,9 +40,22 @@ sub plugin_init {
 sub plugin_load {
   my $plugin = shift;
   Purple::Debug::info("blinkyfications", "make notifications blink again!\n");
+  Purple::Prefs::add_none("/plugins/core/blinkyfications");
+  Purple::Prefs::add_string("/plugins/core/blinkyfications/device", "/dev/ttyACM0");
 }
 
 sub plugin_unload {
   my $plugin = shift;
   Purple::Debug::info("blinkyfications", "i get it, i'm just too damn blinky... bye-bye!\n");
 }
+
+sub prefs_info_cb {
+  $frame = Purple::PluginPref::Frame->new();
+
+  $ppref = Purple::PluginPref->new_with_name_and_label("/plugins/core/blinkyfications/device", "Blinky-Device");
+  $ppref->set_type(2);
+  $ppref->set_max_length(32);
+  $frame->add($ppref);
+
+  return $frame;
+}