equal
deleted
inserted
replaced
1660 Without prefix work on current file. With prefix work on " |
1660 Without prefix work on current file. With prefix work on " |
1661 (interactive "P") |
1661 (interactive "P") |
1662 (loop for file in (if prefix (org-agenda-files) (list (buffer-file-name))) do |
1662 (loop for file in (if prefix (org-agenda-files) (list (buffer-file-name))) do |
1663 (my/org-archive-file file))) |
1663 (my/org-archive-file file))) |
1664 |
1664 |
1665 (setq org-agenda-include-diary t) |
1665 (setq org-agenda-include-diary nil) |
1666 |
1666 |
1667 (defun my-org-kill-by-tag (tag) |
1667 (defun my-org-kill-by-tag (tag) |
1668 "Put all entries that matches TAG from current org-file to `kill-ring'." |
1668 "Put all entries that matches TAG from current org-file to `kill-ring'." |
1669 (interactive (list (completing-read "Enter tag: " (org-get-buffer-tags)))) |
1669 (interactive (list (completing-read "Enter tag: " (org-get-buffer-tags)))) |
1670 (let ( rs (last-command 'kill-region) ) |
1670 (let ( rs (last-command 'kill-region) ) |