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

[emacs] Wrap work clock in a safe excursion

This commit is contained in:
Sebastian Schulze 2023-06-20 21:47:10 +02:00
parent ac5d7e0344
commit 694592724b
No known key found for this signature in database
GPG Key ID: F6BA63C6A7D3044E
1 changed files with 12 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
dot_doom.d/org.el
View File

@ -315,19 +315,20 @@
;; Find my work tree and clock into the respective day / create entry if it does not exist
(defun bascht/alfatraining-clock-in ()
(interactive)
(find-file "/home/bascht/Documents/Zettelkasten/CustomerAlfaview.org")
(save-excursion
(find-file "/home/bascht/Documents/Zettelkasten/CustomerAlfaview.org")
(let ((month (format-time-string "%Y-%m"))
(today (format-time-string "[%Y-%m-%d]")))
(goto-char (org-find-exact-headline-in-buffer month))
(let ((month (format-time-string "%Y-%m"))
(today (format-time-string "[%Y-%m-%d]")))
(goto-char (org-find-exact-headline-in-buffer month))
(if (integer-or-marker-p (org-find-exact-headline-in-buffer today))
(goto-char (org-find-exact-headline-in-buffer today))
(progn
(org-insert-subheading nil)
(insert today)))
(org-clock-in)
(save-buffer)))
(if (integer-or-marker-p (org-find-exact-headline-in-buffer today))
(goto-char (org-find-exact-headline-in-buffer today))
(progn
(org-insert-subheading nil)
(insert today)))
(org-clock-in)
(save-buffer))))
;; Add the a small button to report the current clock line in a :clockreport to
;; Personio. This won't actually do the remote call, but just add a elisp: hyperlink.