[org] Fix find-my-current-work-timesheet function
It used to hop just one table column too far and shit like this bugged me plenty.
This commit is contained in:
parent
b80d912ab1
commit
c5d0b9244a
|
@ -292,9 +292,12 @@
|
|||
(goto-char (org-find-exact-headline-in-buffer "Arbeitszeiten"))
|
||||
(goto-char (org-find-exact-headline-in-buffer (format-time-string "%Y-%m")))
|
||||
(search-forward "Total")
|
||||
(previous-line 1)
|
||||
(forward-line -1)
|
||||
(org-table-insert-row)
|
||||
(org-insert-time-stamp (org-read-date nil t "+0d") t)
|
||||
(org-insert-time-stamp (org-read-date nil t "+0d 09:30") t)
|
||||
(execute-kbd-macro (read-kbd-macro "<tab>"))
|
||||
(execute-kbd-macro (read-kbd-macro "<backtab>f:"))
|
||||
(org-clock-in)
|
||||
(save-buffer))
|
||||
|
||||
(defun bascht/alfatraining-hours-a-day (date)
|
||||
|
|
Loading…
Reference in New Issue