42 lines
1.5 KiB
EmacsLisp
42 lines
1.5 KiB
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
|
|
(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)
|
|
; front load org-agenda so it doesnt reshuffle the frame layout on us
|
|
(org-agenda nil "r")
|
|
; start with fresh frame
|
|
(delete-other-windows)
|
|
; show kmn's slipbox
|
|
(find-file "~/org/orgzly/_slipbox.org")
|
|
; 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")
|
|
; put agenda in top side window (works around org-mode limitations
|
|
(kmn/org-agenda-on-top)
|
|
))
|