fix clocking work hours

Signed-off-by: Andreas Gerler <baronNOSPAMbundesbrandschatzamt.de>

diff --git a/bba-orgmode.org b/bba-orgmode.org
index 3794216004d176e02a7d43f6e04ba25acad47031..b6fdb0c49891c9e0166a309af9964286480616ae 100644 (file)
--- 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 699843f7cf9618f8c290f4f55bf8760cad812584..b7200bb9e90fd4a1a0e87007cb5b3f92a6a6bddc 100644 (file)
--- 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))