diff options
| author | Craig Jennings <c@cjennings.net> | 2026-05-12 06:07:20 -0500 |
|---|---|---|
| committer | Craig Jennings <c@cjennings.net> | 2026-05-12 06:07:20 -0500 |
| commit | fb39fe85378b58b77d2c5a7a6464b1b4aec0b85d (patch) | |
| tree | 3192f0bcbee2740747d7cb649d791492d5d20cd8 /modules/org-agenda-config.el | |
| parent | 1c5c8bd4df3bd4fd71fad13b2b57e670a4e74355 (diff) | |
| download | dotemacs-fb39fe85378b58b77d2c5a7a6464b1b4aec0b85d.tar.gz dotemacs-fb39fe85378b58b77d2c5a7a6464b1b4aec0b85d.zip | |
fix(org): give the F8 agenda window 75% of the frame
The agenda buffer's `display-buffer-alist' rule used `(window-height . fit-window-to-buffer)', so a sparse agenda opened as a sliver a few lines tall. The rule now takes `(window-height . cj/org-agenda-window-height)', a defcustom defaulting to 0.75 (the fraction of the frame the agenda window gets), and the rule itself moved into `cj/--org-agenda-display-rule' so it's testable. New `test-org-agenda-config-display.el' checks that the configured fraction flows through, that it's no longer `fit-window-to-buffer', and (integration) that `display-buffer' produces a window near that size.
`(use-package alert)' gained an `:if (or (not noninteractive) (require 'alert nil t))' guard: the batch test runner loads this module without `package-initialize', so the optional notification package may be installed but not yet on the load path, and the unconditional `:config' setq's would error.
Diffstat (limited to 'modules/org-agenda-config.el')
| -rw-r--r-- | modules/org-agenda-config.el | 20 |
1 files changed, 16 insertions, 4 deletions
diff --git a/modules/org-agenda-config.el b/modules/org-agenda-config.el index 6c60e8dd..3b1e9456 100644 --- a/modules/org-agenda-config.el +++ b/modules/org-agenda-config.el @@ -46,6 +46,17 @@ (require 'system-lib) (require 'cj-cache-lib) +(defcustom cj/org-agenda-window-height 0.75 + "Fraction of the selected frame used for the org agenda window." + :type 'number) + +(defun cj/--org-agenda-display-rule () + "Return the display-buffer rule for the org agenda buffer." + `("\\*Org Agenda\\*" + (display-buffer-reuse-mode-window display-buffer-below-selected) + (dedicated . t) + (window-height . ,cj/org-agenda-window-height))) + ;; Load debug functions if enabled (when (or (eq cj/debug-modules t) (memq 'org-agenda cj/debug-modules)) @@ -71,10 +82,7 @@ ;; display the agenda from the bottom (add-to-list 'display-buffer-alist - '("\\*Org Agenda\\*" - (display-buffer-reuse-mode-window display-buffer-below-selected) - (dedicated . t) - (window-height . fit-window-to-buffer))) + (cj/--org-agenda-display-rule)) ;; reset s-left/right each time org-agenda is enabled (add-hook 'org-agenda-mode-hook (lambda () @@ -335,6 +343,10 @@ This allows a line to show in an agenda without being scheduled or a deadline." ;; send libnotify notifications for agenda items (use-package alert + ;; Batch tests load this module without package-initialize, so optional + ;; notification packages may be installed but not loadable yet. + :if (or (not noninteractive) + (require 'alert nil t)) :config (setq alert-fade-time 10) ;; seconds to vanish alert (setq alert-default-style 'libnotify)) ;; works well with dunst |