From b6c9946cd95992cb66f1afcfc52325023c3e4afa Mon Sep 17 00:00:00 2001
From: Julian Mutter <julian.mutter@comumail.de>
Date: Thu, 22 Jun 2023 09:36:19 +0200
Subject: [PATCH] emacs: customize org clocking

---
 emacs/doom/config.org | 40 ++++++++++++----------------------------
 emacs/doom/init.el    |  2 +-
 2 files changed, 13 insertions(+), 29 deletions(-)

diff --git a/emacs/doom/config.org b/emacs/doom/config.org
index 578a8bd..ab92762 100644
--- a/emacs/doom/config.org
+++ b/emacs/doom/config.org
@@ -76,7 +76,7 @@
       org-roam-directory "~/Nextcloud/org/roam")
 
 ;; Make all org files agenda files
-(setq org-agenda-files (list org-directory))
+(setq org-agenda-files (list org-directory "~/dev/bachelor-thesis/notes"))
 
 (setq org-export-allow-bind-keywords t)
 
@@ -86,34 +86,18 @@
 (add-hook 'org-clock-in-hook #'save-buffer)
 (add-hook 'org-clock-out-hook #'save-buffer)
 
-(setq org-agenda-clockreport-parameter-plist '(:link t :maxlevel 2 :fileskip0 t)) ;; :stepskip0 t
+(setq org-pomodoro-manual-break t)
 
-(after! org
-  (setq org-capture-templates '(("t" "Personal todo" entry
-                                 (file+headline +org-capture-todo-file "Inbox")
-                                 "* TODO %?\n%i\n%a" :prepend t)
-                                ("n" "Personal notes" entry
-                                 (file+headline +org-capture-notes-file "Inbox")
-                                 "* %u %?\n%i\n%a" :prepend t)
-                                ("j" "Journal" entry
-                                 (file+olp+datetree +org-capture-journal-file)
-                                 "* %U %?\n%i\n%a" :prepend t)
-                                ("p" "Templates for projects")
-                                ("pt" "Project-local todo" entry
-                                 (file+headline +org-capture-project-todo-file "Inbox")
-                                 "* TODO %?\n%i\n%a" :prepend t)
-                                ("pn" "Project-local notes" entry
-                                 (file+headline +org-capture-project-notes-file "Inbox")
-                                 "* %U %?\n%i\n%a" :prepend t)
-                                ("pc" "Project-local changelog" entry
-                                 (file+headline +org-capture-project-changelog-file "Unreleased")
-                                 "* %U %?\n%i\n%a" :prepend t)
-                                ("b" "Bachelor Idea" entry
-                                 (file+headline "bachelorarbeit-ideen.org" "Inbox")
-                                 "* IDEA %?\n%i\n%T\n%a" :prepend t)
-                                ))
-  )
-;; (map! :nv "SPC r" "SPC n r")
+(setq org-agenda-custom-commands
+      '(("." "Clocking today" agenda ""
+         ((org-agenda-span 1)
+          (org-agenda-start-day "today")
+          (org-agenda-start-with-clockreport-mode t)
+          (org-agenda-start-with-log-mode 'clockcheck)
+          ))))
+
+(setq org-agenda-clockreport-parameter-plist '(:link t :maxlevel 2 :fileskip0 t)) ;; :stepskip0 t
+(setq org-clock-mode-line-total 'today)
 
 (map! :map org-mode-map :nvi "C-k" #'org-backward-element)
 (map! :map org-mode-map :nvi "C-j" #'org-forward-element)
diff --git a/emacs/doom/init.el b/emacs/doom/init.el
index 3cf0a33..f23eb40 100644
--- a/emacs/doom/init.el
+++ b/emacs/doom/init.el
@@ -153,7 +153,7 @@
        ;;nim               ; python + lisp at the speed of c
        nix               ; I hereby declare "nix geht mehr!"
        ;;ocaml             ; an objective camel
-       (org +dragndrop +pandoc +pretty +roam2 +noter)               ; organize your plain life in plain text
+       (org +dragndrop +pandoc +pretty +roam2 +pomodoro +noter)               ; organize your plain life in plain text
        ;;php               ; perl's insecure younger brother
        ;;plantuml          ; diagrams for confusing people more
        ;;purescript        ; javascript, but functional