3 files changed, 24 insertions, 1 deletions
diff --git a/src/app/api.clj b/src/app/api.clj
index f3a4324..277536c 100644
--- a/src/app/api.clj
+++ b/src/app/api.clj
@@ -1,4 +1,14 @@
 (ns app.api
-  (:require [castra.core :refer [defrpc]]))
+  (:require [app.portmaster :as pm]
+            [castra.core :refer [defrpc]]))
 
 (defrpc get-state [])
+
+(defrpc turn-on [port]
+        (pm/turn-on port))
+
+(defrpc turn-off [port]
+        (pm/turn-off port))
+
+(defrpc set-name [port name]
+        (pm/set-name port name))
diff --git a/src/app/portmaster.clj b/src/app/portmaster.clj
index 1d34c88..3c25176 100644
--- a/src/app/portmaster.clj
+++ b/src/app/portmaster.clj
@@ -83,6 +83,10 @@
   [port]
   (do-command (str "off " port)))
 
+(defn set-name
+  [port name]
+  (do-command (str "name " port " " name)))
+
 (defn init
   [port-name username password]
   (let [socat (.. (ProcessBuilder.
diff --git a/src/app/rpc.cljs b/src/app/rpc.cljs
index 1651f72..4d644fd 100644
--- a/src/app/rpc.cljs
+++ b/src/app/rpc.cljs
@@ -12,6 +12,15 @@
 (def get-state
   (mkremote 'app.api/get-state state error loading))
 
+(def turn-on
+  (mkremote 'app.api/turn-on state error loading))
+
+(def turn-off
+  (mkremote 'app.api/turn-off state error loading))
+
+(def set-name
+  (mkremote 'app.api/set-name state error loading))
+
 (defn init []
   (get-state)
   (js/setInterval get-state 1000))