diff --git a/common/generic_functions.el b/common/generic_functions.el index 719e7bf..e1d4d9b 100644 --- a/common/generic_functions.el +++ b/common/generic_functions.el @@ -3,6 +3,7 @@ ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; open org agenda in top side window +; BUGGED AND UNUSED, agenda does NOT work properly in side windows (defun kmn/org-agenda-on-top () (defvar parameters '(window-parameters . ((no-other-window . t) diff --git a/common/workspaces.el b/common/workspaces.el index c88504d..ac0f51a 100644 --- a/common/workspaces.el +++ b/common/workspaces.el @@ -25,10 +25,13 @@ ; org-mode workspace (defun kmn/workspace-org () (interactive) - ; front load org-agenda so it doesnt reshuffle the frame layout on us - (org-agenda nil "r") ; start with fresh frame (delete-other-windows) + (kmn/kill-other-buffers) + ; front load org-agenda so it doesnt reshuffle the frame layout on us + (org-agenda nil "r") + (split-window-below) + (next-multiframe-window) ; show kmn's slipbox (find-file "~/org/orgzly/_slipbox.org") ; split window for additional file to show @@ -36,8 +39,7 @@ (next-multiframe-window) ; show kmn health notes/data tracker (find-file "~/org/health/health_mike.org") - ; put agenda in top side window (works around org-mode limitations - (kmn/org-agenda-on-top) + ; switch to top of agenda window so most useful window is focused (next-multiframe-window) (goto-char 0) )