From: Andreas Gerler <baron@bundesbrandschatzamt.de>
Date: Thu, 15 Dec 2022 17:36:02 +0000 (+0100)
Subject: fix clocking work hours
X-Git-Url: http://git.bundesbrandschatzamt.de/?a=commitdiff_plain;h=b9f81f01f232bb11f5236dbe7fb3ffa02f946331;p=emacsconfig.git

fix clocking work hours

Signed-off-by: Andreas Gerler <baron@bundesbrandschatzamt.de>
---

diff --git a/bba-orgmode.org b/bba-orgmode.org
index 37942160..b6fdb0c4 100644
--- a/bba-orgmode.org
+++ b/bba-orgmode.org
@@ -1580,7 +1580,9 @@ is not working in my configuration.
     (goto-char (point-min))
     (if (re-search-forward (concat "^\*\* "(format-time-string "%Y-%m")) nil t)
         (progn (org-beginning-of-line)
+               (org-fold-show-subtree)
                (re-search-forward "^ *:LOGBOOK:")
+               (if (invisible-p (point-at-eol)) (org-cycle))
                (next-line)
                (org-beginning-of-line)
                (insert (format-time-string "CLOCK: [%Y-%m-%d %a %H:%M]"))
@@ -1594,7 +1596,9 @@ is not working in my configuration.
     (goto-char (point-min))
     (if (re-search-forward (concat "^\*\* "(format-time-string "%Y-%m")) nil t)
         (progn (org-beginning-of-line)
+               (org-fold-show-subtree)
                (re-search-forward "^ *:LOGBOOK:")
+               (if (invisible-p (point-at-eol)) (org-cycle))
                (next-line)
                (org-end-of-line)
                (insert (format-time-string "--[%Y-%m-%d %a %H:%M]"))
diff --git a/bba.org b/bba.org
index 699843f7..b7200bb9 100644
--- a/bba.org
+++ b/bba.org
@@ -3540,6 +3540,7 @@ Split and show workhours:
              (if (re-search-forward (concat "^\*\* "(format-time-string "%Y-%m")) nil t)
                  (progn
                    (org-beginning-of-line)
+                   (if (invisible-p (point-at-eol)) (org-cycle))
                    (org-cycle))
                (progn
                  (goto-char (point-min))