kemonine/emacs
Archived
1
0
Fork 0
Code Activity

Compare commits

base: kemonine:f657642113e93f35e31d9d18dde5a465b4b0e781
Branches Tags
kemonine:main
kemonine:todo-habit-config
kemonine:big-config
...
compare: kemonine:f9b5908719723cb440ba3ff330228ab1015f7218
Branches Tags
kemonine:main
kemonine:todo-habit-config
kemonine:big-config

2 commits
f657642113 ... f9b5908719

Author SHA1 Message Date
KemoNine f9b5908719 add function to show the org agenda buffer in the top side window ; re-work the after-init org-mode hook to better auto-layout a default work space 2023-04-08 11:41:00 -04:00
KemoNine 8f829a6d6c tweak org-agenda so it re-uses the current window when displaying instead of re-arranging all the things 2023-04-08 11:40:14 -04:00
2 changed files with 31 additions and 17 deletions
Show stats Expand all files Collapse all files

1
org/config-org-agendas.el
View file

@ -66,6 +66,7 @@
(lambda ()
(local-set-key (kbd "y") 'kmn/org-habit-with-date)))
(setq org-agenda-use-time-grid nil)
(setq org-agenda-window-setup "current-window")
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; Set some org agendas/dashboards

35
org/config-org-desktop.el
View file

@ -8,21 +8,34 @@
; Personal startup screen (Desktop)
; - preferred org agenda as dedicated window at the top of the frame, n lines high
; - common org files open in the bottom window
(defun kmn/org-agenda-on-top ()
(defvar parameters
'(window-parameters . ((no-other-window . t)
(no-delete-other-windows . t))))
(setq fit-window-to-buffer-horizontally t)
(setq window-resize-pixelwise t)
(interactive)
(display-buffer-in-side-window
(get-buffer "*Org Agenda*") `((side . top) (slot . 0)
(window-width . fit-window-to-buffer)
(preserve-size . (t . nil)) , parameters))
)
(add-hook 'after-init-hook (lambda ()
(interactive)
(find-file "~/org/health/health_houdini.org")
(find-file "~/org/orgzly/_habits.org")
(find-file "~/org/orgzly/_todo.org")
(find-file "~/org/_index.org")
; front load org-agenda so it doesnt reshuffle the frame layout on us
(org-agenda nil "r")
; start with fresh frame
(delete-other-windows)
(split-window-below 15)
(next-multiframe-window)
; show kmn's slipbox
(find-file "~/org/orgzly/_slipbox.org")
(split-window-below 15)
; split window for additional file to show
(split-window-below)
(next-multiframe-window)
; show kmn health notes/data tracker
(find-file "~/org/health/health_mike.org")
(next-multiframe-window)
(goto-char 0)
)
)
; put agenda in top side window (works around org-mode limitations
(kmn/org-agenda-on-top)
))