27 lines
1,009 B
EmacsLisp
27 lines
1,009 B
EmacsLisp
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
;; DESKTOP
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
; misc desktop specific overrides
|
|
(setq org-habit-graph-column 75)
|
|
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
; 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
|
|
(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")
|
|
(org-agenda nil "r")
|
|
(delete-other-windows)
|
|
(split-window-below 15)
|
|
(next-multiframe-window)
|
|
(find-file "~/org/health/health_mike.org")
|
|
(split-window-below 15)
|
|
(next-multiframe-window)
|
|
(find-file "~/org/orgzly/_slipbox.org")
|
|
)
|
|
)
|