Re: Remove old clock entries

[Ihor Radchenko <yantar92@gmail.com>]

TRS-80 <lists.trs-80@isnotmyreal.name> writes:

> I was thinking about incorporating some handling of these entries into
> a custom archival function.  Which would also handle some other things
> at the same time.  But so far, it's just some notes and thoughts about
> desired functionality and how it might work.  And I keep monitoring
> the mailing list for some better ideas.  :)

FYI:

Credit: https://www.reddit.com/r/orgmode/comments/dg43hs/can_i_archive_a_property_drawer/f3frk2n/

#+begin_src emacs-lisp
(defun my/org-archive-delete-logbook ()
  (save-excursion
   (org-end-of-meta-data)
   (let ((elm (org-element-at-point)))
     (when (and
            (equal (org-element-type elm) 'drawer)
            (equal (org-element-property :drawer-name elm) "LOGBOOK"))
       (delete-region (org-element-property :begin elm)
                      (org-element-property :end elm))))))

(defun my/org-archive-without-delete ()
  (cl-letf (((symbol-function 'org-cut-subtree) (lambda () nil)))
    (org-archive-subtree)))

(defun my/org-archive-logbook ()
  (interactive)
  (my/org-archive-without-delete)
  (my/org-archive-delete-logbook))
#+end_src

Best,
Ihor