From db5cde9c3bde5eeccd67e0921344874fede81602 Mon Sep 17 00:00:00 2001
From: Tom Willemse
Date: Wed, 6 Nov 2013 23:29:04 +0100
Subject: Print messages after successful operations

---
 NEWS    |  1 +
 hypo.el | 13 ++++++++-----
 2 files changed, 9 insertions(+), 5 deletions(-)

diff --git a/NEWS b/NEWS
index 6d34689..97f52ec 100644
--- a/NEWS
+++ b/NEWS
@@ -4,3 +4,4 @@
     current session.
   - Add customization group and allow specification of the URL where
     hypo runs.
+  - Print messages after successful operations.
diff --git a/hypo.el b/hypo.el
index 44e2da5..814ffcb 100644
--- a/hypo.el
+++ b/hypo.el
@@ -52,7 +52,9 @@ sent to hypo.")
   (let* ((start (search-forward "\n\n"))
          (end (1- (search-forward "\n"))))
     (setq hypo--last-post (buffer-substring-no-properties (- end 7) end))
-    (copy-region-as-kill start end)))
+    (copy-region-as-kill start end)
+    (message "Copied %s to kill-ring"
+             (buffer-substring-no-properties start end))))
 
 (defun hypo--collect-and-kill (status)
   "Collect the returned url and kill the current buffer.
@@ -117,10 +119,11 @@ STATUS is ignored."
   "Delete the last thing sent to hypo."
   (interactive)
   (unless hypo--last-post (error "Nothing posted this session"))
-  (let ((url-request-method "DELETE"))
-    (url-retrieve (format "%s/%s" hypo-instance-url hypo--last-post)
-                  #'ignore)
-    (setq hypo--last-post nil)))
+  (let ((url-request-method "DELETE")
+        (url (format "%s/%s" hypo-instance-url hypo--last-post)))
+    (url-retrieve url #'ignore)
+    (setq hypo--last-post nil)
+    (message "Deleted %s" url)))
 
 (provide 'hypo)
 ;;; hypo.el ends here
-- 
cgit v1.2.3-54-g00ecf