From 3b05baa238bc618f4cb693e87d4ac36866f45121 Mon Sep 17 00:00:00 2001 From: Andreas Gerler Date: Wed, 22 Jun 2016 13:28:08 +0200 Subject: [PATCH] open workhours.org during startup. --- bba.org | 15 +++++++++++++++ 1 file changed, 15 insertions(+) diff --git a/bba.org b/bba.org index 46566fc7..2ae5f139 100644 --- a/bba.org +++ b/bba.org @@ -2928,6 +2928,21 @@ Display greetings: (message "All done, %s!" (user-login-name) ) #+END_SRC +Split and show workhours: + +#+BEGIN_SRC emacs-lisp + (if (equal "work" (getenv "SYSENV")) + (progn (split-window-below) + (other-window 1) + (find-file "~/org/workhours.org") + (beginning-of-buffer) + (org-shifttab 3) + (re-search-forward (concat "^\*\* "(format-time-string "%Y-%m"))) + (org-beginning-of-line) + )) + +#+END_SRC + [2014-08-27 Wed 11:02] * old config -- 2.47.3