Print messages after successful operations

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