From 59013a27bdb3ddabef7a27616274db613ff67259 Mon Sep 17 00:00:00 2001 From: jao Date: Fri, 11 Sep 2026 00:48:17 +0100 Subject: fiddling with those two panes --- init.el | 12 +++++++++++- lib/eos/jao-afio.el | 8 +++++++- 2 files changed, 18 insertions(+), 2 deletions(-) diff --git a/init.el b/init.el index bbd4e0c..53ab14c 100644 --- a/init.el +++ b/init.el @@ -653,7 +653,8 @@ (setq appt-display-format nil calendar-latitude 55.9533 calendar-longitude -3.1883 - calendar-left-margin 4 + calendar-left-margin 2 + calendar-month-width 30 calendar-location-name "Edinburgh, Scotland" calendar-mark-diary-entries-flag t calendar-week-start-day 1 ;; 0 sunday @@ -698,6 +699,15 @@ (defun jao-diary--select () (switch-to-buffer diary-fancy-buffer)) + (defun jao-calendar-hook () + (toggle-truncate-lines 1) + ;; (setq left-fringe-width 1) + ;; (setq right-fringe-width 1) + (setq fringe-indicator-alist '((truncation nil nil) (continuation nil nil)))) + + (add-hook 'calendar-mode-hook #'jao-calendar-hook) + (add-hook 'calendar-initial-window-hook #'calendar-scroll-left) + (add-hook 'diary-fancy-display-mode-hook #'jao-diary--select)) ;;;; persistent scratch diff --git a/lib/eos/jao-afio.el b/lib/eos/jao-afio.el index 1400949..e319eeb 100644 --- a/lib/eos/jao-afio.el +++ b/lib/eos/jao-afio.el @@ -199,12 +199,18 @@ (set-window-dedicated-p nil t) (other-window 1)) +(defvar jao-afio-mail-sidebar-width 60) +(defvar jao-afio-mail-sidebar-right nil) + (defun jao-afio--open-mail (fun) (unless (get-buffer "*Calendar*") (calendar)) (delete-other-windows) (if (< (frame-width) 160) (funcall fun) - (split-window-horizontally -80) + (if jao-afio-mail-sidebar-right + (split-window-horizontally (- jao-afio-mail-sidebar-width)) + (split-window-horizontally jao-afio-mail-sidebar-width) + (other-window 1)) (funcall fun) ;; (set-window-dedicated-p nil t) (jao-afio--mail-sidebar))) -- cgit v1.2.3