Theo dõi flexitime bằng Emacs (& org-mode)

Question

Vì vậy, tại nơi làm việc chúng tôi sử dụng flexitime (flex giờ, flexi giờ ...) mà là tốt đẹp nhưng có thể khó theo dõi. Tôi hiện đang sử dụng chế độ org để theo dõi số giờ của tôi (org-clock-(out|in)) nhưng tôi muốn mở rộng để tính toán tự động nếu tôi đã làm việc hơn 8 giờ (thời gian dư thừa sẽ được thêm vào tài khoản 'flex' của tôi) hoặc ít hơn (tùy thuộc vào thời gian nghỉ trưa tôi đã lấy vv), số dư trên tài khoản 'flex' của tôi và như vậy.

Có ai khác sử dụng Emacs cho mục đích này không?

Tôi hiện đang sử dụng một thiết lập rất cơ bản để theo dõi thời gian của tôi:

(defun check-in() 
    (interactive) 
    (let (pbuf (current-buffer)) 
    (find-file (convert-standard-filename "whatnot")) 
    (goto-char (point-max)) 
    (insert "\n") 
    (org-insert-heading) 
    (org-insert-time-stamp (current-time)) 
    (org-clock-in) 
    (save-buffer) 
    (switch-to-buffer pbuf))) 

(defun check-out() 
    (interactive) 
    (let (pbuf (current-buffer)) 
    (find-file (convert-standard-filename "whatnot")) 
    (goto-char (point-max)) 
    (org-clock-out) 
    (save-buffer) 
    (switch-to-buffer pbuf))) 

Answer 1

Giả sử rằng tôi hiểu vấn đề của bạn một cách chính xác, tôi bị tấn cùng một giải pháp nhanh chóng. Trước tiên, bạn nên đảm bảo rằng bạn chỉ tạo một mục nhập phác thảo mỗi ngày, nếu bạn đang kiểm tra trong và ngoài nhiều lần. Xác định hàm sau sẽ tính giờ làm thêm cho một ngày nhất định.

(defun compute-overtime (duration-string) 
    "Computes overtime duration string for the given time DURATION-STRING." 
    (let (minutes-in-a-workday 
     work-minutes 
     overtime-minutes) 
    (defconst minutes-in-a-workday 480) 
    (setq work-minutes (org-duration-string-to-minutes duration-string) 
      overtime-minutes (- work-minutes minutes-in-a-workday)) 
    (if (< overtime-minutes 0) (setq overtime-minutes 0)) 
    (org-minutes-to-hh:mm-string overtime-minutes))) 

Sau đó, sử dụng công thức bảng đồng hồ trong tệp whatnot.

#+BEGIN: clocktable :maxlevel 1 :emphasize nil :scope file :formula "$3='(compute-overtime $2)::@2$3=string(\"Overtime\")"  
#+END: clocktable 

Hit C-c C-c khi bạn đang ở trên bảng đồng hồ để tái tạo nó.

Bạn có thể nhận tổng số giờ làm thêm bằng cách cộng tổng số lần sử dụng công thức khác. Nhưng, tôi đã không làm việc đó.