# HG changeset patch
# User Oleksandr Gavenko <gavenkoa@gmail.com>
# Date 1366880341 -10800
# Node ID 2177746c28a0441146d7d1e4ee4a84957a20cbc1
# Parent  a064392620d70309b6b85e753dff4abd0ab579af
Implement 'my-org-kill-by-tag'.

diff -r a064392620d7 -r 2177746c28a0 .emacs-my
--- a/.emacs-my	Tue Mar 26 11:25:33 2013 +0200
+++ b/.emacs-my	Thu Apr 25 11:59:01 2013 +0300
@@ -1347,6 +1347,17 @@
 
 (setq org-agenda-include-diary t)
 
+(defun my-org-kill-by-tag (tag)
+  "Put all entries that matches TAG from current org-file to `kill-ring'."
+  (interactive (list (completing-read "Enter tag: " (org-get-buffer-tags))))
+  (kill-new "")
+  (org-scan-tags
+   (lambda ()
+     (let ( (last-command 'kill-region) )
+       (org-cut-subtree)))
+   '(member tag tags-list)
+   nil) )
+
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "TODO, XXX, FIXME highlight")
 ;; Show blanks and FIXME