From 7cd8f9d1964d23c5bab1cb20d875ab547539049e Mon Sep 17 00:00:00 2001
From: Tom Willemsen
Date: Sun, 24 Mar 2013 16:30:52 +0100
Subject: Add clark-remove command

Removes the current url from the database.
---
 clark.js | 13 +++++++++++++
 1 file changed, 13 insertions(+)

diff --git a/clark.js b/clark.js
index 3620f7e..16d96e7 100644
--- a/clark.js
+++ b/clark.js
@@ -185,6 +185,18 @@ function clark_exists_p(I) {
 interactive("clark-exists-p", "Check to see if the current url"
             + " exists in the database.", clark_exists_p);
 
+function clark_remove(I) {
+    check_buffer(I.buffer, content_buffer);
+
+    let url_string =
+            load_spec_uri_string(load_spec(I.buffer.top_frame));
+    let command = clark_program + ' remove "' + url_string + '"';
+    let result = yield shell_command(command);
+    I.window.minibuffer.message("CLark done");
+}
+interactive("clark-remove", "Remove the bookmark of the current URL"
+            + " from the database.", clark_remove);
+
 define_keymap("clark_keymap");
 
 define_key(clark_keymap, "?", "clark-exists-p");
@@ -193,5 +205,6 @@ define_key(clark_keymap, "A", "clark-add-link");
 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");
 
 provide("clark");
-- 
cgit v1.2.3-54-g00ecf