equal
deleted
inserted
replaced
1699 |
1699 |
1700 (defun my/org-archive (&optional prefix) |
1700 (defun my/org-archive (&optional prefix) |
1701 "Move all entries marked by `org-done-keywords' to archive |
1701 "Move all entries marked by `org-done-keywords' to archive |
1702 files with name mangled by `my/org-archive-location'. |
1702 files with name mangled by `my/org-archive-location'. |
1703 |
1703 |
1704 Without prefix work on current file. With prefix work on " |
1704 Without prefix work on current file. With prefix work on |
|
1705 `org-agenda-files'." |
1705 (interactive "P") |
1706 (interactive "P") |
1706 (loop for file in (if prefix (org-agenda-files) (list (buffer-file-name))) do |
1707 (loop for file in (if prefix (org-agenda-files) (list (buffer-file-name))) do |
1707 (my/org-archive-file file))) |
1708 (my/org-archive-file file))) |
1708 |
1709 |
1709 (setq org-agenda-include-diary nil) |
1710 (setq org-agenda-include-diary nil) |