From b9f81f01f232bb11f5236dbe7fb3ffa02f946331 Mon Sep 17 00:00:00 2001 From: Andreas Gerler Date: Thu, 15 Dec 2022 18:36:02 +0100 Subject: [PATCH] fix clocking work hours Signed-off-by: Andreas Gerler --- bba-orgmode.org | 4 ++++ bba.org | 1 + 2 files changed, 5 insertions(+) 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)) -- 2.47.3