Carsten Dominik <carsten.dominik <at> gmail.com> writes: > > > On 25.4.2013, at 10:21, Oleksandr Gavenko <gavenkoa <at> gmail.com> wrote: > > > I finish with very hackie code (based on knowledge of internal > > implementation of org-scan-tags): > > > > (defun my-org-kill-by-tag (tag) > > (interactive (list (read-input "Enter tag: "))) > > (kill-new "") > > (org-scan-tags > > (lambda () > > (let ( (last-command 'kill-region) ) > > (org-cut-subtree))) > > '(member tag tags-list) > > nil) ) > > > > You can replace 'org-cut-subtree' by 'org-copy-subtree' if don't want remove > > org entries... > > Yes, this work, nice trick with binding last-command to kill-region. >
10 min of reading (info "(elisp)Low-Level Kill Ring")... This morning I ask: http://thread.gmane.org/gmane.emacs.help/90339 Want to delete distinct regions but make capable undo by single command. This hack based on: (defun kill-region (beg end &optional yank-handler) .... (if (eq last-command 'kill-region) (kill-append string (< end beg) yank-handler) (kill-new string nil yank-handler))) > A less hackie version would probably add the found entries to a > string or list and only put that string into the kill ring at the end. > > org-map-entries would allow processing of several files in one go, > but it would be a very similar implementation. > I look to code and found that 'org-map-entries' call 'org-scan-tags'. As 'org-map-entries' looks complicated to me I try to use more low-level function... 'org-map-entries' also allow rich search queries: (info "(org)Matching tags and properties") `+work-boss' Select headlines tagged `:work:', but discard those also tagged `:boss:'. `work|laptop' Selects lines tagged `:work:' or `:laptop:'. `work|laptop+night' Like before, but require the `:laptop:' lines to be tagged also `:night:'. Next 20 min I search for 'org-get-buffer-tags'. This code completely satisfy my needs: (defun my-org-kill-by-tag (tag) (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) ) Is it possible to include "correct" implementation (seems that I can't able implement one) to org-mode? I want this feature in order to simplify precess of moving entries from job org-file to home org-file by marking entries with tag :HOME:...