diff options
| -rw-r--r-- | init.el | 12 | ||||
| -rw-r--r-- | lib/eos/jao-afio.el | 8 |
2 files changed, 18 insertions, 2 deletions
@@ -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))) |