Add support for primary clipboard

1 files changed, 14 insertions, 0 deletions

diff --git a/runtime/src/clipboard.rs b/runtime/src/clipboard.rs
index bc450912..49044a0f 100644
--- a/runtime/src/clipboard.rs
+++ b/runtime/src/clipboard.rs
@@ -51,3 +51,17 @@ pub fn read<Message>(
 pub fn write<Message>(contents: String) -> Command<Message> {
     Command::single(command::Action::Clipboard(Action::Write(contents)))
 }
+
+/// Read the current contents of primary.
+pub fn read_primary<Message>(
+    f: impl Fn(Option<String>) -> Message + 'static,
+) -> Command<Message> {
+    Command::single(command::Action::ClipboardPrimary(Action::Read(Box::new(
+        f,
+    ))))
+}
+
+/// Write the given contents to primary.
+pub fn write_primary<Message>(contents: String) -> Command<Message> {
+    Command::single(command::Action::ClipboardPrimary(Action::Write(contents)))
+}