diff options
| author | Craig Jennings <c@cjennings.net> | 2026-06-16 14:56:59 -0500 |
|---|---|---|
| committer | Craig Jennings <c@cjennings.net> | 2026-06-16 14:56:59 -0500 |
| commit | b985aa6e039c3e6983ce55a2e5bc94dfdca16252 (patch) | |
| tree | 2e810fdfeffcb95d5cbbb430809f97d72d92ecec /modules | |
| parent | 13c50a172e733d7e6c8202055f370cbdb5053b04 (diff) | |
| download | dotemacs-b985aa6e039c3e6983ce55a2e5bc94dfdca16252.tar.gz dotemacs-b985aa6e039c3e6983ce55a2e5bc94dfdca16252.zip | |
feat(ui-navigation): split from the dashboard opens scratch, not the dashboard
C-x 2 / C-x 3 already show the dashboard in the new window while point stays put. The one dead spot was splitting from the dashboard itself, which put the dashboard in both panes. Now the new window shows *scratch* when the current buffer is the dashboard, and the dashboard everywhere else. I pulled the choice into a pure predicate (cj/--split-from-dashboard-p) and a companion helper, both tested.
Diffstat (limited to 'modules')
| -rw-r--r-- | modules/ui-navigation.el | 23 |
1 files changed, 19 insertions, 4 deletions
diff --git a/modules/ui-navigation.el b/modules/ui-navigation.el index e9c9eaf2..d8d7162e 100644 --- a/modules/ui-navigation.el +++ b/modules/ui-navigation.el @@ -118,15 +118,30 @@ window. Return the new window." (set-window-buffer new buffer)) new)) +(defun cj/--split-from-dashboard-p (buffer-name) + "Return non-nil when BUFFER-NAME is the dashboard. +Splitting from the dashboard shows *scratch* in the new window instead of +the dashboard again." + (equal buffer-name "*dashboard*")) + +(defun cj/--split-companion-buffer () + "Buffer to show in the new window after a C-x 2 / C-x 3 split. +The dashboard, or the *scratch* buffer when splitting from the dashboard." + (if (cj/--split-from-dashboard-p (buffer-name)) + (get-scratch-buffer-create) + (cj/--dashboard-buffer))) + (defun cj/split-below-with-dashboard () - "Split below and show the dashboard in the new window; stay in this one." + "Split below and show the companion buffer in the new window; stay in this one. +The companion is the dashboard, or *scratch* when splitting from the dashboard." (interactive) - (cj/--split-show-buffer #'split-window-below (cj/--dashboard-buffer))) + (cj/--split-show-buffer #'split-window-below (cj/--split-companion-buffer))) (defun cj/split-right-with-dashboard () - "Split right and show the dashboard in the new window; stay in this one." + "Split right and show the companion buffer in the new window; stay in this one. +The companion is the dashboard, or *scratch* when splitting from the dashboard." (interactive) - (cj/--split-show-buffer #'split-window-right (cj/--dashboard-buffer))) + (cj/--split-show-buffer #'split-window-right (cj/--split-companion-buffer))) (keymap-global-set "C-x 2" #'cj/split-below-with-dashboard) (keymap-global-set "C-x 3" #'cj/split-right-with-dashboard) |