Tracking flexitime usando Emacs (& org-mode)

Question

Quindi, al lavoro usiamo il flexitime (orario flessibile, orario flessibile ...) che è bello ma può essere difficile da tenere sotto controllo. Attualmente sto utilizzando la modalità org per tenere traccia dei miei orari (org-clock-(out|in)) ma mi piacerebbe estenderlo per calcolare automaticamente se ho lavorato più di 8 ore (il tempo in più deve essere aggiunto al mio account 'flessibile') o meno (a seconda di quanto a lungo pausa pranzo ho preso, ecc), il saldo sul mio conto 'flessibile' e così via.

Qualcun altro utilizza Emacs per questo?

Attualmente sto usando una configurazione molto semplice per monitorare il mio tempo:

(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

Supponendo che ho capito il tuo problema in modo corretto, ho messo insieme una soluzione rapida. Innanzitutto, è necessario assicurarsi di creare solo una voce di struttura al giorno, se si effettua il check-in e il ritiro più volte. Definisci la seguente funzione che calcolerà gli straordinari per un determinato giorno.

(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))) 

Quindi, utilizzare questo in una formula tabella di orologio nel file 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 quando si è sul tavolo orologio per rigenerarlo.

È possibile ottenere il totale straordinario sommando i tempi supplementari utilizzando un'altra formula. Ma non l'ho ancora risolto.