From 916af593143f04fbc10c8f6a8c349a1ba9080fe7 Mon Sep 17 00:00:00 2001
From: Tom Willemsen <tom@ryuslash.org>
Date: Sun, 24 Mar 2013 16:43:32 +0100
Subject: [PATCH] Add clark-set-tags command

Replaces the previously added tags.
---
 js/clark.js | 19 +++++++++++++++++++
 1 file changed, 19 insertions(+)

diff --git a/js/clark.js b/js/clark.js
index 16d96e7..1304218 100644
--- a/js/clark.js
+++ b/js/clark.js
@@ -197,6 +197,24 @@ function clark_remove(I) {
 interactive("clark-remove", "Remove the bookmark of the current URL"
             + " from the database.", clark_remove);
 
+function clark_set_tags(I) {
+    check_buffer(I.buffer, content_buffer);
+
+    let url_string =
+            load_spec_uri_string(load_spec(I.buffer.top_frame));
+    let tags = yield I.minibuffer.read(
+        $prompt="tags (comma delimited): "
+    );
+    let command = clark_program + ' set-tags "' + url_string + '" '
+            + tags.split(',').map(
+                function (str) { return "'" + str.trim() + "'"; }
+            ).join(" ");
+    let result = yield shell_command(command);
+    I.window.minibuffer.message("CLark done");
+}
+interactive("clark-set-tags", "Replace the tags for the bookmark of"
+            + " the current URL.", clark_set_tags);
+
 define_keymap("clark_keymap");
 
 define_key(clark_keymap, "?", "clark-exists-p");
@@ -206,5 +224,6 @@ define_key(clark_keymap, "e", "clark-edit");
 define_key(clark_keymap, "f", "clark-find-url");
 define_key(clark_keymap, "F", "clark-find-url-new-buffer");
 define_key(clark_keymap, "r", "clark-remove");
+define_key(clark_keymap, "t", "clark-set-tags");
 
 provide("clark");