bascht
/
dotfiles
1
0
Fork 0
Code Issues 2 Pull Requests Actions Packages Projects Releases Activity

[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:
Sebastian Schulze 2021-05-05 20:31:50 +02:00
parent b80d912ab1
commit c5d0b9244a
No known key found for this signature in database
GPG Key ID: F6BA63C6A7D3044E
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
dot_doom.d/org.el
View File

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