Đồng hồ tự động ở chế độ org khi di chuyển vào phần

Bối cảnh Khi làm việc trên một tài liệu lớn hơn, org-modetôi muốn theo dõi toàn bộ thời gian làm việc mà không có khoảng trống. Vì tôi thường có một phần logbooktrong mỗi phần, tôi tự hỏi liệu có thể tự động đồng hồ khi di chuyển con trỏ vào một phần và hết giờ khi rời khỏi nó.

Theo tôi biết, chỉ có các dự án tự động hết giờ khi hoàn thành các tác vụ và đồng hồ đó trong một đồng hồ mặc định sau đó. Mặc dù tôi thực sự thích cách tiếp cận nhưng tôi có cảm giác rằng nó không phù hợp khi viết một tài liệu dài hơn mà các phần thường rơi vào trạng thái hoàn thành rất muộn và đôi khi xảy ra nhảy giữa các phần, ví dụ như trong các giai đoạn chỉ có các vấn đề nhỏ được khắc phục.

Lần đầu tiên ít nhất tôi thấy đồng hồ tự động như vậy là trong cấu hình chế độ org của Bernt Hansen .

Câu hỏi: Làm thế nào có thể thực hiện đồng hồ tự động, sao cho có đồng hồ khi di chuyển vào một phần và đồng hồ khi di chuyển ra khỏi một phần?

Điều này có vẻ khá gần. Tôi thiết lập tính năng này để hoạt động trên các phần có thuộc tính AUTOCLOCK. Tôi không biết một cách thanh lịch hơn để làm điều đó hơn là hook-post-hook.

#+BEGIN_SRC emacs-lisp
(defun action-1 ()
  "hook function to run in headings with a clock"
  (and (eq major-mode 'org-mode)
       (not (org-before-first-heading-p)))
  (if (org-entry-get (point) "AUTOCLOCK")
      (org-clock-in)
    (when (marker-buffer org-clock-marker) (org-clock-out))))

(add-hook 'post-command-hook 'action-1)
#+END_SRC