dial.fnl

(local lgi (require :lgi))
(local dbus (require :dbus_proxy))
(local GLib lgi.GLib)
(local GV lgi.GLib.Variant)
(local variant dbus.variant)

;; https://www.freedesktop.org/software/ModemManager/api/latest/ref-dbus.html
(local modem-manager
       (dbus.Proxy:new
        {
         :bus dbus.Bus.SYSTEM
         :name "org.freedesktop.ModemManager1"
         :interface "org.freedesktop.DBus.ObjectManager"
         ;; mmcli -L
         :path "/org/freedesktop/ModemManager1"
         }))

(fn voice []
  (dbus.Proxy:new
   {
    :bus dbus.Bus.SYSTEM
    :name "org.freedesktop.ModemManager1"
    :interface "org.freedesktop.ModemManager1.Modem.Voice"
    :path (next (modem-manager:GetManagedObjects))
    }))

(fn start-call [number]
  (let [call-path (: (voice) :CreateCall {:number (GV "s" number)})
        o (dbus.Proxy:new
           {
            :bus dbus.Bus.SYSTEM
            :name "org.freedesktop.ModemManager1"
            :interface "org.freedesktop.ModemManager1.Call"
            :path call-path
            })]
    (o:Start)))