Implemented binary_poll_user and /pollself

init.lua

@@ -217,13 +217,62 @@ function modpol.remove_privilege(org, privilege)
 -- remove privilege from all members of an org, unless they have it from other orgs
 end
 
--- POLLING FUNCTIONS
+--[[ USER INTERACTIONS ]]--
 
-function modpol.poll_org(org, question)
-   -- create formspec for all org members
-   -- return their answers
+-- modpol.binary_poll_user(user, question)
+-- presents a yes/no/abstain poll to a user, returns answer
+function modpol.binary_poll_user(user, question)
+   -- set up formspec
+   local text = "Poll: " .. question
+   local formspec = {
+      "formspec_version[4]",
+      "size[5,3]",
+      "label[0.375,0.5;", minetest.formspec_escape(text), "]",
+      "button[1,1.5;1,0.8;yes;Yes]",
+      "button[2,1.5;1,0.8;no;No]",    
+      "button[3,1.5;1,0.8;abstain;Abstain]"
+      --TKTK can we enable text wrapping?
+   }
+   local formspec_string = table.concat(formspec, "")
+   -- present to player
+   minetest.show_formspec(user, "modpol:binary_poll", formspec_string)
 end
 
+-- Receiving fields
+minetest.register_on_player_receive_fields(function (player, formname, fields)
+      -- modpol:poll
+      if formname == "modpol:binary_poll" then
+         local pname = player:get_player_name()
+         local vote = nil
+         if fields.yes then vote = fields.yes
+         elseif fields.no then vote = fields.no
+         elseif fields.abstain then vote = fields.abstain
+         end
+         if vote then
+            minetest.chat_send_all(pname .. " voted " .. vote)
+         end
+         minetest.close_formspec(pname, formname)
+         return vote
+      else -- if the form is not a recognized name
+         return
+      end
+end)
+
+-- /pollself [question]
+-- asks the user a question
+minetest.register_chatcommand(
+   "pollself", {
+      privs = {},
+      func = function(user, param)
+         modpol.binary_poll_user(user, param)
+         return true, result
+      end,
+})
+
+--[[ TKTK need to enable more complex ineractions
+   - checkboxes, radio
+   - write-in
+]]--
 
 -- MESSAGE FUNCTIONS